PureBoard

Code: Alles auswählen

[BEGIN JOB]
OriginalName = ResizeWindow
ReplacedName = ResizeWindow
[ADD PARAMETER]
Position = 1
[FROM COMMAND]
CommandName = OpenWindow
Position = 1
[ALLOW #PB_ANY]
Position = 1
[END JOB]

[BEGIN JOB]
OriginalName = ResizeWindow
ReplacedName = ResizeWindow
[ADD PARAMETER]
Position = 2
[CONSTANT VALUE]
Value = #PB_Ignore
[END JOB]

[BEGIN JOB]
OriginalName = ResizeWindow
ReplacedName = ResizeWindow
[ADD PARAMETER]
Position = 3
[CONSTANT VALUE]
Value = #PB_Ignore
[END JOB]

[BEGIN JOB]
OriginalName = MoveWindow
ReplacedName = MoveWindow
[ADD PARAMETER]
Position = 1
[FROM COMMAND]
CommandName = OpenWindow
Position = 1
[ALLOW #PB_ANY]
Position = 1
[END JOB]

[BEGIN JOB]
OriginalName = MoveWindow
ReplacedName = MoveWindow
[ADD PARAMETER]
Position = 4
[CONSTANT VALUE]
Value = #PB_Ignore
[END JOB]

[BEGIN JOB]
OriginalName = MoveWindow
ReplacedName = ResizeWindow
[ADD PARAMETER]
Position = 5
[CONSTANT VALUE]
Value = #PB_Ignore
[END JOB]

Code: Alles auswählen

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

;
; Open a window, and do some stuff with it...
;

If OpenWindow(0, 100, 200, 195, 260, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget, "PureBasic Window")

  MessageRequester("Information", "Click to move the Window", 0)
  MoveWindow(200,200)   ; Move the window to the coordinate 200,200
  
  MessageRequester("Information", "Click to resize the Window", 0)
  ResizeWindow(320,200) ; Resize the window to 320,200
  
  ;
  ; This is the 'event loop'. All the user actions are processed here.
  ; It's very easy to understand: when an action occurs, the EventID
  ; isn't 0 and we just have to see what have happened...
  ;

  Repeat
    EventID.l = WaitWindowEvent()

    If EventID = #PB_Event_CloseWindow  ; If the user has pressed on the close button
      Quit = 1
    EndIf

  Until Quit = 1
  
EndIf

End   ; All the opened windows are closed automatically by PureBasic

Code: Alles auswählen

[b]Procedure[/b] DimBackground()

Code: Alles auswählen

[b]Procedure Global[/b] DimBackground()