PureBoard

Code: Alles auswählen

CompilerIf #PB_Compiler_Unicode
    Procedure.i ascString(s.s)
        *p = AllocateMemory(Len(s)+1)
        PokeS(*p,s,Len(s),#PB_Ascii)
        ProcedureReturn *p
    EndProcedure
    Macro pText(_string_)
        ascString(_string_)
    EndMacro
CompilerElse
    Macro pText(_string_)
        (@_string_)
    EndMacro
CompilerEndIf

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

    If InitScintilla()
        ScintillaGadget(0, 10, 10, 300, 70, #Null)

        ; Set the initial text to the ScintillaGadget
        txt.s = "    This is a simple ScintillaGadget with text..."
        For i = 0 To 50 : txt + "text..." : Next
        ScintillaSendMessage(0, #SCI_SETTEXT, 0, pTEXT(txt))

        ; Adding a second line of text with linebreak before
        txt = Chr(10) + "    Second Line: "+txt
        ScintillaSendMessage(0, #SCI_APPENDTEXT, Len(txt), pText(txt))
        
        ; Set cursor to end of line 0
        eol = ScintillaSendMessage(0,#SCI_GETLINEENDPOSITION,0)
        ScintillaSendMessage(0,#SCI_GOTOPOS,eol,0)


        ;
        ; set Cursor at position 4 in line 2
        ;
        ;ScintillaSendMessage(0,#SCI_GOTOPOS,eol+1) ; FIX
        ;ScintillaSendMessage(0,#SCI_GOTOPOS,  0)   ; alternate FIX
        ScintillaSendMessage(0,#SCI_GOTOPOS,eol+5)
        
        
        
        
        SetActiveGadget(0)
    EndIf
 
    Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
EndIf