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

Prevents sending property if controls aren't focused (UiEditor).

Browse source
This commit is contained in:
FellippeHeitor 2018-05-25 01:08:39 -03:00
parent b275c501bc
commit ad5f7e4654
1 changed files with 3 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

3
InForm/UiEditor.bas
View file

@ -2246,12 +2246,15 @@ SUB __UI_ValueChanged (id AS LONG)
DIM b$ DIM b$
SELECT EVERYCASE id SELECT EVERYCASE id
CASE AlignOptions CASE AlignOptions
IF __UI_Focus <> id THEN EXIT SUB
b$ = MKI$(Control(AlignOptions).Value - 1) b$ = MKI$(Control(AlignOptions).Value - 1)
SendData b$, 22 SendData b$, 22
CASE VAlignOptions CASE VAlignOptions
IF __UI_Focus <> id THEN EXIT SUB
b$ = MKI$(Control(VAlignOptions).Value - 1) b$ = MKI$(Control(VAlignOptions).Value - 1)
SendData b$, 32 SendData b$, 32
CASE BulletOptions CASE BulletOptions
IF __UI_Focus <> id THEN EXIT SUB
b$ = MKI$(Control(BulletOptions).Value - 1) b$ = MKI$(Control(BulletOptions).Value - 1)
SendData b$, 37 SendData b$, 37
CASE Red CASE Red