QB64/InForm
QB64/InForm
1
1
Fork 0
mirror of https://github.com/FellippeHeitor/InForm.git synced 2025-01-15 03:49:56 +00:00
Code Issues Releases Wiki Activity

Fixes passing list items between editor and preview.

Browse source
This commit is contained in:
FellippeHeitor 2020-07-31 20:36:11 -03:00
parent 00f2864462
commit baa40dc3d2
2 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
InForm/UiEditor.bas
View file

@ -4356,7 +4356,7 @@ SUB SaveForm (ExitToQB64 AS _BYTE, SaveOnlyFrm AS _BYTE)
ThisItem% = 0 ThisItem% = 0
DO WHILE LEN(TempText$) DO WHILE LEN(TempText$)
ThisItem% = ThisItem% + 1 ThisItem% = ThisItem% + 1
FindLF& = INSTR(TempText$, CHR$(13)) FindLF& = INSTR(TempText$, CHR$(10))
IF FindLF& THEN IF FindLF& THEN
TempCaption$ = LEFT$(TempText$, FindLF& - 1) TempCaption$ = LEFT$(TempText$, FindLF& - 1)
TempText$ = MID$(TempText$, FindLF& + 1) TempText$ = MID$(TempText$, FindLF& + 1)

2
InForm/UiEditorPreview.bas
View file

@ -768,7 +768,7 @@ SUB __UI_BeforeUpdateDisplay
IF LEN(b$) > 0 AND b$ <> "&" THEN GOSUB AutoName IF LEN(b$) > 0 AND b$ <> "&" THEN GOSUB AutoName
END IF END IF
ELSEIF Control(i).Type = __UI_Type_ListBox OR Control(i).Type = __UI_Type_DropdownList THEN 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 IF Control(i).Max < TotalReplacements + 1 THEN Control(i).Max = TotalReplacements + 1
Control(i).LastVisibleItem = 0 'Reset it so it's recalculated Control(i).LastVisibleItem = 0 'Reset it so it's recalculated
END IF END IF