Danke, aber das ist mir zu viel. Das „erschlägt“ mich.
Ich würde mehr lernen, wenn jemand das Beispiel von oben nur gerade soweit ergänzt, dass es wie erwartet funktioniert.
Danke, aber das ist mir zu viel. Das „erschlägt“ mich.
Code: Alles auswählen
Procedure.i WindowPB(hWnd) ; returns PB Number from windows system handle (identifier)
ProcedureReturn GetProp_(hWnd, "pb_windowid") - 1
EndProcedure ;()
Procedure.i GadgetPB(hGadget) ; returns PB Number from windows system handle (identifier)
ProcedureReturn GetProp_(hGadget, "pb_id")
EndProcedure ;()
CompilerIf #PB_Compiler_IsMainFile
; **** Example how to call and what kind of return value
EnableExplicit
Define wnd, ctrl
wnd = OpenWindow(#PB_Any, 0, 0, 320, 160, "Example how to call", #PB_Window_ScreenCentered|#PB_Window_SystemMenu)
ctrl = EditorGadget(#PB_Any, 0, 0, 320, 160)
AddGadgetItem(ctrl, -1, "Window:")
AddGadgetItem(ctrl, -1, " wnd = " + wnd)
AddGadgetItem(ctrl, -1, " PB_ID = " + WindowPB(WindowID(wnd)))
AddGadgetItem(ctrl, -1, "")
AddGadgetItem(ctrl, -1, "Gadget:")
AddGadgetItem(ctrl, -1, " ctrl = " + ctrl)
AddGadgetItem(ctrl, -1, " PB_ID = " + GadgetPB(GadgetID(ctrl)))
Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
CompilerEndIf