Re: [api-dev] OfficeToolbar titlebar?
Hello Tim,
I hope that this code will work for you ...
:-)
The user have to restart OOo, included quickstarter.
oConfigAccess = GetConfigAccess(
"/org.openoffice.Office.UI.WriterWindowState/UIElements/States", True )
If oConfigAccess.HasByName( "private:resource/toolbar/addon_1") Then
oAddon = oConfigAccess.getByName(
"private:resource/toolbar/addon_1")
oAddon.UIName = "Essbase"
oConfigAccess.commitChanges()
Function GetConfigAccess( ByVal cNodePath As String,ByVal
bWriteAccess As Boolean,Optional bEnableSync,Optional bLazyWrite) As
Object
If IsMissing(bEnableSync) Then bEnableSync = True
If IsMissing( bLazyWrite ) Then bLazyWrite = False
Dim oConfigProvider, oConfigAccess as Object
oConfigProvider =
GetProcessServiceManager.createInstanceWithArguments("com.sun.star.configuration.ConfigurationProvider",Array(
MakePropertyValue( "enableasync", bEnableSync)))
If bWriteAccess Then
cServiceName =
"com.sun.star.configuration.ConfigurationUpdateAccess"
Else
cServiceName = "com.sun.star.configuration.ConfigurationAccess"
EndIf
oConfigAccess = oConfigProvider.createInstanceWithArguments(
cServiceName, Array( MakePropertyValue( "nodepath", cNodePath ),
MakePropertyValue( "lazywrite", bLazyWrite )))
GetConfigAccess() = oConfigAccess
End Function
Tim Tow a crit:
In my Essbase addon, I have a custom toolbar that now works properly.
However, if the users undocks the toolbar and drags it down into it's own
window. The title bar on the resultant window is 'Add-on 1'. Is there a
way I can customize that title bar to say 'Essbase'?
I didn't see anything in the dev guide.
Tim
Tim Tow
Applied OLAP, Inc
256.990.0136
-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
Didier Dorange-Pattoret
http://www.dmaths.org
http://sesamath.net
S'inscrire la liste de diffusion de dmaths: [EMAIL PROTECTED]
Ses archives: http://listes.dmaths.org/wws/arc/users
Les Forums: http://www.dmaths.org/modules.php?name=Forums
Mailing List in english: http://www.dmaths.org/modules.php?name=Contentpa=showpagepid=9
Le livre de rfrence pour OpenOffice.org2 : http://www.amazon.fr/exec/obidos/ASIN/2212116381/dmaths-21
Programmation OpenOffice.org2 : http://www.amazon.fr/exec/obidos/ASIN/2212117639/dmaths-21
[api-dev] Code Snippet Base out
Hi everibody, This url is'nt avalaible : http://codesnippets.services.openoffice.org/ What's the problem ? -- Didier Dorange-Pattoret http://www.dmaths.org http://sesamath.net S'inscrire à la liste de diffusion de dmaths: [EMAIL PROTECTED] Ses archives: http://listes.dmaths.org/wws/arc/users Les Forums: http://www.dmaths.org/modules.php?name=Forums Mailing List in english: http://www.dmaths.org/modules.php?name=Contentpa=showpagepid=9 Le livre de référence pour OpenOffice.org2 : http://www.amazon.fr/exec/obidos/ASIN/2212116381/dmaths-21 Programmation OpenOffice.org2 : http://www.amazon.fr/exec/obidos/ASIN/2212117639/dmaths-21 - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: [api-dev] How to close the quickstarter
Hi, Thanks fot all ... :-) Tom Schindl a écrit : Thanks I've added the snippet to our collection but broke it into 2 parts and linked them together. http://codesnippets.services.openoffice.org/Office/Office.HowToCloseTheQuickstarterUnderWindows.snip http://codesnippets.services.openoffice.org/Office/Office.HowToCloseTheQuickstarterUnderWindows2.snip Tom -- Didier Dorange-Pattoret http://www.dmaths.org http://sesamath.net S'inscrire à la liste de diffusion de dmaths: [EMAIL PROTECTED] Ses archives: http://listes.dmaths.org/wws/arc/users Les Forums: http://www.dmaths.org/modules.php?name=Forums Mailing List in english: http://www.dmaths.org/modules.php?name=Contentpa=showpagepid=9 Le livre de référence pour OpenOffice.org2 : http://www.amazon.fr/exec/obidos/ASIN/2212116381/dmaths-21 Programmation OpenOffice.org2 : http://www.amazon.fr/exec/obidos/ASIN/2212117639/dmaths-21 - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: [api-dev] How to close the quickstarter
Hello Tom, How to close OOo and/or the quickstarter but with two ways. Thanks to Oliver Brinzing. -- Didier Dorange-Pattoret http://www.dmaths.org http://sesamath.net S'inscrire à la liste de diffusion de dmaths: [EMAIL PROTECTED] Ses archives: http://listes.dmaths.org/wws/arc/users Les Forums: http://www.dmaths.org/modules.php?name=Forums Mailing List in english: http://www.dmaths.org/modules.php?name=Contentpa=showpagepid=9 Le livre de référence pour OpenOffice.org2 : http://www.amazon.fr/exec/obidos/ASIN/2212116381/dmaths-21 Programmation OpenOffice.org2 : http://www.amazon.fr/exec/obidos/ASIN/2212117639/dmaths-21 ?xml version=1.0? !-- $RCSfile: $ last change: $Revision: $ $Author: $ $Date: $ (c)2003 by the copyright holders listed with the author-tags. If no explicit copyright holder is mentioned with a certain author, the author him-/herself is the copyright holder. All rights reserved. Public Documentation License Notice: The contents of this Documentation are subject to the Public Documentation License Version 1.0 (the License); you may only use this Documentation if you comply with the terms of this License. A copy of the License is available at http://www.openoffice.org/licenses/PDL.html The Original Documentation can be found in the CVS archives of openoffice.org at the place specified by RCSfile: in this header. The Initial Writer(s) of the Original Documentation are listed with the author-tags below. The Contributor(s) are listed with the author-tags below without the marker for being an initial author. All Rights Reserved. -- snippet language=OOBasic application=Office keywords keywordQuickstarter/keyword keywordClose/keyword keywordWindows/keyword keywordAPI Windows/keyword /keywords authors author id=ddorange initial=true email=[EMAIL PROTECTED] copyright=Didier Dorange-PattoretDidier Dorange-Pattoret/author /authors question heading=How to close the quickstarter under Windows pThe first way,/p listingDeclare Function GetActiveWindow Lib quot;user32quot; () As Long Declare Sub ExitProcess Lib quot;kernel32quot; (ByVal uExitCode As Long) Sub Essai rem getting the active windowapos;s handle. hWnd = GetActiveWindow() rem closing all active windows On error resume Next myEnum = StarDesktop.Components.CreateEnumeration Do while myEnum.HasmoreElements oDoc = myEnum.NextElement If HasUnoInterfaces(oDoc, quot;[EMAIL PROTECTED] com.sun.star.util.XCloseable}quot;) Then oDoc.close(true) Else oDoc.dispose() End If Loop On error goto 0 rem closing the quickstarter ExitProcess(hWnd) End Sub /listing /question answer pAnother way/p listingSub CloseQuickstarter LeChemin = GetRepertoirePath(quot;progquot;)amp;quot;\quickstart.exe -killtrayquot; Shell(LeChemin) End Sub Function GetRepertoirePath(sInstPath as String) as String apos;donne le r#233;pertoire correspondant Dim oPathSubstSrv as Object Dim sPath as String sInstPath = quot;$(quot;+sInstPath+quot;)quot; oPathSubstSrv = createUnoService(quot;[EMAIL PROTECTED] com.sun.star.comp.framework.PathSubstitution}quot;) sPath = ConvertFromUrl(oPathSubstSrv.getSubstituteVariableValue(sInstPath)) GetRepertoirePath = sPath End Function/listing /answer versions version number=2.0.x status=tested/ /versions operating-systems operating-system name=Win32/ /operating-systems changelog change author-id=ddorange date=2006-03-06Initial version/change /changelog /snippet - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: [api-dev] How to close the quickstarter
Hi, Mathias Bauer a écrit : Didier Dorange-Pattoret wrote: Declare Function GetActiveWindow Lib quot;user32quot; () As Long Declare Sub ExitProcess Lib quot;kernel32quot; (ByVal uExitCode As Long) Sub Essai rem getting the active windowapos;s handle. hWnd = GetActiveWindow() rem closing all active windows On error resume Next myEnum = StarDesktop.Components.CreateEnumeration Do while myEnum.HasmoreElements oDoc = myEnum.NextElement If HasUnoInterfaces(oDoc, quot;[EMAIL PROTECTED] com.sun.star.util.XCloseable}quot;) Then oDoc.close(true) Else oDoc.dispose() End If Loop On error goto 0 rem closing the quickstarter ExitProcess(hWnd) End Sub Just to avoid confusion: of course this does not just close the quickstarter, it shuts down the whole OOo process. That the QS is also closed is more a collateral damage. :-) As a side effect remote bridges or OLE connections that might be there will be broken. Thank you for your suggestions. I would be better to use the FindWindow function of Win API. But I did'nt find the name of the quickstarter Window. So you should better declare this snippet as something that terminates the OOo process even if the QS is running. This will set expectations right. Tom, could you do this job. I think we should finally provide an API to close the QS to avoid such desperate attempts. :-) Maybe, the knowledge of the quickstarter's name should be enough. Best regards, Mathias Didier Dorange-Pattoret. - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: [api-dev] How to close the quickstarter
Tom Schindl a écrit : Done. Tom Thank you ... - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
[api-dev] How to close the quickstarter
Hi, I suggest a new snippet. -- Didier Dorange-Pattoret http://www.dmaths.org http://sesamath.net S'inscrire à la liste de diffusion de dmaths: [EMAIL PROTECTED] Ses archives: http://listes.dmaths.org/wws/arc/users Les Forums: http://www.dmaths.org/modules.php?name=Forums Mailing List in english: http://www.dmaths.org/modules.php?name=Contentpa=showpagepid=9 Le livre de référence pour OpenOffice.org2 : http://www.amazon.fr/exec/obidos/ASIN/2212116381/dmaths-21 Programmation OpenOffice.org2 : http://www.amazon.fr/exec/obidos/ASIN/2212117639/dmaths-21 ?xml version=1.0? !-- $RCSfile: $ last change: $Revision: $ $Author: $ $Date: $ (c)2003 by the copyright holders listed with the author-tags. If no explicit copyright holder is mentioned with a certain author, the author him-/herself is the copyright holder. All rights reserved. Public Documentation License Notice: The contents of this Documentation are subject to the Public Documentation License Version 1.0 (the License); you may only use this Documentation if you comply with the terms of this License. A copy of the License is available at http://www.openoffice.org/licenses/PDL.html The Original Documentation can be found in the CVS archives of openoffice.org at the place specified by RCSfile: in this header. The Initial Writer(s) of the Original Documentation are listed with the author-tags below. The Contributor(s) are listed with the author-tags below without the marker for being an initial author. All Rights Reserved. -- snippet language=OOBasic application=Office keywords keywordQuickstarter/keyword keywordClose/keyword keywordWindows/keyword keywordAPI Windows/keyword /keywords authors author id=ddorange initial=true email=[EMAIL PROTECTED] copyright=Didier Dorange-PattoretDidier Dorange-Pattoret/author /authors question heading=How to close the quickstarter under WindowsHow to close the quickstarter listingDeclare Function GetActiveWindow Lib quot;user32quot; () As Long Declare Sub ExitProcess Lib quot;kernel32quot; (ByVal uExitCode As Long) Sub Essai rem getting the active windowapos;s handle. hWnd = GetActiveWindow() rem closing all active windows On error resume Next myEnum = StarDesktop.Components.CreateEnumeration Do while myEnum.HasmoreElements oDoc = myEnum.NextElement If HasUnoInterfaces(oDoc, quot;[EMAIL PROTECTED] com.sun.star.util.XCloseable}quot;) Then oDoc.close(true) Else oDoc.dispose() End If Loop On error goto 0 rem closing the quickstarter ExitProcess(hWnd) End Sub /listing /question answer /answer versions version number=2.0.x status=tested/ /versions operating-systems operating-system name=Win32/ /operating-systems changelog /changelog /snippet - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
[api-dev] A new code snippet
Hi, If you agree a this code allows to Resize an external image located at /home/didier/tmp4/about.bmp with your width for example 16. Sorry for my bad english. Sub Essai ResizeExternalImageByWidth(/home/didier/tmp4/about.bmp,/home/didier/tmp4/about_1616.bmp,16) End sub Sub ResizeExternalImageByWidth(sURLImage,sURLImageResized as String, iWidth as Integer) rem open a sdraw hidden document Dim mFileProperties(0) As New com.sun.star.beans.PropertyValue Dim Proportion as Single mFileProperties(0).Name=Hidden mFileProperties(0).Value=True oDesktop=createUnoService(com.sun.star.frame.Desktop) monDocument = oDesktop.LoadComponentFromURL(private:factory/sdraw,_blank,0,mFileProperties()) maPage = monDocument.DrawPages(0) rem insert in the drawpage the image resized at 1000 ImageL = monDocument.createInstance(com.sun.star.drawing.GraphicObjectShape) ImageL.GraphicURL = ConvertToURL(sURLImage) maPage.add(ImageL) resizeImageByWidth(ImageL,1000) rem resizing the drawpage Proportion = ImageL.Size.Height/ImageL.Size.Width maPage.Width = 1000 maPage.Height = ArrondiEntier(1000*Proportion) rem set export data Dim aFilterData (1) as new com.sun.star.beans.PropertyValue aFilterData(0).Name = PixelWidth' aFilterData(0).Value = iWidth aFilterData(1).Name = PixelHeight aFilterData(1).Value = ArrondiEntier(iWidth*Proportion) rem export drawpage Export( maPage,sURLImageResized , aFilterData() ) On error resume Next monDocument.Close(True) On error goto 0 End Sub Function ArrondiEntier(Nombre as Single) as Integer If Nombre-Int(Nombre) 0.5 Then ArrondiEntier = Int(Nombre) Else ArrondiEntier = Int(Nombre)+1 Endif End Function Sub Export( xObject, sFileUrl As String, aFilterData ) xExporter = createUnoService( com.sun.star.drawing.GraphicExportFilter ) xExporter.SetSourceDocument( xObject ) Dim aArgs (2) as new com.sun.star.beans.PropertyValue Dim aURL as new com.sun.star.util.URL sFileUrl = ConvertToURL(sFileUrl) aArgs(0).Name = FilterName aArgs(0).Value = bmp aArgs(1).Name = URL aArgs(1).Value = sFileUrl aArgs(2).Name = FilterData aArgs(2).Value = aFilterData xExporter.filter( aArgs() ) End Sub Sub resizeImageByWidth(uneImage As Object, largeur As Long) Dim leBitMap As Object, Proportion As Double Dim Taille1 As New com.sun.star.awt.Size LeBitmap = uneImage.GraphicObjectFillBitmap Taille1 = LeBitMap.Size ' taille in pixels ! Proportion = Taille1.Height / Taille1.Width Taille1.Width = largeur ' largeur en 1/100 de mm Taille1.Height = Taille1.Width * Proportion uneImage.Size = Taille1 End Sub -- Didier Dorange-Pattoret http://www.dmaths.org http://sesamath.net S'inscrire à la liste de diffusion de dmaths: [EMAIL PROTECTED] Ses archives: http://listes.dmaths.org/wws/arc/users Les Forums: http://www.dmaths.org/modules.php?name=Forums Mailing List in english: http://www.dmaths.org/modules.php?name=Contentpa=showpagepid=9 Le livre de référence pour OpenOffice.org2 : http://www.amazon.fr/exec/obidos/ASIN/2212116381/dmaths-21 Programmation OpenOffice.org2 : http://www.amazon.fr/exec/obidos/ASIN/2212117639/dmaths-21 - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
[api-dev] [code snippet] resize an external image
Hi, The code. -- Didier Dorange-Pattoret http://www.dmaths.org http://sesamath.net S'inscrire à la liste de diffusion de dmaths: [EMAIL PROTECTED] Ses archives: http://listes.dmaths.org/wws/arc/users Les Forums: http://www.dmaths.org/modules.php?name=Forums Mailing List in english: http://www.dmaths.org/modules.php?name=Contentpa=showpagepid=9 Le livre de référence pour OpenOffice.org2 : http://www.amazon.fr/exec/obidos/ASIN/2212116381/dmaths-21 Programmation OpenOffice.org2 : http://www.amazon.fr/exec/obidos/ASIN/2212117639/dmaths-21 ?xml version=1.0? !-- $RCSfile: $ last change: $Revision: $ $Author: $ $Date: $ (c)2003 by the copyright holders listed with the author-tags. If no explicit copyright holder is mentioned with a certain author, the author him-/herself is the copyright holder. All rights reserved. Public Documentation License Notice: The contents of this Documentation are subject to the Public Documentation License Version 1.0 (the License); you may only use this Documentation if you comply with the terms of this License. A copy of the License is available at http://www.openoffice.org/licenses/PDL.html The Original Documentation can be found in the CVS archives of openoffice.org at the place specified by RCSfile: in this header. The Initial Writer(s) of the Original Documentation are listed with the author-tags below. The Contributor(s) are listed with the author-tags below without the marker for being an initial author. All Rights Reserved. -- snippet language=OOBasic application=Office keywords keywordresize/keyword keywordimage/keyword /keywords authors author id=ddorange initial=true email=[EMAIL PROTECTED] copyright=LGPLDorange-Pattoret Didier/author /authors question heading=resize an external image listingSub Essai ResizeExternalImageByWidth(quot;/home/didier/tmp4/about.bmpquot;,quot;/home/didier/tmp4/about_1616.bmpquot;,16) End sub Sub ResizeExternalImageByWidth(sURLImage,sURLImageResized as String, iWidth as Integer) rem open a sdraw hidden document Dim mFileProperties(0) As New [EMAIL PROTECTED] com.sun.star.beans.PropertyValue} Dim Proportion as Single mFileProperties(0).Name=quot;Hiddenquot; mFileProperties(0).Value=True oDesktop=createUnoService(quot;[EMAIL PROTECTED] com.sun.star.frame.Desktop}quot;) monDocument = oDesktop.LoadComponentFromURL(quot;private:factory/sdrawquot;,quot;_blankquot;,0,mFileProperties()) maPage = monDocument.DrawPages(0) rem insert in the drawpage the image resized at 1000 ImageL = monDocument.createInstance(quot;[EMAIL PROTECTED] com.sun.star.drawing.GraphicObjectShape}quot;) ImageL.GraphicURL = ConvertToURL(sURLImage) maPage.add(ImageL) resizeImageByWidth(ImageL,1000) rem resizing the drawpage Proportion = ImageL.Size.Height/ImageL.Size.Width maPage.Width = 1000 maPage.Height = ArrondiEntier(1000*Proportion) rem set export data Dim aFilterData (1) as new [EMAIL PROTECTED] com.sun.star.beans.PropertyValue} aFilterData(0).Name = quot;PixelWidthquot;apos; aFilterData(0).Value = iWidth aFilterData(1).Name = quot;PixelHeightquot; aFilterData(1).Value = ArrondiEntier(iWidth*Proportion) rem export drawpage Export( maPage,sURLImageResized , aFilterData() ) On error resume Next monDocument.Close(True) On error goto 0 End Sub Function ArrondiEntier(Nombre as Single) as Integer If Nombre-Int(Nombre) lt; 0.5 Then ArrondiEntier = Int(Nombre) Else ArrondiEntier = Int(Nombre)+1 Endif End Function Sub Export( xObject, sFileUrl As String, aFilterData ) xExporter = createUnoService( quot;[EMAIL PROTECTED] com.sun.star.drawing.GraphicExportFilter}quot; ) xExporter.SetSourceDocument( xObject ) Dim aArgs (2) as new [EMAIL PROTECTED] com.sun.star.beans.PropertyValue} Dim aURL as new [EMAIL PROTECTED] com.sun.star.util:URL} sFileUrl = ConvertToURL(sFileUrl) aArgs(0).Name = quot;FilterNamequot; aArgs(0).Value = quot;bmpquot; aArgs(1).Name = quot;URLquot; aArgs(1).Value = sFileUrl aArgs(2).Name = quot;FilterDataquot; aArgs(2).Value = aFilterData xExporter.filter( aArgs() ) End Sub Sub resizeImageByWidth(uneImage As Object, largeur As Long) Dim leBitMap As Object, Proportion As Double Dim Taille1 As New [EMAIL PROTECTED] com.sun.star.awt.Size} LeBitmap = uneImage.GraphicObjectFillBitmap Taille1 = LeBitMap.Size apos; taille in pixels ! Proportion = Taille1.Height / Taille1.Width Taille1.Width = largeur apos; largeur en 1/100 de mm Taille1.Height = Taille1.Width * Proportion uneImage.Size = Taille1 End Sub /listing /question answer /answer versions /versions operating-systems operating-system name=All/ /operating-systems changelog /changelog /snippet - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: [api-dev] [code snippet] resize an external image
Hi, Tom Schindl a écrit : Hi, thanks for the contribution. Your codesnippet has been added to the collection and can be found here: http://codesnippets.services.openoffice.org/Office/Office.ResizeExternalImage.snip I've restructured some parts, could please provide me information about the OO-Version you used to create this. I used OOo2.0.1 french version. -- Didier Dorange-Pattoret http://www.dmaths.org http://sesamath.net S'inscrire à la liste de diffusion de dmaths: [EMAIL PROTECTED] Ses archives: http://listes.dmaths.org/wws/arc/users Les Forums: http://www.dmaths.org/modules.php?name=Forums Mailing List in english: http://www.dmaths.org/modules.php?name=Contentpa=showpagepid=9 Le livre de référence pour OpenOffice.org2 : http://www.amazon.fr/exec/obidos/ASIN/2212116381/dmaths-21 Programmation OpenOffice.org2 : http://www.amazon.fr/exec/obidos/ASIN/2212117639/dmaths-21 - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: [api-dev] [code snippet] resize an external image
Hi, I'am the original author of this one : http://codesnippets.services.openoffice.org/Office/Office.WindowsVersion.snip Please, could you write my right name. -- Didier Dorange-Pattoret http://www.dmaths.org http://sesamath.net S'inscrire à la liste de diffusion de dmaths: [EMAIL PROTECTED] Ses archives: http://listes.dmaths.org/wws/arc/users Les Forums: http://www.dmaths.org/modules.php?name=Forums Mailing List in english: http://www.dmaths.org/modules.php?name=Contentpa=showpagepid=9 Le livre de référence pour OpenOffice.org2 : http://www.amazon.fr/exec/obidos/ASIN/2212116381/dmaths-21 Programmation OpenOffice.org2 : http://www.amazon.fr/exec/obidos/ASIN/2212117639/dmaths-21 - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
[api-dev] How to get the window of quickstarter
Hello, I try without success to get the window of the quickstarter. Does everybody know its right name ? See my code below. Declare Function FindWindow Lib user32 Alias FindWindowA (ByVal _ lpClassName As long, ByVal lpWindowName As String) As Long Sub Main Print FindWindow(0,Démarrage rapide de OpenOffice.org 2.0) end Sub Thanks for your help. - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
[api-dev] Probleme with Ole2shape
Hello everibody, I get an error with : Sub Essai28 oDocument =Thiscomponent oVecteur = oDocument.createInstance(com.sun.star.drawing.OLE2Shape) End Sub under OOo2.0 et non under 1.1.x What is wrong ? Is it a bug ? -- Didier Dorange-Pattoret http://www.dmaths.org http://sesamath.net - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: [api-dev] Macros for all users
Hello, Michael, it seems you do'nt understand me. If I am root, I have the acces right. But for my knowledge the method CreateLinkLibrary creates a library only for the root account. I would like that the su root creates a library avalaible for all the users. Is it possible, without using pkgchk (Addons) and if yes how. Thanks. Michael Hoennig a écrit : Hi Didier, The CreateLibraryLink methods allows to create a library with an URL. But, in case of network-installation, it's created only for the current user. Is it possible to create this library for all the users ? Usually a normal user would not have the neccessary access rights, anyway. Michael -- Didier Dorange-Pattoret http://www.dmaths.org http://sesamath.net S'inscrire à la liste de diffusion de dmaths: [EMAIL PROTECTED] Ses archives: http://listes.dmaths.org/wws/arc/users Les Forums: http://www.dmaths.org/modules.php?name=Forums Mailing List in english: http://www.dmaths.org/modules.php?name=Contentpa=showpagepid=9 Le livre de référence pour OpenOffice.org : http://www.amazon.fr/exec/obidos/ASIN/221211348X/dmaths-21 Programmation OpenOffice.org : http://www.amazon.fr/exec/obidos/ASIN/2212114397/dmaths-21 - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
Re: [api-dev] Insert Formula in a swriter document
Hello , Mathias Bauer a écrit : Didier Dorange-Pattoret wrote: Hello Sub Main obj=ThisComponent.CreateInstance(com.sun.star.text.TextEmbeddedObject) obj.CLSID=078B7ABA-54FC-457F-8551-6147e776a997 obj.AnchorType = com.sun.star.text.TextContentAnchorType.AS_CHARACTER CurseurVisible = ThisComponent.CurrentController.ViewCursor Montexte = Thiscomponent.Text MonTexte.InsertTextContent(CurseurVisible,obj,false) TheFormule = obj.Model TheFormule.Formula = 1 over x TheFormule.Modified = TRUE End Sub I'm working on 1.9.74m This macro puts the formula in my text, but I can't see it. If I click, I can see the right formula, If I click at the second time I get the right size. This is a bug in the 1.9.74 version. Should be fixed until Beta. Best regards, Mathias Sorry, I tried So8 beta, OOom79 and I got the following formula. image de bug -- Didier Dorange-Pattoret http://www.dmaths.org http://sesamath.net S'inscrire à la liste de diffusion de dmaths: [EMAIL PROTECTED] Ses archives: http://listes.dmaths.org/wws/arc/users Les Forums: http://www.dmaths.org/modules.php?name=Forums Mailing List in english: http://www.dmaths.org/modules.php?name=Contentpa=showpagepid=9 Le livre de référence pour OpenOffice.org : http://www.amazon.fr/exec/obidos/ASIN/221211348X/dmaths-21 Programmation OpenOffice.org : http://www.amazon.fr/exec/obidos/ASIN/2212114397/dmaths-21 - To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
