Depuis l'intégration du container dans le gadget Canvas, il ne reste plus qu'un problème pour réaliser des gadgets complètements indépendants de la boucle Repeat.
Il faudrait intégrer une fonction addKeyboardshortcut mais sans argument Window et Menu, mais plutôt Gadget et Procedure.
addKeyboardshortcut pour gadget
Re: addKeyboardshortcut pour gadget
Je ne comprends pas très bien ce que tu veux dire. Donnes plus de détails et un exemple si possible...
Win7 (x64) 64 bits Pb 5.72
- microdevweb
- Messages : 1800
- Inscription : mer. 29/juin/2011 14:11
- Localisation : Belgique
Re: addKeyboardshortcut pour gadget
Je ne comprend pas non plus, cela fait très longtemps que je n'utilise plus la boucle pour la gestion des événements.
Code : Tout sélectionner
Enumeration
#Bt_Validate
#Bt_Chancel
EndEnumeration
Procedure Exit()
CloseWindow(0)
End
EndProcedure
Procedure Valider()
Debug "Validation"
EndProcedure
Procedure Open()
OpenWindow(0,0,0,800,600,"Teste",#PB_Window_SystemMenu|#PB_Window_SystemMenu)
ButtonGadget(#Bt_Validate,10,520,90,30,"Valider")
ButtonGadget(#Bt_Chancel,100,520,90,30,"Quitter")
; Pour valider
AddKeyboardShortcut(0,#PB_Shortcut_Return,#Bt_Validate)
BindEvent(#PB_Event_Menu,@Valider(),0,#Bt_Validate)
; Pour quitter
AddKeyboardShortcut(0,#PB_Shortcut_Escape,#Bt_Chancel)
BindEvent(#PB_Event_Menu,@Exit(),0,#Bt_Chancel)
BindEvent(#PB_Event_CloseWindow,@Exit(),0)
BindGadgetEvent(#Bt_Validate,@Valider())
BindGadgetEvent(#Bt_Chancel,@Exit())
EndProcedure
Open()
Repeat
WaitWindowEvent()
ForEver
Windows 10 64 bits PB: 5.70 ; 5.72 LST
Work at Centre Spatial de Liège
Work at Centre Spatial de Liège