如何把RGB颜色转变成Delphi的 Tcolor?
语法:
-------
myTcolor:=rgbtocolor(redvalue,greenvalue,bluevalue);
例子:
--------
form1.color:=rgbtocolor(255,0,0);
函数:
---------
function RGBToColor(R,G,B:Byte): TColor;
begin
Result:=B Shl 16 Or
G Shl 8 Or
R;
end;