litvinovg/epublishing
1
0
Fork 0
Code Issues Pull requests Projects Releases 33 Packages Wiki Activity Actions

feat: provide more info if headings linking with TOC gone wrong #2

Browse source
This commit is contained in:
Georgy Litvinov 2021-10-19 23:43:25 +02:00
parent 7a389b1b17
commit d06657e3ee
2 changed files with 6 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
description.xml
View file

@ -3,7 +3,7 @@
xmlns:dep="http://openoffice.org/extensions/description/2006"
xmlns:xlink="http://www.w3.org/1999/xlink">
<identifier value="pro.litvinovg.epublishing" />
<version value="0.7.14" />
<version value="0.7.15" />
<platform value="all" />
<display-name>
<name lang="ru">Инструменты для создания электронных изданий</name>

8
ePublishing/TOCLinks.xba
View file

@ -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(&quot;com.sun.star.awt.grid.UnoControlGridModel&quot;)
grid.Name = &quot;tocGrid&quot;
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(&quot;com.sun.star.awt.grid.UnoControlGrid&quot;)
oGridControl.setModel(grid)
pDialog.addControl(&quot;gridtab&quot;, 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
</script:module>
</script:module>