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

Forum AtoutFox : Re: 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.

mar. 03 octobre 2017, 09h36
Gregory Adam
Belgique Belgique

atoutfox.public.association

Re: Passer une array du objects a libreoffice/openoffice

> et decimalchar et fillchar et alignment???

C'etait le principe ...



  local arrayObject
  arrayObject = createobject('ArrayPass')
  =addproperty(m.arrayObject, 'tbstps[3]')


  arrayObject.tbstps[1]=Thisform.lofuncties1.ooocreatestruct("com.sun.star.style.TabStop")
  with m.arrayObject.tbstps[1]
    .Alignment = 0
    .DecimalChar = 44
    .FillChar = 32
    .Position = 1500
  endwith


  arrayObject.tbstps[2]=Thisform.lofuncties1.ooocreatestruct("com.sun.star.style.TabStop")
  with m.arrayObject.tbstps[2]
    .Alignment = 0
    .DecimalChar = 44
    .FillChar = 32
    .Position = 3250
  endwith

  arrayObject.tbstps[3]=Thisform.lofuncties1.ooocreatestruct("com.sun.star.style.TabStop")
  with m.arrayObject.tbstps[3]
    .Alignment = 0
    .DecimalChar = 44
    .FillChar = 32
    .Position = 4750
  endwith

  local oStyle
  oStyle=loDocument.createInstance("com.sun.star.style.ParagraphStyle")
  oStyle.ParatabStops= m.arrayObject .GetNamedArray('tbstps')

  Thisform.lofuncties1.call_xray(oStyle)

endfunc
*_______________________________________________________________________________
define class ArrayPass as Relation

function GetNamedArray(arrayname)
  return @m.this.&arrayname
enddefine


Permalink : http://www.atoutfox.org/nntp.asp?ID=0000018481
18 453 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