|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
|
Опции темы | Поиск в этой теме |
12.09.2007, 15:44 | #1 |
Пользователь
Регистрация: 12.09.2007
Сообщений: 34
|
Меняем цвет текста в элементе
Вопрос такой. У меня есть элемент Tmemo. Допустим я меняю ключи в реестре.
Опирация прошла успешно- выводится зеленым Меняю другое значение не успешно- красным При этом предыдущая надпись осталась зеленым а ниже вывелась крастная. Компонент один и тотже. Объясните как это сделать. |
12.09.2007, 15:45 | #2 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Это лучше делать в RichEdit. А В Мемо придется ручками отрисовку делать.
I'm learning to live...
|
12.09.2007, 15:48 | #3 |
Пользователь
Регистрация: 12.09.2007
Сообщений: 34
|
Извиняюсь а там как сделать. Недавно взялся за Delphi
|
12.09.2007, 15:52 | #4 |
Белик Виталий :)
Старожил
Регистрация: 23.07.2007
Сообщений: 57,097
|
Вот из Delphi world :
// Добавить строку указанным цветом procedure AddColoredLine(ARichEdit: TRichEdit; AText: string; AColor: TColor); begin with ARichEdit do begin SelStart := Length(Text); SelAttributes.Color := AColor; SelAttributes.Size := 8; SelAttributes.Name := 'MS Sans Serif'; Lines.Add(AText); end; end; // А это сам пример procedure TForm1.Button1Click(Sender: TObject); begin AddColoredLine(RichEdit1, 'Hallo', clRed); AddColoredLine(RichEdit1, 'Hallo', clGreen); end;
I'm learning to live...
|
12.09.2007, 15:54 | #5 |
Пользователь
Регистрация: 12.09.2007
Сообщений: 34
|
Оооо. Премного благодарен. Незнал где искать. Спасибо!
|
12.09.2007, 17:06 | #6 |
Пользователь
Регистрация: 12.09.2007
Сообщений: 34
|
Ой еще вопрос.
procedure TForm1.ImageOkClick(Sender: TObject); begin AddColoredLine(RichEdit1, 'Добро пожаловать!', $ffffff); AddColoredLine(RichEdit1, 'Загрузка программы - завершено', $00a650); AddColoredLine(RichEdit1, 'Ожидание команд...', $cc0000); end; Сделал все как выше сказано Не работает при загрузке. При нажатии на кнопку последняя строка выдается не тем цветом. Как исправить. Помогите. |
12.09.2007, 17:14 | #7 |
детский тренер
Форумчанин
Регистрация: 08.06.2007
Сообщений: 532
|
у меня все работает...Наверное, ті просто не прописал функцию AddColoredLine.....
Я злой и страФный серррый воФк, и в пАрАсятах знаю толк - ppp ppp pp p pp pp
|
12.09.2007, 17:17 | #8 |
Пользователь
Регистрация: 12.09.2007
Сообщений: 34
|
procedure AddColoredLine(ARichEdit: TRichEdit; AText: string; AColor: TColor);
begin with ARichEdit do begin SelStart := Length(Text); SelAttributes.Color := AColor; SelAttributes.Size := 10; SelAttributes.Name := 'Arial Black'; Lines.Add(AText); end; end; Кажется все на месте. Блин затупил я. Проблема может быть както связана с тем что я поставил прозрачность формы? Последний раз редактировалось Sargon; 12.09.2007 в 17:21. |
12.09.2007, 17:21 | #9 | |
детский тренер
Форумчанин
Регистрация: 08.06.2007
Сообщений: 532
|
Цитата:
какая ошибка вілетает?
Я злой и страФный серррый воФк, и в пАрАсятах знаю толк - ppp ppp pp p pp pp
|
|
12.09.2007, 17:25 | #10 |
Пользователь
Регистрация: 12.09.2007
Сообщений: 34
|
Нет. Не так работает.
AddColoredLine(RichEdit1, 'Добро пожаловать!', $ffffff); AddColoredLine(RichEdit1, 'Загрузка программы - завершено', $00a650); AddColoredLine(RichEdit1, 'Ожидание команд...', $cc0000); пишу это в загрузку формы вобще не реагирует. Ставлю на кнопку третья строка выводися не тем цветом(крастный должен, показывает синий). |
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Как изменить цвет текста на всей строке в RichEdit, если строка содержит определенное слово?? | IIpopoK | Общие вопросы Delphi | 0 | 22.06.2008 07:57 |
Меняем Explorer | Veiron | Свободное общение | 4 | 19.05.2008 12:51 |
меняем CS:IP | Shacal | Assembler - Ассемблер (FASM, MASM, WASM, NASM, GoASM, Gas, RosAsm, HLA) и не рекомендуем TASM | 11 | 11.01.2007 20:18 |
Цвет текста в Мемо через Handle | rpy3uH | Win Api | 1 | 30.10.2006 20:05 |