| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Стиль и размер фонта отдельной строки Richedit [D6, MSSQL]

Леван Варшанидзе ©   (2003-10-13 10:23:00) 

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

---

Ann   (2003-10-13 13:18:00) [1]

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

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;

---

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

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...)

---

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

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

---

Ann   (2003-10-13 10:41:00) [4]

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

---

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

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

---

Ann   (2003-10-13 10:29:00) [6]

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;

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

---

Наверх