home *** CD-ROM | disk | FTP | other *** search
- 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 = {<image000.ico>}
- 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 = 8
- 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 BatchFileBtn: 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 = 5
- OnClick = BatchFileBtnClick
- end
- end
-