Красиво писАть в Richedit e...

← →
Борис_ (2003-02-09 02:23) [0]

суть заключается в том что я не могу до конца понять как думает RichEdit... хочется добовлять в ричедит текст разного цвета,размера. но не так...

richedit1.selattributes.color:=clred;
richedi1.selattributes.height:=20;
richedit1.lines.add("текст");
а так чтобы каждый символ в строке допустим имел свой размер или цвет..

но привязать selattributes к richedit1.text:=richedit1.text+"A";
не получается, т.е. пишет обычным черным шрифтом стандартного размера..:(

я решил попробовать так:
создаю мемо и в него пихаю текст в "формате" rtf (ну всякие там \fs \cf \b \i...) потом сохраняю в поток и загружаю в ричедит этот поток... все вроде хорошо...но вот очень сильное мерцание (если часто добавлять) т.к. там заного "рисуется" весь текст.

может есть какие-то другие способы...поделитесь. спасибо!

← →
Viktor Kushnir (2003-02-09 08:51) [1]

Можно попробывать найти методы
RichEdit.Lines.BeginUpdate;
//тут ты вставляешь текст.
RichEdit.Lines.EndUpdate;

← →
Борис_ (2003-02-09 15:09) [2]

не понял?
а где указывать цвет и размер?

← →
Романов Р.В. (2003-02-09 15:45) [3]

with RichEdit1 do
begin
SelStart := 0;
SelLength := Length(Text) div 2;
with SelAttributes do
begin
Color := clRed;
Height := Height * 2;
end;
SelStart := SelLength;
SelLength := MaxInt;
with SelAttributes do
begin
Color := clGreen;
Height := Height div 2;
end;
end;

← →
Борис_ (2003-02-09 16:53) [4]

2 Романов Р.В. не получается...
если все это в цикл пустить (for i:=1 to length(richedit1.text)) то изменить цвет размер только последнего символа...

← →
Романов Р.В. (2003-02-09 17:19) [5]

Ну если в цикле тогда так
var
i: Integer;
begin
with RichEdit1 do
for i := 0 to Length(Text)-1 do
begin
SelStart := i;
SelLength := 1;
with SelAttributes do
begin
Color := Random($1000000);
Height := Random(24);
end;
end;
end;

← →
ALex44 (2003-02-10 00:18) [6]

Po-moemu, TRichEdit ne dumaet (t.k. on prosto ispol"zuet control, vstroennyj v Windows, kotoryj dumat" ne mozhet). K tomu zhe, pohozhe, eto sil"no zavisit ot versii .dll.

K stati, znaet kto-nibud", kak izmenit" font zagruzhennogo texta v rezhime PlainText? To, chto rabotalo v Win98 (Font := ...), perestalo rabotat" v w2k...

← →
Slava (2003-02-10 10:39) [7]

richedit1.selattributes.color:=clred;
richedi1.SetSelTextBuf("текст ");
richedit1.selattributes.color:=clblue;
richedi1.SetSelTextBuf("текст 2");

← →
alehan (2003-02-11 10:57) [8]

with RichEdit1 do begin Clear; SelectAll; SelAttributes.Color:=Font.Color; Text := "Абырвалг"; SelStart := 5; SelLength := 2; SelAttributes.Color:=clRed; end;

в win2000 работает, текст раскрашивает.
Но если в RichEdit1.Text запихнуть символ "номер" (№), RichEdit сам собой меняет фонт. Так что он всё-таки думает, только непонятно о чём.

← →
perseptron (2003-02-11 11:12) [9]

А как програмно перевести скролер richedit в последнюю позицию кто-нить знает?

← →
ts (2003-02-17 08:47) [10]

>но привязать selattributes к richedit1.text:=richedit1.text+"A";
>не получается, т.е. пишет обычным черным шрифтом стандартного >размера..:(

...
richedit1.SelStart:=Length(richedit1.Text);
richedit1.SelText:="A";
...

Красиво писАть в Richedit e... Найти похожие ветки