[Résolu][Calc]Focus boite de dialogue dans barre d'outils

[luky-luke]

Bonjour,

En pièce jointe un code pour construire une barre d'outils avec Listbox, ComboBox, Champs date... etc. Tous les contrôles sont sur écoute (Big Brother) et renvois une info.
Je me suis fortement inspirer de ce lien Créer une zone de liste dans une barre d'outils. Et du suprême Gestion dynamique de dialogue J'ai tout pomper quoi !

Pour inviter des services UNO à travailler ensemble, il faut un script beanshell.
Le script BeanShell "listenercombiner.bsh" est dans le document joint. Pour la création de nouveau document, à condition qu'il ne soit pas utiliser sur plusieurs poste, ce script peut être copier dans le répertoire suivant

~/openoffice/4/user/Script/beanshell/

listenercombiner.zip

Ouvrir l'archive jointe et l'extraire dans le dossier beanshell. Si celui-ci n’existe pas, créer un nouveau dossier beanshell.

Ensuite dans le module FancyToolbarSub il faut modifier l'adresse du script dans la macro main
modifier document dans la ligne suivante

Code : Tout sélectionner

oScript = ThisComponent.getScriptProvider("").getScript("vnd.sun.star.script:listenercombiner.listenercombiner.bsh?language=BeanShell&location=document")

par user

Code : Tout sélectionner

oScript = ThisComponent.getScriptProvider("").getScript("vnd.sun.star.script:listenercombiner.listenercombiner.bsh?language=BeanShell&location=user")

Le script dans le document devient inutile.
Pour les fichiers vagabond, il faut suivre la procédure décrite dans le lien plus haut.


Dans le fichier Barre_BoiteDial_Calc_Exemple_1, il y a quatre modules.

• FancyToolbarSub Création de la barre, ne pas bricoler
  Liste_Control Création des contrôles.
  Listener Les écoutes.
  Utils Les utilitaires et les futures macro appelé par les écoutes.

Pour modifier simplement la barre d'outils : Module Liste_Control, dans la fonction GenerateControle vous pouvez juste commenter les lignes

Code : Tout sélectionner

	Call Construire (180, HautCtrl, PosX, PosY, oComboModel, "ComboBox1", "CBOX_", "Feuille2",0, TRUE)

ou les modifier. Adapter les listeners en conséquences, et penser au changement de nom des contrôles dans les listeners appelés.
En principe, c'est simple comme un jeu de taquin Ensuite la barre d'outils se gère de la même façon qu'une boite de dialogue. Il ne vous reste plus qu'a écrire les différente macro lier aux écoutes.

J'ai une petite question quand même à poser au GOoourOou. Comment rendre la main à la feuille après la prise de focus de la boite. Rendre le clavier actif sur la feuille, sans clic souris, seul moyen pour reprendre la main sur la feuille.
Dans l'exemple joint, quelques tentative mais sans succès. Une petite idée ?
Toute modifications, suggestions, questions, sont les bienvenue.

Cordialement
Luke

[gerard24]

Bonjour,

Je pense que tu veux que après sélection dans une listbox par exemple le focus revienne sur la feuille.
D'un point de vue macro je n'en sais rien (je suis une bille question macro),
d'un point de vue utilisateur, la touche F6 redonne le focus à la feuille.

A+

[Dude]

Salut,

Juste un mot pour dire que l'avenir n'est plus vraiment dans les barres d'outils avec l'avènement de la barre latérale.

[luky-luke]

Bonjour,

Et la barre latéral c'est pas une barre d'outils peut être .

Cordialement
Luke

P.S.: Merci Gérard pour la touche F6, mais c'est pas vraiment ce que je cherche. Je suis une feignasse, faut automatiser !

[bm92]

Bonjour,

Comment rendre la main à la feuille après la prise de focus de la boite. Rendre le clavier actif sur la feuille, sans clic souris, seul moyen pour reprendre la main sur la feuille.

Ouvrons le pavé Programmation OpenOffice.org et LibreOffice :
Table des matières... Les Formulaires ...Principes communs aux contrôles...
Tiens ! Remettre le focus sur le document page 769

Application : ajoutons à la fin de la Sub ABOX_actionPerformed:

Code : Tout sélectionner

ThisComponent.CurrentController.Frame.ContainerWindow.setFocus

[luky-luke]

Bonjour,

Merci bm92, la réponse était sous mon nez, pas vu.

Cordialement
Luke