addKeyboardshortcut pour gadget

Vous avez une idée pour améliorer ou modifier PureBasic ? N'hésitez pas à la proposer.
lule
Messages : 11
Inscription : lun. 10/mai/2010 17:34

addKeyboardshortcut pour gadget

Message 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.
Avatar de l’utilisateur
omega
Messages : 617
Inscription : sam. 26/nov./2011 13:04
Localisation : Alger

Re: addKeyboardshortcut pour gadget

Message par omega »

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
Avatar de l’utilisateur
microdevweb
Messages : 1798
Inscription : mer. 29/juin/2011 14:11
Localisation : Belgique

Re: addKeyboardshortcut pour gadget

Message 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
Windows 10 64 bits PB: 5.70 ; 5.72 LST
Work at Centre Spatial de Liège
Répondre