Mega Code Archive

 

Categories / Delphi / Graphic

 

Convert rgb to colorref [bgr]

function RGB2BGR(R, G, B: Byte): COLORREF; overload; begin Result := (Integer(B) shl 16) + (Integer(G) shl 8) + R; end; function RGB2BGR(RGB: Integer): COLORREF; overload; var R, G, B: Integer; begin R := RGB div $10000; G := ((RGB mod $10000) div $100) shl 8; B := (RGB mod $100) shl 16; Result := B + G + R; end;