Форум на Исходниках.RU https://forum.sources.ru Форум на Исходниках.RU Форум на Исходниках.RU https://forum.sources.ru/index.php?showtopic=86078&view=findpost&p=637521 Wed, 09 Mar 2005 08:34:09 +0000 TColor -> HTML Color https://forum.sources.ru/index.php?showtopic=86078&view=findpost&p=637521
    function TColorToHTML(const Value: TColor): string;
    var
      RGBColor: Longint;
    begin
      RGBColor := ColorToRGB(Value);
      Result := Format('#%.2x%.2x%.2x', [GetRValue(RGBColor), GetGValue(RGBColor), GetBValue(RGBColor)]);
    end;

Не нужно забывать о
    uses SysUtils, Graphics;

для функций Format и ColorToRGB!]]> s-mike Графика, звук, анимация, игры