vbAccelerator - Contents of code file: frmSaveOptionsDialog.frm

VERSION 5.00
Begin VB.Form frmSaveOptionsDialog 
   Caption         =   "Save Options"
   ClientHeight    =   4275
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   5970
   BeginProperty Font 
      Name            =   "Tahoma"
      Size            =   8.25
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   ScaleHeight     =   4275
   ScaleWidth      =   5970
   StartUpPosition =   1  'CenterOwner
   Begin VB.CommandButton cmdCancel 
      Cancel          =   -1  'True
      Caption         =   "Cancel"
      Height          =   435
      Left            =   4500
      TabIndex        =   11
      Top             =   3780
      Width           =   1275
   End
   Begin VB.CommandButton cmdOK 
      Caption         =   "OK"
      Default         =   -1  'True
      Height          =   435
      Left            =   3120
      TabIndex        =   10
      Top             =   3780
      Width           =   1275
   End
   Begin VB.Frame fraTiffOptions 
      Caption         =   "&Tiff Options"
      Height          =   1695
      Left            =   60
      TabIndex        =   1
      Top             =   1860
      Width           =   5715
      Begin VB.ComboBox cboBitDepth 
         Height          =   315
         Left            =   1800
         Style           =   2  'Dropdown List
         TabIndex        =   8
         Top             =   660
         Width           =   3795
      End
      Begin VB.ComboBox cboCompression 
         Height          =   315
         Left            =   1800
         Style           =   2  'Dropdown List
         TabIndex        =   6
         Top             =   300
         Width           =   3795
      End
      Begin VB.Label lblBitDepth 
         Caption         =   "&Bit Depth:"
         Height          =   255
         Left            =   180
         TabIndex        =   9
         Top             =   720
         Width           =   1455
      End
      Begin VB.Label lblCompression 
         Caption         =   "&Compression:"
         Height          =   255
         Left            =   180
         TabIndex        =   5
         Top             =   360
         Width           =   1455
      End
   End
   Begin VB.Frame fraJpegOptions 
      Caption         =   "&Jpeg Options"
      Height          =   1695
      Left            =   60
      TabIndex        =   0
      Top             =   60
      Width           =   5715
      Begin VB.HScrollBar hscQuality 
         Height          =   315
         LargeChange     =   10
         Left            =   1800
         Max             =   100
         TabIndex        =   7
         Top             =   600
         Width           =   3795
      End
      Begin VB.ComboBox cboTransformation 
         Height          =   315
         Left            =   1800
         Style           =   2  'Dropdown List
         TabIndex        =   3
         Top             =   240
         Width           =   3795
      End
      Begin VB.Label lblQuality 
         Caption         =   "&Quality"
         Height          =   255
         Left            =   180
         TabIndex        =   4
         Top             =   660
         Width           =   1455
      End
      Begin VB.Label lblTransformation 
         Caption         =   "&Transformation:"
         Height          =   255
         Left            =   180
         TabIndex        =   2
         Top             =   300
         Width           =   1455
      End
   End
   Begin VB.Line Line1 
      BorderColor     =   &H80000000&
      X1              =   120
      X2              =   5760
      Y1              =   3720
      Y2              =   3720
   End
End
Attribute VB_Name = "frmSaveOptionsDialog"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub selectIndex(cbo As ComboBox, ByVal itemData As Long)
Dim i As Long
   For i = 0 To cbo.ListCount - 1
      If (cbo.itemData(i) = itemData) Then
         cbo.ListIndex = i
         Exit For
      End If
   Next i
End Sub


Private Sub cmdCancel_Click()
   Unload Me
End Sub

Private Sub cmdOK_Click()
   With g_cSaveOptions
      .JpgQuality = hscQuality.value
      .JpgTransformation =
       cboTransformation.itemData(cboTransformation.ListIndex)
      .TiffBitDepth = cboBitDepth.itemData(cboBitDepth.ListIndex)
      .TiffCompression = cboCompression.itemData(cboCompression.ListIndex)
   End With
   Unload Me
End Sub

Private Sub Form_Load()
   Me.Icon = Forms(0).Icon
   With cboTransformation
      .AddItem "Not Set"
      .AddItem "EncoderValueTransformRotate90"
      .itemData(.NewIndex) = 13
      .AddItem "EncoderValueTransformRotate180"
      .itemData(.NewIndex) = 14
      .AddItem "EncoderValueTransformRotate270"
      .itemData(.NewIndex) = 15
      .AddItem "EncoderValueTransformFlipHorizontal"
      .itemData(.NewIndex) = 16
      .AddItem "EncoderValueTransformFlipVertical"
      .itemData(.NewIndex) = 17
      selectIndex cboTransformation, g_cSaveOptions.JpgTransformation
   End With
   hscQuality.value = g_cSaveOptions.JpgQuality
   With cboCompression
      .AddItem "EncoderValueCompressionLZW"
      .itemData(.NewIndex) = 2
      .AddItem "EncoderValueCompressionCCITT3"
      .itemData(.NewIndex) = 3
      .AddItem "EncoderValueCompressionCCITT4"
      .itemData(.NewIndex) = 4
      .AddItem "EncoderValueCompressionRle"
      .itemData(.NewIndex) = 5
      .AddItem "EncoderValueCompressionNone"
      .itemData(.NewIndex) = 6
      selectIndex cboCompression, g_cSaveOptions.TiffCompression
   End With
   With cboBitDepth
      .AddItem "1"
      .itemData(.NewIndex) = 1
      .AddItem "4"
      .itemData(.NewIndex) = 4
      .AddItem "8"
      .itemData(.NewIndex) = 8
      .AddItem "24"
      .itemData(.NewIndex) = 24
      .AddItem "32"
      .itemData(.NewIndex) = 32
      selectIndex cboBitDepth, g_cSaveOptions.TiffBitDepth
   End With
End Sub