
![]() |
Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
|
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[216.73.216.52] |
![]() |
|
Сообщ.
#1
,
|
|
|
Функция для преобразования цвета TColor в формат цветов HTML
![]() ![]() 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! |