Is LineEndName locale dependent?

Andrew Douglas Pitonyak <[email protected]> Mon, 23 May 2011 15:22:53 -0400
Newsgroups gmane.comp.openoffice.devel.api
Message-ID <[email protected]>
I use English USA locale. Consider the following Calc macro that sets 
line starts and line ends based on the name (which I assume is the 
correct way to do this). Will this work in other languages such as 
German, French, Russian, Polish, Chinese?

Sub InsertLineInCalcDocument
   Dim oLine
   Dim oCell1
   Dim oCell2
   Dim oSheet

   Dim oPos as new com.sun.star.awt.Point
   Dim oSize as new com.sun.star.awt.Size
   Dim oPage

   oSheet = ThisComponent.Sheets(0)
   oCell1 = oSheet.getCellByPosition(1, 1)
   oCell2 = oSheet.getCellByPosition(3, 3)

   oLine = ThisComponent.createInstance("com.sun.star.drawing.LineShape")

   oPos.x = oCell1.Position.X
   oPos.y = oCell1.Position.Y
   oLine.Position = oPos

   oSize.Width = oCell2.Position.X - oCell1.Position.X
   oSize.Height = oCell2.Position.Y - oCell1.Position.Y
   oLine.Size = oSize

   oLine.LineWidth = 4
   oLine.LineColor = RGB(128, 0, 0)
   oPage = oSheet.getDrawPage()

   oPage.add(oLine)

   REM You must do this AFTER inserting the line into the page.
   oLine.LineEndName = "Arrow"
   oLine.LineStartName = "Double Arrow"
End Sub


-- 
Andrew Pitonyak
My Macro Document: http://www.pitonyak.org/AndrewMacro.odt
Info:  http://www.pitonyak.org/oo.php

-- 
-----------------------------------------------------------------
To unsubscribe send email to [email protected]
For additional commands send email to [email protected]
with Subject: help