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

Shows message when an invalid value is returned.

Browse source
This commit is contained in:
FellippeHeitor 2018-09-05 23:14:07 -03:00
parent c4f91eaab5
commit 9671aec7fe
1 changed files with 11 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

11
InForm/UiEditor.bas
View file

@ -1782,6 +1782,17 @@ SUB __UI_BeforeUpdateDisplay
Control(ContextMenuControlsList).Value = 1 Control(ContextMenuControlsList).Value = 1
END IF END IF
STATIC ShowInvalidValueWarning AS _BYTE
IF Control(__UI_Focus).BorderColor = ShadeOfRed THEN
IF ShowInvalidValueWarning = False THEN
ShowInvalidValueWarning = True
Caption(StatusBar) = "Invalid value; ESC for previous or adjusted value"
BlinkStatusBar = TIMER
END IF
ELSE
ShowInvalidValueWarning = False
END IF
'Disable properties that don't apply 'Disable properties that don't apply
Control(AlignOptions).Disabled = True Control(AlignOptions).Disabled = True
Control(BooleanOptions).Disabled = True Control(BooleanOptions).Disabled = True