[Résolu][Basic] Masquer barres d'outils

[joel275]

Bonjour,

suite à ce fil http://user.services.openoffice.org/fr/ ... 27#p147110, (merci Loopings pour ce travail)
les barres d'outils crées par des Add-on ne sont pas listées dans:

Code : Tout sélectionner

ThisComponent.GetCurrentController.GetFrame.LayoutManager.getElements()

Où peut-on trouver les noms des barres d'outils affichées par Add-on et les masquer/ montrer?

D'avance merci

Joël

[spYre]

Bonjour joel275,

Je ne parviens pas plus à récupérer le nom de ces barres d'outils (non persistant) lorsqu'il est inconnu a priori.

Mais à tout hasard, si l'objectif est de masquer l'ensemble des éléments, cette méthode fonctionnera :

Code : Tout sélectionner

Sub Main
	doc = thiscomponent
	f = doc.getCurrentController().getFrame()
	lm = f.layoutmanager
	if lm.isVisible() then
		lm.setVisible(false)
	else lm.setVisible(true)
	end if
End Sub

Cordialement.

[joel275]

Bonjour Spyre,

merci pour cette réponse rapide.
Malheureusement, cette technique est un peu "brutale" pour moi car elle cache également le Statusbar dont j'ai besoin pour récupérer les coordonnées de la souris; il en va de même d'ailleurs pour la fonction plein écran.

A plus
Joël

[lmerger]

Bonsoir Joël,
ne faudrait-il pas rajouter le mot clé 'add-on' dans le titre pour être exhaustif ? (c'est juste une question)


L.

[Loopingss]

Bonjour,
La macro que j'ai posté dans le précédent fil et qui liste les barres d'outils ne liste que les barres d'outils disponibles, c'est à dire affichées.
Je pense qu'il en est de même avec celles des add-ons. En effet, ces derniers sont des programmes assortis de barres d'outils personnalisées (du moins je suppose).
COOordialement.

[joel275]

Bonjour Loopings,

malheureusement non.
après test et sauf erreur de ma part, les barres d'outils des add-on, même affichées, n'apparaissent pas dans la liste donnée dans ton code.

bonsoir Imerger,
poursuivant un fil sur l'affichage en général des barre d'outils, j'ai gardé le titre.....

A plus

[spYre]

Bonjour,

Où peut-on trouver les noms des barres d'outils affichées par Add-on et les masquer/ montrer?

Finalement trouvé un service qui répond à cette question : WindowStateConfiguration. Celui-ci permet en effet de récupérer l'ensemble des éléments disponibles pour le module donné... a l'exception de la barre de menus.
Exemple d'utilisation :

Code : Tout sélectionner

sub toggleToolbars( component )
dim LM as object, toolbars(), toolbar$, u%
	toolbars = createUnoService("com.sun.star.ui.WindowStateConfiguration").getByName(component.identifier).getElementNames()
	u = uBound(toolbars)+1
	redim preserve toolbars(u)
	toolbars(u) = "private:resource/menubar/menubar"
	LM = component.currentController.frame.layoutManager
	for each toolbar in toolbars
		If LM.isElementVisible(toolbar) then LM.hideElement(toolbar) else LM.showElement(toolbar)
	next
end sub

Cordialement.
 

[Churay]

Au rythme où ça va, on va avoir une bibliothèque complète

[lmerger]

+1
et par analogie, je dirais que c'est comme voir un shredder en concert et se dire qu'on arrivera jamais à avoir sa dextérité même en y passant (au moins) 4 heures par jour pendant (au moins) 4 ans.
voilà, je sais pas vous mais ce code me fait le même effet sur le moment

( SpYre)

[spYre]

Merci pour vos encouragements.
Mais le mérite est minime, il revient surtout aux auteurs de Xray et de la documentation de l'API .

[joel275]

Bonjour,

je me joins au concert d'applaudissements et reste béat d'admiration: j'ai Xray, je consulte l'API en cas de besoin, mais ne trouve jamais ce qui me serait utile!!!

Encore merci

Joël