From 27cc6185f43adff6d143cb732f41f5edef328b8c Mon Sep 17 00:00:00 2001
From: yoffy <yoffy>
Date: Tue, 13 Apr 2004 16:50:15 +0000
Subject: [PATCH] =?utf8?q?=E3=83=BB=E3=82=B9=E3=83=AC=E4=B8=80=E8=A6=A7?=
 =?utf8?q?=E3=81=8C=E6=9B=B4=E6=96=B0=E3=81=95=E3=82=8C=E3=81=AA=E3=81=84?=
 =?utf8?q?=E3=81=93=E3=81=A8=E3=81=8C=E3=81=82=E3=82=8B=E3=81=A8=E3=81=84?=
 =?utf8?q?=E3=81=86=E5=A0=B1=E5=91=8A=E3=81=AB=E5=BF=83=E5=BD=93=E3=81=9F?=
 =?utf8?q?=E3=82=8A=E3=81=AE=E3=81=82=E3=82=8B=E7=AE=87=E6=89=80=E3=82=92?=
 =?utf8?q?=E5=A4=89=E6=9B=B4=E3=80=82?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 Giko.pas     | 16 +++++++++++++---
 gikoNavi.dpr | 11 +++++++++--
 2 files changed, 22 insertions(+), 5 deletions(-)

diff --git a/Giko.pas b/Giko.pas
index 78f7050..ba8a840 100644
--- a/Giko.pas
+++ b/Giko.pas
@@ -3336,11 +3336,16 @@ end;
 
 procedure TGikoForm.SetActiveList(Obj: TObject);
 var
-	i	: Integer;
+	i		: Integer;
+	idx	: Integer;
 begin
-	if FActiveList <> Obj then begin
+//	if FActiveList <> Obj then begin
 		FActiveList := Obj;
 
+		if ListView.Selected <> nil then
+			idx := ListView.Selected.Index
+		else
+			idx := -1;
 		ListView.Items.Count := 0;
 		ListView.Items.Clear;
 		ListView.Selected := nil;
@@ -3360,7 +3365,12 @@ begin
 		end else if Obj is TBoard then begin
 			SetThreadListItem(TBoard(Obj));
 		end;
-	end;
+
+		if idx >= 0 then begin
+			ListView.ItemIndex := idx;
+			ListView.ItemFocused := ListView.Items.Item[ idx ];
+		end;
+//	end;
 
 	if Obj is TBoard then begin
 		if GikoSys.Setting.ListOrientation = gloHorizontal then begin
diff --git a/gikoNavi.dpr b/gikoNavi.dpr
index 33b35aa..831031a 100644
--- a/gikoNavi.dpr
+++ b/gikoNavi.dpr
@@ -4,7 +4,7 @@ program gikoNavi;
 
 uses
   //MemCheck in 'MemCheck.pas', {'MemCheckStackTrace'‚ððŒ‚ɒljÁB}
-  Windows,
+	Windows,
   SysUtils,
   Forms,
   Messages,
@@ -53,7 +53,14 @@ uses
   ExternalThreadItem in 'ExternalThreadItem.pas',
   ExternalBoardItem in 'ExternalBoardItem.pas',
   ExternalBoardPlugInMain in 'ExternalBoardPlugInMain.pas',
-  ExternalFilePath in 'ExternalFilePath.pas';
+  ExternalFilePath in 'ExternalFilePath.pas',
+  bmRegExp in 'bmRegExp\bmregexp.pas',
+  GikoCoolBar in 'Component\GikoCoolBar.pas',
+  GikoListView in 'Component\GikoListView.pas',
+  GikoPanel in 'Component\GikoPanel.pas',
+  crc in 'gzip_delphi2\crc.pas',
+  gzip in 'gzip_delphi2\gzip.pas',
+  zlib in 'gzip_delphi2\zlib.pas';
 
 {$R *.RES}
 {$R gikoResource.res}
-- 
2.11.0