|
Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.412 Beiträge
Delphi 12 Athens
|
13. Apr 2003, 19:49
Es sollte so gehen.
Delphi-Quellcode:
function RGB2TColor( const R, G, B: Byte): Integer;
begin
// convert hexa-decimal values to RGB
Result := R + G shl 8 + B shl 16;
end;
...  ...
Daniel Lizbeth
Ich bin nicht zurück, ich tue nur so
|