Fix font report

This commit is contained in:
Georgy Litvinov 2020-07-26 11:21:47 +02:00
parent 435d010536
commit 291674982b
3 changed files with 15 additions and 10 deletions

View file

@ -1,6 +1,6 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd"> <!DOCTYPE script:module PUBLIC "-//OpenOffice.org//DTD OfficeDocument 1.0//EN" "module.dtd">
<script:module xmlns:script="http://openoffice.org/2000/script" script:name="Validation" script:language="StarBasic">Sub markval12 <script:module xmlns:script="http://openoffice.org/2000/script" script:name="Validation" script:language="StarBasic">Sub markval13
End Sub End Sub
@ -602,9 +602,10 @@ Function getODGFontNames() As Variant
elementCount = page.getCount() elementCount = page.getCount()
For j = 0 To elementCount - 1 For j = 0 To elementCount - 1
element = page.getByIndex(j) element = page.getByIndex(j)
elementText = element.getText() If element.supportsService(&quot;com.sun.star.drawing.Text&quot;) Then
enum1 = elementText.createEnumeration() elementText = element.getText()
While enum1.hasMoreElements enum1 = elementText.createEnumeration()
While enum1.hasMoreElements
enum1Element = enum1.nextElement enum1Element = enum1.nextElement
If enum1Element.supportsService(&quot;com.sun.star.text.Paragraph&quot;) Then If enum1Element.supportsService(&quot;com.sun.star.text.Paragraph&quot;) Then
enum2 = enum1Element.createEnumeration enum2 = enum1Element.createEnumeration
@ -618,7 +619,8 @@ Function getODGFontNames() As Variant
EndIf EndIf
Wend Wend
EndIf EndIf
Wend Wend
EndIf
Next j Next j
Next i Next i
getODGFontNames = fontNames getODGFontNames = fontNames
@ -706,9 +708,10 @@ Function getCharsInFont(fontName As String) As String
elementCount = page.getCount() elementCount = page.getCount()
For j = 0 To elementCount - 1 For j = 0 To elementCount - 1
element = page.getByIndex(j) element = page.getByIndex(j)
elementText = element.getText() If element.supportsService(&quot;com.sun.star.drawing.Text&quot;) Then
enum1 = elementText.createEnumeration() elementText = element.getText()
While enum1.hasMoreElements enum1 = elementText.createEnumeration()
While enum1.hasMoreElements
enum1Element = enum1.nextElement enum1Element = enum1.nextElement
If enum1Element.supportsService(&quot;com.sun.star.text.Paragraph&quot;) Then If enum1Element.supportsService(&quot;com.sun.star.text.Paragraph&quot;) Then
enum2 = enum1Element.createEnumeration enum2 = enum1Element.createEnumeration
@ -726,7 +729,8 @@ Function getCharsInFont(fontName As String) As String
EndIf EndIf
Wend Wend
EndIf EndIf
Wend Wend
EndIf
Next j Next j
Next i Next i
resultString = &quot;&quot; resultString = &quot;&quot;

View file

@ -1,4 +1,4 @@
def releaseVersion = "0.9.2" def releaseVersion = "0.9.3"
task oxt(type: Zip) { task oxt(type: Zip) {
dependsOn = [ 'setVersion','setVersionInBasicCode' ] dependsOn = [ 'setVersion','setVersionInBasicCode' ]
from './' from './'

View file

@ -1,3 +1,4 @@
0.9.3 Fix for font report function
0.9.2 Font report in Draw added 0.9.2 Font report in Draw added
0.8.6 Validation status indicator added 0.8.6 Validation status indicator added
0.8.4 Added check for headings in footers and headers 0.8.4 Added check for headings in footers and headers