Работа с текстовым редактором Scintilla

InitScintilla("Scintilla.dll")
 
; Константы для подсветки синтаксиса
Enumeration 0
  #LexerState_Space
  #LexerState_Keyword
  #LexerState_FoldKeyword
EndEnumeration
 
Global ChangeWord$ = "For" ; слово для замены
 
Procedure MyLexerInit()
  ; Шрифт
  ScintillaSendMessage(0, #SCI_STYLESETFONT, #STYLE_DEFAULT, @"Lucida Console")
  ; Размер шрифта
  ScintillaSendMessage(0, #SCI_STYLESETSIZE, #STYLE_DEFAULT, 10)
  ScintillaSendMessage(0, #SCI_STYLECLEARALL)
  
  ; Цвет активной строки
  ScintillaSendMessage(0, #SCI_SETCARETLINEBACK, RGB(254, 252, 202))
  ; Разрешаем отмачать активную строку
  ScintillaSendMessage(0, #SCI_SETCARETLINEVISIBLE, #True)
  
  ; Цвета подсветки синтаксиса
  ScintillaSendMessage(0, #SCI_STYLESETFORE, #LexerState_Keyword, 0)  ; Обычный текст
  ScintillaSendMessage(0, #SCI_STYLESETFORE, #LexerState_FoldKeyword, $FF) ; Ключевые слова
  
  ; Поля 
  ScintillaSendMessage(0, #SCI_SETMARGINTYPEN, 0, #SC_MARGIN_NUMBER) ; Поле автонумирации
  ScintillaSendMessage(0, #SCI_SETMARGINMASKN, 2, #SC_MASK_FOLDERS)  ; Поле свертки и маркеров
  ScintillaSendMessage(0, #SCI_SETMARGINWIDTHN, 0, 20)               ; Ширина поля автонумирации
  ScintillaSendMessage(0, #SCI_SETMARGINWIDTHN, 2, 20)               ; Ширина поля свертки и маркеров
  ScintillaSendMessage(0, #SCI_SETMARGINSENSITIVEN, 2, #True)
EndProcedure
 
Procedure SCI_EVENT(Gadget, *scinotify.SCNotification) ; Обработка событий от редактора
  code=             *scinotify.SCNotification\nmhdr\code
  pos=              *scinotify.SCNotification\Position
  ch=               *scinotify.SCNotification\ch
  modificationType= *scinotify.SCNotification\modifiers
  text=             *scinotify.SCNotification\text
  Length=           *scinotify.SCNotification\length
  linesAdded=       *scinotify.SCNotification\linesAdded
  message=          *scinotify.SCNotification\message
  wParam=           *scinotify.SCNotification\wParam
  lParam=           *scinotify.SCNotification\lParam
  line=             *scinotify.SCNotification\line
  foldLevelNow=     *scinotify.SCNotification\foldLevelNow
  foldLevelPrev=    *scinotify.SCNotification\foldLevelPrev
  margin=           *scinotify.SCNotification\margin
  listType=         *scinotify.SCNotification\listType
  x=                *scinotify.SCNotification\x
  y=                *scinotify.SCNotification\y
  
  
  Select code
    Case #SCN_STYLENEEDED
      EndPos = pos
      EndStyledPos = ScintillaSendMessage(0, #SCI_GETENDSTYLED)
      linenumber = ScintillaSendMessage(0, #SCI_LINEFROMPOSITION, EndStyledPos)
      
      ; Текуцая позиция курсора
      CurrentPos.l = ScintillaSendMessage(0, #SCI_POSITIONFROMLINE, linenumber)
      ; Подготовка к стилистической правке
      ScintillaSendMessage(0, #SCI_STARTSTYLING, CurrentPos)
      State = #LexerState_Space
      KeywordStartPos = CurrentPos
      keyword.s = ""
      
      While CurrentPos <= EndPos
        OldState = State
        
        Char.l = ScintillaSendMessage(0, #SCI_GETCHARAT, CurrentPos) ; Получаем символ из текущей позиции 
        If Char = 10 Or Char = 13 Or Char = 9 Or Char = ' '
          State = #LexerState_Space
        Else
          State = #LexerState_Keyword
          keyword + Chr(Char)
        EndIf
        
        If OldState <> State Or CurrentPos = EndPos
          If OldState = #LexerState_Keyword
            lkeyword.s = LCase(keyword)
            If lkeyword = "for"
              LenKeyword = Len(lkeyword)
              *Kwd = AllocateMemory(LenKeyword)
              PokeS(*Kwd, ChangeWord$, LenKeyword, #PB_UTF8)
              
              ScintillaSendMessage(0, #SCI_DELETERANGE, pos - LenKeyword, LenKeyword)
              ScintillaSendMessage(0, #SCI_INSERTTEXT, -1, *Kwd)
              ScintillaSendMessage(0, #SCI_GOTOPOS, pos)
              FreeMemory(*Kwd)
              
              OldState = #LexerState_FoldKeyword
            EndIf
            keyword = ""
          EndIf
          ScintillaSendMessage(0, #SCI_SETSTYLING, CurrentPos - KeywordStartPos, OldState) ; Подсветка синтаксиса
          KeywordStartPos = CurrentPos
        EndIf
        CurrentPos + 1
      Wend
      
  EndSelect
EndProcedure
 
If OpenWindow(0, 450, 200, 402, 402, "Scintilla Example", #PB_Window_SystemMenu |#PB_Window_ScreenCentered)
  ScintillaGadget(0, 2, 2, 398, 398, @SCI_EVENT())
  MyLexerInit()
  
  Repeat
    Event = WaitWindowEvent()
    
  Until Event = #PB_Event_CloseWindow
EndIf

ScintillaSendMessage(#SciGadget, #SCI_STARTSTYLING, 999999, 0)
ScintillaSendMessage(#SciGadget, #SCI_SETSTYLING, 0, 0)

Procedure SciNotification(Gadget, *scinotify.SCNotification)
    Protected regex$, *mem, posEnd, posStart, pos, line, pos2
    With *scinotify
        Select \nmhdr\code
            Case #SCN_STYLENEEDED
;               начало и конец поменяны местами
                posStart = ScintillaSendMessage(#SciGadget, #SCI_GETENDSTYLED)
                posEnd = *scinotify.SCNotification\Position
;               чтобы взять от начала строки
                line = ScintillaSendMessage(#SciGadget, #SCI_LINEFROMPOSITION, posStart) 
                posStart = ScintillaSendMessage(#SciGadget, #SCI_POSITIONFROMLINE, line)
;               вывод начала и конца чтобы контролировать позиции
                Debug Str(posStart) + "  -  " + Str(posEnd)
                
;               меняем флаг, так как он мог быть изменён флагами поиска в редакторе
                ScintillaSendMessage(#SciGadget, #SCI_SETSEARCHFLAGS, #SCFIND_REGEXP | #SCFIND_POSIX)
                
                ForEach regex()
;                   цикл списка регекспов для подсветки
                    Color(regex()\mem, regex()\len, regex()\id, posStart, posEnd)
                Next
                
;               выполняем SCI_SETSTYLING, чтобы закрыть работу уведомлений
                ScintillaSendMessage(#SciGadget, #SCI_STARTSTYLING, 99999999, 0)        
                ScintillaSendMessage(#SciGadget, #SCI_SETSTYLING, 0, 0)     
        EndSelect
    EndWith
EndProcedure

ScintillaSendMessage(#Scintilla_Gadget, #SCI_GETFIRSTVISIBLELINE) ; номер первой строки видимой области
ScintillaSendMessage(#Scintilla_Gadget, #SCI_LINESONSCREEN) ; количество строк видимой области

If IsOpenFile ; флаг =1 при открытии документа
;   тут заранее запрос диапазонов до и после видимого
    Protected before1, before2, After1, After2
    before1 = 0
    before2 = posStart
    After1 = posEnd
    After2 = ScintillaSendMessage(#SciGadget, #SCI_GETTEXTLENGTH) 
EndIf
 
; тут подсвечивается только видимый фрагмент кода или две строки где происходит правка
ForEach regex()
    Color(regex()\mem, regex()\len, regex()\id, posStart, posEnd)
Next
 
If IsOpenFile
;   тут если документ короткий умещается в видимом, то ничего не делаем,
;   а если есть невидимые участки, то обрабатываем их
    If before1 <> before2
        ForEach regex()
            Color(regex()\mem, regex()\len, regex()\id, before1, before2)
        Next
    EndIf
    If After1 <> After2
        ForEach regex()
            Color(regex()\mem, regex()\len, regex()\id, After1, After2)
        Next
    EndIf
    IsOpenFile = 0 ; сбрасываем флаг в 0, так как подсветили
EndIf

#SCI_SETIDLESTYLING = 2692

ScintillaSendMessage(#Scintilla_Gadget, #SCI_ASSIGNCMDKEY, #SCK_TAB, #SCI_AUTOCCOMPLETE)