Update Ring Notepad - Add Styles Black/White
@@ -1479,6 +1479,10 @@ func pFormDesigner
func pCheckCustomColors
if False # Switch to Use the Style or Not
+ pStyleBlue()
+ ok
+
+func pStyleBlue()
aCustomStyleColors = [
:LineNumbersAreaColor = colorWhite ,
:LineNumbersAreaBackColor = colordarkBlue,
@@ -1506,4 +1510,35 @@ func pCheckCustomColors
new qColor() { setrgb(142,45,197,255) },
new qColor() { setrgb(0,0,128,255)}
)
- ok
+
+func pStyleBlack()
+ MyApp.StyleFusionBlack()
+ aCustomStyleColors = [
+ :LineNumbersAreaColor = colorWhite ,
+ :LineNumbersAreaBackColor = colorBlack,
+ :ActiveLineBackColor = colorBlack,
+ :SyntaxKeywordsColor = colorWhite,
+ :SyntaxClassNamesColor = ColorWhite,
+ :SyntaxCommentsColor = ColorSilver,
+ :SyntaxLiteralsColor = ColorCyan,
+ :SyntaxFunctionCallsColor = ColorGreen
+ ]
+ aStyleColors = aCustomStyleColors
+ aTextColor = [255,255,255]
+ aBackColor = [0,0,0]
+
+func pStyleWhite()
+ MyApp.StyleFusion()
+ aCustomStyleColors = [
+ :LineNumbersAreaColor = colorBlack ,
+ :LineNumbersAreaBackColor = colorCyan,
+ :ActiveLineBackColor = colorCyan,
+ :SyntaxKeywordsColor = colordarkBlue,
+ :SyntaxClassNamesColor = ColordarkMagenta,
+ :SyntaxCommentsColor = ColorRed,
+ :SyntaxLiteralsColor = ColorDarkGreen,
+ :SyntaxFunctionCallsColor = ColorBlue
+ ]
+ aStyleColors = aCustomStyleColors
+ aTextColor = [0,0,0]
+ aBackColor = [255,255,255]
