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




Вниз

Как поменять цвет шрифта в Memo? 


sergant   (2001-12-28 16:32) [0]

Простенький вопрос: как поменять цвет шрифта в Memo, но не у всего, а только у определенных строк? А то когда меняешь Font.Color, цвет меняется у вего текста в Memo. В RichEdit это можно сделать легко, а в Memo?



la   (2001-12-28 16:49) [1]

У Memo - никак.
Для этих целей следует все-таки использовать RichEdit



Alx2   (2001-12-29 08:27) [2]

sergeant, лови!

type
TMyMemo = class(TMemo)
property Font;
end; // Это "рассекречивает" свойство Font
procedure TForm1.Button1Click(Sender: TObject);
begin
TMyMemo(Memo1).font.Color := clRed;
end;



Alx2   (2001-12-29 08:28) [3]

Ребята, прошу прощения, это задачи не решает, конечно!
Сколько раз себе говорил: "читай вопрос полностью"



MBo   (2001-12-29 09:39) [4]

попробуй
http://www.lmc-mediaagentur.de/dpool/tips04/0360.htm



Fellomena   (2001-12-29 12:04) [5]

Привет всем 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 13:23) [6]

но ты ведь можешь выделять любой кусок строки через SelStart и SelLength и устанавливать для него SelAttributes




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




Наверх





Память: 0.72 MB
Время: 0.033 c
1-52588           Eraser                2001-12-29 14:15  2002.01.17  
О заполнении массива


1-52583           Cyber                 2001-12-25 21:44  2002.01.17  
Люди, профы, помогите. Help me!


1-52574           Марина                2001-12-28 10:28  2002.01.17  
SysTray или RxTrayIcon


3-52520           der                   2001-12-14 06:49  2002.01.17  
Формирование меню из DLL


3-52504           Cranium               2001-12-16 02:03  2002.01.17  
Как данные из таблицы бызы загрузить в TreeView