Attachment 42513 Details for Bug 33477 – testcase

testcase

testcase.txt (text/plain), 1.25 KB, created by bugzilla33 on 2011-01-26 00:57:21 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: bugzilla33

Created: 2011-01-26 00:57:21 UTC

Size: 1.25 KB

patch

obsolete

>Sub Main
>
>Dim oSM
>Dim oDesk, oDoc As Object
>Dim arg()
>Dim oTable As Object
>Dim oCells As Object
>Dim oText As Object
>Dim oCursor As Object
>
>Dim oCellText As Object
>Dim oCellCursor As Object
>    
>Set oSM = CreateObject("com.sun.star.ServiceManager")
>Set oDesk = oSM.createInstance("com.sun.star.frame.Desktop")
>Set oDoc = oDesk.loadComponentFromURL("private:factory/swriter","_blank",0,arg())
>
>Set oText = oDoc.Text
>Set oCursor = oDoc.CurrentController.GetViewCursor
>
>Set oTable = oDoc.createInstance("com.sun.star.text.TextTable")
>oTable.initialize(1,2)
>oText.InsertTextContent(oCursor,oTable,false)
>
>Set oCells = oTable.getCellRangeByPosition (0,0,1,0)
>' Range chars weight works
>oCells.CharWeight = 150
>' Range vertical centering do not work !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
>oCells.VertOrient = 2
>
>Set oCellText = oTable.GetCellByPosition(0,0)
>Set oCellCursor = oCellText.CreateTextCursor
>oCellText.InsertString(oCellCursor,"oCells.VertOrient = 2" + chr(13) + "do not" + chr(13) + "work",false)
>
>Set oCellText = oTable.GetCellByPosition(1,0)
>Set oCellCursor = oCellText.CreateTextCursor
>oCellText.InsertString(oCellCursor,"bolder and vertical centered Text",false)
>
>' amazingly, it works:
>' oCellText.VertOrient = 2
>
>End Sub

Actions: View

Attachments on bug 33477: 42513