| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как поменять цвет шрифта в Memo? [D5]
sergant © (2001-12-28 16:32:00)Простенький вопрос: как поменять цвет шрифта в Memo, но не у всего, а только у определенных строк? А то когда меняешь Font.Color, цвет меняется у вего текста в Memo. В RichEdit это можно сделать легко, а в Memo?
MBo (2001-12-29 13:23:00) [1]но ты ведь можешь выделять любой кусок строки через SelStart и SelLength и устанавливать для него SelAttributes
Fellomena (2001-12-29 12:04:00) [2]Привет всем 8)
У меня вопрос по теме:
я в RichEdit-e могу изменять цвет каждой строки и фона, но вот проблема :
как сделать одну частьстроки одного цвета, а другуюдругого ?
Делала так:
RichEdit1.SelAttributes.Color := clRed;
//RichEdit1.Lines.Add(Name + ": ");
При добавлении строки способом RichEdit1.Lines.Add в её конец ставится нуль-терминатор, от которого избавиться, использую метод Add, нельзя... ну то есть у строки его убрать можно наверное, но при следующем RichEdit1.Lines.Add(str); str всё равно будет на след. строке.
Я пробовала изголяться следующим образом:
function TForm1.test(col: integer; str1: string): string;
begin
RichEdit1.SelAttributes.Color := Col;
Result:=str1;
end;
...
RichEdit1.Lines.Add(test(NameCol, Name) + ": " + test(MessageCol, Message1));
...
Но, как я и ожидала, строка всё равно приобретает один цвет. 8(
Что делать ?
MBo (2001-12-29 09:39:00) [3]попробуй
http://www.lmc-mediaagentur.de/dpool/tips04/0360.htm
Alx2 (2001-12-29 08:28:00) [4]Ребята, прошу прощения, это задачи не решает, конечно!
Сколько раз себе говорил: "читай вопрос полностью"
Alx2 (2001-12-29 08:27:00) [5]sergeant, лови!
type
TMyMemo = class(TMemo)
property Font;
end; // Это "рассекречивает" свойство Font
procedure TForm1.Button1Click(Sender: TObject);
begin
TMyMemo(Memo1).font.Color := clRed;
end;
la (2001-12-28 16:49:00) [6]У Memo - никак.
Для этих целей следует все-таки использовать RichEdit
| |
