QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-06-29 09:20:38 +00:00
Code Issues Releases Wiki Activity

Color dialog: allow an empty field while editing RGB values.

Browse source
This commit is contained in:
FellippeHeitor 2016-04-21 18:10:56 -03:00
parent fa569c2fc4
commit fa63f1feef
1 changed files with 4 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
source/ide/ide_methods.bas
View file

@ -10555,14 +10555,17 @@ DO 'main loop
END IF
END IF
ChangedWithKeys = 0
IF K$ = CHR$(0) + CHR$(72) AND (focus = 2 OR focus = 3 OR focus = 4) THEN 'Up
idetxt(o(focus).txt) = str2$(VAL(idetxt(o(focus).txt)) + 1)
o(focus).issel = -1: o(focus).sx1 = 0: o(focus).v1 = LEN(idetxt(o(focus).txt))
ChangedWithKeys = -1
END IF
IF K$ = CHR$(0) + CHR$(80) AND (focus = 2 OR focus = 3 OR focus = 4) THEN 'Down
idetxt(o(focus).txt) = str2$(VAL(idetxt(o(focus).txt)) - 1)
o(focus).issel = -1: o(focus).sx1 = 0: o(focus).v1 = LEN(idetxt(o(focus).txt))
ChangedWithKeys = -1
END IF
IF SelectedITEM <> o(1).sel AND o(1).sel > 0 THEN
@ -10607,7 +10610,7 @@ DO 'main loop
IF a > 255 THEN a$ = "255"
IF a < 0 THEN a$ = "0"
ELSE
a$ = "0"
IF ChangedWithKeys = -1 THEN a$ = "0"
END IF
idetxt(o(checkRGB).txt) = a$
NEXT checkRGB