【结贴】改变ListView1某行的值

raorao

sender.Canvas.Brush.Color:= Graphics.clYellow;      
这样写不行.

atiger

http://www.baidu.com/s?ie=gb2312 ... 1%D5%C9%AB&ct=0

raorao

晕死.这也叫回答,直接叫我google下算了.

zfang

TListview是delphi的标准控件，相关用法可以参考delphi中的实现
比如delphi中这样用：
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if (Item.Index div 2)=1 then
  begin
    ListView1.Canvas.Brush.Color:=clwhite;
  end
  else
  begin
    ListView1.Canvas.Brush.Color:=clBlue;
  end;
end;

你只要翻译到平台就可以了，主要是有些方法或者属性需要加上平台的命名空间，具体可以查看studio的帮助。

raorao

我是问的颜色弄出来了.为什么要焦点离开才行.你看上图嘛

zfang

代码
procedure TMainForm.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  if Item.Caption = '1' then//(Item.Index div 2)=1 then
  begin
    ListView1.Canvas.Brush.Color := Business.System.Graphics.clwhite;
  end
  else if Item.Caption = '2' then
  begin
    ListView1.Canvas.Brush.Color := Business.System.Graphics.clBlue;
  end
  else if Item.Caption = '3' then
  begin
    ListView1.Canvas.Brush.Color := Business.System.Graphics.clRed;
  end
  else
    ListView1.Canvas.Brush.Color := Business.System.Graphics.clTeal;


end;

我的效果

raorao

我是按钮触发的.没有刷新控件.