不要になった変数とコメントアウトしていたものを削除

[gikonavigoeson/gikonavi.git] / FavoriteAdd.pas

diff --git a/FavoriteAdd.pas b/FavoriteAdd.pas
index cac4dce..66e0112 100644 (file)
--- a/FavoriteAdd.pas
+++ b/FavoriteAdd.pas
@@ -47,8 +47,8 @@ procedure TFavoriteAddDialog.FormCreate(Sender: TObject);
 var
        i: Integer;
 begin
+       FolderTreeView.Items.BeginUpdate;
        FolderTreeView.Items := FavoriteDM.TreeView.Items;
-
        for i := FolderTreeView.Items.Count - 1 downto 0 do begin
                if not (TObject(FolderTreeView.Items[i].Data) is TFavoriteFolder) then
                        FolderTreeView.Items[i].Delete;
@@ -58,6 +58,8 @@ begin
                FolderTreeView.Items.GetFirstNode.Expanded := True;
                FolderTreeView.Items.GetFirstNode.Selected := True;
        end;
+    FolderTreeView.Items.EndUpdate;
+
 {      Node := FolderTreeView.Items.AddChild(nil, GikoForm.Favorite.Root.Title);
        Node.ImageIndex := 0;
        Node.Data := GikoForm.Favorite.Root;
@@ -114,16 +116,12 @@ begin
        FavNode := GetGikoFavoriteNode(FolderTreeView.Selected.Data);
        if FavNode <> nil then begin
                if FBoard <> nil then begin
-                       FavoBoardItem := TFavoriteBoardItem.Create;
-                       FavoBoardItem.Item := FBoard;
-                       FavoBoardItem.Title := FBoard.Title;
+                       FavoBoardItem := TFavoriteBoardItem.Create( FBoard.URL, FBoard.Title, FBoard );
                        Node := FavoriteDM.TreeView.Items.AddChildObject(FavNode, CaptionEdit.Text, FavoBoardItem);
                        Node.ImageIndex := 15;
                        Node.SelectedIndex := 15;
                end else if FThreadItem <> nil then begin
-                       FavoThreadItem := TFavoriteThreadItem.Create;
-                       FavoThreadItem.Item := FThreadItem;
-                       FavoThreadItem.Title := FThreadItem.Title;
+                       FavoThreadItem := TFavoriteThreadItem.Create( FThreadItem.URL, FThreadItem.Title, FThreadItem );
                        Node := FavoriteDM.TreeView.Items.AddChildObject(FavNode, CaptionEdit.Text, FavoThreadItem);
                        Node.ImageIndex := 16;
                        Node.SelectedIndex := 16;