Page 1 sur 1
addKeyboardshortcut pour gadget
Publié : lun. 27/mars/2017 16:21
par lule
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.
Re: addKeyboardshortcut pour gadget
Publié : mar. 28/mars/2017 20:18
par omega
Je ne comprends pas très bien ce que tu veux dire. Donnes plus de détails et un exemple si possible...
Re: addKeyboardshortcut pour gadget
Publié : mar. 04/avr./2017 12:36
par microdevweb
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