From 6e45a6059f0fbe49891961280ea319c05d233d28 Mon Sep 17 00:00:00 2001
From: h677 <h677>
Date: Sun, 25 Jun 2006 13:14:35 +0000
Subject: [PATCH] =?utf8?q?=E3=82=AD=E3=83=A3=E3=83=93=E3=83=8D=E3=83=83?=
 =?utf8?q?=E3=83=88=E3=81=AB=E5=B1=A5=E6=AD=B4=E3=82=92=E8=A1=A8=E7=A4=BA?=
 =?utf8?q?=E3=81=97=E3=81=A6=E3=81=84=E3=82=8B=E3=81=A8=E3=83=AD=E3=82=B0?=
 =?utf8?q?=E3=82=92=E5=89=8A=E9=99=A4=E3=81=97=E3=81=A6=E3=82=82=E3=80=81?=
 =?utf8?q?=E3=82=AD=E3=83=A3=E3=83=93=E3=83=8D=E3=83=83=E3=83=88=E3=81=AB?=
 =?utf8?q?=E6=AE=8B=E3=82=8A=E3=81=A4=E3=81=A5=E3=81=91=E3=81=A6=20?=
 =?utf8?q?=E3=82=AF=E3=83=AA=E3=83=83=E3=82=AF=E3=81=97=E3=81=A6=E3=82=A8?=
 =?utf8?q?=E3=83=A9=E3=83=BC=E3=81=AB=E3=81=AA=E3=82=8B=E4=B8=8D=E5=85=B7?=
 =?utf8?q?=E5=90=88=E3=81=AE=E4=BF=AE=E6=AD=A3?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 Giko.dfm           |  2 +-
 Giko.pas           | 21 ++++++++++++++++++---
 GikoDataModule.pas |  1 +
 3 files changed, 20 insertions(+), 4 deletions(-)

diff --git a/Giko.dfm b/Giko.dfm
index 42138f8..d518c4f 100644
--- a/Giko.dfm
+++ b/Giko.dfm
@@ -8215,7 +8215,7 @@ object GikoForm: TGikoForm
   end
   object BrowserPopupMenu: TPopupMenu
     Left = 68
-    Top = 276
+    Top = 280
     object ShowThreadMenu: TMenuItem
       Action = GikoDM.ShowThreadAction
     end
diff --git a/Giko.pas b/Giko.pas
index f3e323b..a5a71f6 100644
--- a/Giko.pas
+++ b/Giko.pas
@@ -3082,12 +3082,27 @@ end;
 procedure TGikoForm.DeleteHistory( threadItem: TThreadItem );
 var
 	i: Integer;
-begin
+	node: TTreeNode;
+begin
+	// ƒLƒƒƒrƒlƒbƒg‚É—š—ð‚ª•\Ž¦‚³‚ê‚Ä‚¢‚½‚çA
+	// ƒLƒƒƒrƒlƒbƒg“à‚̃AƒCƒeƒ€‚àíœ‚·‚éB
+	if (FTreeType = gttHistory) then begin
+		node := TreeView.Items.GetFirstNode;
+		while (node <> nil) do begin
+			if ( TFavoriteThreadItem(node.Data).Item  = threadItem ) then begin
+				TreeView.Items.Delete(node);
+				TreeView.Refresh;
+				node := nil;
+			end else begin
+				node := node.GetNext;
+			end;
+		end;
+	end;
 	for i := 0 to FHistoryList.Count - 1 do begin
-		if threadItem.URL = TFavoriteThreadItem( FHistoryList.Items[i] ).URL then begin
+		if threadItem = TFavoriteThreadItem( FHistoryList.Items[i] ).Item then begin
 			TFavoriteThreadItem( FHistoryList.Items[ i ] ).Free;
 			FHistoryList.Delete(i);
-            FHistoryList.Capacity := FHistoryList.Count;
+			FHistoryList.Capacity := FHistoryList.Count;
 			Break;
 		end;
 	end;
diff --git a/GikoDataModule.pas b/GikoDataModule.pas
index e1fbc19..664923c 100644
--- a/GikoDataModule.pas
+++ b/GikoDataModule.pas
@@ -1247,6 +1247,7 @@ begin
 					if MsgBox(GikoForm.Handle, StringReplace( DEL_MSG, '^0', ThreadItem.Title, [rfReplaceAll] ) , DEL_TITLE, MB_YESNO or MB_ICONWARNING or MB_DEFBUTTON2) <> ID_YES then
 						Exit;
 			GikoForm.DeleteTab(TBrowserRecord(GikoForm.BrowserTab.Tabs.Objects[idx]));
+            GikoForm.DeleteHistory(ThreadItem);
 			ThreadItem.DeleteLogFile;
 			if ThreadItem.ParentBoard = GikoForm.ActiveList then
 				GikoForm.ListView.Refresh;
-- 
2.11.0