vbAccelerator - Contents of code file: cSaveOptions.cls

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "cSaveOptions"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private m_lJpgQuality As Long
Private m_lJpgTransformation As Long
Private m_lTiffCompression As Long
Private m_lTiffBitDepth As Long

Public Property Get JpgQuality() As Long
   JpgQuality = m_lJpgQuality
End Property
Public Property Let JpgQuality(ByVal value As Long)
   m_lJpgQuality = value
End Property

Public Property Get JpgTransformation() As Long
   JpgTransformation = m_lJpgTransformation
End Property
Public Property Let JpgTransformation(ByVal value As Long)
   m_lJpgTransformation = value
End Property

Public Property Get TiffCompression() As Long
   TiffCompression = m_lTiffCompression
End Property
Public Property Let TiffCompression(ByVal value As Long)
   m_lTiffCompression = value
End Property

Public Property Get TiffBitDepth() As Long
   TiffBitDepth = m_lTiffBitDepth
End Property
Public Property Let TiffBitDepth(ByVal value As Long)
   m_lTiffBitDepth = value
End Property

Private Sub Class_Initialize()
   m_lJpgQuality = 50
   m_lJpgTransformation = 0
   m_lTiffCompression = 6
   m_lTiffBitDepth = 24
End Sub