----- Original Message -----
From: "Ariel Constenla-Haile" <[EMAIL PROTECTED]>
To: <prog@fr.openoffice.org>
Sent: Tuesday, October 09, 2007 5:36 AM
Subject: Re: [prog] [DRAW]gestion de la grille
Bonjour et grand merci a toi Ariel car le code que tu as fourni permet une
bonne avancée mais il reste comme tu l'as ndiqué encore un petit problème.
Lire la suite...
Ariel Constela Haile à écrit
Vous pouvez manipuler les options du menu "Outils" - "Options" -
"OpenOffice.org Draw" - "Grille", si vous accédez à la branche de
configuration "/org.openoffice.Office.Draw"
Pour manipuler la grille, utilisez "/org.openoffice.Office.Draw/Grid".
Exemple:
Sub DRAW_GRID_CONFIG
Dim oDrawGridConfig as Object
oDrawGridConfig = getConfigurationAccess(_
"/org.openoffice.Office.Draw/Grid", true )
If NOT IsNull(oDrawGridConfig) Then
Dim bIsVisibleGrid as Boolean
bIsVisibleGrid = oDrawGridConfig.getHierarchicalPropertyValue(_
"Option/VisibleGrid")
oDrawGridConfig.setHierarchicalPropertyValue(_
"Option/VisibleGrid", NOT bIsVisibleGrid)
oDrawGridConfig.setHierarchicalPropertyValue(_
"Resolution/XAxis/Metric", 500)
oDrawGridConfig.setHierarchicalPropertyValue(_
"Resolution/YAxis/Metric", 500)
'DO NOT forget to commit the changes!
oDrawGridConfig.commitChanges()
'BUT unfortunately, this will have NO effect until you close OOo
'and the QuickStarter
'NOT very useful!
End If
End Sub
Effectivement les modifications ne sont prise en compte que si on sort de
oOO. J'ai l'impression que c'est parce que le code de la fonction qui accède
bien à l'objet désiré le fait en créant une nouvelle instance de l'objet
donc ce n'est pas l'objet du fichier Draw à l'écran qui est modifié???
J'ai fait des recherche avex Xray mais pour l'instant infructueuses.
Function getConfigurationAccess( sNodePath$, bUpdate as Boolean,
Optional aLocale$)
REM Param. aLocale is STRING, NOT com.sun.star.lang.Locale
' for example. "es", "es-AR"
' "*" for ALL locales
On Error GoTo getConfigurationAccessErrorHandler
Dim sConfigurationProvider$, oConfigurationProvider as Object
Dim sConfigurationAccess$, sConfigurationUpdateAccess$, sConfiguration$
Dim oConfigurationAccess as Object
sConfigurationProvider =
"com.sun.star.configuration.ConfigurationProvider"
oConfigurationProvider = createUNOService(sConfigurationProvider)
Dim oParametros(0) As New com.sun.star.beans.PropertyValue
oParametros(0).Name = "nodepath"
oParametros(0).Value = sNodePath
sConfigurationAccess = "com.sun.star.configuration.ConfigurationAccess"
sConfigurationUpdateAccess =
"com.sun.star.configuration.ConfigurationUpdateAccess"
if bUpdate then
ReDim Preserve oParametros(1)
oParametros(1).Name = "EnableAsync"
oParametros(1).Value = FALSE
sConfiguration = sConfigurationUpdateAccess
else
sConfiguration = sConfigurationAccess
end if
if NOT IsMissing(aLocale) then
Dim n%
n = UBound(oParametros)+1
ReDim Preserve oParametros(n)
oParametros(n).Name = "Locale"
oParametros(n).Value = aLocale
end if
c'est le code ci-après qui créée une instance...
oConfigurationAccess =
oConfigurationProvider.createInstanceWithArguments(_
sConfiguration, oParametros())
getConfigurationAccessCleanUp:
getConfigurationAccess() = oConfigurationAccess
Exit Function
getConfigurationAccessErrorHandler:
Resume getConfigurationAccessCleanUp
End Function
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]