PureBasic Forums - English

Code: Select all

;scintilla control in editor app
#SCI_STYLESETFORE = 2051
#SCI_SETTEXT = 2181
Define win.i
win = 1
Define hsci.i
Define htext.s
htext = "This is a simple Scintilla with text..."
hsci=1
Define winstyle
winstyle = (#PB_Window_SystemMenu|#PB_Window_SizeGadget |#PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget|#WS_CLIPCHILDREN)

  OpenWindow(win,100, 100, 640, 480, "Scintilla Control",winstyle ) 
     If InitScintilla()
        hsci=ScintillaGadget(win, 10, 52, 600, 400, #Null )
        
        ; front set color
        SendMessage_(hsci, #SCI_STYLESETFORE, 0, RGB(0, 0, 0))
        
        SendMessage_(hsci,#SCI_STYLESETBACK,32,RGB(249,248,218))
        
        SendMessage_(hsci,#SCI_STYLECLEARALL, 0, 1)
        
        scifontsize.i = 9
	      For i = 0 To 12
	        SendMessage_(hsci,#SCI_STYLESETFONT, i, "Courier New")
	      SendMessage_(hsci,#SCI_STYLESETSIZE, i, scifontsize)
	      Next i
;set number margin (For numnbers)
SendMessage_(hsci, #SCI_SETMARGINTYPEN, 0, #SC_MARGIN_NUMBER)
SendMessage_(hsci, #SCI_SETMARGINWIDTHN, 0, 46)
;set color of caret line
SendMessage_ (hsci,#SCI_SETCARETLINEBACK,RGB(225,225,245),0)
;Set caret line visible
SendMessage_ (hsci,#SCI_SETCARETLINEVISIBLE,1,0)
        ;test 
        SendMessage_(hsci, #SCI_SETTEXT, 100, htext)
        
        
        
     EndIf
     
     Repeat
       wmsg=WaitWindowEvent()
       
       Select wmsg
           
        Case #WM_SIZE   
           winW = WindowWidth(win) 
           winH = WindowHeight(win)
           ResizeGadget(1, 10, 52, (winW-20), (winH-64))
          
       EndSelect
       
       
     Until wmsg = #WM_CLOSE
  

Code: Select all

Procedure ResizeGadgets()
  ResizeGadget(4, 0, 0, WindowWidth(0), WindowHeight(0))
EndProcedure


Procedure WndProc(hwnd, uMsg, wParam, lParam)
  Protected result = #PB_ProcessPureBasicEvents
  
  If uMsg = #WM_EXITSIZEMOVE
    ResizeGadgets()
  EndIf
  
  ProcedureReturn result
EndProcedure

ProcedureDLL ScintillaCallBack(Gadget, *scinotify.SCNotification)
  ;
  ; The ProcedureDLL declaration is important for the callback to work correctly on MacOSX,
  ; on all other OS it has no effect.
  ;
EndProcedure

InitScintilla()


OpenWindow(0, 0, 0, 500, 500, "Resize Test", #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_WindowCentered)
ScintillaGadget(0, 0, 0, 0, 0, @ScintillaCallBack())
ScintillaGadget(1, 0, 0, 0, 0, @ScintillaCallBack())
SplitterGadget(2, 0, 0, 0, 0, 0, 1, #PB_Splitter_Separator | #PB_Splitter_Vertical    )
ScintillaGadget(3, 0, 0, 0, 0, @ScintillaCallBack())
SplitterGadget(4, 0, 0, 500, 500, 2, 3, #PB_Splitter_Separator )

SetWindowCallback(@WndProc(), 0)

Repeat
  Event  = WaitWindowEvent()
  
  Select Event
    Case #PB_Event_MaximizeWindow, #PB_Event_RestoreWindow
      ResizeGadgets()
      
    Case #PB_Event_CloseWindow
      Define Quit = 1
  EndSelect
  
Until Quit = 1

Code: Select all

			    Case #WM_EXITSIZEMOVE
							maximized = 0
							windowW = WindowWidth(#WIN1)
							windowH = WindowHeight(#WIN1)			;for saving in Prefs.
							If GetWindowState(#WIN1) = #PB_Window_Maximize
								maximized = 1
							EndIf
							ResizeGadget(#SPLITTER_Left,0,ToolBarHgt,windowW, windowH-ToolBarHgt-StatusBarHeight(#STAT1) - MenuHeight())
							timeResizeLast = ElapsedMilliseconds()
							Debug "ExitSizeMove " + Str(ResizeCounter)
							ResizeCounter = 0
    		
    		
				Case #PB_Event_SizeWindow
						timeResizeNow = ElapsedMilliseconds()
						If timeResizeNow > timeResizeLast + #RESIZEDELAY		; 100ms is a good delay
							maximized = 0
							windowW = WindowWidth(#WIN1)
							windowH = WindowHeight(#WIN1)			;for saving in Prefs.
							If GetWindowState(#WIN1) = #PB_Window_Maximize
								maximized = 1
							EndIf
							ResizeGadget(#SPLITTER_Left,0,ToolBarHgt,windowW, windowH-ToolBarHgt-StatusBarHeight(#STAT1) - MenuHeight())
							timeResizeLast = ElapsedMilliseconds()
							Debug ResizeCounter
							ResizeCounter = 0
						Else
							ResizeCounter + 1
						EndIf

Code: Select all

Macro RedrawWindow()
	CompilerIf #PB_Compiler_OS = #PB_OS_Windows
		RedrawWindow_(WindowID(#WIN1), 0, 0, #RDW_UPDATENOW)
	CompilerEndIf
EndMacro