From 998e2733250edb9dced0e38784f7530316c6b8ea Mon Sep 17 00:00:00 2001 From: FellippeHeitor Date: Wed, 24 Jan 2018 00:32:40 -0200 Subject: [PATCH] Prevent TrackBar controls from going below .Min and beyond .Max. --- InForm/InForm.ui | 8 ++++++-- 1 file changed, 6 insertions(+), 2 deletions(-) diff --git a/InForm/InForm.ui b/InForm/InForm.ui index db3160d..33f58c5 100644 --- a/InForm/InForm.ui +++ b/InForm/InForm.ui @@ -2973,12 +2973,16 @@ SUB __UI_EventDispatcher SELECT CASE __UI_KeyHit CASE 19200 'Left IF Control(__UI_Focus).Value > Control(__UI_Focus).Min THEN - Control(__UI_Focus).Value = Control(__UI_Focus).Value - 1 + Control(__UI_Focus).Value = Control(__UI_Focus).Value - Control(__UI_Focus).Interval + IF Control(__UI_Focus).Value < Control(__UI_Focus).Min THEN _ + Control(__UI_Focus).Value = Control(__UI_Focus).Min IF Control(__UI_Focus).PreviousValue <> Control(__UI_Focus).Value THEN __UI_ValueChanged __UI_Focus END IF CASE 19712 'Right IF Control(__UI_Focus).Value < Control(__UI_Focus).Max THEN - Control(__UI_Focus).Value = Control(__UI_Focus).Value + 1 + Control(__UI_Focus).Value = Control(__UI_Focus).Value + Control(__UI_Focus).Interval + IF Control(__UI_Focus).Value > Control(__UI_Focus).Max THEN _ + Control(__UI_Focus).Value = Control(__UI_Focus).Max IF Control(__UI_Focus).PreviousValue <> Control(__UI_Focus).Value THEN __UI_ValueChanged __UI_Focus END IF CASE 18176 'Home