home *** CD-ROM | disk | FTP | other *** search
- object ProfilePropsForm: TProfilePropsForm
- Left = 387
- Top = 244
- Width = 592
- Height = 363
- Caption = 'Profile properties'
- Color = clBtnFace
- Constraints.MinHeight = 363
- Constraints.MinWidth = 500
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = False
- Position = poScreenCenter
- OnClose = FormClose
- OnCreate = FormCreate
- DesignSize = (
- 584
- 329)
- PixelsPerInch = 96
- TextHeight = 13
- object PC: TPageControl
- Left = 7
- Top = 8
- Width = 570
- Height = 281
- ActivePage = tabScheduler
- Anchors = [akLeft, akTop, akRight, akBottom]
- MultiLine = True
- TabOrder = 2
- OnChange = PCChange
- object tabProfile: TTabSheet
- Caption = 'General'
- ImageIndex = 1
- DesignSize = (
- 562
- 253)
- object GroupBox2: TGroupBox
- Left = 8
- Top = 8
- Width = 545
- Height = 233
- Anchors = [akLeft, akTop, akRight, akBottom]
- TabOrder = 0
- DesignSize = (
- 545
- 233)
- object Label3: TLabel
- Left = 8
- Top = 52
- Width = 78
- Height = 13
- Caption = 'Move files to the'
- end
- object Label2: TLabel
- Left = 8
- Top = 20
- Width = 58
- Height = 13
- Caption = 'Profile name'
- end
- object comboPosition: TComboBox
- Left = 96
- Top = 48
- Width = 153
- Height = 21
- AutoDropDown = True
- AutoCloseUp = True
- Style = csDropDownList
- ItemHeight = 13
- ItemIndex = 0
- TabOrder = 1
- Text = 'start of disk'
- Items.Strings = (
- 'start of disk'
- 'end of disk')
- end
- object edProfileName: TEdit
- Left = 96
- Top = 16
- Width = 433
- Height = 21
- Anchors = [akLeft, akTop, akRight]
- TabOrder = 0
- end
- end
- end
- object tabIncluded: TTabSheet
- Caption = 'Included file(s)'
- ImageIndex = 2
- DesignSize = (
- 562
- 253)
- object GroupBox1: TGroupBox
- Left = 8
- Top = 8
- Width = 545
- Height = 233
- Anchors = [akLeft, akTop, akRight, akBottom]
- TabOrder = 0
- DesignSize = (
- 545
- 233)
- object Label4: TLabel
- Left = 8
- Top = 192
- Width = 393
- Height = 33
- Anchors = [akLeft, akBottom]
- AutoSize = False
- Caption =
- 'Click on the '#39'Add file'#39' or '#39'Add dir'#39' buttons or drag and drop fi' +
- 'les into this window from the Windows Explorer'
- WordWrap = True
- end
- object lvFiles: TListView
- Left = 8
- Top = 16
- Width = 393
- Height = 169
- Anchors = [akLeft, akTop, akRight, akBottom]
- Columns = <
- item
- AutoSize = True
- Caption = 'Name'
- end
- item
- Alignment = taRightJustify
- Caption = 'Size'
- Width = 70
- end
- item
- Alignment = taRightJustify
- Caption = 'Fragments'
- Width = 80
- end>
- HideSelection = False
- MultiSelect = True
- ReadOnly = True
- RowSelect = True
- PopupMenu = popupFiles
- TabOrder = 0
- ViewStyle = vsReport
- OnColumnClick = lvFilesColumnClick
- OnCompare = lvFilesCompare
- end
- object btnDeleteAll: TButton
- Left = 416
- Top = 112
- Width = 115
- Height = 25
- Action = actDeleteAll
- Anchors = [akTop, akRight]
- TabOrder = 4
- end
- object btnDelete: TButton
- Left = 416
- Top = 80
- Width = 115
- Height = 25
- Action = actDelete
- Anchors = [akTop, akRight]
- TabOrder = 3
- end
- object btnRescan: TButton
- Left = 416
- Top = 144
- Width = 115
- Height = 25
- Action = actRescan
- Anchors = [akTop, akRight]
- TabOrder = 5
- end
- object btnAddDir: TButton
- Left = 416
- Top = 48
- Width = 115
- Height = 25
- Action = actAddDir
- Anchors = [akTop, akRight]
- TabOrder = 2
- end
- object btnAddFile: TButton
- Left = 416
- Top = 16
- Width = 115
- Height = 25
- Action = actAddFile
- Anchors = [akTop, akRight]
- TabOrder = 1
- end
- end
- end
- object tabScheduler: TTabSheet
- Caption = 'Scheduler'
- ImageIndex = 1
- DesignSize = (
- 562
- 253)
- object GroupBox3: TGroupBox
- Left = 8
- Top = 8
- Width = 545
- Height = 233
- Anchors = [akLeft, akTop, akRight, akBottom]
- TabOrder = 0
- DesignSize = (
- 545
- 233)
- object cbSchedulerActive: TCheckBox
- Left = 8
- Top = 16
- Width = 153
- Height = 17
- Caption = 'Activate scheduler'
- TabOrder = 0
- OnClick = cbSchedulerActiveClick
- end
- object gbSchedulerParams: TGroupBox
- Left = 8
- Top = 40
- Width = 529
- Height = 185
- Anchors = [akLeft, akTop, akRight, akBottom]
- TabOrder = 1
- object Label1: TLabel
- Left = 16
- Top = 16
- Width = 47
- Height = 13
- Caption = 'Start time:'
- end
- object dtpSchedulerStart: TDateTimePicker
- Left = 16
- Top = 32
- Width = 89
- Height = 21
- Date = 38067.124023564810000000
- Time = 38067.124023564810000000
- Kind = dtkTime
- TabOrder = 0
- end
- object cb7: TCheckBox
- Left = 328
- Top = 80
- Width = 97
- Height = 17
- Caption = 'Sunday'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- TabOrder = 7
- end
- object cb1: TCheckBox
- Left = 16
- Top = 80
- Width = 97
- Height = 17
- Caption = 'Monday'
- TabOrder = 1
- end
- object cb2: TCheckBox
- Left = 16
- Top = 104
- Width = 97
- Height = 17
- Caption = 'Tuesday'
- TabOrder = 2
- end
- object cb3: TCheckBox
- Left = 120
- Top = 80
- Width = 97
- Height = 17
- Caption = 'Wednesday'
- TabOrder = 3
- end
- object cb4: TCheckBox
- Left = 120
- Top = 104
- Width = 97
- Height = 17
- Caption = 'Thursday'
- TabOrder = 4
- end
- object cb5: TCheckBox
- Left = 224
- Top = 80
- Width = 97
- Height = 17
- Caption = 'Friday'
- TabOrder = 5
- end
- object cb6: TCheckBox
- Left = 224
- Top = 104
- Width = 97
- Height = 17
- Caption = 'Saturday'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- TabOrder = 6
- end
- object bCheckAll: TButton
- Left = 16
- Top = 136
- Width = 97
- Height = 25
- Caption = 'Check all'
- TabOrder = 8
- OnClick = bCheckAllClick
- end
- object bResetAll: TButton
- Left = 128
- Top = 136
- Width = 97
- Height = 25
- Caption = 'Reset all'
- TabOrder = 9
- OnClick = bResetAllClick
- end
- end
- end
- end
- end
- object btnOK: TButton
- Left = 415
- Top = 297
- Width = 75
- Height = 25
- Anchors = [akRight, akBottom]
- Caption = 'OK'
- Default = True
- ModalResult = 1
- TabOrder = 0
- end
- object btnCancel: TButton
- Left = 503
- Top = 297
- Width = 75
- Height = 25
- Anchors = [akRight, akBottom]
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 1
- end
- object odAddFile: TOpenDialog
- Options = [ofReadOnly, ofAllowMultiSelect, ofPathMustExist, ofFileMustExist, ofShareAware, ofEnableSizing, ofDontAddToRecent, ofForceShowHidden]
- Left = 379
- Top = 7
- end
- object ActionManager1: TActionManager
- Left = 491
- Top = 7
- StyleName = 'XP Style'
- object actDelete: TAction
- Caption = 'Delete'
- OnExecute = actDeleteExecute
- OnUpdate = actDeleteUpdate
- end
- object actSelectAll: TAction
- Caption = 'Select All'
- OnExecute = actSelectAllExecute
- end
- object actDeleteAll: TAction
- Caption = 'Delete All'
- OnExecute = actDeleteAllExecute
- OnUpdate = actDeleteAllUpdate
- end
- object actAddDir: TAction
- Caption = 'Add dir...'
- OnExecute = actAddDirExecute
- end
- object actAddFile: TAction
- Caption = 'Add file...'
- OnExecute = actAddFileExecute
- end
- object actRescan: TAction
- Caption = 'Rescan'
- OnExecute = actRescanExecute
- OnUpdate = actRescanUpdate
- end
- end
- object popupFiles: TPopupMenu
- Left = 459
- Top = 7
- object Addfile1: TMenuItem
- Action = actAddFile
- end
- object Addfile2: TMenuItem
- Action = actAddDir
- end
- object Delete1: TMenuItem
- Action = actDelete
- ShortCut = 46
- end
- object SelectAll1: TMenuItem
- Action = actSelectAll
- ShortCut = 16449
- end
- object DeleteAll1: TMenuItem
- Action = actDeleteAll
- end
- end
- end
-