終了時のお気に入りの削除時の処理の修正

diff --git a/Favorite.pas b/Favorite.pas
index a19ad92..f427d5d 100644 (file)
--- a/Favorite.pas
+++ b/Favorite.pas
@@ -185,9 +185,11 @@ procedure TFavoriteDM.DataModuleDestroy(Sender: TObject);
 var
        i: Integer;
 begin
+    TreeView.Items.BeginUpdate;
        for i := TreeView.Items.Count - 1 downto 0 do begin
                TObject(TreeView.Items[i].Data).Free;
        end;
+    TreeView.Items.EndUpdate;
     TreeView.Free;
 end;
 

diff --git a/Giko.dfm b/Giko.dfm
index 1d0a1b6..3fb3578 100644 (file)
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -1,6 +1,6 @@
 object GikoForm: TGikoForm
-  Left = 53
-  Top = 81
+  Left = 417
+  Top = 75
   HorzScrollBar.Visible = False
   VertScrollBar.Visible = False
   AutoScroll = False

diff --git a/Giko.pas b/Giko.pas
index 06fe19d..7706ede 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -1742,10 +1742,6 @@ begin
        except
        end;
 
-    try
-       ClearLinkBar;
-    except
-    end;
 
 //     FDownload.Free;
        try
@@ -1761,14 +1757,18 @@ begin
        except
        end;
     try
+        FavoriteTreeView.Items.BeginUpdate;
         for i := FavoriteTreeView.Items.Count - 1 downto 0 do begin
                TObject(FavoriteTreeView.Items.Item[i].Data).Free;
                FavoriteTreeView.Items.Item[i].Free;
         end;
+        FavoriteTreeView.Items.EndUpdate;
        FavoriteTreeView.Items.Clear;
     except
     end;
 
+
+
        try
                if FavoriteDM <> nil then
                        FavoriteDM.Free;
@@ -1778,6 +1778,12 @@ begin
                AddressHistoryDM := nil;
        except
        end;
+    {
+    try
+       ClearLinkBar;
+    except
+    end;
+    }
        //\8f\84\89ñ\83\8a\83X\83g\95Û\91¶&\94j\8aü
        try
                RoundList.SaveRoundFile;
@@ -1808,7 +1814,7 @@ begin
        // TBoard, TThreadItem \82Ì\83f\83X\83g\83\89\83N\83^\82Í\83v\83\89\83O\83C\83\93\82É\94j\8aü\82ð\93`\82¦\82é\82Ì\82Å
        // BoardPluteIns \82Ì\8aJ\95ú\82æ\82è\90æ\82É\8ds\82¤\82±\82Æ
        try
-               for i := 0 to Length( BBSs ) - 1 do begin
+               for i := Length( BBSs ) - 1 downto 0 do begin
                        if BBSs[ i ] <> nil then
                                BBSs[ i ].Free;
                        BBSs[ i ] := nil;
@@ -1817,7 +1823,7 @@ begin
        end;
 
        try
-               for i := 0 to Length( BoardPlugIns ) - 1 do begin
+               for i := Length( BoardPlugIns ) - 1 downto  0 do begin
                        if BoardPlugIns[ i ] <> nil then
                                BoardPlugIns[ i ].Free;
                        BoardPlugIns[ i ] := nil;
@@ -7165,6 +7171,7 @@ begin
     finally
                MainCoolBar.Bands.EndUpdate;
        end;
+
 end;
 procedure TGikoForm.FavoriteDragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
 var

diff --git a/gikoNavi.dpr b/gikoNavi.dpr
index 6a02f48..f14d3bb 100644 (file)
--- a/gikoNavi.dpr
+++ b/gikoNavi.dpr
@@ -3,6 +3,7 @@ program gikoNavi;
 {%ToDo 'gikoNavi.todo'}
 
 uses
+//  MemCheck in 'MemCheck.pas',
   Windows,
   SysUtils,
   Forms,

diff --git a/gikoNavi.res b/gikoNavi.res
index 72965ff..dc606fa 100644 (file)
Binary files a/gikoNavi.res and b/gikoNavi.res differ