home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World 2001 July
/
PCWorld_2001-07_cd.bin
/
Software
/
Vyzkuste
/
multiren
/
hren.exe
/
0
/
RCDATA
/
TFORM1
/
TFORM1.txt
Wrap
Text File
|
1998-05-27
|
4KB
|
220 lines
object Form1: TForm1
Left = 200
Top = 108
BorderIcons = [biSystemMenu]
BorderStyle = bsSingle
Caption = 'Multi-renamer'
ClientHeight = 370
ClientWidth = 483
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Position = poScreenCenter
PixelsPerInch = 96
TextHeight = 13
object Label1: TLabel
Left = 0
Top = 0
Width = 188
Height = 13
Caption = 'Files to rename: (drop files from explorer)'
end
object Label5: TLabel
Left = 240
Top = 0
Width = 3
Height = 13
end
object Label6: TLabel
Left = 240
Top = 0
Width = 59
Height = 13
Caption = 'New names:'
end
object HyperLink1: THyperLink
Left = 0
Top = 352
Width = 156
Height = 17
Cursor = crHandPoint
LinkType = ltHttp
ShowHint = True
ParentShowHint = False
Caption = 'home.c2i.net/heanders/'
end
object Button1: TButton
Left = 168
Top = 344
Width = 313
Height = 25
Caption = 'Start rename'
TabOrder = 0
OnClick = Button1Click
end
object ListBox1: TListBox
Left = 0
Top = 16
Width = 233
Height = 233
ItemHeight = 13
TabOrder = 1
end
object Edit3: TEdit
Left = 0
Top = 232
Width = 481
Height = 21
TabOrder = 2
Visible = False
end
object ListBox2: TListBox
Left = 240
Top = 16
Width = 241
Height = 233
ItemHeight = 13
TabOrder = 3
end
object RadioGroup1: TRadioGroup
Left = 0
Top = 256
Width = 97
Height = 89
ItemIndex = 0
Items.Strings = (
'name001.ext'
'fullname.001'
'fullname.new')
TabOrder = 4
OnClick = RadioGroup1Click
end
object Panel1: TPanel
Left = 104
Top = 264
Width = 377
Height = 25
TabOrder = 5
object fname1: TEdit
Left = 2
Top = 2
Width = 201
Height = 21
TabOrder = 0
Text = 'new'
OnKeyUp = fname1KeyUp
end
object fnum1: TEdit
Left = 202
Top = 2
Width = 57
Height = 21
TabOrder = 1
Text = '0'
OnChange = fnum1Change
end
object fsiff1: TEdit
Left = 274
Top = 2
Width = 25
Height = 21
TabOrder = 2
Text = '3'
OnChange = fsiff1Change
end
object UpDown1: TUpDown
Left = 259
Top = 2
Width = 15
Height = 21
Associate = fnum1
Min = 0
Position = 0
TabOrder = 3
Wrap = False
end
object UpDown2: TUpDown
Left = 299
Top = 2
Width = 15
Height = 21
Associate = fsiff1
Min = 0
Position = 3
TabOrder = 4
Wrap = False
end
end
object Panel2: TPanel
Left = 104
Top = 289
Width = 377
Height = 25
TabOrder = 6
Visible = False
object fext2: TEdit
Left = 250
Top = 2
Width = 65
Height = 21
TabOrder = 0
Text = '0'
OnChange = fext2Change
end
object fextnum2: TEdit
Left = 330
Top = 2
Width = 23
Height = 21
TabOrder = 1
Text = '3'
OnChange = fextnum2Change
end
object UpDown3: TUpDown
Left = 315
Top = 2
Width = 15
Height = 21
Associate = fext2
Min = 0
Position = 0
TabOrder = 2
Wrap = False
end
object UpDown4: TUpDown
Left = 353
Top = 2
Width = 15
Height = 21
Associate = fextnum2
Min = 0
Position = 3
TabOrder = 3
Wrap = False
end
end
object Panel3: TPanel
Left = 104
Top = 314
Width = 377
Height = 25
TabOrder = 7
Visible = False
object Edit1: TEdit
Left = 250
Top = 2
Width = 65
Height = 21
TabOrder = 0
Text = 'new'
OnChange = Edit1Change
end
end
object FileDrag1: TFileDrag
OnDrop = FileDrag1Drop
Left = 440
end
end