他のスレッドへのリンクをポップアップ後に、レスアンカーが他スレッドの内容を

表示する不具合の修正

diff --git a/Giko.pas b/Giko.pas
index f8efb89..30707d4 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -2026,6 +2026,16 @@ begin
                                end;
                        end;
                end else begin
+            CreateResPopupBrowser;
+
+            if not(Sender is TResPopupBrowser) then begin
+                if (FResPopupBrowser.Visible) then begin
+                    FResPopupBrowser.Clear;
+                end;
+            end else begin
+                TResPopupBrowser(Sender).ChildClear;
+            end;
+
                        threadItem := GetActiveContent(true);
                        URL := THTMLCreate.GetRespopupURL(Text2, threadItem.URL);
                        PathRec := Gikosys.Parse2chURL2(URL);
@@ -2078,16 +2088,6 @@ begin
                                                wkIntSt := 1;
                                                wkIntTo := 1;
                                        end;
-                    CreateResPopupBrowser;
-
-                    if not(Sender is TResPopupBrowser) then begin
-                        if (FResPopupBrowser.Visible) then begin
-                            FResPopupBrowser.Clear;
-                        end;
-                    end else begin
-                        TResPopupBrowser(Sender).ChildClear;
-                    end;
-
                     cResPopup := FResPopupBrowser.CreateNewBrowser;
                     cResPopup.PopupType := gptThread;
                                        HTMLCreater.SetResPopupText(cResPopup, threadItem, wkIntSt, wkIntTo, ATitle, PathRec.FFirst );

diff --git a/gikoNavi.res b/gikoNavi.res
index b0fd3a3..715566f 100644 (file)
Binary files a/gikoNavi.res and b/gikoNavi.res differ