25-12-2008, 04:19 AM
يمكنك استخدام ال scanline التي هي اسرع بكثير من استخدام ال pixels, ولان شرحها طويل يمكنك ان تجد شرحا مفصلا هنا: http://www.efg2.com/Lab/ImageProcessing/Scanline.htm
او اذا اردت ان تستعمل ال pixels يمكنك ان تسعمل هذه للتحويل من TColor الى RGB و بالعكس:
او اذا اردت ان تستعمل ال pixels يمكنك ان تسعمل هذه للتحويل من TColor الى RGB و بالعكس:
كود :
RGB to TColor
function RGBToColor(R,G,B:Byte): TColor;
begin
Result:=B Shl 16 Or G Shl 8 Or R;
end;
TColor to RGB
procedure ColortoRGB(Color : TColor;Var R,G,B : Integer);
var
R,G,B : Integer;
begin
R := Color and $ff;
G := (Color and $ff00) shr 8;
B := (Color and $ff0000) shr 16;
end;