PatternSurfaces[0].Pixels[X,Y] MORE SLOW

[seiferalmasy]

You should still be able to move window but yes you are right. Something fundamentally wrong somewhere...

[ijcro]

I am not sure that change image resp. change surface of image in DXImageList is right way.

[kotai]

Color Bug solved.

I convert 16 to 24 bits:

Solved:

[pascal]function RGBTo16bit(R,G,B: Byte): Integer;
begin
Result:= ((B shr 3) shl 11) + ((G shr 2) shl 5) + (R shr 3);
end;[/pascal]


[pascal]function ToRGB(Color: Integer): Integer;
begin
Result:= ((Color and $F800) shl + ((Color and $7E0) shl 5) +
((Color and $1F) shl 3)
end;[/pascal]


Now only bug when window moved or swich fullscreen, I lost all modified colors, all DXImageList restore to defaults color :cry: , can help me ?

Kotai. :roll: