起動時のタブ復元で左端のスクロール位置がトップに戻る不具合の修正

diff --git a/Giko.pas b/Giko.pas
index e8dc893..7af88cd 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -2740,7 +2740,8 @@ var
 begin
        Thread := inThread;
        idx := BrowserTab.TabIndex;
-       if (FActiveContent <> nil) and
+       if  (not FStartUp) and
+        (FActiveContent <> nil) and
                (FActiveContent.Thread <> Thread.Thread) and
                (FActiveContent.Browser <> nil) and
                (Assigned(FActiveContent.Browser.Document)) then begin

diff --git a/GikoDataModule.pas b/GikoDataModule.pas
index 9686239..49c09ad 100644 (file)
--- a/GikoDataModule.pas
+++ b/GikoDataModule.pas
@@ -2261,9 +2261,11 @@ begin
                     if item <> nil then
                         GikoForm.InsertBrowserTab( item, false );
                 end;
-                //\8dÅ\8f\89\82Ì\82P\96\87\82É\90Ý\92è \83A\83h\83\8c\83X\82Ì\90Ý\92è\82Ì\82½\82ß\82Ì\83J\83\89\8cÄ\82Ñ
-                if GikoForm.BrowserTab.Tabs.Count > 0 then begin
-                    GikoForm.BrowserTab.OnChange(nil);
+                //\8dÅ\8f\89\82Ì\82P\96\87\82É\90Ý\92è
+                if (GikoSys.Setting.URLDisplay) and
+                    (GikoForm.BrowserTab.Tabs.Count > 0) then begin
+                                       GikoForm.AddressComboBox.Text :=
+                        TBrowserRecord(GikoForm.BrowserTab.Tabs.Objects[0]).Thread.URL;
                 end;
             end;
         finally

diff --git a/gikoNavi.res b/gikoNavi.res
index 8c0226b..ab04d27 100644 (file)
Binary files a/gikoNavi.res and b/gikoNavi.res differ