PureBasic

Hello,

Je ne suis pas sûr à 100% que ce soit un bug de PB, mais j'ai des soucis avec le "support des skins XP" et le focus des gadgets.

En effet, un bouton (par exemple) devrait pouvoir avoir le focus et l'on devrait pouvoir se déplacer d'un gadget à un autre avec la touche TAB et activer le gadget avec la barre d'espace. Ceci fonctionne très bien en mode "old style", par contre, avec le mode "support des skins XP" le rectangle de focus n'apparait pas (ou très rarement).

Avec le code tout simple ci-dessous, ça fonctionne environ 1 fois sur 2 chez moi. Avec des codes plus compliqués, ça ne foncitonne carrément jamais : (testé avec PB3.94 et PB4)

Code tout bête pour afficher 4 boutons :

Code : Tout sélectionner

OpenWindow(0, 379, 172, 588, 389, #PB_Window_SystemMenu, "Test Focus")
CreateGadgetList(WindowID(0))

ButtonGadget(0, 50, 50, 100, 20, "Bouton 1")
ButtonGadget(1, 50, 100, 100, 20, "Bouton 2")
ButtonGadget(2, 50, 150, 100, 20, "Bouton 3")
ButtonGadget(3, 50, 200, 100, 20, "Bouton 4")

Repeat
  Event = WaitWindowEvent()
Until Event = #PB_Event_CloseWindow
End

ça fonctionne à tous les coups chez moi avec la version 3.94 ou avec la 4.0 beta 4.
Selection du premier Bouton avec la touche Tab et appui sur le bouton selectionné avec la touche espace.
No problème.

Je vois que c'est un code bêta 2, j'ai la bêta 3 et ça ne fonctionne pas, donc ça été corrigé avec la bêta 4.

Attention, il faut activer le "support des thèmes XP" dans les paramètres du compilateur pour avoir le problème !

Sinon, non ce n'est pas un code beta2, le titre de la fenêtre était un vieux copié/collé (que je viens de modifier). Ce problème se produit chez moi aussi bien avec la v3.94 qu'avec la dernière beta4.

Après 3 essais , J'allais te dire que ça fonctionnait bien chez moi , et puis j'ai refait un dernier essai , et là effectivement , il n'y a plus le focus.

Marche déjà mieux ainsi

Code : Tout sélectionner

OpenWindow(0, 379, 172, 588, 389, #PB_Window_SystemMenu, "Test Focus") 
CreateGadgetList(WindowID(0)) 

ButtonGadget(0, 50, 50, 100, 20, "Bouton 1", #PB_Button_Default) 
ButtonGadget(1, 50, 100, 100, 20, "Bouton 2") 
ButtonGadget(2, 50, 150, 100, 20, "Bouton 3") 
ButtonGadget(3, 50, 200, 100, 20, "Bouton 4") 

Repeat 
  Event = WaitWindowEvent() 
Until Event = #PB_Event_CloseWindow 
End

Par contre, on ne voit pas le déplacement.

J'avais oublié d'activer le support des themes XP.
C'est fait et effectivement ça ne fonctionne pas. En fait on ne vois pas la selection du bouton mais l'appui sur la barre espace semble fonctionner normalement.

PureBasic

[V3 et V4] Focus des gadget avec le "support des skins

[V3 et V4] Focus des gadget avec le "support des skins