Attribute VB_Name = "SaveOpts"
Global gfSaveOptsGo As Integer
Global gnSaveOptsBits As Integer
Global gfSaveOptsMultipageInit As Integer
Global Const SO_LEAD = 0
Global Const SO_JPEG = 1
Global Const SO_FAX = 2
Global Const SO_CALS = 3
Global Const SO_EPS = 4
Global Const SO_GEM = 5
Global Const SO_GIF = 6
Global Const SO_PCT = 7
Global Const SO_MAC = 8
Global Const SO_MSP = 9
Global Const SO_OS2 = 10
Global Const SO_PCX = 11
Global Const SO_PNG = 12
Global Const SO_PSD = 13
Global Const SO_RAS = 14
Global Const SO_TGA = 15
Global Const SO_TIF = 16
Global Const SO_WBMP = 17
Global Const SO_WFX = 18
Global Const SO_WMF = 19
Global Const SO_WPG = 20

Sub SaveOptsGetOptions(fGo As Integer, nSaveIdx%, nFormat%, nBitsToSave%, nQFactor%, fMultipage As Integer)
fGo = gfSaveOptsGo
nSaveIdx = SaveOptsFrm.Formats.ListIndex
nBitsToSave = gnSaveOptsBits
nQFactor = 0
fMultipage = gfSaveOptsMultipageInit

Select Case SaveOptsFrm.Formats.ListIndex
  Case SO_LEAD
    nQFactor = CInt(SaveOptsFrm.CustomQBox.Text)
    If SaveOptsFrm.Bit(1).Value = True Then
      nFormat = FILE_LEAD1BIT
      nQFactor = SaveOptsFrm.PredefQ.ListIndex
    Else
      nFormat = FILE_LEAD
      If nQFactor = 0 Or nQFactor = 1 Then
        nQFactor = 2
      End If
    End If
  Case SO_JPEG
    Select Case SaveOptsFrm.Flavors.ListIndex
      Case 0
        nFormat = FILE_JFIF
      Case 1
        nFormat = FILE_LEAD2JFIF
      Case 2
        nFormat = FILE_LEAD1JFIF
    End Select
    nQFactor = CInt(SaveOptsFrm.CustomQBox.Text)
  Case SO_CALS
    nFormat = FILE_CALS
  Case SO_FAX
    Select Case SaveOptsFrm.Flavors.ListIndex
      Case 0
        nFormat = FILE_FAX_G3_1D
      Case 1
        nFormat = FILE_FAX_G3_2D
      Case 2
        nFormat = FILE_FAX_G4
    End Select
  Case SO_EPS
    nFormat = FILE_EPS
  Case SO_GEM
    nFormat = FILE_IMG
  Case SO_GIF
    nFormat = FILE_GIF
  Case SO_IOCA
    Select Case SaveOptsFrm.Flavors.ListIndex
      Case 0
        nFormat = FILE_ICA_G3_1D
      Case 1
        nFormat = FILE_ICA_G3_2D
      Case 2
        nFormat = FILE_ICA_G4
    End Select
  Case SO_PCT
    nFormat = FILE_PCT
  Case SO_PNG
    nFormat = FILE_PNG
  Case SO_PSD
    nFormat = FILE_PSD
  Case SO_MAC
    nFormat = FILE_MAC
  Case SO_MSP
    nFormat = FILE_MSP
  Case SO_OS2
    nFormat = FILE_OS2
  Case SO_PCX
    nFormat = FILE_PCX
  Case SO_RAS
    nFormat = FILE_RAS
  Case SO_TGA
    nFormat = FILE_TGA
  Case SO_TIF
    Select Case SaveOptsFrm.Flavors.ListIndex
      Case 0
        nFormat = FILE_TIF
      Case 1
        nFormat = FILE_TIFLZW
      Case 2
        nFormat = FILE_CCITT
      Case 3
        nFormat = FILE_CCITT_GROUP3_1DIM
      Case 4
        nFormat = FILE_CCITT_GROUP3_2DIM
      Case 5
        nFormat = FILE_CCITT_GROUP4
      Case 6
        nFormat = FILE_JTIF
        nQFactor = CInt(SaveOptsFrm.CustomQBox.Text)
      Case 7
        nFormat = FILE_LEAD2JTIF
        nQFactor = CInt(SaveOptsFrm.CustomQBox.Text)
      Case 8
        nFormat = FILE_LEAD1JTIF
        nQFactor = CInt(SaveOptsFrm.CustomQBox.Text)
    End Select
  Case SO_WBMP
    nFormat = FILE_BMP
  Case SO_WFX
    Select Case SaveOptsFrm.Flavors.ListIndex
      Case 0
        nFormat = FILE_WFX_G3_1D
      Case 1
        nFormat = FILE_WFX_G4
    End Select
  Case SO_WMF
    nFormat = FILE_WMF
  Case SO_WPG
    nFormat = FILE_WPG
End Select
End Sub

Sub SaveOptsInitTheForm(nSaveIdx%, fMultipage As Integer)
QFactorChanged = False
SaveOptsFrm.Formats.ListIndex = nSaveIdx
gfSaveOptsMultipageInit = fMultipage
gfSaveOptsGo = False
End Sub