object JvShFileOperationMainForm: TJvShFileOperationMainForm Left = 216 Top = 77 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'ShFileOperation demo' ClientHeight = 512 ClientWidth = 607 Color = clBtnFace Constraints.MinHeight = 500 Constraints.MinWidth = 615 DefaultMonitor = dmDesktop Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Shell Dlg 2' Font.Style = [] OldCreateOrder = False Position = poDesktopCenter Scaled = False ShowHint = True OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object JvLabel1: TLabel Left = 8 Top = 8 Width = 37 Height = 13 Caption = 'Source:' end object JvLabel2: TLabel Left = 8 Top = 168 Width = 58 Height = 13 Caption = 'Destination:' end object JvBevel1: TBevel Left = 8 Top = 320 Width = 584 Height = 5 Anchors = [akLeft, akTop, akRight] Shape = bsTopLine end object JvLabel3: TLabel Left = 8 Top = 328 Width = 128 Height = 13 Caption = 'Renamed files / messages:' end object btnCopy: TButton Left = 248 Top = 288 Width = 75 Height = 25 Hint = 'Copy Source to Destination' Caption = 'Copy' TabOrder = 0 OnClick = btnCopyClick end object btnMove: TButton Left = 328 Top = 288 Width = 75 Height = 25 Hint = 'Move Source to Destination' Caption = 'Move' TabOrder = 1 OnClick = btnMoveClick end object btnRename: TButton Left = 408 Top = 288 Width = 75 Height = 25 Hint = 'Rename Source to Destination'#13#10#13#10'NOTE: that this function can onl' + 'y rename one file: '#13#10'use move to rename multiple files' Caption = 'Rename' TabOrder = 2 OnClick = btnRenameClick end object btnDelete: TButton Left = 488 Top = 288 Width = 75 Height = 25 Hint = 'Delete files in Source (ignore Destination)' Caption = 'Delete' TabOrder = 3 OnClick = btnDeleteClick end object memSource: TMemo Left = 8 Top = 24 Width = 225 Height = 137 Hint = 'List that specifies one or more source file names. '#13#10'Multiple na' + 'mes must be on separate rows.'#13#10'Accept wildcards in filenames but' + ' not in foldernames.' HideSelection = False Lines.Strings = ( 'C:\temp\*.*') ScrollBars = ssBoth TabOrder = 4 WordWrap = False end object memDest: TMemo Left = 8 Top = 184 Width = 225 Height = 129 Hint = 'List that contains the name of the destination file or directory' + '. '#13#10'The list can contain mutiple destination file names '#13#10'if "Mu' + 'lti Destination Files" is checked.'#13#10#13#10'Multiple names must be on ' + 'separate lines.' HideSelection = False Lines.Strings = ( 'C:\temp\temp') ScrollBars = ssBoth TabOrder = 5 WordWrap = False end object JvGroupBox1: TGroupBox Left = 240 Top = 16 Width = 356 Height = 257 Anchors = [akLeft, akTop, akRight] Caption = ' Options: ' TabOrder = 6 object Label1: TLabel Left = 16 Top = 200 Width = 24 Height = 13 Caption = 'Title:' end object chkUndo: TCheckBox Left = 16 Top = 32 Width = 137 Height = 17 Hint = 'Preserves undo information, if possible'#13#10'(requires fully qualifi' + 'ed filenames)' Caption = 'Allow undo' Checked = True State = cbChecked TabOrder = 0 end object chkFiles: TCheckBox Left = 16 Top = 48 Width = 137 Height = 17 Hint = 'Performs the operation only on files if a wildcard filename (*.*' + ') is specified.' Caption = 'Files only' Checked = True State = cbChecked TabOrder = 1 end object chkMulti: TCheckBox Left = 16 Top = 64 Width = 137 Height = 17 Hint = 'Indicates that Destination specifies multiple destination files ' + #13#10'(one row for each source file) rather than one directory where' + ' '#13#10'all source files are to be deposited.' Caption = 'Multi destination files' TabOrder = 2 end object chkNoConfirm: TCheckBox Left = 16 Top = 80 Width = 137 Height = 17 Hint = 'Responds with "Yes To All" for any dialog box that is displayed.' Caption = 'Don'#39't confirm' TabOrder = 3 end object chkNoDirCreate: TCheckBox Left = 16 Top = 96 Width = 137 Height = 17 Hint = 'Does not confirm the creation of a new directory if the operatio' + 'n requires one to be created.' Caption = 'Don'#39't confirm dir create' TabOrder = 4 end object chkRename: TCheckBox Left = 16 Top = 112 Width = 137 Height = 17 Hint = 'Gives the file being operated on a new name (such as "Copy #1 of' + '...") '#13#10'in a move, copy, or rename operation if a file of the ta' + 'rget name already exists.' Caption = 'Rename on collision' Checked = True State = cbChecked TabOrder = 5 end object chkSilent: TCheckBox Left = 16 Top = 128 Width = 137 Height = 17 Hint = 'Does not display a progress dialog box.' Caption = 'Silent' TabOrder = 6 end object chkSimple: TCheckBox Left = 16 Top = 144 Width = 137 Height = 17 Hint = 'Displays a progress dialog box, but does not show the filenames.' Caption = 'Simple Progress' TabOrder = 7 end object chkMappings: TCheckBox Left = 16 Top = 160 Width = 137 Height = 17 Hint = 'Return list of renamed files.' Caption = 'Want file mappings' Checked = True State = cbChecked TabOrder = 8 end object chkNoErrors: TCheckBox Left = 16 Top = 176 Width = 137 Height = 17 Hint = 'Don'#39't show any error dialogs (just return false).' Caption = 'Don'#39't show errors' TabOrder = 9 end object edTitle: TEdit Left = 16 Top = 216 Width = 327 Height = 21 Hint = 'Dialog title to show when "Simple Progress" is true.' Anchors = [akLeft, akTop, akRight] TabOrder = 10 end object chkNoSecAttrs: TCheckBox Left = 168 Top = 32 Width = 142 Height = 17 Hint = 'Do not copy the security attributes of the file.'#13#10'(Version 4.71)' Caption = 'Ignore security attributes' TabOrder = 11 end object chkNoRecurse: TCheckBox Left = 168 Top = 48 Width = 137 Height = 17 Hint = 'Only operate in the local directory. '#13#10'Don'#39't operate recursively' + ' into subdirectories.' Caption = 'Don'#39't recurse' TabOrder = 12 end object chkNoConElem: TCheckBox Left = 168 Top = 64 Width = 151 Height = 17 Hint = 'Do not move connected files as a group. Only move the specified ' + 'files.'#13#10'(Version 5.0)' Caption = 'Ignore connected elements' TabOrder = 13 end object chkNoParse: TCheckBox Left = 168 Top = 80 Width = 137 Height = 17 Hint = 'Treat reparse points as objects, not containers. '#13#10'(Version 5.01' + ')' Caption = 'No recurse parse' TabOrder = 14 end object chkWantNukes: TCheckBox Left = 168 Top = 96 Width = 137 Height = 17 Hint = 'Send a warning if a file is being destroyed during a delete oper' + 'ation '#13#10'rather than recycled. This flag partially overrides fofN' + 'oConfirm'#13#10'(Version 5.0). ' Caption = 'Want nuke warning' TabOrder = 15 end end object memMessages: TMemo Left = 8 Top = 344 Width = 587 Height = 161 Anchors = [akLeft, akTop, akRight, akBottom] HideSelection = False Lines.Strings = ( 'Before running this demo, make sure the files you' 'are using for testing have been BACKUPPED!' '') ReadOnly = True ScrollBars = ssBoth TabOrder = 7 WordWrap = False end object JvSHFileOperation1: TJvSHFileOperation Options = [] OnFileMapping = JvSHFileOperation1FileMapping Left = 456 Top = 144 end end