Hi Marc!
Thanks for your answer. I tried to insert a paragraph break and a line break
but the textfield is inserted right to the other one and not below. Perhaps
there is another possibility to change the position of the textfield.
Here is my code:
/* create a RectangleShape */
Shape = xDocFactory~createInstance(com.sun.star.drawing.RectangleShape)
xShape = Shape~xShape
size = .bsf~new(com.sun.star.awt.Size, 8000 /*width*/, 5000 /*height*/)
xShape~setSize(size)
xShapeProps=xShape~xPropertySet
at_para=bsf.getConstant(com.sun.star.text.TextContentAnchorType,AT_PARAGRAPH)
xShapeProps~setPropertyValue(AnchorType, at_para)
xShapeProps~setPropertyValue(FillColor, box(int, C0 C0 C0x ~c2d))
-- create a text field at the document factory
xTextFieldProps=xDocFactory~createInstance(com.sun.star.text.TextField.URL)~XPropertySet
linebreak = 0ax
text = OpenOffice.org API Project
xTextFieldProps~setPropertyValue(Representation,text 0a0909x)
xTextFieldProps~setPropertyValue(TargetFrame, _blank)
xTextFieldProps~setPropertyValue(URL, http://api.openoffice.org;)
xTextFieldProps1=xDocFactory~createInstance(com.sun.star.text.TextField.URL)~XPropertySet
xTextFieldProps1~setPropertyValue(Representation, GMX)
xTextFieldProps1~setPropertyValue(TargetFrame, _blank)
xTextFieldProps1~setPropertyValue(URL, http://www.gmx.at;)
-- get the XTextContent of the shape and the field
xShapeTextContent=xShape~XTextContent
xFieldTextContent=xTextFieldProps~XTextContent
xFieldTextContent1=xTextFieldProps1~XTextContent
-- the shape is inserted at the DOCUMENT text
xDocText~insertTextContent(xDocTextCursor, xShapeTextContent, .false)
-- access the text inside the shape,
-- and create a text cursor
xShapeText = xShape~XText
xShapeTextCursor = xShapeText~createTextCursor
call bsf.import com.sun.star.text.ControlCharacter, ctlChar
-- insert the field at the SHAPE text
paraBreak=.CtlChar~paragraph_break -- gets used multiple times in this
routine
xShapeText~insertTextContent(xShapeTextCursor, xFieldTextContent, .false)
xShapeText~insertControlCharacter(xShapeTextCursor~getEnd,
.CtlChar~paragraph_break, .false)
xShapeText~insertTextContent(xShapeTextCursor, xFieldTextContent1, .false)
Regards
Nicole
Original-Nachricht
Datum: Fri, 05 Sep 2008 18:02:21 +0200
Von: Marc Santhoff [EMAIL PROTECTED]
An: dev@api.openoffice.org
Betreff: Re: [api-dev] add more textfields to one shape
Am Freitag, den 05.09.2008, 10:14 +0200 schrieb Nicole Scholz:
Hi!
I would like to add some textfields to one shape. But always when I
add them they are put directly on the right side next to the other
textfield. I would like to have the textfield below the textfield
before.
Does someone have a hint how I can manage this?
I think inserting a paragraph break should suffice. Try sth. like:
oText.insertControlCharacter(oCursor, _
com.sun.star.text.ControlCharacter.PARAGRAPH_BREAK, FALSE)
HTH,
Marc
-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
--
Der GMX SmartSurfer hilft bis zu 70% Ihrer Onlinekosten zu sparen!
Ideal für Modem und ISDN: http://www.gmx.net/de/go/smartsurfer
-
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]