PureBasic Forums - English

Code: Select all

If OpenWindow(0, 0, 0, 330, 120, "ScintillaGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  
    ScintillaGadget(0, 5, 5, 320, 80, 0)
    *Text = UTF8("This is a simple ScintillaGadget with text..." + #LF$ + "More text" + #LF$ + "Even more text!")
    ScintillaSendMessage(0, #SCI_SETTEXT, 0, *Text)
    FreeMemory(*Text) ; der von UTF8() erstellte Puffer muss freigegeben werden, um ein Speicherleck zu vermeiden
    
    ButtonGadget(1, 10, 90, 200, 20, "Copy line with cursor in it")
    
    Repeat
      Event = WaitWindowEvent()
      Select Event
        Case #PB_Event_Gadget
          If EventGadget() = 1
            *buffer = AllocateMemory(1024)
            If *buffer
              ScintillaSendMessage(0, #SCI_GETCURLINE, MemorySize(*buffer) - 1, *buffer)
              Debug PeekS(*buffer, -1, #PB_UTF8)
              FreeMemory(*buffer)
            EndIf
          EndIf
      EndSelect
      
    Until Event = #PB_Event_CloseWindow

  EndIf

Code: Select all

Procedure.s GetScintillaGadgetText()
    Protected txtLen, *mem, text$
    txtLen = ScintillaSendMessage(#SciGadget, #SCI_GETLENGTH) ; получает длину текста в байтах
    *mem = AllocateMemory(txtLen + 2) ; Выделяем память на длину текста и 1 символ на Null
    If *mem ; Если указатель получен, то
        ScintillaSendMessage(#SciGadget, #SCI_GETTEXT, txtLen + 1, *mem) ; получает текст
        ; Считываем значение из области памяти
        If g_Format = #PB_Ascii
            text$ = PeekS(*mem, -1, #PB_Ascii)
        Else
            text$ = PeekS(*mem, -1, #PB_UTF8)
        EndIf                        
        FreeMemory(*mem)
        ProcedureReturn text$
    EndIf
    ProcedureReturn ""
EndProcedure