PureBasic Forums - English

Code: Select all

mywin= OpenWindow(Win, 300, 191, 256, 256,  #PB_Window_SystemMenu | #PB_Window_SizeGadget | #PB_Window_TitleBar , "MiniPad")
CreateGadgetList(mywin)
EditorGadget(edi, 0, 0, 256, 256)    
CreateMenu(1,mywin)
MenuTitle("File")
MenuItem(1,"New")
MenuBar()
MenuItem(2,"Exit")
MenuTitle("Help")
MenuItem(3,"About")

Repeat
Select WaitWindowEvent()
Case #PB_Event_SizeWindow 
ResizeGadget(edi,0,0,WindowWidth(),WindowHeight())

Case #PB_Event_CloseWindow
JMP l_a

Case #PB_Event_Menu 

  Select EventMenuID()
  
  Case 1
  SetGadgetText(edi,"")
  Case 2
  JMP l_a
  Case 3
  MessageBox_(mywin,"A small PB app","Minipad",MB_APPLMODAL )

EndSelect
EndSelect
Until Event = #PB_EventCloseWindow
a:
End

Code: Select all

; events must be handled yourself in this callback, so we need the handles
; to all gadgets:
;
Global hButton, hText

Procedure MyCallback(Window, Message, wParam, lParam)

  Select Message
  
    Case #WM_CLOSE        ;  close button was pressed
      PostQuitMessage_(0) ; this will cause the main loop to quit
      
    Case #WM_COMMAND      ; these are gadget events
    
      If lParam = hButton  ; compare lParam to the gadget handles to find out which
        MessageRequester("","Pressed!")
      EndIf
    
  
    Case #WM_SIZE          ; window size event
      GetClientRect_(Window, @Rect.RECT)
      
      If hText             ; make sure the gadgt exists before using it!
        SetGadgetText(0, "Size: "+Str(Rect\right)+"x"+Str(Rect\bottom))
      EndIf
  
  EndSelect

  ProcedureReturn DefWindowProc_(Window, Message, wParam, lParam)  ; do the default action. this is very important!
EndProcedure


; first, register a class
;
WindowClass.WNDCLASS
WindowClass\style       = #CS_HREDRAW | #CS_VREDRAW
WindowClass\lpfnWndProc = @MyCallback()
WindowClass\hInstance   = GetModuleHandle_(0)
WindowClass\hbrBackground = #COLOR_BTNFACE+1
WindowClass\lpszClassName = @"MyWindowClass"


If RegisterClass_(@WindowClass)

  ; now create the window
  ;
  hWnd = CreateWindowEx_(#WS_EX_WINDOWEDGE, "MyWindowClass", "Window Title", #WS_SYSMENU | #WS_SIZEBOX | #WS_VISIBLE, 100, 100, 400, 400, #NULL, #NULL, GetModuleHandle_(0), #NULL)
  
  If hWnd
  
    ; PB gadgets can be put on an API window
    ;
    If CreateGadgetList(hWnd)
    
      hText   = TextGadget(0, 10, 10, 80, 20, "Size: 400x400")
      hButton = ButtonGadget(1, 10, 40, 80, 20, "Press Me")                  
    
    EndIf
  
  
    ; main loop. Events are handled in the callback
    ;
    While GetMessage_(@msg.MSG, 0, 0, 0) > 0
      TranslateMessage_(@msg)
      DispatchMessage_(@msg)
    Wend
        
  EndIf

EndIf

End

Code: Select all

If OpenWindow(0, 100, 100, 400, 400, #PB_Window_SystemMenu|#PB_Window_SizeGadget, "Window Title")
  If CreateGadgetList(WindowID())
  
    TextGadget(0, 10, 10, 80, 20, "Size: 400x400")
    ButtonGadget(1, 10, 40, 80, 20, "Press Me")    
    
    
    Repeat
      Event = WaitWindowEvent()
      
      If Event = #PB_EventGadget And EventGadgetID() = 1
        MessageRequester("","Pressed!")
      
      ElseIf Event = #PB_EventSizeWindow
        SetGadgetText(0, "Size: "+Str(WindowWidth())+"x"+Str(WindowHeight()))
        
      EndIf
      
    Until Event = #PB_EventCloseWindow
    
  EndIf
EndIf

End

Code: Select all

Global hText

#BS_VCENTER = $0c00
#BS_NOTIFY = $4000
#BS_CENTER = $300

Procedure WndProc(hWnd, uMsg, wParam, lParam)
  result = 0
  Select uMsg
    Case #WM_CLOSE
      PostQuitMessage_(0)
    Case #WM_COMMAND
      If wParam=5001
        MessageBox_(0, "Pressed!", "", 0)
      EndIf
    Case #WM_CREATE
      hText =  CreateWindowEx_(0, "STATIC", "Size: 400x400", #WS_VISIBLE|#WS_CHILD|#SS_LEFT, 10, 10, 80, 20, hWnd, 5000, hInstance, 0)
      hButton =  CreateWindowEx_(0, "BUTTON", "Press Me", #WS_VISIBLE|#WS_CHILD|#BS_PUSHBUTTON|#BS_VCENTER|#BS_NOTIFY|#BS_CENTER, 10, 40, 80, 20, hWnd, 5001, hInstance, 0)
      hFont = GetStockObject_(#DEFAULT_GUI_FONT)
      SendMessage_(hText, #WM_SETFONT, hFont, 1)
      SendMessage_(hButton, #WM_SETFONT, hFont, 1)
    Case #WM_SIZE
      GetClientRect_(hWnd, @rc.RECT)
      If hText
        SetWindowText_(hText, "Size: "+Str(rc\right)+"x"+Str(rc\bottom))
      EndIf
  EndSelect
  ProcedureReturn DefWindowProc_(hWnd, uMsg, wParam, lParam)
EndProcedure

hInstance = GetModuleHandle_(0)
wc.WNDCLASSEX
wc\cbSize = SizeOf(WNDCLASSEX)
wc\style = #CS_HREDRAW|#CS_VREDRAW
wc\lpfnWndProc = @WndProc()
wc\hInstance = hInstance
wc\hbrBackground = #COLOR_BTNFACE+1
wc\lpszClassName = ?ClassName
wc\hCursor = LoadCursor_(#NULL, #IDC_ARROW)

InitCommonControls_()

If RegisterClassEx_(@wc)
  hWnd = CreateWindowEx_(#WS_EX_WINDOWEDGE, ?ClassName, "Window Title", #WS_SYSMENU|#WS_SIZEBOX|#WS_VISIBLE, 100, 100, 400, 400, #NULL, #NULL, hInstance, #NULL)
  If hWnd
    ShowWindow_(hWnd, #SW_SHOW)
    UpdateWindow_(hWnd)
    While GetMessage_(@msg.MSG, 0, 0, 0) > 0
      TranslateMessage_(@msg)
      DispatchMessage_(@msg)
    Wend
  EndIf
EndIf

DataSection
ClassName:
Data.s "MyWindowClass"
EndDataSection