mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-06-29 10:30:36 +00:00
Fixes RGB mixer's ability to insert color values into code ($noprefix).
This commit is contained in:
parent
7ba34d5bf6
commit
7a1c238ae9
|
@ -12653,7 +12653,7 @@ FUNCTION idecolorpicker$ (editing)
|
||||||
'one closer to the cursor.
|
'one closer to the cursor.
|
||||||
Found_RGB = 0
|
Found_RGB = 0
|
||||||
DO
|
DO
|
||||||
Found_RGB = INSTR(Found_RGB + 1, a$, "_RGB")
|
Found_RGB = INSTR(Found_RGB + 1, a$, "RGB")
|
||||||
IF Found_RGB = 0 THEN EXIT DO
|
IF Found_RGB = 0 THEN EXIT DO
|
||||||
FindBracket1 = INSTR(Found_RGB, a$, "(")
|
FindBracket1 = INSTR(Found_RGB, a$, "(")
|
||||||
FindBracket2 = INSTR(FindBracket1, a$, ")")
|
FindBracket2 = INSTR(FindBracket1, a$, ")")
|
||||||
|
@ -12688,10 +12688,10 @@ FUNCTION idecolorpicker$ (editing)
|
||||||
END IF
|
END IF
|
||||||
|
|
||||||
'Read RGB values and fill the textboxes
|
'Read RGB values and fill the textboxes
|
||||||
IF LEFT$(a2$, 5) = "_RGB(" OR _
|
IF LEFT$(a2$, 4) = "RGB(" OR _
|
||||||
LEFT$(a2$, 7) = "_RGB32(" OR _
|
LEFT$(a2$, 6) = "RGB32(" OR _
|
||||||
LEFT$(a2$, 6) = "_RGBA(" OR _
|
LEFT$(a2$, 5) = "RGBA(" OR _
|
||||||
LEFT$(a2$, 8) = "_RGBA32(" THEN
|
LEFT$(a2$, 7) = "RGBA32(" THEN
|
||||||
IF InsertRGBAt = 0 THEN InsertRGBAt = sx1
|
IF InsertRGBAt = 0 THEN InsertRGBAt = sx1
|
||||||
FindComma1 = INSTR(a2$, ",")
|
FindComma1 = INSTR(a2$, ",")
|
||||||
IF FindComma1 > 0 THEN
|
IF FindComma1 > 0 THEN
|
||||||
|
|
Loading…
Reference in a new issue