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
Download patch file Download diff file Expand all files Collapse all files

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("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
</script:module>
</script:module>