From: yoffy <yoffy>
Date: Tue, 13 Apr 2004 16:50:15 +0000 (+0000)
Subject: ・スレ一覧が更新されないことがあるという報告に心当たりのある箇所を変更。
X-Git-Tag: v1_64_1_820~1255
X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=27cc6185f43adff6d143cb732f41f5edef328b8c;p=gikonavigoeson%2Fgikonavi.git

・スレ一覧が更新されないことがあるという報告に心当たりのある箇所を変更。
---

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}