PureBoard

Verfasst: **08.06.2014 21:08**

Hallo zusammen,

ich teste gerade etwas mit dem Scintilla Gadget unter Linux (Xubuntu 14.04LTS 64bit):

If OpenWindow(0, 0, 0, 800, 600, "Scintilla Test", #PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  If InitScintilla()
    If ScintillaGadget(0, 0, 0, WindowWidth(0), WindowHeight(0), #Null)
      
      ScintillaSendMessage(0, #SCI_STYLESETFONT, #STYLE_DEFAULT, @"FreeMono")
      ScintillaSendMessage(0, #SCI_STYLESETSIZE, #STYLE_DEFAULT, 12)
      ScintillaSendMessage(0, #SCI_STYLESETFORE, #STYLE_DEFAULT, RGB(  0, 102, 102))
      ScintillaSendMessage(0, #SCI_STYLESETBACK, #STYLE_DEFAULT, RGB(254, 254, 222))
      
      ScintillaSendMessage(0, #SCI_STARTSTYLING, 0, 255)
      
      ScintillaSendMessage(0, #SCI_SETTEXT, Len("Test text ..."), @"Test text ...")
      
    EndIf
  EndIf
EndIf

Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow

End

Wichtig, das Programm nicht im Unicode Modus compilieren.

Der hinzugefügte Text hat aber nicht die eingestellten Farben, als Font wird der eingestellte Font genommen, die Farben bleiben aber bei schwarz auf weiß. Hat jemand eine Idee woran das liegen kann ?

Verfasst: **04.01.2015 00:19**

Hi Makke,
weiß ja nicht, ob es Dir noch hilft, aber eine Antwort auf eine offene Frage ist immer nett für den der sucht

Code: Alles auswählen

If OpenWindow(0, 0, 0, 400, 200, "Scintilla Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  If InitScintilla()
    If ScintillaGadget(0, 0, 0, WindowWidth(0), WindowHeight(0), #Null)

      ScintillaSendMessage(0, #SCI_STYLESETFONT, #STYLE_DEFAULT, @"Courier New") ; FreeMono
      ScintillaSendMessage(0, #SCI_STYLESETSIZE, #STYLE_DEFAULT, 12)
      ScintillaSendMessage(0, #SCI_STYLESETBACK, #STYLE_DEFAULT, RGB(231, 195, 37))
      ScintillaSendMessage(0, #SCI_STYLESETFORE, #STYLE_DEFAULT, RGB(0, 102, 102))

      ScintillaSendMessage(0, #SCI_STYLECLEARALL)

      ; ScintillaSendMessage(0, #SCI_STARTSTYLING, 0, 255)

      ScintillaSendMessage(0, #SCI_SETTEXT, Len("Test text ..."), @"Test text ...")

    EndIf
  EndIf
EndIf

Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
End

kleiner Hint zu einem prima Scintilla Beispiel

PureBoard

Scintilla Gadget Style Probleme

Scintilla Gadget Style Probleme

Re: Scintilla Gadget Style Probleme