object frmMultiRename: TfrmMultiRename Left = 277 Height = 466 Top = 253 Width = 764 ActiveControl = edName Caption = 'MultiRename' ClientHeight = 466 ClientWidth = 764 OnClose = FormClose OnCreate = FormCreate OnShow = FormShow Position = poScreenCenter SessionProperties = 'Height;Width;WindowState;Left;Top' ShowInTaskBar = stAlways LCLVersion = '0.9.29' object gbMaska: TGroupBox AnchorSideLeft.Control = Owner AnchorSideTop.Control = lsvwFile AnchorSideTop.Side = asrBottom AnchorSideRight.Side = asrBottom Left = 6 Height = 139 Top = 209 Width = 342 AutoSize = True BorderSpacing.Left = 6 Caption = 'Mask' ClientHeight = 117 ClientWidth = 338 TabOrder = 1 object lbName: TLabel AnchorSideLeft.Control = gbMaska AnchorSideTop.Control = gbMaska Left = 6 Height = 22 Top = 1 Width = 69 BorderSpacing.Left = 6 BorderSpacing.Top = 1 Caption = 'File &Name' FocusControl = edName ParentColor = False end object lbExt: TLabel AnchorSideLeft.Control = gbMaska AnchorSideTop.Control = cmbNameStyle AnchorSideTop.Side = asrBottom Left = 6 Height = 22 Top = 64 Width = 67 BorderSpacing.Left = 6 BorderSpacing.Top = 10 Caption = '&Extension' FocusControl = edExt ParentColor = False end object edName: TEdit AnchorSideLeft.Control = gbMaska AnchorSideTop.Control = lbName AnchorSideTop.Side = asrBottom Left = 6 Height = 29 Top = 25 Width = 136 BorderSpacing.Left = 6 BorderSpacing.Top = 2 OnChange = cmbNameStyleChange TabOrder = 0 end object edExt: TEdit Tag = 25 AnchorSideLeft.Control = gbMaska AnchorSideTop.Control = lbExt AnchorSideTop.Side = asrBottom Left = 6 Height = 29 Top = 88 Width = 136 BorderSpacing.Left = 6 BorderSpacing.Top = 2 OnChange = cmbNameStyleChange TabOrder = 3 end object btnNameMenu: TButton AnchorSideLeft.Control = edName AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = edName AnchorSideBottom.Control = edName AnchorSideBottom.Side = asrBottom Left = 146 Height = 29 Top = 25 Width = 20 Anchors = [akTop, akLeft, akBottom] BorderSpacing.Left = 4 BorderSpacing.InnerBorder = 4 Caption = '...' OnClick = btnNameMenuClick TabOrder = 1 end object btnExtMenu: TButton AnchorSideLeft.Control = edExt AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = edExt AnchorSideBottom.Control = edExt AnchorSideBottom.Side = asrBottom Left = 146 Height = 29 Top = 88 Width = 20 Anchors = [akTop, akLeft, akBottom] BorderSpacing.Left = 4 BorderSpacing.InnerBorder = 4 Caption = '...' OnClick = btnExtMenuClick TabOrder = 4 end object cmbNameStyle: TComboBox AnchorSideLeft.Control = btnNameMenu AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = btnNameMenu AnchorSideTop.Side = asrCenter AnchorSideRight.Control = gbMaska AnchorSideRight.Side = asrBottom AnchorSideBottom.Side = asrBottom Left = 170 Height = 29 Top = 25 Width = 164 BorderSpacing.Left = 4 BorderSpacing.Right = 4 ItemHeight = 21 OnChange = cmbNameStyleChange Style = csDropDownList TabOrder = 2 end object cmbExtensionStyle: TComboBox AnchorSideLeft.Control = btnExtMenu AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = btnExtMenu AnchorSideTop.Side = asrCenter AnchorSideRight.Control = gbMaska AnchorSideRight.Side = asrBottom Left = 170 Height = 29 Top = 88 Width = 164 Anchors = [akTop, akLeft, akRight] BorderSpacing.Left = 4 BorderSpacing.Right = 4 ItemHeight = 21 OnChange = cmbNameStyleChange Style = csDropDownList TabOrder = 5 end end object gbFindReplace: TGroupBox AnchorSideLeft.Control = gbMaska AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = gbMaska AnchorSideRight.Control = gbCounter AnchorSideBottom.Side = asrBottom Left = 354 Height = 212 Top = 209 Width = 185 Anchors = [akTop, akLeft, akRight] AutoSize = True BorderSpacing.Left = 6 BorderSpacing.Bottom = 6 Caption = 'Find && Replace' ChildSizing.TopBottomSpacing = 2 ClientHeight = 190 ClientWidth = 181 TabOrder = 2 object lbFind: TLabel AnchorSideLeft.Control = gbFindReplace AnchorSideTop.Control = gbFindReplace Left = 6 Height = 22 Top = 6 Width = 43 BorderSpacing.Left = 6 BorderSpacing.Top = 6 Caption = '&Find...' FocusControl = edFind ParentColor = False end object lbReplace: TLabel AnchorSideLeft.Control = gbFindReplace AnchorSideTop.Control = edFind AnchorSideTop.Side = asrBottom Left = 6 Height = 22 Top = 65 Width = 67 BorderSpacing.Left = 6 BorderSpacing.Top = 6 Caption = 'Re&place...' FocusControl = edReplace ParentColor = False end object edFind: TEdit AnchorSideLeft.Control = gbFindReplace AnchorSideTop.Control = lbFind AnchorSideTop.Side = asrBottom AnchorSideRight.Control = gbFindReplace AnchorSideRight.Side = asrBottom Left = 4 Height = 29 Top = 30 Width = 173 Anchors = [akTop, akLeft, akRight] BorderSpacing.Left = 4 BorderSpacing.Top = 2 BorderSpacing.Right = 4 OnChange = cmbNameStyleChange TabOrder = 0 end object edReplace: TEdit AnchorSideLeft.Control = gbFindReplace AnchorSideTop.Control = lbReplace AnchorSideTop.Side = asrBottom AnchorSideRight.Control = gbFindReplace AnchorSideRight.Side = asrBottom Left = 4 Height = 29 Top = 89 Width = 173 Anchors = [akTop, akLeft, akRight] BorderSpacing.Left = 4 BorderSpacing.Top = 2 BorderSpacing.Right = 4 OnChange = cmbNameStyleChange TabOrder = 1 end object cbRegExp: TCheckBox AnchorSideLeft.Control = gbFindReplace AnchorSideTop.Control = edReplace AnchorSideTop.Side = asrBottom Left = 4 Height = 25 Top = 128 Width = 163 BorderSpacing.Left = 4 BorderSpacing.Top = 10 Caption = 'Regular e&xpressions' OnChange = cbRegExpChange TabOrder = 2 end object cbUseSubs: TCheckBox AnchorSideLeft.Control = gbFindReplace AnchorSideTop.Control = cbRegExp AnchorSideTop.Side = asrBottom Left = 4 Height = 25 Top = 163 Width = 138 BorderSpacing.Left = 4 BorderSpacing.Top = 10 Caption = '&Use substitution' Enabled = False OnChange = cmbNameStyleChange TabOrder = 3 end end object gbCounter: TGroupBox AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = gbFindReplace AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom Left = 545 Height = 113 Top = 209 Width = 213 Anchors = [akTop, akRight] AutoSize = True BorderSpacing.Left = 6 BorderSpacing.Right = 6 Caption = 'Counter' ChildSizing.LeftRightSpacing = 6 ChildSizing.HorizontalSpacing = 5 ChildSizing.VerticalSpacing = 2 ChildSizing.EnlargeHorizontal = crsScaleChilds ChildSizing.EnlargeVertical = crsScaleChilds ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 2 ClientHeight = 91 ClientWidth = 209 TabOrder = 3 object lbStNb: TLabel Left = 6 Height = 22 Top = 3 Width = 92 BorderSpacing.CellAlignVertical = ccaCenter Caption = 'Start Number' ParentColor = False end object edPoc: TEdit Left = 103 Height = 29 Top = 0 Width = 100 MaxLength = 5 OnChange = edPocChange TabOrder = 0 Text = '1' end object lbInterval: TLabel Left = 6 Height = 22 Top = 34 Width = 92 BorderSpacing.CellAlignVertical = ccaCenter Caption = 'Interval' ParentColor = False end object edInterval: TEdit Left = 103 Height = 29 Top = 31 Width = 100 MaxLength = 5 OnChange = edIntervalChange TabOrder = 2 Text = '1' end object lbWidth: TLabel Left = 6 Height = 22 Top = 65 Width = 92 BorderSpacing.CellAlignVertical = ccaCenter Caption = 'Width' ParentColor = False end object cmbxWidth: TComboBox Left = 103 Height = 29 Top = 62 Width = 100 ItemHeight = 21 ItemIndex = 0 Items.Strings = ( '01' '02' '03' '04' '05' '06' '07' '08' '09' '10' ) OnChange = cmbNameStyleChange Style = csDropDownList TabOrder = 1 Text = '01' end end object btnRename: TButton AnchorSideLeft.Control = btnRestore AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = btnRestore AnchorSideRight.Control = btnClose Left = 460 Height = 32 Top = 427 Width = 192 Anchors = [akTop, akLeft, akRight] BorderSpacing.Left = 6 BorderSpacing.InnerBorder = 4 Caption = '&Rename' Default = True OnClick = btnRenameClick TabOrder = 6 end object btnClose: TButton AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = btnRename AnchorSideRight.Control = gbCounter AnchorSideRight.Side = asrBottom Left = 658 Height = 32 Top = 427 Width = 100 Anchors = [akTop, akRight] BorderSpacing.Left = 6 BorderSpacing.InnerBorder = 4 Cancel = True Caption = '&Close' OnClick = btnCloseClick TabOrder = 7 end object gbLog: TGroupBox AnchorSideLeft.Control = gbCounter AnchorSideTop.Control = gbCounter AnchorSideTop.Side = asrBottom AnchorSideRight.Control = gbCounter AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = gbFindReplace AnchorSideBottom.Side = asrBottom Left = 545 Height = 99 Top = 322 Width = 213 Anchors = [akTop, akLeft, akRight, akBottom] AutoSize = True Caption = 'Log Result' ClientHeight = 77 ClientWidth = 209 TabOrder = 4 object edFile: TEdit AnchorSideLeft.Control = gbLog AnchorSideTop.Control = cbLog AnchorSideTop.Side = asrBottom AnchorSideRight.Control = gbLog AnchorSideRight.Side = asrBottom Left = 4 Height = 29 Top = 31 Width = 201 Anchors = [akTop, akLeft, akRight] BorderSpacing.Left = 4 BorderSpacing.Top = 4 BorderSpacing.Right = 4 TabOrder = 0 end object cbLog: TCheckBox AnchorSideLeft.Control = gbLog AnchorSideTop.Control = gbLog Left = 4 Height = 25 Top = 2 Width = 128 BorderSpacing.Left = 4 BorderSpacing.Top = 2 Caption = 'Enable' OnClick = cbLogClick TabOrder = 1 end end object btnRestore: TButton AnchorSideLeft.Control = gbFindReplace AnchorSideTop.Control = gbFindReplace AnchorSideTop.Side = asrBottom Left = 354 Height = 32 Top = 427 Width = 100 BorderSpacing.InnerBorder = 4 Caption = 'Reset all' OnClick = btnRestoreClick TabOrder = 5 end object lsvwFile: TListView Left = 0 Height = 201 Top = 8 Width = 764 Anchors = [akTop, akLeft, akRight, akBottom] Columns = < item AutoSize = True Caption = 'Old File Name' Width = 740 end item AutoSize = True Caption = 'New File Name' Width = 114 end item AutoSize = True Caption = 'File Path' Width = 71 end> ReadOnly = True ScrollBars = ssAutoBoth TabStop = False TabOrder = 0 ViewStyle = vsReport end object gbPresets: TGroupBox AnchorSideLeft.Control = gbMaska AnchorSideTop.Control = gbMaska AnchorSideTop.Side = asrBottom AnchorSideRight.Control = gbMaska AnchorSideRight.Side = asrBottom Left = 6 Height = 97 Top = 348 Width = 342 Anchors = [akTop, akLeft, akRight] AutoSize = True Caption = 'Presets' ClientHeight = 75 ClientWidth = 338 TabOrder = 8 object cbPresets: TComboBox AnchorSideLeft.Control = gbPresets AnchorSideTop.Control = gbPresets AnchorSideRight.Control = gbPresets AnchorSideRight.Side = asrBottom Left = 6 Height = 29 Top = 6 Width = 326 Anchors = [akTop, akLeft, akRight] BorderSpacing.Left = 6 BorderSpacing.Top = 6 BorderSpacing.Right = 6 ItemHeight = 21 TabOrder = 0 end object btnLoadPreset: TButton AnchorSideLeft.Control = cbPresets AnchorSideTop.Control = cbPresets AnchorSideTop.Side = asrBottom Left = 6 Height = 32 Top = 43 Width = 100 BorderSpacing.Top = 8 Caption = '&Load' OnClick = btnLoadPresetClick TabOrder = 1 end object btnSavePreset: TButton AnchorSideLeft.Control = cbPresets AnchorSideLeft.Side = asrCenter AnchorSideTop.Control = btnLoadPreset Left = 119 Height = 32 Top = 43 Width = 100 BorderSpacing.CellAlignHorizontal = ccaCenter BorderSpacing.CellAlignVertical = ccaCenter Caption = '&Save' OnClick = btnSavePresetClick TabOrder = 2 end object btnDeletePreset: TButton AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = btnSavePreset AnchorSideRight.Control = cbPresets AnchorSideRight.Side = asrBottom Left = 232 Height = 32 Top = 43 Width = 100 Anchors = [akTop, akRight] Caption = '&Delete' OnClick = btnDeletePresetClick TabOrder = 3 end end object ppNameMenu: TPopupMenu AutoPopup = False OnPopup = ppNameMenuPopup left = 784 top = 168 object miNextName: TMenuItem Caption = 'Name...' object miName: TMenuItem Caption = '[N]ame' OnClick = NameClick end object miNameX: TMenuItem Caption = '[Nx]ame' OnClick = NameXClick end object miNameXX: TMenuItem Caption = '[Nx:x]ame' OnClick = NameXXClick end end object N1: TMenuItem Caption = '-' end object miNextExtension: TMenuItem Caption = 'Extension...' object Extension: TMenuItem Caption = '[E]xtension' OnClick = ExtensionClick end object miExtensionX: TMenuItem Caption = '[Ex]xtension' OnClick = ExtensionXClick end object miExtensionXX: TMenuItem Caption = '[Ex:x]xtension' OnClick = ExtensionXXClick end end object N2: TMenuItem Caption = '-' end object miCounter: TMenuItem Caption = '[C]ounter' OnClick = CounterClick end object N3: TMenuItem Caption = '-' end object miNext: TMenuItem Caption = 'Time...' object miYear: TMenuItem Caption = '[Y]ear' OnClick = miYearClick end object miMonth: TMenuItem Caption = '[M]onth' OnClick = miMonthClick end object miDay: TMenuItem Caption = '[D]ay' OnClick = miDayClick end object N4: TMenuItem Caption = '-' end object miHour: TMenuItem Caption = '[h]our' OnClick = miHourClick end object miMinute: TMenuItem Caption = 'Mi[n]ute' OnClick = miMinuteClick end object miSecond: TMenuItem Caption = '[s]econd' OnClick = miSecondClick end end end end