PureBasic Linux Scintilla Notepad

EnableExplicit
InitScintilla()

; #MENU_EXTEND_SELECTION=10
Define txt$, txtLen, marginWidth, Gadget
Declare Color(*regex, regexLength, n)
Declare Color2(*regex, regexLength, n)
Declare MakeUTF8Text(text.s)
Declare MakeScintillaText(text.s, *sciLength.Integer=0)
Declare OpenFileR(*sciLength.Integer=0)
Declare SciNotification(Gadget, *scinotify.SCNotification)
Declare ReadFileR(Path$)

; Procedure ExtendScintillaSelection()
;    Protected mainSel, selStart, selEnd
;    mainSel=ScintillaSendMessage(0, #SCI_GETMAINSELECTION)
;    selStart=ScintillaSendMessage(0, #SCI_GETSELECTIONNSTART, mainSel)
;    selEnd=ScintillaSendMessage(0, #SCI_GETSELECTIONNEND, mainSel)
;
; EndProcedure

txt$="Вставка теста "+#CR$+
"вы можете  использовать это код как пример работы со Scintilla"+#CR$+
"ссылка http://purebasic.info/phpBB3ex/index.php"+#CR$+
"Это поиск, маркеры, стилизация, и т.д. 2222 "+#CR$
txtLen=StringByteLength(txt$, #PB_UTF8)

OpenWindow(100, 0, 0, 900, 600, "Редактор Scintilla", #PB_Window_SystemMenu | #PB_Window_ScreenCentered | #PB_Window_SizeGadget | #PB_Window_MaximizeGadget | #PB_Window_MinimizeGadget)

; Создание гаджета размером на всё окно
ScintillaGadget(0, 0, 0, WindowWidth(100), WindowHeight(100), @SciNotification())
; Устанавливает режим текста
ScintillaSendMessage(0, #SCI_SETWRAPMODE, #SC_WRAP_NONE) ; без переносов строк
ScintillaSendMessage(0, #SCI_SETCODEPAGE, #SC_CP_UTF8)   ; в кодировке UTF-8
                                                         ; ScintillaSendMessage(0, #SCI_SETVIRTUALSPACEOPTIONS, #SCVS_RECTANGULARSELECTION | #SCVS_USERACCESSIBLE) ; позволить установить курсор и выделение за пределами конца строки
                                                         ; Устанавливает текущую подсветку строки
ScintillaSendMessage(0, #SCI_SETCARETLINEVISIBLE, 1)     ; подсвечивает текущую строку
ScintillaSendMessage(0, #SCI_SETCARETLINEVISIBLEALWAYS, 1) ; подсвечивает всегда, даже при потере фокуса
                                                           ; ScintillaSendMessage(0, #SCI_SETCARETLINEBACKALPHA, 255) ; прозрачность подсветки текущей строки (0-255), 255 прозрачна на 100%
ScintillaSendMessage(0, #SCI_SETCARETLINEBACK, RGB(0, 0, 0)) ; цвет подсвеченной строки
                                                             ; Устанавливает стиль текста
ScintillaSendMessage(0, #SCI_STYLESETFONT, #STYLE_DEFAULT, MakeUTF8Text("Arial")) ; выделение прямоугольником лучше работает с моноширинным шрифтом Courier New
ScintillaSendMessage(0, #SCI_STYLESETBACK, #STYLE_DEFAULT, RGB(63, 63, 63))       ; цвет фона
ScintillaSendMessage(0, #SCI_STYLESETFORE, #STYLE_DEFAULT, RGB(153, 153, 153))    ; цвет текста
ScintillaSendMessage(0, #SCI_STYLECLEARALL)
; Устанавливает размер отступа и стиль колонки номеров строк
ScintillaSendMessage(0, #SCI_STYLESETFONT, #STYLE_LINENUMBER, MakeUTF8Text("Arial")) ; шрифт номеров строк
ScintillaSendMessage(0, #SCI_STYLESETBACK, #STYLE_LINENUMBER, RGB(33, 33, 33))       ; цвет фона поля номеров строк
ScintillaSendMessage(0, #SCI_STYLESETFORE, #STYLE_LINENUMBER, RGB(153, 153, 153))    ; цвет текста поля номеров строк
marginWidth=ScintillaSendMessage(0, #SCI_TEXTWIDTH, #STYLE_LINENUMBER, MakeUTF8Text("_999")) ; ширина поля номеров строк
ScintillaSendMessage(0, #SCI_SETMARGINTYPEN, 0, #SC_MARGIN_NUMBER)
ScintillaSendMessage(0, #SCI_SETMARGINWIDTHN, 0, marginWidth) ; Устанавливает ширину поля номеров строк
marginWidth=0
ScintillaSendMessage(0, #SCI_SETMARGINMASKN, 2, #SC_MASK_FOLDERS) ; Устанавливает отступ для поля свёртывания с запасом сгиба
ScintillaSendMessage(0, #SCI_SETMARGINWIDTHN, 2, marginWidth)     ; Устанавливает ширину поля свёртывания
ScintillaSendMessage(0, #SCI_SETMARGINSENSITIVEN, 2, #True)       ; Устанавливает чуствительность поля к клику
                                                                  ; Устанавливает стиль текстовго курсора и выделения
ScintillaSendMessage(0, #SCI_SETCARETSTICKY, 1)                   ; делает всегда видимым (?)
ScintillaSendMessage(0, #SCI_SETCARETWIDTH, 1)                    ; толщина текстовго курсора
ScintillaSendMessage(0, #SCI_SETCARETFORE, RGB(255, 255, 255))    ; цвет текстовго курсора
ScintillaSendMessage(0, #SCI_SETSELALPHA, 100)                    ; прозрачность выделения
ScintillaSendMessage(0, #SCI_SETSELBACK, 1, RGB(255, 255, 255))   ; цвет фона выделения
ScintillaSendMessage(0, #SCI_SETSELFORE, 1, RGB(160, 160, 160))   ; цвет текста выделения
                                                                  ; Устанавливает дополнительные стили при использовании множественного курсора и выделения
ScintillaSendMessage(0, #SCI_SETADDITIONALCARETFORE, RGB(255, 160, 160)) ; цвет дополнительного текстовго курсора
ScintillaSendMessage(0, #SCI_SETADDITIONALCARETSBLINK, 1)                ; мигание дополнительного текстовго курсора
ScintillaSendMessage(0, #SCI_SETADDITIONALSELALPHA, 100)                 ; прозрачность дополнительного выделения
ScintillaSendMessage(0, #SCI_SETADDITIONALSELBACK, RGB(255, 255, 100))   ; цвет фона дополнительного выделения
ScintillaSendMessage(0, #SCI_SETADDITIONALSELFORE, RGB(255, 255, 130))   ; цвет текста дополнительного выделения
                                                                         ; Разрешает множественный курсор
ScintillaSendMessage(0, #SCI_SETRECTANGULARSELECTIONMODIFIER, #SCMOD_ALT); выделить, удерживая нажатой клавишу Alt
ScintillaSendMessage(0, #SCI_SETMULTIPLESELECTION, 1)                    ; позволяет выделить несколько раз удерживая нажатой клавишу CTRL или CMD
ScintillaSendMessage(0, #SCI_SETMULTIPASTE, #SC_MULTIPASTE_EACH)         ; множественная вставка текста
ScintillaSendMessage(0, #SCI_SETADDITIONALSELECTIONTYPING, 1)            ; позволяет ввод текста, перемешение курсора и т.д. сразу в нескольких местах

; ScintillaSendMessage(0, #SCI_USEPOPUP, 1)
; ScintillaSendMessage(0, #SCI_SETVSCROLLBAR, 1)             ; вертикальная полоса прокрутки всегда

; Разрешить горячую клаваишу CTRL + D для дополнительного авто выделения
; AddKeyboardShortcut(100, #PB_Shortcut_Control | #PB_Shortcut_D, #MENU_EXTEND_SELECTION)
; BindEvent(#PB_Event_Menu, ExtendScintillaSelection())


ScintillaSendMessage(0, #SCI_SETTEXT, 0, MakeUTF8Text(txt$)) ; Установить текст гаджета
ScintillaSendMessage(0, #SCI_GOTOPOS, txtLen)                ; Курсор в конец текста
SetActiveGadget(0)                                           ; Установить гаджет активным, фокус ввода

; Эти константы будут использоватся для подсветки синтаксиса.
Enumeration 0
    #LexerState_Space
    #LexerState_Number
    #LexerState_Keyword
    #LexerState_String
    #LexerState_Preprocessor
    #LexerState_Operator
    #LexerState_Comment
    #LexerState_FoldKeyword
EndEnumeration
ScintillaSendMessage(0, #SCI_STYLESETFORE, #LexerState_Comment, RGB(113, 174, 113)) ; Цвет комментариев
ScintillaSendMessage(0, #SCI_STYLESETFORE, #LexerState_Number, $ABCEE3)             ; Цвет чисел, BGR
ScintillaSendMessage(0, #SCI_STYLESETFORE, #LexerState_Keyword, $FF9F00)            ; Цвет ключевых слов, BGR
ScintillaSendMessage(0, #SCI_STYLESETFORE, #LexerState_Preprocessor, $DE97D9)       ; Цвет препроцессор, BGR
ScintillaSendMessage(0, #SCI_STYLESETFORE, #LexerState_Operator, $8080FF)           ; Цвет препроцессор, BGR
ScintillaSendMessage(0, #SCI_STYLESETFORE, #LexerState_FoldKeyword, RGB(0, 136, 0)) ; Цвет ключевых слов со сворачиванием.
ScintillaSendMessage(0, #SCI_STYLESETBOLD, #LexerState_Number, 1)                   ; Выделять чисел жирным шрифтом
ScintillaSendMessage(0, #SCI_STYLESETITALIC, #LexerState_Comment, 1)                ; Выделять комментарии наклонным шрифтом
                                                                                    ; MessageRequester(Str(#STYLE_LINENUMBER) , Str(#STYLE_DEFAULT)) ; тут проверяем константы других стилей, почем они не мешают

; Для RGB из Веб
; Global num.i = Val("$71AE71")
; Global num_text.s = Str(Red(num)) + ", " + Str(Green(num)) + ", " + Str(Blue(num))
; Debug num_text ; Отображает цвет в формате функции RGB

; Пробуем применить стиль (проблема с позиционированием и длинной)
ScintillaSendMessage(0, #SCI_STARTSTYLING, 50, 0) ; позиция начала (с 50-го)
ScintillaSendMessage(0, #SCI_SETSTYLING, 14, #LexerState_Comment) ; ширина и номер стиля

If CreateMenu(0, WindowID(100))  ; Здесь начинается создание меню....
    MenuTitle("Меню")
    MenuItem(1, "Открыть файл")
    MenuItem(2, "Вставить текущую дату")
    MenuItem(3, "Вставить из буфера обмена")
    MenuBar() ; разделитель
    MenuItem(4, "Выход")
    MenuItem(5, "Найти числа (индикаторы)")
    MenuItem(6, "Найти числа (стиль)")
    MenuItem(7, "Очистить стиль")
EndIf

Global Event, em, Text$, TextLength, regex$
Repeat
    Event = WaitWindowEvent()
    Select Event
        Case #PB_Event_SizeWindow
            ResizeGadget(0, #PB_Ignore, #PB_Ignore, WindowWidth(100), WindowHeight(100))
        Case #PB_Event_Menu
            em = EventMenu()
            Select em
                Case 1
                    OpenFileR()
                Case 2
                    Text$ =  FormatDate("%dd.%mm.%yyyy", Date()) ; Возвращает текущую дату
                                                                 ;ScintillaSendMessage(0, #SCI_APPENDTEXT, Len(Text$), MakeUTF8Text(Text$)) ; не работает с UTF-8
                                                                 ;                  ScintillaSendMessage(0, #SCI_INSERTTEXT, txtLen, MakeUTF8Text(Text$)) ; проблема измерять длину текста в Scintilla каждый раз
                    ScintillaSendMessage(0, #SCI_APPENDTEXT, TextLength, MakeScintillaText(Text$, @TextLength))
                Case 3
                    ;                   Text$ = "вставленный текст" ; перед вставкой приводится к формату UTF-8
                    Text$ = GetClipboardText()
                    ScintillaSendMessage(0, #SCI_APPENDTEXT, TextLength, MakeScintillaText(Text$, @TextLength))
                Case 4
                    Break
                Case 5
                    regex$ = "\d+"
                    Color(MakeScintillaText(regex$, @TextLength), Len(regex$), 7)
                Case 6
                    regex$ = "\d+"
                    Color2(MakeScintillaText(regex$, @TextLength), Len(regex$), 7)
                Case 7
                    ScintillaSendMessage(0, #SCI_CLEARDOCUMENTSTYLE)
            EndSelect
        Case #PB_Event_CloseWindow
            Break
    EndSelect
ForEver

FreeMenu(0)
CloseWindow(100)
End

; Уведомления
ProcedureDLL SciNotification(Gadget, *scinotify.SCNotification)
    Protected Path$, pos
;   Select Gadget
;       Case 0 ; уведомление гаджету 0 (Scintilla)
    With *scinotify
        Select \nmhdr\code
            Case #SCN_URIDROPPED ; о броске файлов в окно
;               Debug PeekS(*scinotify.SCNotification\text, -1, #PB_Ascii)
                Path$ = PeekS(*scinotify.SCNotification\text, -1, #PB_UTF8 | #PB_ByteLength)
;               Path$ = PeekS(*scinotify.SCNotification\text, -1, #PB_Ascii)
                pos = FindString(Path$, Chr(10)) ; обрезка, оставляя 1 файл
                If pos
                    Path$ = LSet(Path$ , pos-2)
                EndIf
                Path$ = RemoveString(Path$ , "file://", #PB_String_CaseSensitive, 1, 1) ; удалить 1 раз
                Debug Path$
                ReadFileR(Path$)
        EndSelect
    EndWith
;   EndSelect
EndProcedure


; Преобразование текста в текст для вставки в Scintilla
Procedure MakeUTF8Text(text.s)
    Static buffer.s
    buffer=Space(StringByteLength(text, #PB_UTF8))
    PokeS(@buffer, text, -1, #PB_UTF8)
    ProcedureReturn @buffer
EndProcedure

Procedure MakeScintillaText(text.s, *sciLength.Integer=0)
    Static sciLength : sciLength=StringByteLength(text, #PB_UTF8) ; #TextEncoding
    Static sciText.s : sciText = Space(sciLength)
    If *sciLength : *sciLength\i=sciLength : EndIf ;<--- Возвращает длину буфера scintilla  (требуется для определенной команды scintilla)
    PokeS(@sciText, text, -1, #PB_UTF8)            ; #TextEncoding
    ProcedureReturn @sciText
EndProcedure

Procedure OpenFileR(*sciLength.Integer=0)
    ;   Запрос пути к файлу
    Protected Path$ = OpenFileRequester("Выберите файл","","Текст|*.txt;*.bat;*.pb|Все файлы (*.*)|*.*",0)
    If Path$ ; так как sciLength = 0 это критерий отмены для следующей функции
        ReadFileR(Path$)
    EndIf
EndProcedure

Procedure ReadFileR1(Path$) ; свой вариант заменил вариантом из справки, см ниже
    Protected sizefile, *MemoryBuffer
    sizefile = FileSize(Path$) ; определяем размер данных в байтах
    If sizefile => 0 ; файл существует
        *MemoryBuffer = AllocateMemory(sizefile) ; выделение памяти под размер файла
        ReadFile(0 , Path$, #PB_UTF8)
        ReadData(0, *MemoryBuffer, sizefile) ; чтение файла в память
        CloseFile(0)                         ; закрытие файла
        ScintillaSendMessage(0, #SCI_SETTEXT, 0, *MemoryBuffer)
        ;       ScintillaSendMessage(0, #SCN_UPDATEUI, #SC_UPDATE_V_SCROLL) ; не то, надо обновить прокрутку
        FreeMemory(*MemoryBuffer)
    EndIf
EndProcedure

Procedure ReadFileR(Path$)
    Protected length, *MemoryID
    If ReadFile(0, Path$)
        length = Lof(0)                            ; получаем длину открытого файла
        *MemoryID = AllocateMemory(length)        ; выделяем необходимую память
        If *MemoryID
            ReadData(0, *MemoryID, length)  ; считаем все данные в блок памяти
        EndIf
        CloseFile(0)
        ScintillaSendMessage(0, #SCI_SETTEXT, 0, *MemoryID)
        FreeMemory(*MemoryID)
    EndIf
EndProcedure

; Подсвечивание через индикаторы
Procedure Color(*regex, regexLength, n)
    Protected txtLen, StartPos, EndPos, firstMatchPos

    ; Устанавливает режим поиска (REGEX + POSIX фигурные скобки)
    ScintillaSendMessage(0, #SCI_SETSEARCHFLAGS, #SCFIND_REGEXP | #SCFIND_POSIX)

    ; Устанавливает целевой диапазон поиска
    txtLen = ScintillaSendMessage(0, #SCI_GETTEXTLENGTH) ; получает длину текста
    ScintillaSendMessage(0, #SCI_INDICSETSTYLE, n, 6)    ; #INDIC_TEXTFORE = 17 создаёт индикатор под номером 7 (занятые по уиолчанию 0, 1, 2)
    ScintillaSendMessage(0, #SCI_INDICSETFORE, n, $71AE71) ; назначает цвет индикатора под номером 7 - зелёный

    EndPos = 0
    Repeat
        ScintillaSendMessage(0, #SCI_SETTARGETSTART, EndPos)       ; от начала (задаём область поиска) используя позицию конца предыдущего поиска
        ScintillaSendMessage(0, #SCI_SETTARGETEND, txtLen)         ; до конца по длине текста
        firstMatchPos=ScintillaSendMessage(0, #SCI_SEARCHINTARGET, regexLength, *regex) ; возвращает позицию первого найденного. В параметрах длина искомого и указатель
        If firstMatchPos>-1                                                             ; если больше -1, то есть найдено, то
            StartPos=ScintillaSendMessage(0, #SCI_GETTARGETSTART)                       ; получает позицию начала найденного
            EndPos=ScintillaSendMessage(0, #SCI_GETTARGETEND)                           ; получает позицию конца найденного
            ScintillaSendMessage(0, #SCI_SETINDICATORCURRENT, n)                        ; делает индикатор под номером 7 текущим
            ScintillaSendMessage(0, #SCI_INDICATORFILLRANGE, StartPos, EndPos - StartPos)  ; выделяет текст используя текущий индикатор
        Else
            Break
        EndIf
    ForEver
EndProcedure

; Подсвечивание через стиль
Procedure Color2(*regex, regexLength, n)
    Protected txtLen, StartPos, EndPos, firstMatchPos

    ; Устанавливает режим поиска (REGEX + POSIX фигурные скобки)
    ScintillaSendMessage(0, #SCI_SETSEARCHFLAGS, #SCFIND_REGEXP | #SCFIND_POSIX)

    ; Устанавливает целевой диапазон поиска
    txtLen = ScintillaSendMessage(0, #SCI_GETTEXTLENGTH) ; получает длину текста

    EndPos = 0
    Repeat
        ScintillaSendMessage(0, #SCI_SETTARGETSTART, EndPos)       ; от начала (задаём область поиска) используя позицию конца предыдущего поиска
        ScintillaSendMessage(0, #SCI_SETTARGETEND, txtLen)         ; до конца по длине текста
        firstMatchPos=ScintillaSendMessage(0, #SCI_SEARCHINTARGET, regexLength, *regex) ; возвращает позицию первого найденного. В параметрах длина искомого и указатель
        If firstMatchPos>-1                                                             ; если больше -1, то есть найдено, то
            StartPos=ScintillaSendMessage(0, #SCI_GETTARGETSTART)                       ; получает позицию начала найденного
            EndPos=ScintillaSendMessage(0, #SCI_GETTARGETEND)                           ; получает позицию конца найденного
            ScintillaSendMessage(0, #SCI_STARTSTYLING, StartPos, 0)                     ; позиция начала (с 50-го)
            ScintillaSendMessage(0, #SCI_SETSTYLING, EndPos - StartPos, #LexerState_Number) ; ширина и номер стиля
        Else
            Break
        EndIf
    ForEver
EndProcedure