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

Fixes RGB mixer's ability to insert color values into code ($noprefix).

Browse source
This commit is contained in:
FellippeHeitor 2020-03-08 13:47:09 -03:00
parent 7ba34d5bf6
commit 7a1c238ae9
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
source/ide/ide_methods.bas
View file

@ -12653,7 +12653,7 @@ FUNCTION idecolorpicker$ (editing)
'one closer to the cursor.
Found_RGB = 0
DO
Found_RGB = INSTR(Found_RGB + 1, a$, "_RGB")
Found_RGB = INSTR(Found_RGB + 1, a$, "RGB")
IF Found_RGB = 0 THEN EXIT DO
FindBracket1 = INSTR(Found_RGB, a$, "(")
FindBracket2 = INSTR(FindBracket1, a$, ")")
@ -12688,10 +12688,10 @@ FUNCTION idecolorpicker$ (editing)
END IF
'Read RGB values and fill the textboxes
IF LEFT$(a2$, 5) = "_RGB(" OR _
LEFT$(a2$, 7) = "_RGB32(" OR _
LEFT$(a2$, 6) = "_RGBA(" OR _
LEFT$(a2$, 8) = "_RGBA32(" THEN
IF LEFT$(a2$, 4) = "RGB(" OR _
LEFT$(a2$, 6) = "RGB32(" OR _
LEFT$(a2$, 5) = "RGBA(" OR _
LEFT$(a2$, 7) = "RGBA32(" THEN
IF InsertRGBAt = 0 THEN InsertRGBAt = sx1
FindComma1 = INSTR(a2$, ",")
IF FindComma1 > 0 THEN