object RenameForm: TRenameForm Left = 237 Top = 183 Width = 499 Height = 570 BorderIcons = [biSystemMenu, biMaximize] Caption = 'P�ejmenov�n� soubor�' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} OldCreateOrder = True OnClose = FormClose OnResize = FormResize OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 16 Top = 390 Width = 345 Height = 57 Anchors = [akLeft, akBottom] AutoSize = False Caption = 'Zde vid�te soubory p�ipraven� k p�ejmenov�n�. Nyn� m��ete prov�s' + 't speci�ln� �pravy u konkr�tn�ch jmen. Chcete-li n�jak� soubor d' + 'odate�n� vylou�it z p�ejmenov�v�n�, vyma�te jeho nov� jm�no �pln' + '�. Po dokon�en� �prav m��ete stisknout tla��tko P�ejmenovat.' WordWrap = True end object ProgressGauge: TGauge Left = 8 Top = 358 Width = 473 Height = 25 Anchors = [akLeft, akRight, akBottom] BackColor = 16776176 ForeColor = clNavy Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Progress = 0 ShowText = False end object RenameGrid: TStringGrid Left = 8 Top = 32 Width = 473 Height = 321 Anchors = [akLeft, akTop, akRight, akBottom] ColCount = 2 DefaultColWidth = 225 DefaultRowHeight = 18 RowCount = 1 FixedRows = 0 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goEditing] ScrollBars = ssVertical TabOrder = 0 RowHeights = ( 18) end object Panel1: TPanel Left = 8 Top = 7 Width = 226 Height = 23 BorderStyle = bsSingle Caption = 'P�vodn� jm�no:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 1 end object Panel2: TPanel Left = 237 Top = 7 Width = 244 Height = 23 Anchors = [akTop, akRight] BorderStyle = bsSingle Caption = 'Nov� jm�no:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 2 end object StatusBar: TStatusBar Left = 0 Top = 520 Width = 491 Height = 23 Panels = < item Text = 'Po�et soubor� k p�ejmenov�n�:' Width = 210 end item Text = 'Adres��:' Width = 200 end> SimplePanel = False SizeGrip = False end object RenameBtn: TButton Left = 376 Top = 390 Width = 99 Height = 25 Hint = 'P�ejmenovat soubory podle zobrazen� tabulky' Anchors = [akRight, akBottom] Caption = 'P�ejmenovat' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 4 OnClick = RenameBtnClick end object CancelBtn: TButton Left = 376 Top = 476 Width = 99 Height = 25 Hint = 'Zru�it p�ejmenov�n�' Anchors = [akRight, akBottom] Caption = 'Zru�it' ParentShowHint = False ShowHint = True TabOrder = 5 OnClick = CancelBtnClick end object CreateUndoFileCheckBox: TCheckBox Left = 16 Top = 456 Width = 209 Height = 17 Anchors = [akLeft, akBottom] Caption = 'Vytvo�it zp�tn� soubor tohoto n�zvu:' TabOrder = 6 OnClick = CreateUndoFileCheckBoxClick end object UndoFileNameEdit: TEdit Left = 16 Top = 480 Width = 345 Height = 21 Hint = 'Sem m��ete napsat n�zev d�vkov�ho souboru (*.bat),'#13#10'kter�m m��et' + 'e v p��pad� nutnosti zru�it p�ejmenov�n�.'#13#10'Nap�ete-li pouze n�z' + 'ev souboru bez cesty, ulo�� se'#13#10'do aktu�ln�ho adres��e.' Anchors = [akLeft, akRight, akBottom] Enabled = False ParentShowHint = False ShowHint = True TabOrder = 7 Text = 'UndoFile.bat' OnChange = UndoFileNameEditChange end object Button1: TButton Left = 376 Top = 444 Width = 99 Height = 25 Hint = 'T�mto tla��tkem pouze vytvo��te d�vkov�'#13#10'soubor (*.bat) pro p�ej' + 'menov�n� soubor�. ' Anchors = [akRight, akBottom] Caption = 'D�vkov� soubor' ParentShowHint = False ShowHint = True TabOrder = 8 OnClick = Button1Click end end