Graphics32 PNG verdunkeln

[Medium]

Mit einer ca. 1-2 Jahre alten Version (Nummer weiss ich leider nicht mehr), habe ich folgendes gemacht:

Delphi-Quellcode:

procedure ChangeBrightness(var bmp: TBitmap32; amount: Integer); 
var
  i: Integer;                                                  
  p: PColor32;                                                 
begin                                                            
  p := bmp.PixelPtr[0,0];
  for i := 0 to bmp.Width*bmp.Height-1 do
  begin
    p^ := Lighten(p^, amount);
    inc(p);
  end;
end;

Die Funktion "Lighten" müsste sich in der Unit GR32_Blend befinden. Das ganze ist zudem ziemlich fix

Ich hoffe, dass sich das nicht mittlerweile in der Graphis32 geändert hat.

Edit: Tags vergummelt...