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.5 by yoffy, Sat Nov 22 15:10:18 2003 UTC revision 1.6 by h677, Tue Mar 30 12:45:25 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;
49        sT: Cardinal;
50        eT: Cardinal;
51  begin  begin
52            sT := GetTickCount;
53            FolderTreeView.Items.BeginUpdate;
54          FolderTreeView.Items := FavoriteDM.TreeView.Items;          FolderTreeView.Items := FavoriteDM.TreeView.Items;
   
55          for i := FolderTreeView.Items.Count - 1 downto 0 do begin          for i := FolderTreeView.Items.Count - 1 downto 0 do begin
56                  if not (TObject(FolderTreeView.Items[i].Data) is TFavoriteFolder) then                  if not (TObject(FolderTreeView.Items[i].Data) is TFavoriteFolder) then
57                          FolderTreeView.Items[i].Delete;                          FolderTreeView.Items[i].Delete;
# Line 58  begin Line 61  begin
61                  FolderTreeView.Items.GetFirstNode.Expanded := True;                  FolderTreeView.Items.GetFirstNode.Expanded := True;
62                  FolderTreeView.Items.GetFirstNode.Selected := True;                  FolderTreeView.Items.GetFirstNode.Selected := True;
63          end;          end;
64        FolderTreeView.Items.EndUpdate;
65        eT := GetTickCount;
66        ShowMessage(IntToStr(eT-sT));
67    
68  {       Node := FolderTreeView.Items.AddChild(nil, GikoForm.Favorite.Root.Title);  {       Node := FolderTreeView.Items.AddChild(nil, GikoForm.Favorite.Root.Title);
69          Node.ImageIndex := 0;          Node.ImageIndex := 0;
70          Node.Data := GikoForm.Favorite.Root;          Node.Data := GikoForm.Favorite.Root;

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

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