x数字を右クリックで例外が発生する不具合の修正

diff --git a/Giko.pas b/Giko.pas
index 78df44c..bb75e43 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -1628,7 +1628,7 @@ begin
                FavoriteDM.Clear;
        except
        end;
-       LockWindowUpdate(Self.Handle);
+       //LockWindowUpdate(Self.Handle);
        try
                //\83^\83u\83N\83\8d\81[\83Y
                tmpBool := GikoSys.Setting.ShowDialogForAllTabClose;
@@ -1751,7 +1751,7 @@ begin
                end;
        except
        end;
-       LockWindowUpdate(0);
+       //LockWindowUpdate(0);
 end;
 
 // \8ae\8f\8a\82É\82 \82é\83L\83\83\83r\83l\83b\83g\81E BBS \83\81\83j\83\85\81[\82ð\83Z\83b\83g\81^\8dX\90V
@@ -4950,7 +4950,7 @@ begin
                s := CustomStringReplace(Range.text, '\81@', ' ');//\91S\8ap\8bó\94\92\82ð\94¼\8ap\8bó\94\92\82É
                s := ZenToHan(Trim(s));
                if GikoSys.IsNumeric(s) then begin
-                       Num := StrToInt64(s);
+                       Num := StrToInt64Def(s, -1);
                        ThreadItem := GetActiveContent(true);
                        if (ThreadItem <> nil) and (Num <= ThreadItem.Count)
                 and (Num > 0)then begin

diff --git a/gikoNavi.res b/gikoNavi.res
index 2673caa..c4d3a5b 100644 (file)
Binary files a/gikoNavi.res and b/gikoNavi.res differ