diff --git a/description.xml b/description.xml index 11741b4..3afafa9 100644 --- a/description.xml +++ b/description.xml @@ -3,7 +3,7 @@ xmlns:dep="http://openoffice.org/extensions/description/2006" xmlns:xlink="http://www.w3.org/1999/xlink"> - + Инструменты для создания электронных изданий diff --git a/ePublishing/TOCLinks.xba b/ePublishing/TOCLinks.xba index 4fd5119..e8dc25a 100644 --- a/ePublishing/TOCLinks.xba +++ b/ePublishing/TOCLinks.xba @@ -144,6 +144,7 @@ Sub showTOCLinksDialog(message As String, heading() As Object, outline() As Obje Dim oGridControl As Object Dim oColumnModel As Object Dim oDataModel As Object + Dim rect As Object Dim i As Integer Dim j As Integer Dim outlineCell As String @@ -155,7 +156,7 @@ Sub showTOCLinksDialog(message As String, heading() As Object, outline() As Obje grid = pDialog.Model.createInstance("com.sun.star.awt.grid.UnoControlGridModel") grid.Name = "tocGrid" grid.ShowColumnHeader = True - grid.ShowRowHeader = false + grid.ShowRowHeader = True grid.VScroll = true grid.Sizeable = true grid.Step = 0 @@ -206,7 +207,8 @@ Sub showTOCLinksDialog(message As String, heading() As Object, outline() As Obje oGridControl = createUnoService("com.sun.star.awt.grid.UnoControlGrid") oGridControl.setModel(grid) pDialog.addControl("gridtab", oGridControl) - oGridControl.setPosSize(10,40,850,550, 15) + rect = pDialog.getPosSize() + oGridControl.setPosSize(10,60,rect.Width - 20,rect.Height - 120, com.sun.star.awt.PosSize.POSSIZE) @@ -237,4 +239,4 @@ Sub addToArray(xArray(),vNextElement) xArray(iUB) = vNextElement End Sub - + \ No newline at end of file