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 glitch preventing the preview component from being compiled.

Browse source
This commit is contained in:
FellippeHeitor 2018-10-11 01:38:26 -03:00
parent 11c7ac4d39
commit 38f414c91d
1 changed files with 15 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

25
InForm/InForm.ui
View file

@ -237,16 +237,6 @@ DIM SHARED __UI_InternalContextMenus AS LONG, __UI_DidClick AS _BYTE
DIM SHARED __UI_ContextMenuSourceID AS LONG DIM SHARED __UI_ContextMenuSourceID AS LONG
DIM SHARED __UI_FKey(1 TO 12) AS LONG DIM SHARED __UI_FKey(1 TO 12) AS LONG
RESTORE __UI_FKeysData
DIM i AS LONG
FOR i = 1 TO 12
READ __UI_FKey(i)
NEXT
__UI_FKeysData:
DATA 15104,15360,15616,15872,16128,16384
DATA 16640,16896,17152,17408,34048,34304
'Control types: ----------------------------------------------- 'Control types: -----------------------------------------------
DIM SHARED __UI_Type(0 TO 18) AS __UI_Types DIM SHARED __UI_Type(0 TO 18) AS __UI_Types
__UI_Type(__UI_Type_Form).Name = "Form" __UI_Type(__UI_Type_Form).Name = "Form"
@ -323,6 +313,8 @@ __UI_Type(__UI_Type_ToggleSwitch).DefaultHeight = 17
__UI_Type(__UI_Type_ToggleSwitch).TurnsInto = __UI_Type_CheckBox __UI_Type(__UI_Type_ToggleSwitch).TurnsInto = __UI_Type_CheckBox
'-------------------------------------------------------------- '--------------------------------------------------------------
__UI_RestoreFKeys
CONST True = -1, False = 0 CONST True = -1, False = 0
'$INCLUDE:'InFormVersion.bas' '$INCLUDE:'InFormVersion.bas'
__UI_SubMenuDelay = .4 __UI_SubMenuDelay = .4
@ -4474,6 +4466,19 @@ FUNCTION __UI_FriendlyCombo$ (__Combo$)
__UI_FriendlyCombo$ = Combo$ __UI_FriendlyCombo$ = Combo$
END FUNCTION END FUNCTION
'---------------------------------------------------------------------------------
SUB __UI_RestoreFKeys
RESTORE __UI_FKeysData
DIM i AS LONG
FOR i = 1 TO 12
READ __UI_FKey(i)
NEXT
__UI_FKeysData:
DATA 15104,15360,15616,15872,16128,16384
DATA 16640,16896,17152,17408,34048,34304
END SUB
'--------------------------------------------------------------------------------- '---------------------------------------------------------------------------------
SUB __UI_RestoreImageOriginalSize SUB __UI_RestoreImageOriginalSize
DIM KeepCenterX AS INTEGER, KeepCenterY AS INTEGER DIM KeepCenterX AS INTEGER, KeepCenterY AS INTEGER