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

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

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

Модераторы: 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!

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

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

[ Script execution time: 0,0698 ] [ 16 queries used ] [ Generated: 10.10.24, 00:51 GMT ]