Graphics32 PNG verdunkeln

[stOrM]

Nochmal ein PNG problem. wie kann man mittels der Graphics32 ein PNG Image (muss nicht kann auch Bitmap32 sein) verdunekln? Also nicht ausgrauen, die Farben sollten erhalten bleiben nur stark verdunkelt...

Viele Grüsse
s!

[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...

[stOrM]

Ah genial!
Ich hoffe auch das sich da nix geändert hat ich teste das mal gleich!

Schonmal vielen Dank!

Viele Grüsse
s!

[stOrM]

Danke nochmals funktioniert einwandfrei und extrem schnell :-)