From baa40dc3d27586e9ade6bcf7452ec24f9f19f4b1 Mon Sep 17 00:00:00 2001
From: FellippeHeitor <fellippeheitor@gmail.com>
Date: Fri, 31 Jul 2020 20:36:11 -0300
Subject: [PATCH] Fixes passing list items between editor and preview.

---
 InForm/UiEditor.bas        | 2 +-
 InForm/UiEditorPreview.bas | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

diff --git a/InForm/UiEditor.bas b/InForm/UiEditor.bas
index 975e84e..152e510 100644
--- a/InForm/UiEditor.bas
+++ b/InForm/UiEditor.bas
@@ -4356,7 +4356,7 @@ SUB SaveForm (ExitToQB64 AS _BYTE, SaveOnlyFrm AS _BYTE)
                             ThisItem% = 0
                             DO WHILE LEN(TempText$)
                                 ThisItem% = ThisItem% + 1
-                                FindLF& = INSTR(TempText$, CHR$(13))
+                                FindLF& = INSTR(TempText$, CHR$(10))
                                 IF FindLF& THEN
                                     TempCaption$ = LEFT$(TempText$, FindLF& - 1)
                                     TempText$ = MID$(TempText$, FindLF& + 1)
diff --git a/InForm/UiEditorPreview.bas b/InForm/UiEditorPreview.bas
index 5746824..797cef3 100644
--- a/InForm/UiEditorPreview.bas
+++ b/InForm/UiEditorPreview.bas
@@ -768,7 +768,7 @@ SUB __UI_BeforeUpdateDisplay
                                         IF LEN(b$) > 0 AND b$ <> "&" THEN GOSUB AutoName
                                     END IF
                                 ELSEIF Control(i).Type = __UI_Type_ListBox OR Control(i).Type = __UI_Type_DropdownList THEN
-                                    Text(i) = Replace(b$, "\n", CHR$(13), False, TotalReplacements)
+                                    Text(i) = Replace(b$, "\n", CHR$(10), False, TotalReplacements)
                                     IF Control(i).Max < TotalReplacements + 1 THEN Control(i).Max = TotalReplacements + 1
                                     Control(i).LastVisibleItem = 0 'Reset it so it's recalculated
                                 END IF