PureBoard

Code: Alles auswählen

EnableExplicit

Procedure GetWindowPBID(WindowID)
  Protected Result = -1
  If IsWindow_(WindowID)
    Result = GetProp_(WindowID,"PB_WINDOWID") - 1
  EndIf
  ProcedureReturn Result ; wenn -1 dann kein PB erstelltes Window oder nicht vorhanden
EndProcedure

Define WindowID

WindowID = OpenWindow(17,0,0,300,250,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)

If WindowID
  
  MessageRequester("","Die PB-WindowNummer lautet : "+Str(GetWindowPBID(WindowID)))
  Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
  
EndIf

Code: Alles auswählen

Procedure GetWindowPBID(WindowID)
  Protected Result = -1
  If IsWindow_(WindowID)
    Result = GetProp_(WindowID,"PB_WINDOWID") - 1
  ElseIf IsWindow_(WindowID(WindowID))
    Result = WindowID
  EndIf
  ProcedureReturn Result ; wenn -1 dann kein PB erstelltes Window oder nicht vorhanden
EndProcedure

Code: Alles auswählen

EnableExplicit

Define EventID

If OpenWindow(0,0,0,500,400,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  If CreateToolBar(128,WindowID(0))
    ToolBarStandardButton(0,#PB_ToolBarIcon_New)
    
    MessageRequester("","ToolBar-Nummer: "+Str(GetProp_(WindowID(0),"PB_ToolBar_ID")),#MB_ICONINFORMATION)
    
  EndIf
  
  Repeat
    EventID=WaitWindowEvent()
    If EventID = #PB_Event_CloseWindow
      End
    EndIf
  ForEver
EndIf

Code: Alles auswählen

EnableExplicit

Define EventID

If OpenWindow(0,0,0,500,400,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  If CreateStatusBar(128,WindowID(0))
    AddStatusBarField(#PB_Ignore)
    
    MessageRequester("","StatusBar-Nummer: "+Str(GetProp_(WindowID(0),"PB_StatusBar_ID")-1),#MB_ICONINFORMATION)
    
  EndIf
  
  Repeat
    EventID=WaitWindowEvent()
    If EventID = #PB_Event_CloseWindow
      End
    EndIf
  ForEver
EndIf

Code: Alles auswählen

#PB_ID_Window    = 1
#PB_ID_Gadget    = 2
#PB_ID_ToolBar   = 3
#PB_ID_StatusBar = 4

Procedure GetPBID(ID, Type = #PB_ID_Window)
  
  Protected Result = -1, Properties.s = "PB_WINDOWID,PB_ID,PB_ToolBar_ID,PB_StatusBar_ID"
  
  If Type=>#PB_ID_Window And Type<=#PB_ID_StatusBar
    If IsWindow_(ID)
      Debug StringField(Properties,Type,",")
      Result = GetProp_(ID,StringField(Properties,Type,","))
      If Type = #PB_ID_Window Or Type = #PB_ID_StatusBar
        Result - 1
      EndIf
    Else
      Select Type
        Case #PB_ID_Window
          If IsWindow(ID) : Result = ID : EndIf
        Case #PB_ID_Gadget
          If IsGadget(ID) : Result = ID : EndIf
        Case #PB_ID_StatusBar
          If IsStatusBar(ID) : Result = ID : EndIf
        Case #PB_ID_ToolBar 
          If IsToolBar(ID) : : Result = ID : EndIf
      EndSelect
    EndIf
  EndIf

  ProcedureReturn Result ; wenn -1 dann kein PB erstelltes Window oder nicht vorhanden
  
EndProcedure

EnableExplicit

Define EventID

If OpenWindow(0,0,0,500,400,"Window",#PB_Window_SystemMenu|#PB_Window_ScreenCentered)
  If CreateToolBar(128,WindowID(0))
    ToolBarStandardButton(0,#PB_ToolBarIcon_New)
  EndIf
  If CreateStatusBar(112,WindowID(0))
    AddStatusBarField(#PB_Ignore)
  EndIf
  ButtonGadget(1,100,100,100,20,"Huhu")
  
  Debug GetPBID(WindowID(0), #PB_ID_Window)
  Debug GetPBID(WindowID(0), #PB_ID_ToolBar)
  Debug GetPBID(WindowID(0), #PB_ID_StatusBar)
  Debug GetPBID(GadgetID(1), #PB_ID_Gadget)
  Debug GetPBID(0, #PB_ID_Gadget) ; Kein erstelltes Gadget
  Repeat
    EventID=WaitWindowEvent()
    If EventID = #PB_Event_CloseWindow
      End
    EndIf
  ForEver
EndIf

Code: Alles auswählen

, #BS_COMMANDLINK