Parsi Coders

نسخه‌ی کامل: Converts a TColor to a HTML Hex value
شما در حال مشاهده نسخه آرشیو هستید. برای مشاهده نسخه کامل کلیک کنید.
کد:
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;