dim. 01 octobre 2017, 10h39
janflorijn
Pays-Bas
atoutfox.public.association
Passer une array du objects a libreoffice/openoffice
Bonjour,
Désolé, mon français n'est pas si bon. A merci de Google translate.
J'utilise vfp et openoffice
J'ai réussi à transmettre un ensemble d'objets VFP à, par exemple, des tabstops en open office. Se référant directement par exemple Vfp_Tabstops à OO.Tabstops a échoué. A setpropertyvalue("ParaTabStops",@args) a réussi. mais paratabstops=args ne peut pas fonctionner.
Avec Xray in oo, je peux voir que oo ne reconnaît que le premier élément du tableau.
[vfp]
*Nu de tabstops
PUBLIC tbstps(3),tbstp,oStyle
oStyle=CREATEOBJECT("Empty")
oStyle=loDocument.createInstance("com.sun.star.style.ParagraphStyle")
tbstps(1)=CREATEOBJECT("Empty")
tbstps(2)=CREATEOBJECT("Empty")
tbstps(3)=CREATEOBJECT("Empty")
tbstps(1)=Thisform.lofuncties1.ooocreatestruct("com.sun.star.style.TabStop")
tbstps(2)=Thisform.lofuncties1.ooocreatestruct("com.sun.star.style.TabStop")
tbstps(3)=Thisform.lofuncties1.ooocreatestruct("com.sun.star.style.TabStop")
tbstp=tbstps(1)
tbstp.Alignment = 0
tbstp.DecimalChar = 44
tbstp.FillChar = 32
tbstp.Position = 1500
tbstps(1)=tbstp
tbstp=tbstps(2)
tbstp.Alignment = 0
tbstp.DecimalChar = 44
tbstp.FillChar = 32
tbstp.Position = 3250
tbstps(2)=tbstp
tbstp=tbstps(3)
tbstp.Alignment = 0
tbstp.DecimalChar = 44
tbstp.FillChar = 32
tbstp.Position = 4750
tbstps(3)=tbstp
*oStyle.SetPropertyValue("ParaTabStops",@tbstps) &&Cela fonctionne
oStyle.ParatabStops=(tbstps) &&Cela ne fonctionne pas
Thisform.lofuncties1.call_xray(oStyle)
[/vfp
Comment puis-je laisser fonctionner oStyle.Para tabStops = (tbsps)?
Le contexte de ma question réside dans un bug TableColumnSeparators. SetPropertyValue ne fonctionne pas là et dans ce cas a = b serait une bonne solution.
Merci,
Jan Flikweert
Permalink : http://www.atoutfox.org/nntp.asp?ID=0000018467