Purpose : ZERO flickering in my PB app
Code: Select all
;*******************************************
; READ ME
;uncomment this line if you want to force the Full-Drawing mode :
;*******************************************
;SystemParametersInfo_( #SPI_SETDRAGFULLWINDOWS, 1, 0, #SPIF_SENDWININICHANGE)
;
;Get state of Full-Drawing mode
Global CurrentDrawMode
Global DrawLocked
SystemParametersInfo_( #SPI_GETDRAGFULLWINDOWS, 0, @CurrentDrawMode, 0) ;-> CurrentDrawMode=1
#WM_CAPTURECHANGED=$215
Procedure CB(Window, Message, wParam, lParam)
Result = #PB_ProcessPureBasicEvents
If Window=WindowID(0)
Select Message
Case #WM_NCLBUTTONDOWN
If DrawLocked=0
;disable full-drawing mode
SystemParametersInfo_( #SPI_SETDRAGFULLWINDOWS, 0, 0, #SPIF_SENDWININICHANGE)
Debug "draw OFF"
DrawLocked=1
EndIf
Case #WM_CAPTURECHANGED
Debug "draw ON"
If DrawLocked And lParam<>Window
;restore full-drawing mode
SystemParametersInfo_( #SPI_SETDRAGFULLWINDOWS, CurrentDrawMode, 0, #SPIF_SENDWININICHANGE )
Debug "enable"
DrawLocked=0
EndIf
;Case #WM_NCLBUTTONUP
; Debug "test button UP"
;Case #WM_SIZING
; Debug "resize"
;Case #WM_SIZE
; Debug "resize END"
;Case #WM_WINDOWPOSCHANGING
; Debug "winpos changing"
;Case #WM_WINDOWPOSCHANGED
; Debug "winpos changed"
EndSelect
EndIf
ProcedureReturn Result
EndProcedure
If OpenWindow(0,100,100,200,200,"No Drawing",#PB_Window_SystemMenu|#PB_Window_SizeGadget)
OpenWindow(1,400,100,200,200,"Full Drawing",#PB_Window_SystemMenu|#PB_Window_SizeGadget)
SetWindowCallback(@CB())
Repeat : Until WaitWindowEvent()=#PB_Event_CloseWindow
EndIf
