|
Registriert seit: 21. Dez 2002
Ort: Lenzburg
861 Beiträge
Delphi 6 Professional
|
7. Mär 2003, 19:36
Delphi-Quellcode:
function ColToString(AColor : TColor):String;
begin
AColor := ColorToRGB(AColor);
Result := IntToHex(GetRValue(AColor),2)+
IntToHex(GetGValue(AColor),2)+
IntToHEx(GetBValue(AColor),2);
end;
Tobias
Die Physik ist für die Physiker eigentlich viel zu schwer.
|