PureBasic Forums - English

Code: Select all

o Text retrieval and modification
o Searching and replacing
o Overtype
o Cut, copy and paste
o Error handling
o Undo and Redo
o Selection and information
o Scrolling and automatic scrolling
o White space
o Cursor
o Mouse capture
o Line endings
o Styling
o Style definition
o Caret, selection, and hotspot styles
o Margins
o Other settings
o Brace highlighting
o Tabs and Indentation Guides
o Markers
o Indicators
o Autocompletion
o User lists
o Call tips
o Keyboard commands
o Key bindings
o Popup edit menu
o Macro recording
o Printing
o Direct access
o Multiple views
o Folding
o Line wrapping
o Zooming
o Long lines
o Lexer
o Notifications
o Deprecated messages
o Edit messages never supported by Scintilla
o Building Scintilla

Code: Select all

; test of using the Schintilla library for an editor
; all Scintilla commands can be used by Sendmessage_(bla,bla...
; or directly with pointers to the Scintilla commands...

Procedure SciEditGadget(hwndParent,x,y,w,h)
  hmod = OpenLibrary(1, "SciLexer.dll") 
  If (hmod) = 0
    MessageRequester( "Error loading Scintilla", "The Scintilla DLL could not be loaded.", #MB_OK | #MB_ICONERROR)
  Else
    hInstance = GetModuleHandle_(0)
    hwndScintilla = CreateWindowEx_(0, "Scintilla"," ", #WS_CHILD|#WS_VISIBLE|#WS_TABSTOP,x,y,w,h,hwndParent,0,hInstance,0)
  EndIf
  ProcedureReturn hwndScintilla
EndProcedure

If OpenWindow(0, 100, 100, 320,240, #PB_Window_SystemMenu ,"PureBasic Test Window")

;create Edit Gadget
SciEditGadget(WindowID(),10,10,300,200)

  Repeat
    EventID.l = WaitWindowEvent()
  Until EventID = #PB_EventCloseWindow
EndIf

End

Code: Select all

  SendMessage_(hwndScintilla, #SCI_GOTOLINE, 0, 0)
  SetFocus_(hwndScintilla)