Hallo Spider, wie meinst du denn 'die Farbe als String'?
Guck Dir mal ColorToString an (soweit ich mich erinnere Hex-Darstellung als 4byte Cardinal, also etwa so $00BBGGRR).
Ansonsten:
Delphi-Quellcode:
function ColorStr(
const aCol: Cardinal;
const Hex: boolean = false):
string;
begin
result := '
';
case Hex
of
true:
result := '
#'+IntToHex(Byte(aCol),2)+IntToHex(Byte(aCol
shr $08),2)+IntToHex(Byte(aCol
shr $10),2);
false:
result := '
RGB('+IntToStr(Byte(aCol))+'
,'+IntToStr(Byte(aCol
shr $08))+'
,'+IntToStr(Byte(aCol
shr $10))+'
)';
end;
end;
Mit Hex kannst du angeben ob du ein
RGB-Trippel (Standard, Hex = false) oder in hexadezimaler Darstellung (
HTML-Darstellung, Hex = true) haben willst.
Gruß, Sebastian