home *** CD-ROM | disk | FTP | other *** search
- object Msgform: TMsgform
- Left = 68
- Top = 104
- Width = 576
- Height = 425
- Cursor = crHourGlass
- BorderIcons = [biSystemMenu, biMaximize]
- Caption = 'Compress Messages'
- Font.Color = clWindowText
- Font.Height = -10
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- Position = poScreenCenter
- OnActivate = FormActivate
- PixelsPerInch = 96
- TextHeight = 13
- object Panel2: TPanel
- Left = 0
- Top = 364
- Width = 568
- Height = 34
- Cursor = crHourGlass
- Align = alBottom
- TabOrder = 0
- object TLabel
- Left = 86
- Top = 24
- Width = 3
- Height = 13
- end
- object DismissBut: TButton
- Left = 359
- Top = 7
- Width = 60
- Height = 20
- Hint = 'Hide'
- Caption = '&Dismiss'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnClick = DismissButClick
- end
- object CancelBut: TButton
- Left = 439
- Top = 7
- Width = 104
- Height = 20
- Caption = '&Cancel Operation'
- TabOrder = 1
- OnClick = CancelButClick
- end
- end
- object Memo1: TMemo
- Left = 0
- Top = 57
- Width = 568
- Height = 307
- Cursor = crHourGlass
- Align = alClient
- Lines.Strings = (
- '')
- ScrollBars = ssVertical
- TabOrder = 1
- end
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 568
- Height = 57
- Cursor = crHourGlass
- Align = alTop
- TabOrder = 2
- object FileBeingZipped: TLabel
- Left = 192
- Top = 33
- Width = 113
- Height = 15
- Alignment = taRightJustify
- Caption = 'File being manipulated'
- end
- object Label1: TLabel
- Left = 8
- Top = 8
- Width = 321
- Height = 13
- Caption =
- 'Please wait for the operation to start, this may take a few seco' +
- 'nds ...'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object ProgressBar1: TProgressBar
- Left = 318
- Top = 34
- Width = 237
- Height = 13
- Min = 0
- Max = 100
- TabOrder = 0
- end
- end
- end
-