Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/FavoriteArrange.pas

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

revision 1.3 by h677, Thu Sep 4 08:22:06 2003 UTC revision 1.4 by h677, Sun Apr 4 15:54:24 2004 UTC
# Line 128  begin Line 128  begin
128                          FolderTreeView.Selected := Node;                          FolderTreeView.Selected := Node;
129                  end;                  end;
130          finally          finally
131                  Dlg.Free;                  Dlg.Release;
132          end;          end;
133  end;  end;
134    
# Line 204  var Line 204  var
204  begin  begin
205          FavoriteDM.TreeView.Items := FolderTreeView.Items;          FavoriteDM.TreeView.Items := FolderTreeView.Items;
206    
207          for i := 0 to FDeleteList.Count - 1 do          for i := FDeleteList.Count - 1 downto 0 do
208                  TObject(FDeleteList[i]).Free;                  TObject(FDeleteList[i]).Free;
209        FDeleteList.Free;
210          FavoriteDM.WriteFavorite;          FavoriteDM.WriteFavorite;
211  end;  end;
212    

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

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