Delphi-Quellcode:
procedure makeDarker32(Bitmap: TBitmap32;
const dp: Byte = -20);
var
PixelLine: PColor32array;
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] := Lighten(PixelLine[x], -100);
end;
end;
so korrekt? kann man noch was am code machen um die geschwindigkeit zu erhöhen?
ansonsten binnich zufrieden, nun wirds auch dunkler ohne das es ins grüne abdriftet
