
Code: Select all
Procedure MyLexerInit()
ScintillaSendMessage(0, #SCI_STYLESETFONT, #STYLE_DEFAULT, @"Arial")
ScintillaSendMessage(0, #SCI_STYLESETSIZE, #STYLE_DEFAULT, 20)
ScintillaSendMessage(0, #SCI_STYLECLEARALL)
ScintillaSendMessage(0, #SCI_SETCARETLINEBACK, RGB(250, 0, 0))
ScintillaSendMessage(0, #SCI_SETCARETLINEVISIBLE, #True)
EndProcedure
If OpenWindow(0, 450, 200, 402, 402, "Scintilla Example", #PB_Window_SystemMenu |#PB_Window_ScreenCentered)
ScintillaGadget(0, 2, 2, 398, 398, #Null)
MyLexerInit()
Repeat
Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow
EndIf


