Как конвертировать RGB в TColor |
Previous Top Next |
Code: |
function RGBToColor(R,G,B:Byte): TColor; begin Result:=B Shl 16 Or G Shl 8 Or R; end; |
©Drkb::03683
Взято из http://forum.sources.ru
RGB -> TColor
RGB(r,g,b:byte):tcolor
TColor -> RGB
GetRValue(color:tcolor)
GetGValue(color:tcolor)
GetBValue(color:tcolor)
©Drkb::03684
Автор: Vit (www.delphist.com, www.drkb.ru, www.unihighlighter.com, www.nevzorov.org)
Взято с Vingrad.ru http://forum.vingrad.ru