PureBoard

Code: Alles auswählen

 If OpenWindow(0, 0, 0, 320, 200, "ScintillaGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)

  If InitScintilla()
        ScintillaGadget(0, 10, 10, 300, 280, #Null)
        
        font$ = "Tahomina"
        ;Stil 0
        ScintillaSendMessage(0,#SCI_STYLESETFONT, 0, @font$)
        ScintillaSendMessage(0,#SCI_STYLESETSIZE,0, 12)
        ScintillaSendMessage(0, #SCI_STYLESETFORE,0, RGB(0,0,255))
        
        ;Stil 2
        ScintillaSendMessage(0,#SCI_STYLESETFONT,2,@font$)
        ScintillaSendMessage(0,#SCI_STYLESETSIZE,2,12)
        ScintillaSendMessage(0, #SCI_STYLESETFORE,2, RGB(255,0,0))
              
        text$ = "This is a simple ScintillaGadget with text..." + Chr(10)
        len = Len(text$)
        ScintillaSendMessage(0,#SCI_SETTEXT,0,@text$)
        ScintillaSendMessage(0,#SCI_STARTSTYLING,Len("This is") + 1,255)
        ScintillaSendMessage(0,#SCI_SETSTYLING,Len("a simple")+1,2)
        
        
        Text$ = Chr(10) + "Second line"
        len1 = Len(text$)
        ScintillaSendMessage(0, #SCI_APPENDTEXT, Len1, @Text$)
        ScintillaSendMessage(0,#SCI_STARTSTYLING,len,255)
        ScintillaSendMessage(0,#SCI_SETSTYLING,Len("Second")+1,2)
       EndIf
      Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
  EndIf