Скачать: CL | DM;

Стиль и размер фонта отдельной строки 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...)

---

← →
Ann ©   (2003-10-13 13:18) [6]

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

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;

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.025 c