mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-01 12:40:36 +00:00
Color dialog: allow an empty field while editing RGB values.
This commit is contained in:
parent
fa569c2fc4
commit
fa63f1feef
|
@ -10555,14 +10555,17 @@ DO 'main loop
|
||||||
END IF
|
END IF
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
|
ChangedWithKeys = 0
|
||||||
IF K$ = CHR$(0) + CHR$(72) AND (focus = 2 OR focus = 3 OR focus = 4) THEN 'Up
|
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)
|
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))
|
o(focus).issel = -1: o(focus).sx1 = 0: o(focus).v1 = LEN(idetxt(o(focus).txt))
|
||||||
|
ChangedWithKeys = -1
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
IF K$ = CHR$(0) + CHR$(80) AND (focus = 2 OR focus = 3 OR focus = 4) THEN 'Down
|
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)
|
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))
|
o(focus).issel = -1: o(focus).sx1 = 0: o(focus).v1 = LEN(idetxt(o(focus).txt))
|
||||||
|
ChangedWithKeys = -1
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
IF SelectedITEM <> o(1).sel AND o(1).sel > 0 THEN
|
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 > 255 THEN a$ = "255"
|
||||||
IF a < 0 THEN a$ = "0"
|
IF a < 0 THEN a$ = "0"
|
||||||
ELSE
|
ELSE
|
||||||
a$ = "0"
|
IF ChangedWithKeys = -1 THEN a$ = "0"
|
||||||
END IF
|
END IF
|
||||||
idetxt(o(checkRGB).txt) = a$
|
idetxt(o(checkRGB).txt) = a$
|
||||||
NEXT checkRGB
|
NEXT checkRGB
|
||||||
|
|
Loading…
Reference in a new issue