den code hab ich hier ausm board, hab gedacht der wär korrekt.
verstehe momentan noch kaum was von bildbearbeitung, könntest mir ein beispiel geben? oder gibts das schon hier irgendwo im board?
Delphi-Quellcode:
procedure dunkler(Bitmap: TBitmap32;
const dp: Byte = 10);
var
PixelLine: pColor32array;
//hier gibts problmeme, weiss nicht welchen typ ich hier angeben muss
x, y: integer;
begin
for y := 0
to Bitmap.height - 1
do
begin
PixelLine := Bitmap.ScanLine[y];
for x := 0
to (Bitmap.width) - 1
do
PixelLine^[x] := PixelLine^[x] - round(PixelLine^[x] /
dp);
end;
end;
so in etwa?
würd gerne ne routine programmieren, die ziehmlich genau arbeite, ist das bei dieser nicht der fall?
