如何改变listview高亮条的颜色？(20分)

星

星幻子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-16

• #1

一直是蓝色的太丑了，请问如何更改？

 

星

星幻子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-21

• #2

顶

 

星

星幻子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-29

• #3

我顶

 

Z

zbr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-29

• #4

自画

 

W

weiliu

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-29

• #5

procedure TForm1.ListBox1DrawItem(Control: TWinControl
Index: Integer

Rect: TRect
State: TOwnerDrawState)

begin
with ListBox1.Canvas do
begin
if (odSelected in State) then Brush.Color:=clWhite

Font.Color := clBlue

FillRect(Rect)

TextOut(Rect.Left,Rect.top,ListBox1.Items[index])

end

end;

 

Z

zbr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-29

• #6

用procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem
State: TCustomDrawState
var DefaultDraw: Boolean);

 

Z

zbr

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-29

• #7

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem
State: TCustomDrawState
var DefaultDraw: Boolean);
begin
with ListView1.Canvas do
begin
if (cdsSelected in State) then
begin
Brush.Color := clRed;
end;
end;
end;

 

星

星幻子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-30

• #8

用zbr大哥的方法： 无效

to: weiliu 大哥 是listview 不是listbox

另外:此listview的ViewStyle 是 vsReport

 

X

xuxiaohan

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-31

• #9

肯定要用到 ownerDraw 的， 你看看 acdSee 的 缩略图，它也是OwnerDraw 的。至于 属于Windows 的标准控件的 sysListView， delphi 有没有公开 ownerDraw，我没有研究。

 

Q

QSmile

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-07-31

• #10

ListView 有 OwnerDraw

 

星

星幻子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-03

• #11

多人接受答案了。