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

Prevents __UI_DestroyControl from destroying the __UI_Type_Form control.

Browse source
This commit is contained in:
FellippeHeitor 2018-06-25 22:36:50 -03:00
parent 861fce234b
commit 9c16df4339
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
InForm/InForm.ui
View file

@ -4348,6 +4348,7 @@ SUB __UI_DestroyControl (This AS __UI_ControlTYPE)
__UI_AutoRefresh = False __UI_AutoRefresh = False
IF This.ID > 0 THEN IF This.ID > 0 THEN
IF This.Type = __UI_Type_Form THEN EXIT SUB
Caption(This.ID) = "" Caption(This.ID) = ""
__UI_TempCaptions(This.ID) = "" __UI_TempCaptions(This.ID) = ""
Text(This.ID) = "" Text(This.ID) = ""
@ -4386,7 +4387,7 @@ SUB __UI_DestroyControl (This AS __UI_ControlTYPE)
END IF END IF
END IF END IF
DIM noti AS __ui_ControlTYPE DIM EmptyControl AS __UI_ControlTYPE
IF This.Canvas <> 0 THEN _FREEIMAGE This.Canvas: This.Canvas = 0 IF This.Canvas <> 0 THEN _FREEIMAGE This.Canvas: This.Canvas = 0
IF This.HelperCanvas <> 0 THEN _FREEIMAGE This.HelperCanvas: This.HelperCanvas = 0 IF This.HelperCanvas <> 0 THEN _FREEIMAGE This.HelperCanvas: This.HelperCanvas = 0
@ -4394,7 +4395,7 @@ SUB __UI_DestroyControl (This AS __UI_ControlTYPE)
uw& = GetControlDrawOrder(This.ID) uw& = GetControlDrawOrder(This.ID)
ControlDrawOrder(uw&) = 0 ControlDrawOrder(uw&) = 0
This = noti This = EmptyControl
__UI_HasMenuBar = (__UI_FirstMenuBarControl > 0) __UI_HasMenuBar = (__UI_FirstMenuBarControl > 0)