| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Опять цвета [D7, WinXP]

Чайник ©   (2004-09-15 18:58:00) 

Народ, помогите пожалуйста с такой проблемой:
Создается некий html текст, разноцветный, цвета беруться из colordialoga, все теоретически может и нормально (что вряд ли), но вот вопрос: HTML ети цвета понимает совершенно по другому... как сделать лучше, чтоб цыета, которые выбрал пользователь правильно отображались???

---

Чайник   (2004-09-15 23:04:00) [1]

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

---

Рыба   (2004-09-15 21:27:00) [2]

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

---

Jel   (2004-09-15 19:32:00) [3]

Попробуй это.

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 19:20:00) [4]

это я знаю, но если нестандартный цвет пользователь выберет.. ка мне его привести к такому виду?

---

Rem   (2004-09-15 19:18:00) [5]

[2]
 Цвета лучше определять шестнадцатеричными константами, например:
 <color="#ffffff"> - белый
 <color="#000000"> - черный
 <color="#ff0000"> - красный
 <color="#00ff00"> - зеленый
 <color="#0000ff"> - синий
где пары шестнадцатеричных цифр задают цветовые составляющие R, G, B. В дальнейшем текст читабельнее...

---

Чайник   (2004-09-15 19:09:00) [6]

strres:=strres+'<font color = '''+colortostring(gbc1.Color))+'''>'+str+'</font>

---

menart   (2004-09-15 19:07:00) [7]

ПОкажи этот участок кода ...
посмотрим

---

Наверх