请问怎样改变TListView的行和列的颜色啊?谢谢大富翁们!!!(200)

  • 主题发起人 主题发起人 cnlmgsoft
  • 开始时间 开始时间
C

cnlmgsoft

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TForm1.listView1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);begin if (Item.SubItems.Strings[1] = '小计') then begin listView1.Canvas.Brush.Color := RGB(255, 240, 210); listView1.Canvas.Font.Color := clRed; end else begin listView1.Canvas.Brush.Color := clWhite; listView1.Canvas.Font.Color := clBlack; end;end;procedure TForm1.listView1CustomDrawSubItem(Sender: TCustomListView; Item: TListItem; SubItem: Integer; State: TCustomDrawState; var DefaultDraw: Boolean);begin if SubItem = 2 then begin listView1.Canvas.Brush.Color := RGB(255, 240, 210); listView1.Canvas.Font.Color:= clRed; end else begin listView1.Canvas.Brush.Color := clWhite; listView1.Canvas.Font.Color := clBlack; end;end;以上的代码 CustomDrawItem 和 CustomDrawSubItem 过程,如果注释掉任意一个是可以改变 listview 行颜色 或者 列颜色的,但我想 同时 改变ListView的 行和列 的颜色,以上的过程就不好用了,怎么办啊?帮我改改代码好吗,谢谢啊!!!
 
http://www.delphidabbler.com/articles?article=16看这里,应该能解决你的问题。
 
多谢happycyp大侠, 您给我的文章好像也只有 单独改变行颜色 或者 单独改变列颜色的,但我想同时改变行和列的颜色,谢谢各位了。。。
 
继续顶。。。。。。。。。。。。。。。。。
 
是你的逻辑有问题。下面这个是正确的。procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);begin if (Item.SubItems.Strings[0] = '小计') then begin listView1.Canvas.Brush.Color := RGB(255, 240, 210); listView1.Canvas.Font.Color := clRed; end else begin listView1.Canvas.Brush.Color := clWhite; listView1.Canvas.Font.Color := clBlack; end;end;procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView; Item: TListItem; SubItem: Integer; State: TCustomDrawState; var DefaultDraw: Boolean);begin if SubItem = 2 then begin listView1.Canvas.Brush.Color := RGB(255, 240, 210); listView1.Canvas.Font.Color:= clRed; end else begin if (Item.SubItems.Strings[0] <> '小计') then begin listView1.Canvas.Brush.Color := clWhite; listView1.Canvas.Font.Color := clBlack; end; end;end;
 
多谢happycyp,
 
后退
顶部