Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Favorite.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.24 by h677, Mon Mar 22 12:35:13 2004 UTC revision 1.25 by h677, Wed Mar 24 15:20:19 2004 UTC
# Line 189  begin Line 189  begin
189          for i := TreeView.Items.Count - 1 downto 0 do begin          for i := TreeView.Items.Count - 1 downto 0 do begin
190                  TObject(TreeView.Items[i].Data).Free;                  TObject(TreeView.Items[i].Data).Free;
191          end;          end;
192        TreeView.Items.Clear;
193      TreeView.Items.EndUpdate;      TreeView.Items.EndUpdate;
194      TreeView.Free;      //TreeView.Free;
195  end;  end;
196    
197  procedure TFavoriteDM.SetFavTreeView(TreeView: TTreeView);  procedure TFavoriteDM.SetFavTreeView(TreeView: TTreeView);

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26