home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2000 September
/
Chip_2000-09_cd1.bin
/
sharewar
/
Slunec
/
app
/
5
/
Renamer.exe
/
0
/
RCDATA
/
TRENAMEFORM
/
TRENAMEFORM.txt
< prev
Wrap
Text File
|
2000-07-13
|
5KB
|
192 lines
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 = 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