请问怎样在LISTBOX或MEMO中实现每一行的文本颜色不一样？(50分)

B

baggiooo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-15

• #1

请问怎样在LISTBOX或MEMO中实现每一行的文本颜色不一样？
就像常用的下载工具或FTP工具那样？

 

M

menxin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-15

• #2

Listbox可以ownerdraw:

with ListBox1.Canvas do begin
brush.Color:=....;
TextRect(rect,2,0,ListBox1.items[index]);
end;

Menmo可费事了，用richedit算了。

 

Z

ZRY

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-15

• #3

>> MEMO中实现每一行的文本颜色不一样
用TRichEdit。
或者自己截获Memo的WM_PAINT消息自己画：
DC := GetDC(Handle);
with TCanvas.Create do
begin
Handle := DC;
...
Handle := 0;
Free;
end;
ReleaseDC(Handle, DC);

 

Z

ZRY

Unregistered / Unconfirmed

GUEST, unregistred user!

• 1999-12-15

• #4

Handle是Memo的Handle。

 

C

cAkk

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2000-03-13

• #5

多人接受答案了。