Как конвертировать RGB в TColor
Falk0ner, вс, 06/07/2008 - 15:35.
function RGBToColor(R,G,B:Byte): TColor;
begin
Result:=B Shl 16 Or
G Shl 8 Or
R;
end;
begin
Result:=B Shl 16 Or
G Shl 8 Or
R;
end;
Взято из http://forum.sources.ru
RGB -> TColor
RGB(r,g,b:byte):tcolor
TColor -> RGB
GetRValue(color:tcolor)
GetGValue(color:tcolor)
GetBValue(color:tcolor)
Автор: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)
Взято с Vingrad.ru http://forum.vingrad.ru
Отправить комментарий