Текущий архив: 2004.10.03;
Скачать: CL | DM;
Вниз
Опять цвета Найти похожие ветки
← →
Чайник (2004-09-15 18:58) [0]Народ, помогите пожалуйста с такой проблемой:
Создается некий html текст, разноцветный, цвета беруться из colordialoga, все теоретически может и нормально (что вряд ли), но вот вопрос: HTML ети цвета понимает совершенно по другому... как сделать лучше, чтоб цыета, которые выбрал пользователь правильно отображались???
← →
menart © (2004-09-15 19:07) [1]ПОкажи этот участок кода ...
посмотрим
← →
Чайник (2004-09-15 19:09) [2]strres:=strres+"<font color = """+colortostring(gbc1.Color))+""">"+str+"</font>
← →
Rem (2004-09-15 19:18) [3][2]
Цвета лучше определять шестнадцатеричными константами, например:
<color="#ffffff"> - белый
<color="#000000"> - черный
<color="#ff0000"> - красный
<color="#00ff00"> - зеленый
<color="#0000ff"> - синий
где пары шестнадцатеричных цифр задают цветовые составляющие R, G, B. В дальнейшем текст читабельнее...
← →
Чайник (2004-09-15 19:20) [4]это я знаю, но если нестандартный цвет пользователь выберет.. ка мне его привести к такому виду?
← →
Jel © (2004-09-15 19:32) [5]Попробуй это.
procedure TForm1.Button1Click(Sender: TObject);
var s : string;
begin
if ColorDialog1.Execute then begin
s := Copy(IntToHex(ColorDialog1.Color, 8), 3, 6);
s := "#" + Copy(s, 5, 2) + Copy(s, 3, 2) + Copy(s, 1, 2);
ShowMessage("HTML Color is " + s);
end;
end;
В свой код соответственно подставишьstrres:=strres+"<font color = """+ s +""">"+str+"</font>"
← →
Рыба © (2004-09-15 21:27) [6]http://delphibase.endimus.ru/?action=viewfunc&topic=mediacolors&id=10127
← →
Чайник (2004-09-15 23:04) [7]Всем агромное спасибо! :)
Страницы: 1 вся ветка
Текущий архив: 2004.10.03;
Скачать: CL | DM;
Память: 0.48 MB
Время: 0.047 c
