home *** CD-ROM | disk | FTP | other *** search
- object FormCopyPics: TFormCopyPics
- Left = 461
- Top = 349
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'Copying Files...'
- ClientHeight = 160
- ClientWidth = 312
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnShow = FormShow
- DesignSize = (
- 312
- 160)
- PixelsPerInch = 96
- TextHeight = 13
- object Label1: TLabel
- Left = 117
- Top = 99
- Width = 41
- Height = 13
- Caption = 'Files left:'
- end
- object LblNumFilesLeft: TLabel
- Left = 163
- Top = 99
- Width = 15
- Height = 13
- Caption = 'xxx'
- end
- object GroupBox1: TGroupBox
- Left = 9
- Top = 7
- Width = 294
- Height = 64
- Anchors = [akLeft, akTop, akRight]
- TabOrder = 0
- object Label2: TLabel
- Left = 24
- Top = 12
- Width = 41
- Height = 13
- Caption = 'Copying:'
- end
- object Label3: TLabel
- Left = 40
- Top = 29
- Width = 29
- Height = 13
- Caption = 'From: '
- end
- object Label4: TLabel
- Left = 48
- Top = 45
- Width = 16
- Height = 13
- Caption = 'To:'
- end
- object LblSrcDir: TLabel
- Left = 80
- Top = 29
- Width = 43
- Height = 13
- Caption = 'LblSrcDir'
- end
- object LblFname: TLabel
- Left = 80
- Top = 13
- Width = 46
- Height = 13
- Caption = 'LblFname'
- end
- object LblDestDir: TLabel
- Left = 80
- Top = 45
- Width = 49
- Height = 13
- Caption = 'LblDestDir'
- end
- end
- object ProgressBar1: TProgressBar
- Left = 10
- Top = 79
- Width = 293
- Height = 16
- Anchors = [akLeft, akTop, akRight]
- Smooth = True
- TabOrder = 1
- end
- object Button1: TButton
- Left = 116
- Top = 129
- Width = 75
- Height = 25
- Anchors = [akLeft, akBottom]
- Cancel = True
- Caption = 'Cancel'
- TabOrder = 2
- OnClick = Button1Click
- end
- object TimerStart: TTimer
- Enabled = False
- Interval = 100
- OnTimer = TimerStartTimer
- Left = 40
- Top = 120
- end
- end
-