GR32 bilder verdunkeln

[alienous]

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?