home *** CD-ROM | disk | FTP | other *** search
- object CreatLinkFrm: TCreatLinkFrm
- Left = 191
- Top = 107
- BorderStyle = bsDialog
- Caption = 'Create backup link'
- ClientHeight = 354
- ClientWidth = 536
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- ShowHint = True
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- PixelsPerInch = 96
- TextHeight = 13
- object Panel1: TPanel
- Left = 0
- Top = 0
- Width = 536
- Height = 157
- Align = alTop
- BevelOuter = bvNone
- TabOrder = 0
- object Label1: TLabel
- Left = 252
- Top = 16
- Width = 74
- Height = 13
- Caption = 'Target Zip File :'
- end
- object Label2: TLabel
- Left = 256
- Top = 64
- Width = 198
- Height = 13
- Caption = 'List file (you can build a new list file below)'
- end
- object GroupBox1: TGroupBox
- Left = 8
- Top = 4
- Width = 233
- Height = 149
- Caption = 'Options'
- TabOrder = 0
- object fullpath: TCheckBox
- Left = 16
- Top = 20
- Width = 97
- Height = 17
- Hint = '|Store path information'
- Caption = '&Store full path'
- State = cbChecked
- TabOrder = 0
- end
- object recurse: TCheckBox
- Left = 16
- Top = 40
- Width = 109
- Height = 17
- Hint = '|recurse sub-directories'
- Caption = '&Recurse sub dirs'
- State = cbChecked
- TabOrder = 1
- end
- object span: TCheckBox
- Left = 16
- Top = 60
- Width = 97
- Height = 17
- Hint = '|Span zip file accross disks'
- Caption = 'S&pan disks'
- TabOrder = 2
- end
- object GroupBox2: TGroupBox
- Left = 128
- Top = 12
- Width = 93
- Height = 81
- Caption = 'Action'
- TabOrder = 6
- object Add: TRadioButton
- Left = 12
- Top = 16
- Width = 57
- Height = 17
- Hint = '|Add files to archive'
- Caption = '&Add'
- TabOrder = 0
- end
- object Freshen: TRadioButton
- Left = 12
- Top = 36
- Width = 69
- Height = 17
- Hint = '|Only updates changed files'
- Caption = '&Freshen'
- TabOrder = 1
- end
- object Update: TRadioButton
- Left = 12
- Top = 56
- Width = 65
- Height = 17
- Hint = '|Update only changed files and add new files'
- Caption = '&Update'
- Checked = True
- TabOrder = 2
- TabStop = True
- end
- end
- object volume: TCheckBox
- Left = 16
- Top = 80
- Width = 97
- Height = 17
- Hint = '|Store volume label'
- Caption = '&Volume label'
- TabOrder = 3
- end
- object Move: TCheckBox
- Left = 16
- Top = 100
- Width = 97
- Height = 17
- Hint = 'Move|Delete files after compression'
- Caption = '&Move'
- TabOrder = 4
- end
- object Test: TCheckBox
- Left = 140
- Top = 100
- Width = 73
- Height = 17
- Caption = '&Test after'
- TabOrder = 7
- end
- object stay: TCheckBox
- Left = 140
- Top = 120
- Width = 73
- Height = 17
- Hint = '|Keep Szipw opened after operation'
- Caption = 'Sta&y'
- TabOrder = 8
- end
- object Icon: TCheckBox
- Left = 16
- Top = 120
- Width = 97
- Height = 17
- Hint = '|Run szipw as an icon'
- Caption = 'Run &Iconized'
- TabOrder = 5
- end
- end
- object target: TEdit
- Left = 252
- Top = 36
- Width = 249
- Height = 21
- Hint = '|Target zipbackup file'
- TabOrder = 1
- end
- object Button1: TButton
- Left = 504
- Top = 36
- Width = 21
- Height = 21
- Hint = 'Browse|Browse the system for a filename'
- Caption = '...'
- TabOrder = 2
- OnClick = Button1Click
- end
- object source: TEdit
- Left = 254
- Top = 84
- Width = 247
- Height = 21
- Hint = '|Filename to add or filelist created with "Add with list"'
- TabOrder = 3
- OnChange = sourceChange
- end
- object AddBtn: TButton
- Left = 248
- Top = 128
- Width = 51
- Height = 21
- Hint = 'Add to list||Add selection to list'
- Caption = '&Include'
- TabOrder = 5
- OnClick = AddBtnClick
- end
- object RemoveBtn: TButton
- Left = 352
- Top = 128
- Width = 63
- Height = 21
- Hint = 'Remove from list|Remove selection from list'
- Caption = '&Remove'
- Enabled = False
- TabOrder = 6
- OnClick = RemoveBtnClick
- end
- object mask: TEdit
- Left = 418
- Top = 128
- Width = 103
- Height = 21
- Hint =
- 'Masks|Yype in filenames or filemasks (c*.bat;*.txt;j*.t??). Add ' +
- 'several masks by seperating them with a '#39';'#39
- TabOrder = 7
- Text = '*.*'
- end
- object Button2: TButton
- Left = 504
- Top = 84
- Width = 21
- Height = 21
- Hint = 'Browse|Browse the system for a filename'
- Caption = '...'
- TabOrder = 4
- OnClick = Button2Click
- end
- object ExcludeBtn: TButton
- Left = 302
- Top = 128
- Width = 47
- Height = 21
- Hint = 'Add to list||Add selection to list'
- Caption = 'E&xclude'
- TabOrder = 8
- OnClick = ExcludeBtnClick
- end
- end
- object Panel2: TPanel
- Left = 0
- Top = 157
- Width = 536
- Height = 167
- Align = alClient
- BevelInner = bvLowered
- TabOrder = 1
- object List: TListBox
- Left = 247
- Top = 2
- Width = 287
- Height = 163
- Align = alClient
- Ctl3D = False
- ItemHeight = 13
- ParentCtl3D = False
- TabOrder = 1
- OnClick = ListClick
- end
- object DirTree1: TDirTree
- Left = 2
- Top = 2
- Width = 245
- Height = 163
- ReadOnly = True
- HideSelection = False
- Indent = 19
- Align = alLeft
- ParentColor = False
- ParentCtl3D = False
- Ctl3D = False
- TabOrder = 0
- PopupMenu = DirTree1.
- Images = DirTree1.
- end
- end
- object Panel3: TPanel
- Left = 0
- Top = 324
- Width = 536
- Height = 30
- Align = alBottom
- TabOrder = 2
- object CancelBtn: TButton
- Left = 376
- Top = 5
- Width = 75
- Height = 21
- Cancel = True
- Caption = '&Close'
- TabOrder = 1
- OnClick = CancelBtnClick
- end
- object CreateLink: TButton
- Left = 456
- Top = 5
- Width = 75
- Height = 21
- Caption = 'Create lin&k'
- Default = True
- Enabled = False
- TabOrder = 2
- OnClick = CreateLinkClick
- end
- object SaveList: TButton
- Left = 296
- Top = 5
- Width = 75
- Height = 21
- Caption = '&Save list'
- Enabled = False
- TabOrder = 0
- OnClick = SaveListClick
- end
- object Button3: TButton
- Left = 216
- Top = 5
- Width = 75
- Height = 21
- Caption = '&Help'
- TabOrder = 3
- OnClick = Button3Click
- end
- end
- object OpenDialog1: TOpenDialog
- FileEditStyle = fsEdit
- Options = [ofHideReadOnly]
- Left = 88
- Top = 112
- end
- object SaveDialog1: TSaveDialog
- DefaultExt = 'zmd'
- FileEditStyle = fsEdit
- Options = [ofOverwritePrompt, ofHideReadOnly, ofPathMustExist, ofNoReadOnlyReturn]
- Left = 60
- Top = 112
- end
- object OpenDialog2: TOpenDialog
- DefaultExt = 'lst'
- FileEditStyle = fsEdit
- Options = [ofPathMustExist, ofFileMustExist]
- Left = 116
- Top = 112
- end
- object TPopupMenu
- Left = 8
- Top = 308
- object TMenuItem
- Caption = '&Make Directory'
- ShortCut = 0
- end
- object TMenuItem
- Caption = '&Remove Directory'
- ShortCut = 0
- end
- end
- object PopupMenu1: TPopupMenu
- Left = 40
- Top = 309
- end
- end
-