QB64/QB64-PE
QB64/QB64-PE
1
1
Fork 0
mirror of https://github.com/QB64-Phoenix-Edition/QB64pe.git synced 2024-09-20 09:04:43 +00:00
Code Issues Releases Wiki Activity

Fixes "Restore defaults" in IDE Colors dialog.

Browse source
This commit is contained in:
FellippeHeitor 2021-01-06 12:07:17 -03:00
parent e969a7c529
commit f22b24c363
1 changed files with 2 additions and 11 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
source/ide/ide_methods.bas
View file

@ -12805,21 +12805,12 @@ FUNCTION idechoosecolorsbox
IF (focus = 9 AND info <> 0) THEN
LoadDefaultScheme:
GOSUB enableHighlighter
IDECommentColor = _RGB32(85, 255, 255)
IDEMetaCommandColor = _RGB32(85, 255, 85)
IDEQuoteColor = _RGB32(255, 255, 85)
IDETextColor = _RGB32(226, 226, 226)
IDEKeywordColor = _RGB32(147, 196, 235)
IDENumbersColor = _RGB32(245, 128, 177)
IDEBackgroundColor = _RGB32(0, 0, 170)
IDEBackgroundColor2 = _RGB32(0, 108, 177)
IDEBracketHighlightColor = _RGB32(0, 147, 177)
SchemeID = 1
FoundPipe = INSTR(ColorSchemes$(SchemeID), "|")
idetxt(o(9).txt) = LEFT$(ColorSchemes$(SchemeID), FoundPipe - 1)
IF ChangedScheme THEN _DELAY .2
info = 0
GOTO ChangeTextBoxes
IF ChangedScheme THEN _DELAY .2
GOTO ApplyScheme
END IF
IF (focus = 8 AND info <> 0) OR _