・アンカーが他のスレッドでもポップアップの内容が自分のスレッドになってしまうバグを修正。

diff --git a/Giko.pas b/Giko.pas
index 6a172e5..0c7ccb5 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -2351,6 +2351,9 @@ var
        URL: string;
        ATitle: Boolean;
 
+       threadItem      : TThreadItem;
+       board                           : TBoard;
+
        //wkInt: Integer;
        wkIntSt: Integer;
        wkIntTo: Integer;
@@ -2467,10 +2470,16 @@ begin
 
                                ATitle := ActiveFileName <> PathRec.FKey;
 
-                               if (FActiveContent <> nil) and (FActiveContent is TThreadItem) then begin
+                               threadItem := BBSsFindThreadFromURL( URL );
+                               if threadItem = nil then begin
+                                       board := BBSsFindBoardFromBBSID( PathRec.FBBS );
+                                       threadItem := board.Find( PathRec.FKey + '.dat' );
+                               end;
+
+                               if threadItem <> nil then begin
                                        //HintData := GetThreadText(PathRec.FBBS, PathRec.FKey, wkIntSt, wkIntTo, ATitle, PathRec.FFirst);
                                        FHint.PopupType := gptThread;
-                                       SetResPopupText( TThreadItem( FActiveContent ), wkIntSt, wkIntTo, ATitle, PathRec.FFirst );
+                                       SetResPopupText( threadItem, wkIntSt, wkIntTo, ATitle, PathRec.FFirst );
                                end;
                        end;
                end;