ATOUTFOX
COMMUNAUTÉ FRANCOPHONE DES PROFESSIONNELS FOXPRO
Visual FoxPro : le développement durable

Forum AtoutFox : Passer une array du objects a libreoffice/openoffice   

Sujet

rss Flux RSS des derniers messages

Vous devez vous identifier pour pouvoir poser une question ou répondre.

dim. 01 octobre 2017, 10h39

janflorijn
Pays-Bas 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
18 459 messages dans le forum • Liste complète des messages

Publicité

Les pubs en cours :

www.atoutfox.org - Site de la Communauté Francophone des Professionnels FoxPro - v3.4.0 - © 2004-2017.
Cette page est générée par un composant COM+ développé en Visual FoxPro 9.0