From d89341a663acdf52efca06775979e03c9280729d Mon Sep 17 00:00:00 2001
From: yoffy <yoffy>
Date: Fri, 9 Apr 2004 08:30:14 +0000
Subject: [PATCH] =?utf8?q?=E3=83=BB=E6=97=A2=E3=81=AB=E8=90=BD=E3=81=A1?=
 =?utf8?q?=E3=81=A6=E3=81=84=E3=82=8B=E3=82=B9=E3=83=AC=E3=81=AE=E3=83=AD?=
 =?utf8?q?=E3=82=B0=E3=82=92=E5=89=8A=E9=99=A4=E3=81=97=E3=80=81=E6=9D=BF?=
 =?utf8?q?=E6=9B=B4=E6=96=B0=E3=81=99=E3=82=8B=E3=81=A8=E7=AF=84=E5=9B=B2?=
 =?utf8?q?=E5=A4=96=E3=82=A8=E3=83=A9=E3=83=BC=E3=81=8C=E7=99=BA=E7=94=9F?=
 =?utf8?q?=E3=81=99=E3=82=8B=E3=81=AE=E3=81=A7=E4=BF=AE=E6=AD=A3=E3=80=82?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 Giko.pas | 13 +++++++------
 1 file changed, 7 insertions(+), 6 deletions(-)

diff --git a/Giko.pas b/Giko.pas
index 895a01b..d04331f 100644
--- a/Giko.pas
+++ b/Giko.pas
@@ -2192,7 +2192,7 @@ var
 	RepStr: string;
 		ActivListObj : TObject;
 begin
-		ActivListObj := ActiveList;
+	ActivListObj := ActiveList;
 	if ActivListObj is TBBS then begin
 		BBS := TBBS(ActivListObj);
 
@@ -2282,10 +2282,11 @@ begin
 
 		ThreadItem := nil;
 		case GikoForm.ViewType of
-			gvtAll: ThreadItem := TThreadItem(Board.Items[Item.Index]);
-			gvtLog: ThreadItem := Board.GetLogThread(Item.Index);
-			gvtNew: ThreadItem := Board.GetNewThread(Item.Index);
-			gvtUser: ThreadItem := Board.GetUserThread(Item.Index);
+			gvtAll: if Item.Index >= Board.Count then Exit else
+								ThreadItem := TThreadItem(Board.Items[Item.Index]);
+			gvtLog:		ThreadItem := Board.GetLogThread(Item.Index);
+			gvtNew:		ThreadItem := Board.GetNewThread(Item.Index);
+			gvtUser:	ThreadItem := Board.GetUserThread(Item.Index);
 		end;
 
 		if ThreadItem = nil then Exit;
@@ -3327,9 +3328,9 @@ begin
 	if FActiveList <> Obj then begin
 		FActiveList := Obj;
 
-		ListView.Selected := nil;
 		ListView.Items.Count := 0;
 		ListView.Items.Clear;
+		ListView.Selected := nil;
 //	ListView.Columns.Clear;
 
 		Caption := CAPTION_NAME;
-- 
2.11.0