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 UiEditor handling of List/DropdownList controls.

Browse source
This commit is contained in:
FellippeHeitor 2018-05-14 00:23:36 -03:00
parent 68a3014268
commit 8bc607af44
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
InForm/UiEditor.bas
View file

@ -1163,7 +1163,7 @@ SUB __UI_BeforeUpdateDisplay
ELSEIF __UI_Focus = TextTB THEN
Control(TextTB).NumericOnly = PreviewControls(FirstSelected).NumericOnly
IF PropertyFullySelected(TextTB) THEN
IF ((PreviewControls(FirstSelected).Type = __UI_Type_ListBox OR PreviewControls(FirstSelected).Type = __UI_Type_DropdownList) AND Text(TextTB) = Replace(PreviewCaptions(FirstSelected), CHR$(10), "\n", False, 0)) OR _
IF ((PreviewControls(FirstSelected).Type = __UI_Type_ListBox OR PreviewControls(FirstSelected).Type = __UI_Type_DropdownList) AND Text(TextTB) = Replace(PreviewTexts(FirstSelected), CHR$(13), "\n", False, 0)) OR _
((PreviewControls(FirstSelected).Type <> __UI_Type_ListBox AND PreviewControls(FirstSelected).Type <> __UI_Type_DropdownList) AND Text(TextTB) = PreviewTexts(FirstSelected)) THEN
Control(__UI_Focus).BorderColor = ShadeOfGreen
ELSE
@ -1586,7 +1586,7 @@ SUB __UI_BeforeUpdateDisplay
Control(Transparent).Disabled = False
FOR i = 1 TO UBOUND(InputBox)
SELECT CASE InputBox(i).ID
CASE CaptionTB, MinTB, IntervalTB, PaddingTB, MaskTB, AlignOptions, VAlignOptions, MinIntervalTB
CASE CaptionTB, MinTB, MaxTB, IntervalTB, PaddingTB, MaskTB, AlignOptions, VAlignOptions, MinIntervalTB
Control(InputBox(i).ID).Disabled = True
CASE ELSE
Control(InputBox(i).ID).Disabled = False