SoS!如何在listview下让满足条件的数据显示成红色！

wpyyl 2003-02-20 12:37:38

如何在listview下让满足条件的数据显示成红色！

...全文

23 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

wpyyl 2003-02-20

打赏
举报

在线等待！

wpyyl 2003-02-20

打赏
举报

例如，Strtodate('2003-02-15')-StrTodate('2003-02-13') =2的值全部
为红色，不满足的不变色。

sysu 2003-02-20

打赏
举报

在OnCustomDrawItem事件中：
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
var
r: TRect;
c: TCanvas;
begin
if Item.Index = 1 then begin
c := TCanvas.Create;
c.Handle := GetDC(Item.Handle);
r := Item.DisplayRect(drLabel);
c.Font.Color := clRed;
c.TextOut(r.Left, r.Top, Item.Caption);
DefaultDraw := False;
c.Free;
end;
end;