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

Комментарии

• Simon Logic

  June 2004 отредактировано 08:38

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

  June 2004 отредактировано 08:38

  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

  June 2004 отредактировано 08:38

  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. Вот смех-то!
  
  Гм... переработался.