E
eyes4
Unregistered / Unconfirmed
GUEST, unregistred user!
运行环境在Windows98下（在windows2000下正常），
使用ListView控件，加入行的代码如下：
var
ListItem:TListItem;
begin
if ListView.Items.Count>20 then ListView.Items.Delete(0);
ListItem:=ListView.Items.Add;
ListItem.Caption:='xxxx1';
ListItem.Subitems.add('XXXX2');
...
end;
如果仅用以和代码时，一切正常，但当在ListView的OnCustomDrawItem事件
中加入以下代码时：
procedure TFrmMain.ListViewCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
ListView.Canvas.Brush.Color:=clred;
end;
在不断地加入item的过程中，内存不断减小，即使当行数大于20而行数总数不再增加时
依然如些，请教这是什么原因？是delphi的bug还是win98的，或者我的代码是错的，请
指教。
使用ListView控件，加入行的代码如下：
var
ListItem:TListItem;
begin
if ListView.Items.Count>20 then ListView.Items.Delete(0);
ListItem:=ListView.Items.Add;
ListItem.Caption:='xxxx1';
ListItem.Subitems.add('XXXX2');
...
end;
如果仅用以和代码时，一切正常，但当在ListView的OnCustomDrawItem事件
中加入以下代码时：
procedure TFrmMain.ListViewCustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
ListView.Canvas.Brush.Color:=clred;
end;
在不断地加入item的过程中，内存不断减小，即使当行数大于20而行数总数不再增加时
依然如些，请教这是什么原因？是delphi的bug还是win98的，或者我的代码是错的，请
指教。