UserScript - Pure Basic Syntax Highlighting - Version 1.5
(erfolgreich getestet in IE, FF und Opera)
und hier noch mal der Code zum auslesen der PureBasic Preference (jetzt mit Fettenkeywords ja/nein^^)
Code: Alles auswählen
Procedure.s HTMLColor(Color)
ProcedureReturn "#"+RSet(Hex(Red(Color)),2,"0")+RSet(Hex(Green(Color)),2,"0")+RSet(Hex(Blue(Color)),2,"0")
EndProcedure
Procedure Export(PreferencesFileName$)
If OpenPreferences(PreferencesFileName$)
PreferenceGroup("Global")
Debug " PBSH_Highlight['EnableKeywordBolding'] = "+ReadPreferenceString("EnableKeywordBolding", "1")+";"
PreferenceGroup("Editor")
Restore PreferenceKeys
Repeat
Read.s Keyword$
If Keyword$
String$ = ReplaceString(ReadPreferenceString(Keyword$, ""), ",", " ")
If Right(Keyword$, 5) = "Color" : String$ = HTMLColor(Val(String$)) : EndIf
If ReadPreferenceInteger(Keyword$+"_Disabled", 0)
Debug " //PBSH_Highlight['"+Keyword$+"'] = '"+String$+"';"
Else
Debug " PBSH_Highlight['"+Keyword$+"'] = '"+String$+"';"
EndIf
EndIf
Until Not Keyword$
ProcedureReturn #True
EndIf
EndProcedure
If Not Export(GetHomeDirectory()+"Anwendungsdaten\PureBasic\PureBasic.prefs")
PreferencesFileName$ = OpenFileRequester("Preference File", GetHomeDirectory(), "PureBasic.prefs", 0)
Export(PreferencesFileName$)
EndIf
DataSection
PreferenceKeys:
Data.s "EditorFontName", "EditorFontSize", "EditorFontStyle", "BackgroundColor", "NormalTextColor"
Data.s "BasicKeywordColor", "CommentColor", "ConstantColor", "StringColor", "PureKeywordColor"
Data.s "ASMKeywordColor", "PointerColor", "NumberColor", "StructureColor", "LabelColor"
Data.s "OperatorColor", "SeparatorColor", ""
EndDataSection