Как конвертировать 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