2,497
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
王集鹄 2006-08-21
- 打赏
- 举报
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if Odd(Item.Index) then
begin
Sender.Canvas.Brush.Color := $00F0CAA6;
Sender.Canvas.Font.Color := clGray;
end;
end;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
if Odd(Item.Index) then
begin
Sender.Canvas.Brush.Color := $00F0CAA6;
Sender.Canvas.Font.Color := clGray;
end;
end;
liubinhua 2006-08-21
- 打赏
- 举报
学习
FigoZhu 2006-08-21
- 打赏
- 举报
重载自画事件
