[Libreoffice-bugs] [Bug 39740] FORMATTING Calc Cell bottom border line through dot NET 4 automation

[bugzilla-daemon at freedesktop.org]

https://bugs.freedesktop.org/show_bug.cgi?id=39740

--- Comment #3 from walid <novell at abuzahr.com> 2011-09-15 02:58:21 PDT ---

The problem still exists in Libre-office 3.4.3

The following Code (written in Foxpro) Draws Borders on Range B2:F6
The borders are drawn Correctly on Libre-office 3.3.1 but on 3.4.3 The Borders
are not drawn.
The code is not hard to understand and I suppose the same problem on dot Net or
any other COM programming :


&& ---Declare Variables ---
Local Array aProperty[1]
Local oServiceManager ,oDesktop , CalcObj , Sheet1  
Local aLineBorder , aBorder 


oServiceManager = Createobject( "com.sun.star.ServiceManager" )
oDesktop = oServiceManager.createInstance( "com.sun.star.frame.Desktop")
Comarray( oDesktop, 10 ) && Tells foxpro to pass array as zero based into that
object


aProperty[1] = oServiceManager.Bridge_GetStruct(
"com.sun.star.beans.PropertyValue" )
aProperty[1].Name = "Hidden"
aProperty[1].Value = .F.

CalcObj = oDesktop.LoadComponentFromUrl( "private:factory/scalc", "_blank", 0,
@aProperty)
Sheet1 = CalcObj.getSheets().getByIndex( 0 )


aLineBorder = oServiceManager.Bridge_GetStruct("com.sun.star.table.BorderLine")
aLineBorder.Color = Rgb(255, 0, 0)
aLineBorder.InnerLineWidth = 0
aLineBorder.OuterLineWidth = 26
aLineBorder.LineDistance = 24

aBorder = oServiceManager.Bridge_GetStruct("com.sun.star.table.TableBorder")
aBorder.IsTopLineValid = 1
aBorder.IsBottomLineValid = 1
aBorder.IsLeftLineValid = 1
aBorder.IsRightLineValid = 1
aBorder.IsHorizontalLineValid = 1
aBorder.IsVerticalLineValid = 1

aBorder.TopLine = aLineBorder
aBorder.BottomLine = aLineBorder
aBorder.LeftLine = aLineBorder
aBorder.RightLine = aLineBorder
aBorder.HorizontalLine = aLineBorder
aBorder.VerticalLine = aLineBorder

Sheet1.getCellRangeByPosition(1,1,5,5).tableBorder = aBorder

-- 
Configure bugmail: https://bugs.freedesktop.org/userprefs.cgi?tab=email
------- You are receiving this mail because: -------
You are the assignee for the bug.