LISTVIEW某单元格变颜色 ( 积分: 20 )

Z

zengyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-24

• #1

LISTVIEW某单元格变颜色
我想让某行的某一个列变颜色，我代码如下，但是不清楚怎么的，只能让某行变颜色
procedure TFrmMainServer.ListViewServerCustomDrawItem(
Sender: TCustomListView; Item: TListItem; State: TCustomDrawState;
var DefaultDraw: Boolean);
begin
if (Trim(Sender.Column[3].Caption)='列标志') Then
Begin
If (Item.SubItems.Strings[2]>=100 ) then
Sender.Canvas.Font.Color :=clYellow
Else
Sender.Canvas.Font.Color :=clBlack; //恢复原有色彩
End;
end;

 

Z

zengyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-24

• #2

LISTVIEW某单元格变颜色
我想让某行的某一个列变颜色，我代码如下，但是不清楚怎么的，只能让某行变颜色
procedure TFrmMainServer.ListViewServerCustomDrawItem(
Sender: TCustomListView; Item: TListItem; State: TCustomDrawState;
var DefaultDraw: Boolean);
begin
if (Trim(Sender.Column[3].Caption)='列标志') Then
Begin
If (Item.SubItems.Strings[2]>=100 ) then
Sender.Canvas.Font.Color :=clYellow
Else
Sender.Canvas.Font.Color :=clBlack; //恢复原有色彩
End;
end;

 

L

lichengbin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-24

• #3

在OnCustomDrawSubItem中处理

 

Z

zengyi

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-24

• #4

不的行哈

 

H

hs-kill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-24

• #5

在CustomDrawSubItem事件里：
procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
var DefaultDraw: Boolean);
begin
Sender.Canvas.Font.Color :=clBlack; //先恢复默认
if (Trim(TListView(Sender).Column[SubItem+1].Caption)='列标志') Then
If (Item.SubItems.Strings[SubItem]>=100 ) then
Sender.Canvas.Font.Color :=clYellow;
end;

 

M

moonight59

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-24

• #6

不行的，我也试过，最终没能实现，等待好办法

 

H

hs-kill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-24

• #7

不可能，我上面的代码刚试完能用的

 

L

Lucker

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-24

• #8

自由界面和报表的完美解决方案！
http://www.anylib.com

 

C

chenybin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-24

• #9

procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
var DefaultDraw: Boolean);
begin
Sender.Canvas.Font.Color :=clBlack; //先恢复默认
if (Trim(TListView(Sender).Column[SubItem].Caption)='列标志') Then
If strToInt(Item.SubItems.Strings[SubItem])>=100 then
Sender.Canvas.Font.Color :=clYellow;
end;

OK

 

H

hs-kill

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2005-08-24

• #10

-_-!