25 lines
516 B
OpenEdge ABL
25 lines
516 B
OpenEdge ABL
VERSION 1.0 CLASS
|
|
BEGIN
|
|
MultiUse = -1 'True
|
|
END
|
|
Attribute VB_Name = "ItemFontScale"
|
|
Attribute VB_GlobalNameSpace = False
|
|
Attribute VB_Creatable = False
|
|
Attribute VB_PredeclaredId = False
|
|
Attribute VB_Exposed = False
|
|
Option Explicit
|
|
|
|
Public lineSpacing_ As Double
|
|
Public fontMultiplier_ As Double
|
|
Public textSize_ As Double
|
|
Public spacing_ As Double
|
|
Public fontFactor_ As Double
|
|
|
|
Private Sub Class_Initialize()
|
|
lineSpacing_ = -1
|
|
fontMultiplier_ = 1
|
|
textSize_ = 11
|
|
spacing_ = 1
|
|
fontFactor_ = 1.15
|
|
End Sub
|