Форум: "Основная";
Текущий архив: 2004.10.03;
Скачать: [xml.tar.bz2];

Вниз

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

← →
Чайник   (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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.029 c