Fix a bug that would save CHR$(34) as a literal in captions.

2025-01-15 11:59:34 +00:00 · 2017-01-08 19:57:47 -02:00 · 2017-01-08 19:57:47 -02:00 · d97960c063
commit d97960c063
parent 845afd92ac
3 changed files with 1 additions and 1 deletions
--- a/InForm/InForm.ui
+++ b/InForm/InForm.ui
@ -4210,7 +4210,7 @@ FUNCTION __UI_SpecialCharsToCHR$ (Text$)

    Temp$ = CHR$(34)
    FOR i = 1 TO LEN(Text$)
-        IF ASC(Text$, i) < 32 THEN
+        IF ASC(Text$, i) < 32 OR ASC(Text$, i) = 34 THEN
            Temp$ = Temp$ + CHR$(34) + " + CHR$(" + LTRIM$(STR$(ASC(Text$, i))) + ") + " + CHR$(34)
        ELSE
            Temp$ = Temp$ + MID$(Text$, i, 1)
--- a/InForm/UiEditorPreview.exe
+++ b/InForm/UiEditorPreview.exe
--- a/UiEditor.exe
+++ b/UiEditor.exe