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

Declares __UI_RegisterResult for all new forms.

Browse source 
Prevents issues if the user wants to have OPTION _EXPLICIT in their code.
This commit is contained in:
FellippeHeitor 2019-11-14 02:57:05 -03:00
parent 92cebc6d9f
commit b2f14c07ae
1 changed files with 1 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
InForm/UiEditor.bas
View file

@ -4132,20 +4132,7 @@ SUB SaveForm (ExitToQB64 AS _BYTE, SaveOnlyFrm AS _BYTE)
IF PreviewControls(PreviewFormID).CanResize THEN
PRINT #TextFileNum, " $RESIZE:ON"
END IF
PRINT #TextFileNum, " DIM __UI_NewID AS LONG";
FOR i = 1 TO UBOUND(PreviewControls)
IF LEN(PreviewKeyCombos(i)) > 0 THEN
PRINT #TextFileNum, ", __UI_RegisterResult AS LONG"
EXIT FOR
END IF
NEXT
IF i = UBOUND(PreviewControls) + 1 THEN
IF AddGifExtension THEN
PRINT #TextFileNum, ", __UI_RegisterResult AS LONG"
ELSE
PRINT #TextFileNum,
END IF
END IF
PRINT #TextFileNum, " DIM __UI_NewID AS LONG, __UI_RegisterResult AS LONG"
PRINT #TextFileNum,
'First pass is for the main form and containers (frames and menubars).