PureBoard

Code: Alles auswählen

If OpenWindow(0, 0, 0, 320, 160, "ProgressBarGadget", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  ProgressBarGadget(0,  10, 30, 250,  30, 0, 100)
  SetGadgetState(0, 50)
  
  ;SetWindowLongPtr_(GadgetID(0), #GWL_STYLE, GetWindowLongPtr_(GadgetID(0), #GWL_STYLE)  | #SS_NOTIFY) 
  
  Repeat
    Event =WaitWindowEvent()
    Select Event 
      Case #PB_Event_CloseWindow
        Break
      Case #PB_Event_Gadget
        Debug "PB_Event_Gadget"
    EndSelect
  ForEver 
EndIf

Code: Alles auswählen

EnableExplicit

Global ProcessBarCB

Procedure ProcessBarCB(hWnd, uMsg, wParam, lParam)
  Select uMsg
    Case #WM_LBUTTONUP
      Debug "Klick"
  EndSelect
  
  ProcedureReturn CallWindowProc_(ProcessBarCB, hWnd, uMsg, wParam, lParam)  
EndProcedure

If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  ProgressBarGadget(1, 10, 10, 480, 20, 0, 100, 0)
  SetGadgetState(1, 40)
  
  ProcessBarCB = SetWindowLongPtr_(GadgetID(1), #GWL_WNDPROC, @ProcessBarCB())
  
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_CloseWindow
        End
    EndSelect
  ForEver
EndIf

Code: Alles auswählen

EnableExplicit

Global ProcessBarCB

Procedure ProcessBarCB(hWnd, uMsg, wParam, lParam)
  Select uMsg
    Case #WM_LBUTTONUP
      PostEvent(#PB_Event_Gadget, 0, GetProp_(hWnd, "PB_ID"))
  EndSelect
  
  ProcedureReturn CallWindowProc_(ProcessBarCB, hWnd, uMsg, wParam, lParam)  
EndProcedure

If OpenWindow(0, 0, 0, 500, 400, "Window", #PB_Window_SystemMenu | #PB_Window_ScreenCentered)
  ProgressBarGadget(1, 10, 10, 480, 20, 0, 100, 0)
  SetGadgetState(1, 40)
  
  ProcessBarCB = SetWindowLongPtr_(GadgetID(1), #GWL_WNDPROC, @ProcessBarCB())
  
  Repeat
    Select WaitWindowEvent()
      Case #PB_Event_Gadget
        Select EventGadget()
          Case 1
            Debug "Klick"
        EndSelect
      Case #PB_Event_CloseWindow
        End
    EndSelect
  ForEver
EndIf