Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.08.04;
Скачать: CL | DM;

Вниз

Помогите с RichEdit !   Найти похожие ветки 

 
Edvard ©   (2003-07-22 12:13) [0]

Нужно что-бы в RichEdit строки были разным шрифтом и разного цвета, а получаются все одинаковые (по последним установленным свойствам). Делаю так:

procedure TForm1.FormCreate(Sender: TObject);
begin
Form1.RichEdit1.ReadOnly:=true;
with TRichEdit.Create(Self) do
begin
Parent := Self;
Align := alNone;
Left:=8;
Top:=40;
Height:=233;
Width:=433;
Lines.Clear;
Paragraph.Alignment:=taCenter;
Font.Name:="Arial";
Font.Size:=24;
Font.Style:=[fsBold];
Font.Color:=clRed;
Lines.Add("строка 1");
Lines.Add("");
Paragraph.Alignment:=taLeftJustify;
Font.Size:=12;
Font.Color:=clGreen;
Lines.Add("строка 2");
Font.Size:=10;
Font.Color:=clNavy;
Lines.Add("");
Lines.Add("строка 3");
end;
end;


как сделать правильно? подскажите, пожалуйста!


 
VAleksey ©   (2003-07-22 12:31) [1]

Смотри ..
SelAttributes
SelLength
SelStart



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

Текущий архив: 2003.08.04;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.012 c
4-10506
SeNtiMeL
2003-06-01 19:42
2003.08.04
Как TEdit другого приложения присвоить текст и послать ENTER


6-10331
alt7
2003-05-28 15:33
2003.08.04
Indy. disconnected


3-10127
ELKa
2003-07-11 13:59
2003.08.04
Как программно вытянуть отрабатываемый SQL-запрос?


6-10318
Otec
2003-05-27 23:58
2003.08.04
Связь по сети


11-10154
jfo
2002-11-30 14:35
2003.08.04
Хочется странного... или может что не то делаю...