home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 6
- Top = 424
- Width = 524
- Height = 303
- Caption = 'Image Compression Manager V1.1'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- OnCreate = FormCreate
- OnResize = FormResize
- PixelsPerInch = 96
- TextHeight = 13
- object PageControl1: TPageControl
- Left = 0
- Top = 49
- Width = 414
- Height = 227
- ActivePage = UTabSheet
- Align = alClient
- TabOrder = 0
- OnChange = PageControl1Change
- object UTabSheet: TTabSheet
- Caption = 'Not Compressed'
- object TPanel
- Left = 0
- Top = 0
- Width = 406
- Height = 199
- Align = alClient
- BevelOuter = bvNone
- TabOrder = 0
- object UListView: TListView
- Left = 0
- Top = 0
- Width = 406
- Height = 199
- Align = alClient
- Columns = <
- item
- Caption = 'File Name'
- Width = 110
- end
- item
- Alignment = taRightJustify
- Caption = 'File Size'
- Width = 65
- end
- item
- Caption = 'Image Name'
- Width = 100
- end
- item
- Alignment = taRightJustify
- Caption = 'Image Size'
- Width = 65
- end
- item
- Alignment = taRightJustify
- Caption = 'Ratio'
- Width = 40
- end>
- ReadOnly = True
- MultiSelect = True
- RowSelect = True
- SortType = stText
- TabOrder = 0
- ViewStyle = vsReport
- end
- end
- end
- object CTabSheet: TTabSheet
- Caption = 'Compressed'
- object CListView: TListView
- Left = 0
- Top = 0
- Width = 406
- Height = 199
- Align = alClient
- Columns = <
- item
- Caption = 'File Name'
- Width = 110
- end
- item
- Alignment = taRightJustify
- Caption = 'File Size'
- Width = 65
- end
- item
- Caption = 'Image Name'
- Width = 100
- end
- item
- Alignment = taRightJustify
- Caption = 'Image Size'
- Width = 65
- end
- item
- Alignment = taRightJustify
- Caption = 'Ratio'
- Width = 40
- end>
- ReadOnly = True
- MultiSelect = True
- RowSelect = True
- SortType = stText
- TabOrder = 0
- ViewStyle = vsReport
- end
- end
- end
- object Panel1: TPanel
- Left = 414
- Top = 49
- Width = 102
- Height = 227
- Align = alRight
- BevelOuter = bvNone
- TabOrder = 1
- object AllButton: TButton
- Left = 16
- Top = 24
- Width = 75
- Height = 25
- Caption = 'Select &All'
- TabOrder = 0
- OnClick = AllButtonClick
- end
- object NoneButton: TButton
- Left = 16
- Top = 56
- Width = 75
- Height = 25
- Caption = 'Select &None'
- TabOrder = 1
- OnClick = NoneButtonClick
- end
- object Panel4: TPanel
- Left = 0
- Top = 186
- Width = 102
- Height = 41
- Align = alBottom
- BevelOuter = bvNone
- TabOrder = 2
- object DCButton: TButton
- Left = 16
- Top = 8
- Width = 75
- Height = 25
- Caption = '&Compress'
- TabOrder = 0
- OnClick = DCButtonClick
- end
- end
- end
- object Panel2: TPanel
- Left = 0
- Top = 0
- Width = 516
- Height = 49
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 2
- object Label1: TLabel
- Left = 8
- Top = 16
- Width = 32
- Height = 13
- Caption = 'Folder:'
- end
- object Label2: TLabel
- Left = 48
- Top = 16
- Width = 361
- Height = 13
- AutoSize = False
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBtnText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- end
- object Bevel1: TBevel
- Left = 47
- Top = 15
- Width = 362
- Height = 15
- end
- object Panel3: TPanel
- Left = 423
- Top = 0
- Width = 93
- Height = 49
- Align = alRight
- BevelOuter = bvNone
- TabOrder = 0
- object BrowseButton: TButton
- Left = 6
- Top = 10
- Width = 75
- Height = 25
- Caption = '&Browse...'
- TabOrder = 0
- OnClick = BrowseButtonClick
- end
- end
- end
- object BrowseFolder1: TBrowseFolder
- Title =
- 'Select a folder which contains the images you want to compress/d' +
- 'ecompress.'
- Flags = [bfFileSysDirsOnly, bfStatusText]
- ShowPathInStatusArea = True
- CustomButtonEnabled = False
- SyncCustomButton = False
- Left = 455
- Top = 160
- end
- object ProgressDlg1: TProgressDlg
- Caption = 'Progress'
- Width = 256
- Left = 455
- Top = 193
- end
- end
-