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

Tweaks SetFocus to avoid setting focus to a disabled control.

Browse source
This commit is contained in:
FellippeHeitor 2018-05-13 12:34:15 -03:00
parent d5fb247c84
commit 99ac4041bb
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

@ -341,6 +341,7 @@ END SUB
'---------------------------------------------------------------------------------
SUB SetFocus(id AS LONG)
IF Control(id).CanHaveFocus = False OR Control(id).Hidden = True OR Control(id).Disabled = TRUE THEN EXIT SUB
__UI_Focus = id
IF Control(id).Type = __UI_Type_TextBox THEN
Control(id).TextIsSelected = True