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

Hidden controls now have a ghost rectangle replace them in design mode.

Browse source
This commit is contained in:
FellippeHeitor 2018-11-12 18:15:42 -02:00
parent de25e4ca15
commit faba308c3e
2 changed files with 11 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
InForm/InForm.ui
View file

@ -1058,7 +1058,7 @@ SUB __UI_UpdateDisplay
DIM iCount AS LONG, ctxMenuCount AS LONG DIM iCount AS LONG, ctxMenuCount AS LONG
FOR iCount = 1 TO UBOUND(ControlDrawOrder) FOR iCount = 1 TO UBOUND(ControlDrawOrder)
i = ControlDrawOrder(iCount) i = ControlDrawOrder(iCount)
IF Control(i).ID > 0 AND NOT Control(i).Hidden THEN IF Control(i).ID > 0 THEN
'Direct the drawing to the appropriate canvas (main or container) 'Direct the drawing to the appropriate canvas (main or container)
IF Control(i).ParentID > 0 AND Control(i).Type <> __UI_Type_MenuItem THEN IF Control(i).ParentID > 0 AND Control(i).Type <> __UI_Type_MenuItem THEN
_DEST Control(Control(i).ParentID).Canvas _DEST Control(Control(i).ParentID).Canvas
@ -1066,6 +1066,13 @@ SUB __UI_UpdateDisplay
_DEST 0 _DEST 0
END IF END IF
IF Control(i).Hidden = True AND __UI_DesignMode = True AND __UI_ShowInvisibleControls = True THEN
LINE (Control(i).Left, Control(i).Top)-STEP(Control(i).Width - 1, Control(i).Height - 1), _RGB32(127, 127, 127, 80), BF
GOTO BypassDisplay
ELSEIF Control(i).Hidden = True THEN
GOTO BypassDisplay
END IF
IF ((__UI_MouseIsDown AND i = __UI_MouseDownOnID) OR (__UI_KeyIsDown AND i = __UI_KeyDownOnID AND __UI_KeyDownOnID = __UI_Focus)) AND NOT Control(i).Disabled THEN IF ((__UI_MouseIsDown AND i = __UI_MouseDownOnID) OR (__UI_KeyIsDown AND i = __UI_KeyDownOnID AND __UI_KeyDownOnID = __UI_Focus)) AND NOT Control(i).Disabled THEN
ControlState = 3 ControlState = 3
ELSEIF (i = __UI_HoveringID AND Control(i).Type = __UI_Type_MenuBar) THEN ELSEIF (i = __UI_HoveringID AND Control(i).Type = __UI_Type_MenuBar) THEN
@ -1150,6 +1157,7 @@ SUB __UI_UpdateDisplay
END SELECT END SELECT
END IF END IF
BypassDisplay:
IF __UI_Snapped THEN IF __UI_Snapped THEN
IF OverlayReset = False THEN IF OverlayReset = False THEN
'Reset the helper canvas of the main form 'Reset the helper canvas of the main form

4
InForm/InFormVersion.bas
View file

@ -1,3 +1,3 @@
CONST __UI_Version = "Beta version 8" CONST __UI_Version = "Beta version 9"
CONST __UI_VersionNumber = 8 CONST __UI_VersionNumber = 9
CONST __UI_VersionIsBeta = True CONST __UI_VersionIsBeta = True