Стиль и размер фонта отдельной строки Richedit

← →
Леван Варшанидзе (2003-10-13 10:23) [0]

Привет Мастерам!
Можно ли программно (не визуально) в отдельной строке Richedit-a
поменять стиль и размер фонта.
(у Richedit- есть свойство Lines типа Tstrings :
Richedit1.lines.strings[i] имеет тип string, у которого НЕТ
свойств stile and size.)

← →
Ann © (2003-10-13 10:29) [1]

This example requires a TRichEdit and a TButton. Leave the default text, usually "RichEdit1", in the lines property. The DefAttributes will apply to this text.

procedure TForm1.Button1Click(Sender: TObject);

begin
with RichEdit1.SelAttributes do
begin
Color := clRed;
Height := Height + 5;
end;
RichEdit1.Lines.Add("This line of text will be red.");
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
RichEdit1.DefAttributes.Color := clBlue;
RichEdit1.DefAttributes.Style := [fsBold, fsItalic];
end;

(из хелпа...)

← →
Леван Варшанидзе (2003-10-13 10:36) [2]

спасибо, это я тоже читал, но defattributes меняет стиль и размер и все прочее всего текста Richrdita, а мне нужно только отдельной строки, не меняя другие строки

← →
Ann © (2003-10-13 10:41) [3]

Используй SelAttributes, меняет для выделенной строки...

← →
Леван Варшанидзе (2003-10-13 10:44) [4]

СПАСИБО. ПОПРОБУЮ
А ЕСТЬ ЛИ ВОЗМОЖНОСТЬ ВЫДЕЛИТЬ СТРОКУ ПРОГРАММНО (НЕ ВЫЗУАЛЬНО)?
ВПРОЧЕМ, ПРОИЩУ И ЭТО....

← →
Леван Варшанидзе (2003-10-13 11:14) [5]

WITH RICHEDIT1 DO BEGIN
Lines.SetText( PCHAR(Lines.Strings[Lines.Count-1])); //VIDELIT POSLEDNUIU STROKU
SELATTRIBUTES.Size:=20; //POMENIAT RAZMER VIDELENNOI STROKI
SelectAll(); //VIDELIT VSE
Print(""); // NAPECHATAT

PECHATAET TOLKO POSLEDNUIU STROKU, NESMOTRIA NA TO, CHTO SELECTALL() VIDELIAET VES TEKST (BEZ SELECTALL() TOT JE RESULTAT...)

А вот так например подойдет?

function TForm1.CurrText: TTextAttributes;
begin
Result := RichEdit1.SelAttributes;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
richedit1.Lines.Add("1111111");
CurrText.Style := CurrText.Style + [fsItalic];
richedit1.Lines.Add("2222222");
CurrText.Style:=CurrText.Style + [fsBold];
richedit1.Lines.Add("3333333");
CurrText.Style := CurrText.Style + [fsUnderline]
end;

Стиль и размер фонта отдельной строки Richedit Найти похожие ветки