PureBasic Forums - English

Code: Select all

 Procedure SCI_Callback(Gadget, *scinotify.SCNotification)
   Debug *scinotify.SCNotification\nmhdr\code
 
 EndProcedure
 
 LoadLibraryM(?mem)

 
   If OpenWindow(0, 450, 200, 402, 402, "Редактор Scintilla", #PB_Window_MinimizeGadget|#PB_Window_MaximizeGadget|#PB_Window_ScreenCentered|#PB_Window_SizeGadget)
    If CreateGadgetList(WindowID(0))
     ScintillaGadget(0, 2, 2, 398, 398, @SCI_Callback()) ; Создаём гаджет и процедуре SCI_Callback() присваиваем статус обработчика событий редактора.
    SmartWindowRefresh(0 ,1) ; Уменьшаем мерцания окна при изменении его размеров
    ScintillaSendMessage(0, #SCI_SETMARGINTYPEN, 0, #SC_MARGIN_NUMBER) ; Добавляем 0-вое поле для автонумерации строк
    ScintillaSendMessage(0, #SCI_SETMARGINWIDTHN, 0, 30) ; Ширина поля автонумерации
  Repeat    
   Event = WaitWindowEvent() 
   Gadget=EventGadget()
  
   If Event=#PB_Event_SizeWindow
    ; Изменяем размер редактора при изменении размеров окна
    ResizeGadget(0,#PB_Ignore,#PB_Ignore,WindowWidth(0)-4,WindowHeight(0)-2)
   EndIf
      
  Until Event=#PB_Event_CloseWindow 
 EndIf
EndIf

DataSection
 mem:
 IncludeBinary "Scintilla.dll"
EndDataSection