|
Registriert seit: 10. Jun 2002
Ort: Unterhaching
11.413 Beiträge
Delphi 12 Athens
|
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 Lizbeth
Ich bin nicht zurück, ich tue nur so
|