Нужен код функции HTMLRGBColor

Simon Logic

Нужен код функции function HTMLRGBColor(Color: TColor): string; (появилась в версии 2.52)

Неохота самому писать. Дайте, пожалуйста.

Simon Logic

Ну вставьте пару строк, о счатсливые обладатели исходного кода fr_class.pas версии 2.52 и выше. Что вам стоит? Настолько безобидная функция преобразования номера цвета в RGB составляющую в шестнадцатеричном виде.

Эх, ладно... Подозреваю, что вечером придется потратить несколько минут.

Samuray

function HTMLRGBColor(Color: TColor): string;
var
TheRgbValue : TColorRef;
begin
TheRgbValue := ColorToRGB(Color);
Result := Format('%.2x%.2x%.2x', [GetRValue(TheRGBValue), GetGValue(TheRGBValue), GetBValue(TheRGBValue)]);
end;

Simon Logic

Samuray написал:

function HTMLRGBColor(Color: TColor): string;
var
TheRgbValue : TColorRef;
begin
TheRgbValue := ColorToRGB(Color);
Result := Format('%.2x%.2x%.2x', [GetRValue(TheRGBValue), GetGValue(TheRGBValue), GetBValue(TheRGBValue)]);
end;

О-па! Не ожидал. Спасибо!

Хотя... Только что нашел в модуле FR_Utils.pas. Вот смех-то!

Гм... переработался.