PureBoard

Code: Alles auswählen

#minWinW=200
#minWinH=100
OpenWindow(0, 0, 0, 300, 200, "Test", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_SizeGadget | #PB_Window_ScreenCentered)

Repeat
  event = WaitWindowEvent()
  Select event
    Case #PB_Event_SizeWindow
      If WindowWidth(0) < #minWinW And WindowHeight(0) < #minWinH
        ResizeWindow(0, #PB_Ignore, #PB_Ignore, #minWinW, #minWinH)
      ElseIf WindowWidth(0) < #minWinW
        ResizeWindow(0, #PB_Ignore, #PB_Ignore, #minWinW, #PB_Ignore)
      ElseIf WindowHeight(0) < #minWinH
        ResizeWindow(0, #PB_Ignore, #PB_Ignore, #PB_Ignore, #minWinH)        
      EndIf
  EndSelect
Until Event = #PB_Event_CloseWindow