Опять цвета

← →
Чайник (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>"

http://delphibase.endimus.ru/?action=viewfunc&topic=mediacolors&id=10127

← →
Чайник (2004-09-15 23:04) [7]

Всем агромное спасибо! :)

Опять цвета Найти похожие ветки