Issue 59222 - Non-zero LineDistance not saved in a Write Table
Summary: Non-zero LineDistance not saved in a Write Table
Alias: None
Product: App Dev
Classification: Unclassified
Component: api (show other issues)
Version: 3.3.0 or older (OOo)
Hardware: All Linux, all
: P3 Trivial
Target Milestone: ---
Assignee: AOO issues mailing list
QA Contact:
Depends on:
Reported: 2005-12-12 04:25 UTC by andrew
Modified: 2013-02-24 21:06 UTC (History)
1 user (show)

See Also:
Issue Type: DEFECT
Latest Confirmation in: ---
Developer Difficulty: ---


Note You need to log in before you can comment on or make changes to this issue.
Description andrew 2005-12-12 04:25:13 UTC
Create a Write document.
Create a Text Table.
Place the cursor in the text table.
Run the following macro

Sub tbl_border_onerow 'blue
   Dim oSels,oTables,oCells
   Dim oVC
   oSels = ThisComponent.getCurrentController().getSelection()
   oVC = ThisComponent.getCurrentController().getViewCursor()   
   'oVC.cell.BottomBorder = MakeCellBorderLine( RGB(0,0,255), 150, 150, 100)   
   Dim oBorderLine
   oBorderLine = oVC.cell.BottomBorder
   With oBorderLine
      .Color = RGB(0,0,255)
      .InnerLineWidth = 150
      .OuterLineWidth = 150
      .LineDistance = 100
   End With
   oVC.cell.BottomBorder = oBorderLine
End sub

You now have a double blue line as the bottom line in the cell with the cursor.
Now, save the document, close the document, and open the document. The double
line is gone (there is no line). 

If you change the LineDistance from 100 to 0, then I observe no problems.
Comment 1 stephan.wunderlich 2005-12-14 14:56:33 UTC
sw->tl: seems to be your area
Comment 2 thomas.lange 2006-06-20 14:26:36 UTC
Comment 3 thomas.lange 2006-06-29 09:28:11 UTC
TL->FME: Please take over.Thanks!
Comment 4 Martin Hollmichel 2007-11-09 17:27:36 UTC
set target from 2.x to 3.x according to