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:dep="http://openoffice.org/extensions/description/2006"
xmlns:xlink="http://www.w3.org/1999/xlink"> xmlns:xlink="http://www.w3.org/1999/xlink">
<identifier value="pro.litvinovg.epublishing" /> <identifier value="pro.litvinovg.epublishing" />
<version value="0.7.14" /> <version value="0.7.15" />
<platform value="all" /> <platform value="all" />
<display-name> <display-name>
<name lang="ru">Инструменты для создания электронных изданий</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 oGridControl As Object
Dim oColumnModel As Object Dim oColumnModel As Object
Dim oDataModel As Object Dim oDataModel As Object
Dim rect As Object
Dim i As Integer Dim i As Integer
Dim j As Integer Dim j As Integer
Dim outlineCell As String 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 = pDialog.Model.createInstance(&quot;com.sun.star.awt.grid.UnoControlGridModel&quot;)
grid.Name = &quot;tocGrid&quot; grid.Name = &quot;tocGrid&quot;
grid.ShowColumnHeader = True grid.ShowColumnHeader = True
grid.ShowRowHeader = false grid.ShowRowHeader = True
grid.VScroll = true grid.VScroll = true
grid.Sizeable = true grid.Sizeable = true
grid.Step = 0 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 = createUnoService(&quot;com.sun.star.awt.grid.UnoControlGrid&quot;)
oGridControl.setModel(grid) oGridControl.setModel(grid)
pDialog.addControl(&quot;gridtab&quot;, oGridControl) 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 xArray(iUB) = vNextElement
End Sub End Sub
</script:module> </script:module>