mk-soft wrote:No any events from window system ?!
No events.
Strange, the window does not change position and size and it is displayed, but it is not on the screen.
Code: Select all
Procedure MyWindowCallback(WindowID, Message, wParam, lParam)
Protected Result = #PB_ProcessPureBasicEvents
Protected r1.s
Select Message
Case #WM_SIZE
r1 = FormatDate("%HH.%II.%SS | ", Date()) + "WM_SIZE = "
Select wParam
Case #SIZE_RESTORED : r1 + "#SIZE_RESTORED"
Case #SIZE_MINIMIZED : r1 + "#SIZE_MINIMIZED"
EndSelect
Debug r1
EndSelect
ProcedureReturn Result
EndProcedure
If OpenWindow(0, 50, 50, 200, 100, "", #PB_Window_BorderLess)
SetWindowCallback(@MyWindowCallback())
AddWindowTimer(0, 0, 1000)
Repeat
Event = WaitWindowEvent()
Select event
Case #PB_Event_Timer
Debug "x="+WindowX(0)+" y="+WindowY(0)+" Width="+WindowWidth(0)+" Height"+WindowHeight(0)+" Visible="+
IsWindowVisible_(WindowID(0))
EndSelect
Until Event = #PB_Event_CloseWindow
EndIf
Window with TOPMOST style does not minimize.
Code: Select all
If OpenWindow(0, 50, 50, 200, 100, "", #PB_Window_BorderLess)
StickyWindow(0, #True)
Repeat
Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow
EndIf
This is probably not a PB bug.