Trichedit一行字符不同颜色（５点以前在线等待）(100分)

C

cxrcg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-31

• #1

Trichedit在不同行中设置颜色我会，使用lines.color:=clred
但是在同一行中如何变颜色
注意：字符不是输入的是用lines.add('12345abcde')添加进入
希望：12345红色，abcde蓝色？？？

 

X

xeen

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-31

• #2

先设置 selstart和sellength属性，然后用
richedit1.SelAttributes.Color属性设置不同的颜色。

 

C

cxrcg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-31

• #3

正在测试，请稍候．．．．．．

 

J

joysun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-31

• #4

delphi下自带的demo中有！在delphi目录下的demo/richedit下，该例有详细的richedit的使用！

 

C

cxrcg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-31

• #5

xeen:你的方法可行，但有个问题，需要从头数字符个数，我的字符有许多行，
数起来实在麻烦，有简单的办法吗？
joysun:
正在处理中．．．．．．

 

T

tseug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-31

• #6

你查以前的帖子，回答过。。
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1468356

 

C

cxrcg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-31

• #7

我有事要办理，明年给你们分数．
祝各位新年快乐，万事如意！！！

 

C

cxrcg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-10

• #8

有人有更好的答案吗？

 

J

jsxjd

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-01-10

• #9

procedure TForm1.Button1Click(Sender: TObject);
var
n,m:integer;
s:string;
begin
s:='12345abcde';
n:=length(s);
with richedit1 do
begin
lines.add(s);

m:=length(text);
selStart:=m-n-2;
sellength:=5;
SelAttributes.Color:=clred;

selStart:=selStart+5;
sellength:=5;
SelAttributes.Color:=clBlue;
end;
end;

 

C

cxrcg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-02-14

• #10

多人接受答案了。