01-10-2012، 11:37 PM
کد:
function ColorToHex(Inp: TColor): String;
var
tmp: Longint;
begin
tmp:= ColorToRGB(inp);
Result:= '#' + IntToHex(GetRValue(tmp),2) + IntToHex(GetGValue(tmp),2) + IntToHex(GetBValue(tmp),2);
end;