PureBasic Forums - English

Code: Select all

   ;Additional lexer options for pointer.
   ;=====================================
   Enumeration #PB_Compiler_EnumerationValue
      #STYLES_POINTER
   EndEnumeration
   ;Set individual styles for pointers.
   GOSCI_SetStyleColors(1, #STYLES_POINTER, #Cyan)  ;We have omitted the optional back color.   
   ;Now set up a * symbol to denote a pointer. Note the use of #GOSCI_LEFTDELIMITWITHOUTWHITESPACE.
   GOSCI_AddKeywords(1, "*", #STYLES_POINTER, #GOSCI_LEFTDELIMITWITHOUTWHITESPACE)
   ;The lexer needs to know what separator characters we are using.
   GOSCI_SetLexerOption(1, #GOSCI_LEXEROPTION_SEPARATORSYMBOLS, @"=+-*/%|&@()[],.") ;You would use GOSCI_AddKeywords() to set a style for some of these if required.

Code: Select all

   ;General function options.
   ;Use with GOSCI_SetText()
   Enumeration 0
      #GOSCI_TEXT_RELOAD ; Replace the current text
      #GOSCI_TEXT_RELOAD_CLEARUNDOSTACK ; Replace the current text and clear undo stack
      #GOSCI_TEXT_APPEND ; Add text at the end of current text
      #GOSCI_TEXT_PREPEND ; Insert text before the beginning of current text
   EndEnumeration
   
   ;/////////////////////////////////////////////////////////////////////////////////
   ;The following function sets the text for the entire control.
   ;No return value.
   Procedure GOSCI_SetText(id, text$, mode=#GOSCI_TEXT_RELOAD)
      Protected utf8Buffer
      If IsGadget(id) And GadgetType(id)=#PB_GadgetType_Scintilla
         ;Need to convert to utf-8 first.
         utf8Buffer=AllocateMemory(StringByteLength(text$, #PB_UTF8)+1)
         If utf8Buffer
            PokeS(utf8Buffer, text$, -1, #PB_UTF8)
            Select mode
               Case #GOSCI_TEXT_APPEND
                  ScintillaSendMessage(id, #SCI_APPENDTEXT, MemorySize(utf8Buffer)-1, utf8Buffer)
               Case #GOSCI_TEXT_PREPEND
                  ScintillaSendMessage(id, #SCI_INSERTTEXT, 0, utf8Buffer)
               Case #GOSCI_TEXT_RELOAD, #GOSCI_TEXT_RELOAD_CLEARUNDOSTACK
                  ScintillaSendMessage(id, #SCI_SETTEXT, 0, utf8Buffer)
                  If #GOSCI_TEXT_RELOAD_CLEARUNDOSTACK
                     ScintillaSendMessage(id, #SCI_EMPTYUNDOBUFFER)
                  EndIf
            EndSelect
            FreeMemory(utf8Buffer)
         EndIf
      EndIf
   EndProcedure
   ;/////////////////////////////////////////////////////////////////////////////////

Code: Select all

   ;you have to active 'CREATE UNICODE EXECUTABLE' options
   CompilerIf #PB_Compiler_Unicode 
      GOSCI_SetText(1, "ă prepended text", #GOSCI_TEXT_PREPEND)
      GOSCI_SetText(1, "ă appended text", #GOSCI_TEXT_APPEND)
   CompilerEndIf

Code: Select all

Function
...
End Function