OK. Thanx. Dann ist das Hin und Rückspeichern in eine Bitmap wohl nicht zu umgehen.
BTW, in verschieden Threads wird darauf hingewiesen, daß die
rgb bei Scanline anders rum sind als bei einer Bitmap. Bei einer 32 Bit Bitmap (also PixelFormat pf32bit) konnte ich das bis jetzt nicht feststellen. Wurde das seitens Delphi mal geändert oder mach ich was falsch?
Delphi-Quellcode:
function RGB32ToColor(Value: TRGB32): TColor;
begin
Result := ColorToRGB(
RGB(Value.R, Value.G, Value.B));
end;
function ColorToRGB32(Value: TColor): TRGB32;
begin
Result.R := GetRValue(ColorToRGB(Value));
Result.G := GetGValue(ColorToRGB(Value));
Result.B := GetBValue(ColorToRGB(Value));
Result.A := 0;
end;