PureBasic Forums - English

Code: Select all

EnableExplicit

OpenWindow(0, 0, 0, 222, 200, "Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ButtonGadget(0, 10, 10, 200, 20, "&First")
ButtonGadget(1, 10, 40, 200, 20, "&Second")
ButtonGadget(2, 10, 70, 200, 20, "&Third")
ButtonGadget(3, 10, 100, 200, 60, "&Fourth")
ButtonGadget(4, 10, 170, 200, 20, "&Toggle Button", #PB_Button_Toggle)
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow

Code: Select all

EnableExplicit

OpenWindow(0, 0, 0, 222, 200, "Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ButtonGadget(0, 10, 10, 200, 20, "&First")
AddKeyboardShortcut(0, #PB_Shortcut_Alt + #PB_Shortcut_F, 0)
ButtonGadget(1, 10, 40, 200, 20, "&Second")
AddKeyboardShortcut(0, #PB_Shortcut_Alt + #PB_Shortcut_S, 1)
ButtonGadget(2, 10, 70, 200, 20, "&Third")
AddKeyboardShortcut(0, #PB_Shortcut_Alt + #PB_Shortcut_T, 2)
ButtonGadget(3, 10, 100, 200, 60, "F&ourth")
AddKeyboardShortcut(0, #PB_Shortcut_Alt + #PB_Shortcut_O, 3)
ButtonGadget(4, 10, 170, 200, 20, "To&ggle Button", #PB_Button_Toggle)
AddKeyboardShortcut(0, #PB_Shortcut_Alt + #PB_Shortcut_G, 4)
Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      Break
    Case #PB_Event_Menu
      Debug EventMenu()
      Select EventMenu()
        Case 4
          SetGadgetState(4, Bool(Not GetGadgetState(4)))
      EndSelect
  EndSelect
ForEver

Code: Select all

; Button Menu: Try to press Key 1  
Enumeration ButtonKeys : #noAction=0 : #Key1=1 : #Key2 : #Key3 : #Key4 : #Key5  : EndEnumeration
Procedure ButtonMenu12345()
  Protected Action,Event 
  OpenWindow(0, 0, 0, 222, 200, "ButtonMenu12345", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  AddKeyboardShortcut(0,#PB_Shortcut_1,#Key1)
  AddKeyboardShortcut(0,#PB_Shortcut_2,#Key2)
  AddKeyboardShortcut(0,#PB_Shortcut_3,#Key3)
  AddKeyboardShortcut(0,#PB_Shortcut_4,#Key4)
  AddKeyboardShortcut(0,#PB_Shortcut_5,#Key5)
  
  ButtonGadget(1, 10, 10, 200, 20, "First Key 1")  
  ButtonGadget(2, 10, 40, 200, 20, "Second Key 2")
  ButtonGadget(3, 10, 70, 200, 20, "Third Key 3")
  ButtonGadget(4, 10, 100, 200, 60, "Fourth Key 4")
  ButtonGadget(5, 10, 170, 200, 20, "Toggle Button Key 5", #PB_Button_Toggle)
  Action=#noAction
  Repeat 
    Event=WaitWindowEvent(1)
    If Event=#PB_Event_Gadget
      Action=EventGadget()
    ElseIf Event= #PB_Event_Menu
      Action=EventMenu() 
    EndIf   
  Until Event = #PB_Event_CloseWindow Or Action<>#noAction
  CloseWindow(0)
  Debug "Action:"+Str(Action)
  
  ProcedureReturn Action  
EndProcedure

End ButtonMenu12345() ;  returns the exitcode Action, see ProgramExitCode()

Code: Select all

; Run Program ButtonMenu12345
Program=RunProgram("/tmp/a.out","","", #PB_Program_Open | #PB_Program_Read ) ; Please adjust the file name.
If Program 
  While ProgramRunning(Program) :  Wend 
  Debug ProgramExitCode(Program)
EndIf 

Code: Select all

#include <windows.h>

void OnButtonClick(HWND hwnd) {
	MessageBox(hwnd, "Button Clicked!", "Message", MB_OK | MB_ICONINFORMATION);
}

LRESULT CALLBACK WndProc(HWND hwnd, UINT message, WPARAM wParam, LPARAM lParam) {
	switch (message) {
		case WM_COMMAND:
			if (LOWORD(wParam) == IDOK) {
				OnButtonClick(hwnd);
			}
			break;
		case WM_DESTROY:
			PostQuitMessage(0);
			break;
		default:
			return DefWindowProc(hwnd, message, wParam, lParam);
	}
	return 0;
}

int WINAPI WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpCmdLine, int nCmdShow) {
	WNDCLASS wc = { 0 };
	wc.lpfnWndProc = WndProc;
	wc.hInstance = hInstance;
	wc.lpszClassName = "AltKeyTest";
	RegisterClass(&wc);
	HWND hwnd = CreateWindow("AltKeyTest", "Test", WS_OVERLAPPEDWINDOW, CW_USEDEFAULT, CW_USEDEFAULT, 400, 200, NULL, NULL, hInstance, NULL);
	CreateWindow("BUTTON", "&OK", WS_TABSTOP | WS_VISIBLE | WS_CHILD | BS_DEFPUSHBUTTON, 150, 70, 80, 30, hwnd, (HMENU)IDOK, hInstance, NULL);
	ShowWindow(hwnd, nCmdShow);
	UpdateWindow(hwnd);
	MSG msg;
	while (GetMessage(&msg, NULL, 0, 0)) {
		TranslateMessage(&msg);
		DispatchMessage(&msg);
	}
	return msg.wParam;
}

Code: Select all

OpenWindow(0, 0, 0, 222, 200, "Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
ButtonGadget(0, 10, 10, 200, 24, "&First")
ButtonGadget(1, 10, 40, 200, 24, "&Second")
ButtonGadget(2, 10, 70, 200, 24, "&Third")
ButtonGadget(3, 10, 100, 200, 60, "&Fourth")
ButtonGadget(4, 10, 170, 200, 24, "&Toggle Button", #PB_Button_Toggle)
SendMessage_(WindowID(0), #WM_UPDATEUISTATE, $30002,0)
Repeat
  Select WaitWindowEvent()
    Case #PB_Event_CloseWindow
      Quit = 1
      
    Case #WM_SYSKEYDOWN 
      key = EventwParam()
      Select key
        Case 70
          Debug "Button 0 selected"
        Case 83
          Debug "Button 1 selected"
        Case 84
          Debug "Button 2 selected"
      EndSelect      
  EndSelect
Until Quit = 1

Code: Select all

Procedure WinCallback(hWnd, uMsg, WParam, LParam) 
  
  Select uMsg
    Case #WM_SYSKEYDOWN 
      Select WParam
        Case 70
          Debug "First Selected"
        Case 83
          Debug "Second Selected"
        Case 84
          Debug "Third Selected"
        Case 79
          Debug "Fourth Selected"
        Case 71
          Debug "Toggle Button Selected"
      EndSelect      
  EndSelect          
  
  ProcedureReturn #PB_ProcessPureBasicEvents 
EndProcedure 

If OpenWindow(0, 0, 0, 222, 200, "Test", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  ButtonGadget(0, 10, 10, 200, 24, "&First")
  ButtonGadget(1, 10, 40, 200, 24, "&Second")
  ButtonGadget(2, 10, 70, 200, 24, "&Third")
  ButtonGadget(3, 10, 100, 200, 60, "F&ourth")
  ButtonGadget(4, 10, 170, 200, 24, "To&ggle Button", #PB_Button_Toggle)
  SendMessage_(WindowID(0), #WM_UPDATEUISTATE, $30002,0)
  
  SetWindowCallback(@WinCallback(), 0)
    
  Repeat 
    Select WaitWindowEvent() 
      Case #PB_Event_CloseWindow 
        End 
    EndSelect 
  ForEver 
EndIf