Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/FavoriteAdd.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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 |
| 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 |
|
|
|