home *** CD-ROM | disk | FTP | other *** search
- object PB_DiskControl32V1: TPB_DiskControl32V1
- Left = 451
- Top = 366
- BorderStyle = bsDialog
- Caption = 'Disk Control'
- ClientHeight = 365
- ClientWidth = 493
- Color = clSilver
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- Position = poScreenCenter
- OnClose = FormClose
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 14
- object PB_Directory_Label: TLabel
- Left = 174
- Top = 30
- Width = 147
- Height = 14
- Hint = 'Selected Path'
- Caption = 'E:\...\IK\SAMPLES\OCX\Delphi2'
- ParentShowHint = False
- ShowHint = True
- end
- object PB_Filename_Label: TLabel
- Left = 16
- Top = 6
- Width = 52
- Height = 14
- Caption = 'File &Name :'
- end
- object PB_Dir_Label: TLabel
- Left = 174
- Top = 6
- Width = 55
- Height = 14
- Caption = '&Directories '
- end
- object PB_Bevel_Frame: TBevel
- Left = 349
- Top = 10
- Width = 128
- Height = 246
- Shape = bsFrame
- end
- object PB_File_List: TFileListBox
- Left = 16
- Top = 56
- Width = 145
- Height = 170
- Hint = 'File List - Click File to Preview or Select File'
- Color = clAqua
- FileEdit = PB_File_Name
- ItemHeight = 16
- ParentShowHint = False
- ShowGlyphs = True
- ShowHint = True
- TabOrder = 0
- OnClick = PB_File_ListClick
- end
- object PB_Selected_Extension: TFilterComboBox
- Left = 16
- Top = 235
- Width = 145
- Height = 22
- Hint = 'Select Filter'
- Color = clAqua
- FileList = PB_File_List
- Filter =
- 'All files (*.*)|*.*|Tif (*.TIF - No LZW)|*.tif|Targa (*.TGA)|*.t' +
- 'ga|Bitmaps (*.BMP)|*.bmp|DIBS (*.DIB)|*.dib|PCX (*.PCX)|*.pcx|JP' +
- 'EG (*.JPG)|*.jpg|MS Paint (*.MSP)|*.msp|Fractel (*.FIF)|*.fif|PN' +
- 'G (*.PNG)|*.png'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- end
- object PB_Selected_Drive: TDriveComboBox
- Left = 174
- Top = 235
- Width = 169
- Height = 20
- Hint = 'Select Drive'
- Color = clAqua
- DirList = PB_Directory_list
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- end
- object PB_File_Name: TEdit
- Left = 16
- Top = 26
- Width = 145
- Height = 22
- Hint = 'Selected File Name'
- Color = clAqua
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- Text = '*.*'
- end
- object PB_Directory_list: TDirectoryListBox
- Left = 174
- Top = 56
- Width = 169
- Height = 170
- Hint = 'Directory of Active Drive'
- Color = clAqua
- DirLabel = PB_Directory_Label
- FileList = PB_File_List
- ItemHeight = 16
- ParentShowHint = False
- ShowHint = True
- TabOrder = 4
- end
- object PB_Disk_OK_Icon: TBitBtn
- Left = 387
- Top = 20
- Width = 83
- Height = 29
- TabOrder = 5
- OnClick = PB_Disk_OK_IconClick
- Kind = bkOK
- end
- object PB_Disk_Cancel_Icon: TBitBtn
- Left = 387
- Top = 54
- Width = 83
- Height = 29
- TabOrder = 6
- OnClick = PB_Disk_Cancel_IconClick
- Kind = bkCancel
- end
- object PB_Preview_Panel: TPanel
- Left = 356
- Top = 90
- Width = 114
- Height = 116
- BevelOuter = bvLowered
- Color = clSilver
- TabOrder = 7
- object PB_Preview_Image: TPicbuf
- Left = 2
- Top = 2
- Width = 109
- Height = 111
- Hint = 'Image Preview - Click on File List to Preview'
- ParentColor = False
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnChange = PB_Preview_ImageChange
- ControlData = {
- 00000100A0220000B4150000FD00000000080000800F000080000352E30B918F
- CE119DE300AA004BB851010000009001444201000D4D532053616E7320536572
- 6966000001000000000000000000000000000001000000000000010000000000
- 00000000000000000000000000FF000000000000000000000000010001000000
- 0001000A0000000000000000000000000000000000000000}
- end
- end
- object PB_Preview: TCheckBox
- Left = 356
- Top = 212
- Width = 89
- Height = 17
- Hint = 'Enable / Disable Preview Image'
- Caption = 'Preview'
- ParentShowHint = False
- ShowHint = True
- State = cbChecked
- TabOrder = 8
- OnClick = PB_PreviewClick
- end
- object PB_JPG_Options: TGroupBox
- Left = 16
- Top = 266
- Width = 187
- Height = 83
- Caption = ' Jpg / Png Options [ Save Only ] '
- TabOrder = 9
- object PB_JPG_VALUE: TSpinEdit
- Left = 10
- Top = 20
- Width = 70
- Height = 23
- Hint = 'JPG Compression Level [5 to 100]'
- Color = clAqua
- Enabled = False
- MaxValue = 100
- MinValue = 5
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- Value = 100
- end
- object PB_Write_Options: TComboBox
- Left = 10
- Top = 50
- Width = 168
- Height = 22
- Hint = 'JPG and PNG Write Options - Sub Format'
- Style = csDropDownList
- Color = clAqua
- Enabled = False
- ItemHeight = 14
- Items.Strings = (
- 'None [Default]'
- 'Progressive Display File [PRG]'
- '8 Bit GreyScale JPG'
- '8 Bit GreyScale JPG [PRG]')
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- end
- end
- object PB_Fractel_Options: TGroupBox
- Left = 210
- Top = 266
- Width = 267
- Height = 83
- Caption = ' Fractel Decompression [ Load Only ] '
- TabOrder = 10
- object PB_FIF_Height: TSpinEdit
- Left = 186
- Top = 18
- Width = 70
- Height = 23
- Hint = 'FIF Height - User Set'
- Color = clAqua
- Enabled = False
- MaxValue = 3000
- MinValue = 10
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- Value = 100
- end
- object PB_FIF_Width: TSpinEdit
- Left = 186
- Top = 50
- Width = 70
- Height = 23
- Hint = 'FIF Width - User Set'
- Color = clAqua
- Enabled = False
- MaxValue = 3000
- MinValue = 10
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- Value = 100
- end
- object PB_FIF_Options: TComboBox
- Left = 8
- Top = 18
- Width = 168
- Height = 22
- Hint = 'Fractal Decompression Depth Options'
- Style = csDropDownList
- Color = clAqua
- Enabled = False
- ItemHeight = 14
- Items.Strings = (
- '24 Bit True Colour'
- '8 Bit Dithered'
- '4 Bit Dithered'
- '8 Bit Non Dithered'
- '4 Bit Non Dithered')
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- end
- object PB_FIF_Scale: TComboBox
- Left = 8
- Top = 50
- Width = 168
- Height = 22
- Hint = 'Fractal Decompression Scale Options'
- Style = csDropDownList
- Color = clAqua
- Enabled = False
- ItemHeight = 14
- Items.Strings = (
- 'Full Scale'
- 'Half Scale'
- 'Double Scale'
- 'User Set Width and Height')
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- end
- end
- object PB_Commonpalette: TCheckBox
- Left = 356
- Top = 234
- Width = 114
- Height = 17
- Hint = 'Map all 8 Bit Images upon load to Common Palette'
- Caption = 'Map 8 Bit'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 11
- end
- end
-