Registriert seit: 10. Jun 2002
Ort: München
11.412 Beiträge
Delphi 11 Alexandria
|
Re: Farbcodes
28. Okt 2003, 09:31
Dann teste mal folgende Funktionen:
Delphi-Quellcode:
function HexToColor(St: String): TColor;
begin
Result := TColor(StrToInt(St));
end;
function ColorToHex(Col: TColor): String;
begin
Result := '$' + IntToHex(Integer(Col), 8);
end;
... ...
Daniel W. Ich bin nicht zurück, ich tue nur so
|