Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/FavoriteAdd.pas

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

revision 1.6 by h677, Tue Mar 30 12:45:25 2004 UTC revision 1.7 by h677, Sun Apr 4 14:11:37 2004 UTC
# Line 46  uses Giko; Line 46  uses Giko;
46  procedure TFavoriteAddDialog.FormCreate(Sender: TObject);  procedure TFavoriteAddDialog.FormCreate(Sender: TObject);
47  var  var
48          i: Integer;          i: Integer;
     sT: Cardinal;  
     eT: Cardinal;  
49  begin  begin
         sT := GetTickCount;  
50          FolderTreeView.Items.BeginUpdate;          FolderTreeView.Items.BeginUpdate;
51          FolderTreeView.Items := FavoriteDM.TreeView.Items;          FolderTreeView.Items := FavoriteDM.TreeView.Items;
52          for i := FolderTreeView.Items.Count - 1 downto 0 do begin          for i := FolderTreeView.Items.Count - 1 downto 0 do begin
# Line 62  begin Line 59  begin
59                  FolderTreeView.Items.GetFirstNode.Selected := True;                  FolderTreeView.Items.GetFirstNode.Selected := True;
60          end;          end;
61      FolderTreeView.Items.EndUpdate;      FolderTreeView.Items.EndUpdate;
     eT := GetTickCount;  
     ShowMessage(IntToStr(eT-sT));  
62    
63  {       Node := FolderTreeView.Items.AddChild(nil, GikoForm.Favorite.Root.Title);  {       Node := FolderTreeView.Items.AddChild(nil, GikoForm.Favorite.Root.Title);
64          Node.ImageIndex := 0;          Node.ImageIndex := 0;

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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