mirror of
https://github.com/QB64-Phoenix-Edition/QB64pe.git
synced 2024-09-07 09:30:15 +00:00
Restore a little too much cut from last update. :P
This commit is contained in:
parent
093396d538
commit
4e08c25057
1 changed files with 14 additions and 0 deletions
|
@ -16946,6 +16946,20 @@ FUNCTION idechoosecolorsbox
|
||||||
WriteConfigSetting colorSettingsSection$, "SchemeID", str2$(SchemeID)
|
WriteConfigSetting colorSettingsSection$, "SchemeID", str2$(SchemeID)
|
||||||
FOR i = 1 TO 10
|
FOR i = 1 TO 10
|
||||||
CurrentColor~& = GetCurrentColor(i)
|
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~&)
|
WriteConfigSetting colorSettingsSection$, colorid$, rgbs$(CurrentColor~&)
|
||||||
NEXT i
|
NEXT i
|
||||||
|
|
||||||
|
|
Loading…
Reference in a new issue