;
; ------------------------------------------------------------
;
;   PureBasic - Window example file
;
;    (c) Fantaisie Software
;
; ------------------------------------------------------------
;

;
; Откройте окно и сделайте что-нибудь с ним...
;

If OpenWindow(0, 100, 200, 195, 260, "Окно PureBasic ", #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget)

  MessageRequester("Инфо", "Нажмите, чтобы переместить окно", 0)
  ResizeWindow(0, 200, 200, #PB_Ignore, #PB_Ignore)   ; Перемещает окно в координаты 200,200
  
  MessageRequester("Инфо", "Нажмите, чтобы изменить размер", 0)
  ResizeWindow(0, #PB_Ignore, #PB_Ignore, 320, 200) ; Изменяет размер окна к 320,200
  
  ;
  ; Это "цикл событий". Здесь обрабатываются все действия пользователя.
  ; Это очень легко понять: когда происходит действие, Событие не
  ; равно 0, и нам просто нужно посмотреть, что произошло...
  ;

  Repeat
    Event = WaitWindowEvent()

    If Event = #PB_Event_CloseWindow  ; Если пользователь нажал на кнопку закрытия
      Quit = 1
    EndIf

  Until Quit = 1
  
EndIf

End   ; Все открытые окна автоматически закрываются PureBasic