他スレッドへのポップアップ中のレスアンカーが、表示スレッドの内容になる不具合の修正

diff --git a/Giko.pas b/Giko.pas
index 9573136..fd4ce15 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -1970,14 +1970,14 @@ begin
                                        wkIntSt := StrToInt64(tmp2);
                                        wkIntTo := StrToInt64(tmp2);
                     cResPopup.PopupType := gptThread;
-                                       HTMLCreater.SetResPopupText(cResPopup, GetActiveContent, wkIntSt, wkIntTo, False, False);
+                                       HTMLCreater.SetResPopupText(cResPopup, GetActiveContent(true), wkIntSt, wkIntTo, False, False);
                                end else begin
                     cResPopup.PopupType := gptRaw;
                     cResPopup.Title := s;
                                end;
                        end;
                end else begin
-                       threadItem := GetActiveContent;
+                       threadItem := GetActiveContent(true);
                        URL := THTMLCreate.GetRespopupURL(Text2, threadItem.URL);
                        PathRec := Gikosys.Parse2chURL2(URL);
                        if (PathRec.FNoParam) then begin
@@ -3778,12 +3778,17 @@ begin
                                end;
 
                                if wkIntSt <> 0 then begin
-                    if (Sender is TResPopupBrowser) then begin
-                        TResPopupBrowser(Sender).ChildClear
-                    end;
                        FActiveContent.IDAnchorPopup('');
                     MoveHisotryManager.pushItem(FActiveContent);
-                                       BrowserMovement(IntToStr(wkIntSt));
+                    if (Sender is TResPopupBrowser) then begin
+                        TResPopupBrowser(Sender).ChildClear;
+                        OpenThreadItem(
+                            GetActiveContent(true),
+                            GetActiveContent(true).URL + '&st=' +
+                                 IntToStr(wkIntSt) + '&to=' + IntToStr(wkIntSt));
+                    end else begin
+                                       BrowserMovement(IntToStr(wkIntSt));
+                    end;
                 end;
                        end;
                end else begin
@@ -4849,7 +4854,7 @@ begin
                s := ZenToHan(Trim(s));
                if GikoSys.IsNumeric(s) then begin
                        Num := StrToInt64(s);
-                       ThreadItem := GetActiveContent;
+                       ThreadItem := GetActiveContent(true);
                        if (ThreadItem <> nil) and (Num <= ThreadItem.Count)
                 and (Num > 0)then begin
                 CreateResPopupBrowser;