Sébastien Chopin wrote:
[...]
A ma connaissance non, mais cela peut être un sujet intéressant pour
un
"addon", c'est-à-dire une macro avec son paquet cadeau pour
l'installer
facilement.
Quelqu'un s'est-il déjà penché sur la question?
--
Gilles Bignebat
Bonjour,
Moi, mais l'API concernant la galerie n'est (encore) stabilisée, d'une
part et de l'autre il fait quand même passer par le théme, ne serait ce
que parce dans des thèmes différents on peut avoir des objets de mêm nom ...
. Les entrèes d'api sont les suivantes :
- GalleryThemeProvider
- GalleryTheme
- GalleryItem.
GalleryItem est juste un tableau. Ceci affiche le dialogue montrant le
contenu des tableaux (et ici il est vide):
sub main
thmItem = CreateUnoService("com.sun.star.gallery.GalleryItem")
xray thmitem
end sub
Par contre on va pouvoir le parcourir :
[...]
for i=0 to thmtoDisplay.count - 1
thmItem = thmToDisplay(i)
itemInstance =
mainWin.Model.createInstance("com.sun.star.awt.UnoControlImageControlModel")
itemInstance.PositionX = X
itemInstance.PositionY = Y
itemInstance.Width = 30
itemInstance.Height = 30
itemInstance.ScaleImage = false
itemInstance.Border = 1
itemInstance.imageURL = thmitem(i).URL
itemInstance.name = "test"&"_"&i
mainWin.Model.InsertByName(itemInstance.name,itemInstance)
X = X + 35
If X>457 then
X = 126
Y = Y + 70
endif
next
[...]
Cet extrait parcours le tableau thmtoDisplays et crée un objet controle
d'image sur la page principale de ma macro de test pour chaque item du
théme choisi.
Donc, ce qui peut être fait, c'est de créer un tableau parcourant tous
les thèmes et associant à chacun les objets contenus. ensuite il suffra
de parcourir le tableau pour retrouver les items portant le même nom.
Une fois cette liste faite, il est facile de "trouver le bon" en
demandant à l'utilisateur.
HTH,
A+
Serge
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
