板名検索で全半角問わなくした

diff --git a/Giko.pas b/Giko.pas
index 55025fb..df91fb4 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -7830,7 +7830,7 @@ begin
                                        CurItem := TreeView.Items.GetFirstNode;
                        end;
                        while CurItem <> nil do begin
-                               if (CurItem.ImageIndex <> 2) and (AnsiPos(s,CurItem.Text) <> 0) then begin
+                               if (CurItem.ImageIndex <> 2) and (GikoSys.VaguePos(s,CurItem.Text) <> 0) then begin
                                        break;
                                end;
                                CurItem := CurItem.GetNext;

diff --git a/GikoSystem.pas b/GikoSystem.pas
index 7ecc46a..fb19036 100644 (file)
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -2281,7 +2281,7 @@ end;
  *************************************************************************)
 function TGikoSys.VaguePos(const Substr, S: string): Integer;
 begin
-       Result := Pos(ZenToHan(Substr), ZenToHan(S));
+       Result := AnsiPos(ZenToHan(Substr), ZenToHan(S));
 end;
 
 function TGikoSys.BoolToInt(b: Boolean): Integer;