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

Allows DropdownLists to have .Value = 0.

Browse source
This commit is contained in:
FellippeHeitor 2018-05-14 00:36:43 -03:00
parent 8bc607af44
commit 20e8185a35
2 changed files with 38 additions and 37 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
InForm/InForm.ui
View file

@ -839,7 +839,6 @@ SUB __UI_UpdateDisplay
__UI_DrawListBox Control(i), ControlState
CASE __UI_Type_DropdownList
'Dropdown lists
IF Control(i).Value = 0 THEN Control(i).Value = 1
__UI_DrawDropdownList Control(i), ControlState
CASE __UI_Type_MenuBar

2
InForm/xp.uitheme
View file

@ -1219,6 +1219,7 @@ SUB __UI_DrawDropdownList (This AS __UI_ControlTYPE, ControlState)
DIM TempText$, ThisItem%, FindLF&, ThisItemTop%
IF This.Value > 0 THEN
IF LEN(Text(This.ID)) THEN
TempText$ = Text(This.ID)
ThisItem% = 0
@ -1260,6 +1261,7 @@ SUB __UI_DrawDropdownList (This AS __UI_ControlTYPE, ControlState)
END IF
LOOP
END IF
END IF
'Draw "dropdown" button
DIM DropdownState AS _BYTE