[iVan]

Помогите написать прогу для перевода цвета типа Tcolor в HTML. Например $0080FF нужно перевести в FF8000.

[Admin]

Код:

var
 rgbColor: TColorRef;
 s: string;
begin
 rgbColor:=ColorToRGB($0080FF);
 s:='Color="#'+Format('%.2x%.2x%.2x', [GetRValue(rgbColor),
               GetGValue(rgbColor), GetBValue(rgbColor)])+'"';
 Form1.Caption:=s;
end;

[iVan]

Fanx U Very Mach