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 not inserting the result properly.

Browse source
This commit is contained in:
Fellippe Heitor 2021-01-27 23:46:57 -03:00
parent f7cd2b2ede
commit 65beb28033
1 changed files with 13 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
source/ide/ide_methods.bas
View file

@ -3565,7 +3565,14 @@ FUNCTION ide2 (ignore)
retval$ = idergbmixer$(-1)
END IF
END IF
IF LEN(retval$) THEN insertAtCursor retval$
IF LEN(retval$) THEN
'the mixer dialog could not insert the value, so let's do it here
IF EnteringRGB THEN
insertAtCursor MID$(retval$, INSTR(retval$, "(") + 1)
ELSE
insertAtCursor retval$
END IF
END IF
GOTO specialchar
ELSE
ideselect = 0
@ -11919,11 +11926,6 @@ FUNCTION idergbmixer$ (editing)
FindBracket1 = INSTR(Found_RGB, a$, "(")
FindBracket2 = INSTR(FindBracket1, a$, ")")
IF FindBracket1 > 0 AND FindBracket2 > 0 THEN
''Check the number of commas in the brackets.
''2 or 3 are accepted.
'RGBArgs$ = MID$(a$, FindBracket1 + 1, FindBracket2 - FindBracket1 - 1)
'TotalCommas = CountItems(RGBArgs$, ",")
'IF TotalCommas = 2 OR TotalCommas = 3 THEN All_RGB$ = All_RGB$ + MKI$(Found_RGB)
All_RGB$ = All_RGB$ + MKI$(Found_RGB)
END IF
LOOP
@ -12280,11 +12282,11 @@ FUNCTION idergbmixer$ (editing)
EXIT FUNCTION
END IF
IF (focus = 4 AND info <> 0) OR _
(focus = 1 AND K$ = CHR$(13)) OR _
(focus = 2 AND K$ = CHR$(13)) OR _
(focus = 3 AND K$ = CHR$(13)) OR _
(focus = 4 AND K$ = CHR$(13)) THEN
IF (focus = 4 AND info <> 0) OR _
(focus = 1 AND K$ = CHR$(13)) OR _
(focus = 2 AND K$ = CHR$(13)) OR _
(focus = 3 AND K$ = CHR$(13)) OR _
(focus = 4 AND K$ = CHR$(13)) THEN
IF CurrentLine$ = "" THEN CurrentLine$ = idegetline(idecy)
IF editing THEN
'If we're changing an existing statement, let's insert the values