Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.038 c
1-1095410061
ruslan_as
2004-09-17 12:34
2004.10.03
ShockwaveFlash - в Windows 98 пишет "Класс не зарегистрирован"


4-1092836312
R1
2004-08-18 17:38
2004.10.03
Диалог свойств файла (ShellExecuteEx)


14-1095089567
Knight
2004-09-13 19:32
2004.10.03
А что такое Альтернативный ввод текста и где его найти?


14-1095164073
Cosinus
2004-09-14 16:14
2004.10.03
Spy++


6-1090467422
v2
2004-07-22 07:37
2004.10.03
Indy TCP CLient не соединяется с прокси-сервером





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский