TColor -> HTML Color -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [216.73.216.62]

Модераторы: Rouse_, jack128, Krid

TColor -> HTML Color

s-mike

Сообщ. #1 , 09.03.05, 08:34

Unregistered

Функция для преобразования цвета 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!

1 пользователей читают эту тему (1 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0182 ] [ 15 queries used ] [ Generated: 17.07.25, 14:22 GMT ]