|
...convert RGB to COLORREF (BGR)?
|
| Autor:
Martin |
| [ Print tip
] | | |
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;
|
