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

Bypasses saving .Caption for controls that don't support the property.

Browse source
This commit is contained in:
FellippeHeitor 2018-09-17 00:45:32 -03:00
parent 8343784d31
commit 784e7bcfd9
1 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
InForm/UiEditor.bas
View file

@ -3741,13 +3741,14 @@ SUB SaveForm (ExitToQB64 AS _BYTE, SaveOnlyFrm AS _BYTE)
END IF
IF LEN(PreviewCaptions(i)) > 0 THEN
'IF PreviewControls(i).HotKeyPosition > 0 THEN
' a$ = LEFT$(PreviewCaptions(i), PreviewControls(i).HotKeyPosition - 1) + "&" + MID$(PreviewCaptions(i), PreviewControls(i).HotKeyPosition)
'ELSE
' a$ = PreviewCaptions(i)
'END IF
a$ = " SetCaption __UI_NewID, " + SpecialCharsToEscapeCode$(PreviewCaptions(i))
PRINT #TextFileNum, a$
SELECT CASE PreviewControls(i).Type
CASE __UI_Type_Form, __UI_Type_Frame, __UI_Type_Button, _
__UI_Type_Label, __UI_Type_CheckBox, __UI_Type_RadioButton, _
__UI_Type_TextBox, __UI_Type_ProgressBar, __UI_Type_MenuBar, _
__UI_Type_MenuItem
a$ = " SetCaption __UI_NewID, " + SpecialCharsToEscapeCode$(PreviewCaptions(i))
PRINT #TextFileNum, a$
END SELECT
END IF
IF LEN(PreviewTips(i)) > 0 THEN