怎样改变Listview组件选中项的颜色（默认为深蓝色）？？不是Item的颜色！(30分)

M

minstrel

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-21

• #1

如题

 

D

duducat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-21

• #2

过节了，也该歇歇了……

 

独

独酷求败

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-21

• #3

找第三方控件

 

D

Dark Angel

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #4

把listview 改为自画属性，然后在他的OnDrawItem 里.....
想怎么画你自己看着办吧！

 

V

vine

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-23

• #5

改成红色!

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
p:trect;
begin
if cdsselected in state then
begin
listview1.Canvas.Font.Color:=clgreen;
listview1.Canvas.brush.Color:=clred;
p:=item.displayrect(drselectbounds);
listview1.Canvas.FillRect(p);
listview1.Canvas.Textout(p.Left+2,p.Top,item.Caption);
listview1.Canvas.brush.Color:=clblue;
listview1.Canvas.FrameRect(item.displayrect(drselectbounds));
defaultdraw:=false;
end;
end;

 

D

duducat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #6

to vine 高手：
你的代码不错哟……我试过了！怎么全部变成红色了，而且我行头显示的图标也不见了！
还有什么办法嘛？谢谢了

 

D

duducat

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #7

原来HideSelection必须设定为True
……

 

V

vine

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #8

 

M

minstrel

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-09-24

• #9

多人接受答案了。