home *** CD-ROM | disk | FTP | other *** search
- object FileOptions: TFileOptions
- Left = 229
- Top = 166
- BorderStyle = bsDialog
- Caption = 'Save File Options'
- ClientHeight = 299
- ClientWidth = 280
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- OnClose = FormClose
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object Button1: TButton
- Left = 64
- Top = 269
- Width = 75
- Height = 25
- Caption = '&OK'
- Default = True
- ModalResult = 1
- TabOrder = 0
- end
- object Button2: TButton
- Left = 145
- Top = 269
- Width = 75
- Height = 25
- Caption = '&Cancel'
- ModalResult = 2
- TabOrder = 1
- end
- object PageControl1: TPageControl
- Left = 6
- Top = 6
- Width = 268
- Height = 256
- ActivePage = TabSheet1
- TabOrder = 2
- object TabSheet1: TTabSheet
- Caption = 'JPEG/BIF'
- object Label3: TLabel
- Left = 56
- Top = 5
- Width = 28
- Height = 13
- Caption = 'Worst'
- end
- object Label4: TLabel
- Left = 119
- Top = 5
- Width = 64
- Height = 13
- Alignment = taCenter
- AutoSize = False
- Caption = '85'
- end
- object Label2: TLabel
- Left = 219
- Top = 5
- Width = 21
- Height = 13
- Caption = 'Best'
- end
- object Label1: TLabel
- Left = 32
- Top = 28
- Width = 32
- Height = 13
- Caption = 'Quality'
- end
- object Label5: TLabel
- Left = 14
- Top = 70
- Width = 50
- Height = 13
- Caption = 'Smoothing'
- end
- object Label6: TLabel
- Left = 84
- Top = 50
- Width = 134
- Height = 13
- Alignment = taCenter
- AutoSize = False
- Caption = 'No Smoothing'
- end
- object Label7: TLabel
- Left = 3
- Top = 101
- Width = 61
- Height = 13
- Caption = 'DCT Method'
- end
- object tbJPEGQ: TTrackBar
- Left = 64
- Top = 24
- Width = 175
- Height = 27
- Max = 100
- Min = 1
- Orientation = trHorizontal
- PageSize = 1
- Frequency = 1
- Position = 85
- SelEnd = 0
- SelStart = 0
- TabOrder = 0
- ThumbLength = 20
- TickMarks = tmBottomRight
- TickStyle = tsNone
- OnChange = tbJPEGQChange
- end
- object cbJPGProgressive: TCheckBox
- Left = 71
- Top = 143
- Width = 77
- Height = 17
- Caption = 'Progressive'
- TabOrder = 1
- end
- object cbJPGGrayScale: TCheckBox
- Left = 71
- Top = 163
- Width = 97
- Height = 17
- Caption = 'Gray Scale'
- TabOrder = 2
- end
- object tbSmooth: TTrackBar
- Left = 64
- Top = 66
- Width = 174
- Height = 27
- Max = 100
- Orientation = trHorizontal
- PageSize = 1
- Frequency = 1
- Position = 0
- SelEnd = 0
- SelStart = 0
- TabOrder = 3
- ThumbLength = 20
- TickMarks = tmBottomRight
- TickStyle = tsNone
- OnChange = tbSmoothChange
- end
- object cbOptimize: TCheckBox
- Left = 71
- Top = 123
- Width = 128
- Height = 17
- Caption = 'Optimize Encoding'
- TabOrder = 4
- end
- object cbDCTMethod: TComboBox
- Left = 71
- Top = 98
- Width = 160
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- Items.Strings = (
- 'Slow Integer (Accurate)'
- 'Fast Integer (Less Accurate)'
- 'Floating Point (Accurate)')
- TabOrder = 5
- end
- end
- object TabSheet2: TTabSheet
- Caption = 'GIF'
- ImageIndex = 1
- object Label8: TLabel
- Left = 23
- Top = 22
- Width = 60
- Height = 13
- Caption = 'Compression'
- end
- object cbGIFInterlaced: TCheckBox
- Left = 89
- Top = 45
- Width = 74
- Height = 17
- Caption = 'Interlaced'
- TabOrder = 0
- end
- object cbGIFTransparent: TCheckBox
- Left = 89
- Top = 84
- Width = 80
- Height = 17
- Caption = 'Transparent'
- TabOrder = 1
- OnClick = cbGIFTransparentClick
- end
- object cbGIFComp: TComboBox
- Left = 89
- Top = 18
- Width = 145
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- Items.Strings = (
- 'LZW'
- 'RLE')
- TabOrder = 2
- end
- object cbGIFOptimize: TCheckBox
- Left = 89
- Top = 65
- Width = 97
- Height = 17
- Caption = 'Optimize'
- TabOrder = 3
- end
- object bTransColor: TButton
- Left = 69
- Top = 119
- Width = 122
- Height = 25
- Caption = 'Set Transparent Color'
- Enabled = False
- TabOrder = 4
- OnClick = bTransColorClick
- end
- end
- object TabSheet3: TTabSheet
- Caption = 'PNG'
- ImageIndex = 2
- object cbPNGInterlaced: TCheckBox
- Left = 93
- Top = 18
- Width = 74
- Height = 17
- Caption = 'Interlaced'
- TabOrder = 0
- end
- end
- object TabSheet4: TTabSheet
- Caption = 'TIFF'
- ImageIndex = 3
- object Label11: TLabel
- Left = 23
- Top = 22
- Width = 60
- Height = 13
- Caption = 'Compression'
- end
- object cbTIFComp: TComboBox
- Left = 89
- Top = 18
- Width = 145
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- Items.Strings = (
- 'NONE'
- 'Huffman RLE'
- 'CCITT Fax Group 3'
- 'CCITT Fax Group 4'
- 'LZW'
- 'PACKBITS')
- TabOrder = 0
- end
- end
- object TabSheet5: TTabSheet
- Caption = 'Resolution'
- ImageIndex = 4
- object Label9: TLabel
- Left = 9
- Top = 175
- Width = 88
- Height = 13
- Caption = 'Reduction Method'
- end
- object Label10: TLabel
- Left = 30
- Top = 204
- Width = 67
- Height = 13
- Caption = 'Dither Method'
- end
- object rgsaveres: TRadioGroup
- Left = 103
- Top = 5
- Width = 144
- Height = 154
- Caption = 'Save Resolution'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemIndex = 6
- Items.Strings = (
- '1 bit (Monochrome)'
- '4-bit (16 Colors)'
- '8-bit (256 Colors)'
- '16-bit (true color)'
- '24-bit (true color)'
- '32-bit (true color)'
- 'Automatic')
- ParentFont = False
- TabOrder = 0
- end
- object cbSaveReduction: TComboBox
- Left = 103
- Top = 171
- Width = 145
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- Items.Strings = (
- 'No Color Reduction'
- 'Monochrome'
- '4 Color Grayscale'
- '256 Color Grayscale'
- 'Netscape Palette'
- 'Optimal'
- 'Optimal Windows'
- 'Custom Palette')
- TabOrder = 1
- end
- object cbSaveDither: TComboBox
- Left = 103
- Top = 200
- Width = 145
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- Items.Strings = (
- 'Nearest Color'
- 'Floyd Steinberg'
- 'Stucki'
- 'Sierra'
- 'Jarvis, Judice & Ninke'
- 'Stevenson & Arche'
- 'Burkes')
- TabOrder = 2
- end
- end
- end
- end
-