Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Потрепаться";
Текущий архив: 2004.04.18;
Скачать: [xml.tar.bz2];

Вниз

Вопрос от новичка (RichEdit...)   Найти похожие ветки 

 
Виталий   (2004-03-26 10:19) [0]

Как при выборе цвета (ColorDialog) изменялся цвет фона RichEdit?
В общем я вызвал диалог:
// ------------------------------------------------
procedure TForm1.ColorClick(Sender: TObject);
begin
if ColorDialog1.Execute then
RichEdit1.SelAttributes.Color:=ColorDialog1.Color;
end;
// ------------------------------------------------
Теперь осталось вписать строку изменения цвета фона,
да и куда ее нужно вписать?
Заранее благодарен.


 
Kolyan   (2004-03-26 10:22) [1]

После слова begin


 
able ©   (2004-03-26 10:24) [2]

// ------------------------------------------------
procedure TForm1.FonChangeClick(Sender: TObject);
begin
if ColorDialog2.Execute then
RichEdit1.Color:=ColorDialog1.Color;
end;
// ------------------------------------------------


 
Dmitriy O. ©   (2004-03-26 10:24) [3]

RichEdit1.color:=clred;


 
Виталий   (2004-03-26 23:19) [4]

Спасибо за ответ !!!
После выбора цвета фона - фон становится цветом шрифта и при этом
получается картина Малевича.
По другому никак? Проблема в том, что задача стоит перед
выбором цвета шрифта, а так же не зависимо можно выбрать любой
цвет фона.



Страницы: 1 вся ветка

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

Наверх





Память: 0.45 MB
Время: 0.031 c
9-1066132032
Sullivan
2003-10-14 15:47
2004.04.18
Помогите ламеру


1-1080548862
Хэнк
2004-03-29 12:27
2004.04.18
Можно сделать, чтобы компоненты грабились в bmp файл?


1-1079839256
PIA
2004-03-21 06:20
2004.04.18
Запуск программ написанных в Delphi 8


4-1074904126
Freestyler
2004-01-24 03:28
2004.04.18
КАК Запретить запуск чужой программы более N раз?


6-1076496794
Макын
2004-02-11 13:53
2004.04.18
Ip





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский