TRichEdit в Delphi7

[-Jack-]

Всем доброго времени суток. В TRichEdit вбит текст через Lines.Подскажите пожалуйста, кто знает, каким образом можно немного изменить текст ( к примеру в увеличить размер шрифта заголовков глав текста и выравнять их по центру )

[Volkogriz]

Вот!

Его подсвойства: 1. Color - цвет, 2. Name - имя шрифта, 3. Size и Height - определяют размер шрифта, 4. Style - стиль: fsBold — полужирный, fsltalic — курсив, fsUnderline — подчеркнутый, fsStrikeOut — зачеркнутый, 5. Charset — набор символов. Пример №1: RichEdit1.SelAttributes.Style:=Rich Edit1.SelAttributes.Style +[fsBold] RichEdit1.SelAttributes.Size:=14; RichEdit1.SelAttributes.Color:=clRe d;
Пример №2: Выравнивание по левому краю RichEdit1.Paragraph.Alignment := taLeftJustify; Пример №3: Отображение текущего абзаца как список, т.е. с маркерами: RichEdit1.Paragraph.Numbering:=nsBu llet; Пример №4. Уничтожение списка в текущем абзаце RichEdit1.Paragraph.Numbering:=nsNo ne;
Пример №5: программа должна формировать стандартную форму некоего договора, в которую предмет договора, его условия и атрибуты лица, заключающего договор, черпаются из окон редактирования: RichEdit1.Clear; RichEdit1.SelAttributes.Name:= 'Courier New'; RichEdit1.SelAttributes.Size:= 14; RichEdit1.Paragraph.Alignment:= taCenter; RichEdit1.SelAttributes.Style:=Rich Edit1.SelAttributes.Style + [fsBold]; RichEdit1.Lines.Add('ДОГОВОР'); RichEdit1.SelAttributes.Style:=Rich Edit1.SelAttributes.Style - [fsBold]; RichEdit1.Lines.Add(Edit1.Text); RichEdit1.SelAttributes.Size:= 12; RichEdit1.Paragraph.Alignment := taLeftJustify; RichEdit1.Paragraph.FirstIndent:= 15; RichEdit1.Paragraph.LeftIndent:= -15; RichEdit1.Lines.Add('Зицпредседател ь конторы "Рога и копыта" Фунт и '+ Edit2.Text +'заключили настоящий договор ...');
Пример №6: добавление строки, в которой фамилии выделены жирным шрифтом: RichEdit1.Lines.Add('Зицпредседател ь конторы "Рога и копыта" '); RichEdit1.SelStart:= RichEdit1.SelStart-2; //обход двух последних символов #13#10 RichEdit1.SelAttributes.Style:=Rich Edit1.SelAttributes.Style + [fsBold]; RichEdit1.SetSelTextBuf('Фунт'); RichEdit1.SelAttributes.Style:=Rich Edit1.SelAttributes.Style - [fsBold]; RichEdit1.SetSelTextBuf(' и '); RichEdit1.SelAttributes.Style:=Rich Edit1.SelAttributes.Style + [fsBold]; RichEdit1.SetSelTextBuf(PChar(Edit2 .Text)); RichEdit1.SelAttributes.Style:=Rich Edit1.SelAttributes.Style - [fsBold]; RichEdit1.SetSelTextBuf (' заключили настоящий договор ...'); Пример №7: второй вариант выделения шрифтом отдельных слов RichEdit1.SelStart:=Pos(‘Фунт’, RichEdit1.Text)-1; RichEdit1.SelLength:=Length('Фунт') ; RichEdit1.SelAttributes.Style:=Rich Edit1.SelAttributes.Style + [fsBold]; RichEdit1.SelStart:=Pos(Edit2.Text, RichEdit1.Text)-1; RichEdit1.SelLength:=Length(Edit2.T ext); RichEdit1.SelAttributes.Style:=Rich Edit1.SelAttributes.Style + [fsBold];

С уважением,
Volkogriz!

[-Jack-]

Т.е. как я понимаю, текст придется разбивать и стилизовывать построчно ... А сначало вбить весть текст, а потом придовать красоту груба говоря указывая строчки не получится ?

[Volkogriz]

Но я делаю именно так, но может и есть другие способы, я не сталкивался и не знаю)
С уважением,
Volkogriz!

[Аватар]

Можно выделять (SelStart и SelLength) и применять к выделенному SelAttributes и Paragraph. Еще в стандартнsых Action-ах есть средства для форматирования RichEdit