diff options
-rw-r--r-- | wizards/source/scriptforge/SF_Platform.xba | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/wizards/source/scriptforge/SF_Platform.xba b/wizards/source/scriptforge/SF_Platform.xba index 703ae195b942..c504de6b9809 100644 --- a/wizards/source/scriptforge/SF_Platform.xba +++ b/wizards/source/scriptforge/SF_Platform.xba @@ -346,7 +346,7 @@ Const cstSubArgs = "" ' Select only not yet registered fonts For i = 0 To UBound(oFontDescriptors) sFont = oFontDescriptors(i).Name - If InStr(sFonts, "," & sFont & ",") = 0 Then sFonts = sFonts & sFont & "," + If InStr(1, sFonts, "," & sFont & ",", 0) = 0 Then sFonts = sFonts & sFont & "," ' Case-sensitive comparison Next i ' Remove leading and trailing commas If Len(sFonts) > 1 Then _PropertyGet = Split(Mid(sFonts, 2, Len(sFonts) - 2), ",") Else _PropertyGet = Array() |