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

Tweaks IDE Colors dialog's custom buttons.

Browse source
This commit is contained in:
FellippeHeitor 2021-01-15 04:00:58 -03:00
parent bd82102fcb
commit ceac95a0d1
1 changed files with 4 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
source/ide/ide_methods.bas
View file

@ -11639,7 +11639,7 @@ FUNCTION idechoosecolorsbox
i = i + 1 i = i + 1
o(i).typ = 4 'check box o(i).typ = 4 'check box
o(i).y = 17 o(i).y = 17
o(i).nam = idenewtxt("#Keyword highlight") o(i).nam = idenewtxt("Highlight #keywords and numbers")
IF keywordHighlight THEN o(i).sel = 1 IF keywordHighlight THEN o(i).sel = 1
i = i + 1 i = i + 1
@ -11869,7 +11869,7 @@ FUNCTION idechoosecolorsbox
END IF END IF
'Save and Erase color scheme (Buttons): 'Save and Erase color scheme (Buttons):
IF (SchemeID = 0 OR SchemeID > PresetColorSchemes) AND mB THEN IF (SchemeID = 0 OR SchemeID > PresetColorSchemes) AND mCLICK THEN
IF mY = p.y + 2 AND mX >= p.x + 60 AND mX <= p.x + 65 THEN IF mY = p.y + 2 AND mX >= p.x + 60 AND mX <= p.x + 65 THEN
'Save 'Save
IF SchemeID = 0 THEN IF SchemeID = 0 THEN
@ -11974,7 +11974,7 @@ FUNCTION idechoosecolorsbox
'Scheme selection arrows: 'Scheme selection arrows:
ChangedScheme = 0 ChangedScheme = 0
SchemeArrow = 0 SchemeArrow = 0
IF (mB AND mY = p.y + 2 AND mX >= p.x + 2 AND mX <= p.x + 4) OR _ IF (mCLICK AND mY = p.y + 2 AND mX >= p.x + 2 AND mX <= p.x + 4) OR _
(K$ = CHR$(0) + CHR$(75) AND (focus = 1)) THEN (K$ = CHR$(0) + CHR$(75) AND (focus = 1)) THEN
SchemeArrow = -1 SchemeArrow = -1
IF SchemeID = 0 THEN IF SchemeID = 0 THEN
@ -11983,7 +11983,7 @@ FUNCTION idechoosecolorsbox
ELSE ELSE
IF SchemeID > 1 THEN SchemeID = SchemeID - 1: ChangedScheme = -1 IF SchemeID > 1 THEN SchemeID = SchemeID - 1: ChangedScheme = -1
END IF END IF
ELSEIF (mB AND mY = p.y + 2 AND mX >= p.x + 5 AND mX <= p.x + 7) OR _ ELSEIF (mCLICK AND mY = p.y + 2 AND mX >= p.x + 5 AND mX <= p.x + 7) OR _
(K$ = CHR$(0) + CHR$(77) AND (focus = 1)) THEN (K$ = CHR$(0) + CHR$(77) AND (focus = 1)) THEN
SchemeArrow = 1 SchemeArrow = 1
IF SchemeID = 0 THEN IF SchemeID = 0 THEN
@ -12040,7 +12040,6 @@ FUNCTION idechoosecolorsbox
IDEBackgroundColor2 = _RGB32(VAL(r$), VAL(g$), VAL(b$)) IDEBackgroundColor2 = _RGB32(VAL(r$), VAL(g$), VAL(b$))
r$ = MID$(ColorData$, i, 3): i = i + 3: g$ = MID$(ColorData$, i, 3): i = i + 3: b$ = MID$(ColorData$, i, 3): i = i + 3 r$ = MID$(ColorData$, i, 3): i = i + 3: g$ = MID$(ColorData$, i, 3): i = i + 3: b$ = MID$(ColorData$, i, 3): i = i + 3
IDEBracketHighlightColor = _RGB32(VAL(r$), VAL(g$), VAL(b$)) IDEBracketHighlightColor = _RGB32(VAL(r$), VAL(g$), VAL(b$))
_DELAY .2
GOTO ChangeTextBoxes GOTO ChangeTextBoxes
END IF END IF
@ -12205,7 +12204,6 @@ FUNCTION idechoosecolorsbox
FoundPipe = INSTR(ColorSchemes$(SchemeID), "|") FoundPipe = INSTR(ColorSchemes$(SchemeID), "|")
idetxt(o(9).txt) = LEFT$(ColorSchemes$(SchemeID), FoundPipe - 1) idetxt(o(9).txt) = LEFT$(ColorSchemes$(SchemeID), FoundPipe - 1)
info = 0 info = 0
IF ChangedScheme THEN _DELAY .2
GOTO ApplyScheme GOTO ApplyScheme
END IF END IF