mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-07-01 13:50:36 +00:00
Tweaks IDE Colors dialog's custom buttons.
This commit is contained in:
parent
bd82102fcb
commit
ceac95a0d1
|
@ -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
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue