>123 型のリンクのポップアップができなくなってしまったのを修正

diff --git a/Giko.pas b/Giko.pas
index ed84452..b6378b2 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -2638,7 +2638,10 @@ begin
                                URL := Text;
                        end;
                        PathRec := Gikosys.Parse2chURL2(URL);
-                       if (PathRec.FSt = 0) and (PathRec.FTo = 0) then
+                       if (PathRec.FNoParam) then begin
+                               PathRec.FSt := 1;
+                               PathRec.FTo := 1;
+                       end else
                                Gikosys.GetPopupResNumber(URL,PathRec.FSt,PathRec.FTo);
                        GikoSys.ParseURI( URL, Protocol, Host, Path, Document, Port, Bookmark );
 

diff --git a/GikoSystem.pas b/GikoSystem.pas
index a2644a1..26474e2 100644 (file)
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -81,6 +81,7 @@ type
                FStBegin: Boolean;      //1\81`\95\\8e¦
                FToEnd: Boolean;                //\81`\8dÅ\8cã\82Ü\82Å\95\\8e¦
                FDone: Boolean;                 //\90¬\8c÷
+               FNoParam: Boolean;              //\83\8c\83X\94Ô\83p\83\89\83\81\81[\83^\82È\82µ
        end;
 
        TGikoSys = class(TObject)
@@ -3145,8 +3146,7 @@ begin
                                                s := SList[3]
                                        else begin
                                                s := '';
-                                               Result.FSt := 1;
-                                               Result.FTo := 1;
+                                               Result.FNoParam := true;
                                        end;
                                end else
                                        Exit;