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

Returns existing ID of menu panel if already active.

Browse source
This commit is contained in:
FellippeHeitor 2018-11-05 22:52:16 -03:00
parent 869f5ab2ac
commit c933e5441f
1 changed files with 1 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
InForm/InForm.ui
View file

@ -5977,6 +5977,7 @@ SUB __UI_ActivateMenu (This AS __UI_ControlTYPE, SelectFirstItem AS _BYTE)
IF __UI_GetID(RTRIM$(This.Name) + CHR$(254) + "Panel") > 0 THEN IF __UI_GetID(RTRIM$(This.Name) + CHR$(254) + "Panel") > 0 THEN
__UI_ActiveMenu(__UI_TotalActiveMenus) = __UI_GetID(RTRIM$(This.Name) + CHR$(254) + "Panel") __UI_ActiveMenu(__UI_TotalActiveMenus) = __UI_GetID(RTRIM$(This.Name) + CHR$(254) + "Panel")
EXIT SUB
ELSE ELSE
IF __UI_TotalActiveMenus + 1 > UBOUND(__UI_ActiveMenu) THEN IF __UI_TotalActiveMenus + 1 > UBOUND(__UI_ActiveMenu) THEN
EXIT SUB EXIT SUB