From: h677 <h677>
Date: Mon, 22 Mar 2004 12:35:13 +0000 (+0000)
Subject: 終了時のお気に入りの削除時の処理の修正
X-Git-Tag: v1_64_1_820~1361
X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=921d26f0a6f3293375ae617abc30101d8e620214;p=gikonavigoeson%2Fgikonavi.git

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

diff --git a/Favorite.pas b/Favorite.pas
index a19ad92..f427d5d 100644
--- 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
--- 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
--- 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;
+    }
 	//„‰ñƒŠƒXƒg•Û‘¶&”jŠü
 	try
 		RoundList.SaveRoundFile;
@@ -1808,7 +1814,7 @@ begin
 	// TBoard, TThreadItem ‚̃fƒXƒgƒ‰ƒNƒ^‚̓vƒ‰ƒOƒCƒ“‚É”jŠü‚ð“`‚¦‚é‚Ì‚Å
 	// BoardPluteIns ‚ÌŠJ•ú‚æ‚èæ‚ɍs‚¤‚±‚Æ
 	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
--- 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
Binary files a/gikoNavi.res and b/gikoNavi.res differ