PureBasic Forums - English

Code: Select all

; This code is automatically generated by the FormDesigner.
; Manual modification is possible to adjust existing commands, but anything else will be dropped when the code is compiled.
; Event procedures needs to be put in another source file
Procedure OpenWindow_0(x = 0, y = 0, width = 300, height = 400)
  Window_0 = OpenWindow(#PB_Any, x, y, width, height, "My Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  Button_0 = ButtonGadget(#PB_Any, 160, 70, 100, 25, "Click Me")
  Text_0 = TextGadget(#PB_Any, 30, 20, 100, 25, "This is a label")
  String_0 = StringGadget(#PB_Any, 30, 70, 100, 25, "")
EndProcedure

Code: Select all

Global Window_0
Global Button_0, Text_0, String_0
XIncludeFile "MyForm.pbf"

Procedure buttonEvent(eventType.i)
  text$ = GetGadgetText(String_0)    ;get the text from the text box (identifier = String_0)
  SetGadgetText(Text_0, text$)       ;and place it in the label (identifier = Text_0)
EndProcedure

Procedure Window_0_Events(event)
  Select event
    Case #PB_Event_CloseWindow
      ProcedureReturn #False
    Case #PB_Event_Gadget
      Select EventGadget()
        Case Button_0
          buttonEvent(EventType())          
      EndSelect
  EndSelect
  ProcedureReturn #True
EndProcedure

OpenWindow_0()
Repeat
  event = WaitWindowEvent()
Until Window_0_Events(event) = #False

Code: Select all

OpenWindow(0, 0, 0, 300, 200, "My Window", wFlags)
TextGadget(1, 50, 30, 200, 30, "This is a label...")
StringGadget(2, 50, 70, 200, 30, "")
ButtonGadget(3, 50, 120, 200, 30, "Click Me")

Code: Select all

test1 = CreateImage(#PB_Any, 640, 480) 
test2 = CreateImage(#PB_Any , 800, 800)
Debug test1
Debug test2

Code: Select all

 
EnableExplicit   ; <-- never forget this !!! 
; Use named enumerations 
; + can be continued in any sourcefile 
; +  starts by 1 so 0 can be used as undefined values 
Enumeration EWindow 1 
  #WINDOW_Main 
EndEnumeration 

; ; ... this can be used in any other source file 
; 
; CompilerIf Not Defined(EWindow, #PB_Enumeration) 
;   Enumeration EWindow 1   ; <-- first time : set start number 
; CompilerElse 
;   Enumeration EWindow     ; <-- next time : it will continue the iteration 
; CompilerEndIf 
;   #WINDOW_Trace 
; EndEnumeration 
; 

Enumeration EGadget 1 
  #GADGET_LblLabel     ; use better names in real applications 
  #GADGET_StrInput 
  #GADGET_BtnClickMe
EndEnumeration 

Define wFlags = #PB_Window_MaximizeGadget | #PB_Window_MinimizeGadget | #PB_Window_SizeGadget | #PB_Window_ScreenCentered

If OpenWindow(#WINDOW_Main, 0, 0, 300, 200, "My Window", wFlags) ; <> 0  
  TextGadget(#GADGET_LblLabel, 50, 30, 200, 30, "This is a label...")
  StringGadget(#GADGET_StrInput, 50, 70, 200, 30, "")
  ButtonGadget(#GADGET_BtnClickMe, 50, 120, 200, 30, "Click Me") 

  ; some kind of main loop 
  Repeat
    Select WaitWindowEvent() 
      Case #PB_Event_CloseWindow   ; deal with the events here or use BindEvent() 
        Break  ; exit the main loop 
      Case #PB_Event_Gadget  
        Select EventGadget()
          Case #GADGET_StrInput 
            Select EventType() 
              Case #PB_EventType_Change          :Debug "Change"         ; The text has been modified by the user. 
              Case #PB_EventType_Focus           :Debug "Focus"          ; The StringGadget got the focus.              
              Case #PB_EventType_LostFocus       :Debug "LostFocus"      ; The StringGadget lost the focus.
            EndSelect  ; <-- added, because this is the right place for it 
          Case #GADGET_BtnClickMe 
            Debug "Click on ClickMe Button" 
         ;EndSelect  ; <-- commented out, because wrong position here! 
      EndSelect
    EndSelect 
  ForEver 
EndIf 

Code: Select all

;-TOP

#ProgramTitle = "Main Window"
#ProgramVersion = "v1.01.2"

Enumeration Windows
  #Main
EndEnumeration

Enumeration MenuBar
  #MainMenu
EndEnumeration

Enumeration MenuItems
  #MainMenuAbout
  #MainMenuExit
EndEnumeration

Enumeration Gadgets
  #MainEdit
  #MainButtonOk
  #MainButtonCancel
EndEnumeration

Enumeration StatusBar
  #MainStatusBar
EndEnumeration

Procedure UpdateWindow()
  Protected dx, dy
  dx = WindowWidth(#Main)
  dy = WindowHeight(#Main) - StatusBarHeight(#MainStatusBar) - MenuHeight()
  ; Resize gadgets
  ResizeGadget(#MainEdit, 5, 5, dx - 10, dy - 45)
  ResizeGadget(#MainButtonok, 10, dy - 35, 120, 30)
  ResizeGadget(#MainButtonCancel, dx - 130, dy - 35, 120, 30)
EndProcedure

Procedure Main()
  Protected dx, dy
  
  #MainStyle = #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_MaximizeGadget | #PB_Window_MinimizeGadget
  
  If OpenWindow(#Main, #PB_Ignore, #PB_Ignore, 800, 600, #ProgramTitle , #MainStyle)
    ; Menu
    CreateMenu(#MainMenu, WindowID(#Main))
    MenuTitle("&File")
    CompilerIf #PB_Compiler_OS = #PB_OS_MacOS
      MenuItem(#PB_Menu_About, "")
    CompilerElse
      MenuItem(#MainMenuAbout, "About")
      MenuBar()
    CompilerEndIf
    
    MenuItem(#MainMenuExit, "E&xit")
    
    ; StatusBar
    CreateStatusBar(#MainStatusBar, WindowID(#Main))
    AddStatusBarField(#PB_Ignore)
    
    ; Gadgets
    dx = WindowWidth(#Main)
    dy = WindowHeight(#Main) - StatusBarHeight(#MainStatusBar) - MenuHeight()
    EditorGadget(#MainEdit, 5, 5, dx -10, dy - 45)
    ButtonGadget(#MainButtonok, 10, dy - 35, 120, 30, "Ok")
    ButtonGadget(#MainButtonCancel, dx - 130, dy - 35, 120, 30, "Cancel")
    
    ; Bind Events
    BindEvent(#PB_Event_SizeWindow, @UpdateWindow(), #Main)
    
    ; Event Loop
    Repeat
      Select WaitWindowEvent()
        Case #PB_Event_CloseWindow
          Select EventWindow()
            Case #Main
              Break
              
          EndSelect
          
        Case #PB_Event_Menu
          Select EventMenu()
            CompilerIf #PB_Compiler_OS = #PB_OS_MacOS   
              Case #PB_Menu_About
                PostEvent(#PB_Event_Menu, #Main, #MainMenuAbout)
                
              Case #PB_Menu_Preferences
                
              Case #PB_Menu_Quit
                PostEvent(#PB_Event_CloseWindow, #Main, #Null)
                
            CompilerEndIf
            
          Case #MainMenuAbout
            MessageRequester("About", #ProgramTitle + #LF$ + #ProgramVersion, #PB_MessageRequester_Info)
              
          Case #MainMenuExit
            PostEvent(#PB_Event_CloseWindow, #Main, #Null)
            
          EndSelect
          
        Case #PB_Event_Gadget
          Select EventGadget()
            Case #MainEdit
              Select EventType()
                Case #PB_EventType_Change
                  ;
                  
              EndSelect
              
            Case #MainButtonOk
              ;
            Case #MainButtonCancel
              ;
              
          EndSelect
          
      EndSelect
    ForEver
    
  EndIf
  
EndProcedure : Main()