Code: Select all
;StickyWindow(#win,0) ; This makes no gadgets show on my window with 6.01, but it worked with 6.00 normally.
SetWindowPos_(WindowID(#win),#HWND_NOTOPMOST,0,0,0,0,#SWP_NOMOVE|#SWP_NOSIZE) ; So I do this with 6.01 instead.
Code: Select all
If OpenWindow(0, 500, 200, 195, 60, "test", #PB_Window_SystemMenu)
TextGadget(0,10,10,200,50,"This text will flicker with 6.01")
Repeat
Event = WindowEvent()
If Event = 0
Sleep_(1)
StickyWindow(0,1) ; Causes repeated flickering in 6.01 LTS, but not in 6.00 LTS.
;SetWindowPos_(WindowID(0),#HWND_TOPMOST,0,0,0,0,#SWP_NOMOVE|#SWP_NOSIZE) ; No flickering in either version.
ElseIf Event = #PB_Event_CloseWindow
Quit = 1
EndIf
Until Quit = 1
EndIf