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

diff --git a/Giko.pas b/Giko.pas
index 78f7050..ba8a840 100644 (file)
--- 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 (file)
--- a/gikoNavi.dpr
+++ b/gikoNavi.dpr
@@ -4,7 +4,7 @@ program gikoNavi;
 
 uses
   //MemCheck in 'MemCheck.pas', {'MemCheckStackTrace'\82ð\8fð\8c\8f\82É\92Ç\89Á\81B}
-  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}