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

Restore a little too much cut from last update. :P

Browse source
This commit is contained in:
SteveMcNeill 2022-11-27 01:13:54 -05:00
parent 093396d538
commit 4e08c25057
1 changed files with 14 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
source/ide/ide_methods.bas
View file

@ -16946,6 +16946,20 @@ FUNCTION idechoosecolorsbox
WriteConfigSetting colorSettingsSection$, "SchemeID", str2$(SchemeID)
FOR i = 1 TO 10
CurrentColor~& = GetCurrentColor(i)
SELECT CASE i
CASE 1: colorid$ = "TextColor"
CASE 2: colorid$ = "KeywordColor"
CASE 3: colorid$ = "NumbersColor"
CASE 4: colorid$ = "QuoteColor"
CASE 5: colorid$ = "MetaCommandColor"
CASE 6: colorid$ = "CommentColor"
CASE 7: colorid$ = "BackgroundColor"
CASE 8: colorid$ = "BackgroundColor2"
CASE 9: colorid$ = "HighlightColor"
CASE 10: colorid$ = "ChromaColor"
END SELECT
WriteConfigSetting colorSettingsSection$, colorid$, rgbs$(CurrentColor~&)
NEXT i