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

chore: cleaning a bit

Browse source
This commit is contained in:
Georgy Litvinov 2021-08-26 16:38:21 +02:00
parent 48ebe71c8e
commit f58b4f58de
3 changed files with 297 additions and 206 deletions
Download patch file Download diff file Expand all files Collapse all files

4
ePublishing/MakeUp.xba
View file

@ -263,7 +263,7 @@ Sub getFNAreaStart
End Sub
Function changeCharWidth(delta) As Boolean
Function changeCharWidth(delta As Integer) As Boolean
Dim oViewCursor As Object
Dim oTextCursor As Object
Dim charScale As Integer
@ -277,7 +277,7 @@ Function changeCharWidth(delta) As Boolean
oViewCursor.charScaleWidth = charScale + delta
End Function
Function changeKern(delta) As Boolean
Function changeKern(delta As Integer) As Boolean
Dim oViewCursor As Object
Dim oTextCursor As Object
Dim kerning As Integer