Mega Code Archive

 

Categories / Delphi / Graphic

 

Convert RGB color to Delphis TColor

Title: Convert RGB-color to Delphi's TColor Question: How to convert a RGB-color to Delphi`s TColor? Answer: Syntax: ------- myTcolor:=rgbtocolor(redvalue,greenvalue,bluevalue); Example: -------- form1.color:=rgbtocolor(255,0,0); Function: --------- function RGBToColor(R,G,B:Byte): TColor; begin Result:=B Shl 16 Or G Shl 8 Or R; end;