TColor ---> HTML Color |
Previous Top Next |
Функция для преобразования цвета TColor в формат цветов HTML
Code: |
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; |
Не нужно забывать о
Code: |
uses SysUtils, Graphics; |
для функций Format и ColorToRGB!
Автор: Smike
Взято из http://forum.sources.ru
©Drkb::03677