Setting Dark Mode In A Scintilla Control

General
1

I’m trying to get dark mode to work in a MBS Scintilla control. I’m using the following code to do it. Trouble is the text is black on a dark back ground.

//
// Dark Mode
//
If color.IsDarkMode = True then
  Editor.SetFoldMarginColor(True, &c1A1A1A00)
  Editor.SetSelForeColor(True, &cFFFFFF00)          
  Editor.SetSelBackColor(True, &c1A1A1A00)           
  Editor.SetFoldMarginColor(True, &cE0E0E0)
  Editor.SetFoldMarginHighlightColor(True, &cE0E0E0)
  Editor.SetSelForeColor(True, &cFFFFFF00)
  Editor.SetSelBackColor(True, &c1A1A1A00)
  Editor.CaretForeColor = &cFFFFFF00      ' White caret
  Editor.CaretStyle = DesktopScintillaControlMBS.kCaretStyleLine
  Editor.CaretForeColor = &cFFFFFF00
  Editor.CaretLineVisible = True
  Editor.CaretLineBackColor = &c1A1A1A00
  Editor.CaretWidth = 3
  style.ForeColor = &cFFFFFF00
  style.BackColor = &c1A1A1A00
  Editor.Refresh
End If

Any help any one can offer would be greatly appreciated!

2

What is style here?

I would assume you didn’t set colors for all font styles.

e.g.

Dim style As ScintillaStyleMBS = c.Style(ScintillaStyleMBS.kStylesCommonDefault)
style.Font = "Helvetica"
style.Size = 14
style.ForeColor = &cFFFFFF
style.BackColor = &c000000

c.StyleClearAll

So we set black background and then use ClearAll to set all to the default.

3

I execute a line earlier that sets the editor font to the system font, so it should only change the one font.

The problem is the lines I type in are still in black on white, while dark mode should be white on black. How do I set the colors for the lines I enter?