home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Freelog 7
/
Freelog007.iso
/
BAS
/
Fichiers
/
Replace
/
Replace.exe
/
0
/
RCDATA
/
TFORM_REPLACE
/
TFORM_REPLACE.txt
Wrap
Text File
|
1999-06-09
|
12KB
|
422 lines
object Form_Replace: TForm_Replace
Left = 404
Top = 222
Width = 439
Height = 237
Caption = 'Replace'
Color = clBtnFace
Constraints.MaxHeight = 237
Constraints.MinHeight = 237
Constraints.MinWidth = 439
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
OldCreateOrder = False
Position = poScreenCenter
ShowHint = True
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object Panel_Pagecontrol: TPanel
Left = 0
Top = 0
Width = 321
Height = 210
Align = alLeft
Anchors = [akLeft, akTop, akRight, akBottom]
BevelOuter = bvNone
TabOrder = 0
object PageControl_Replace: TPageControl
Left = 10
Top = 15
Width = 311
Height = 182
ActivePage = TabSheet_NameLocation
Anchors = [akLeft, akTop, akRight, akBottom]
HotTrack = True
TabOrder = 0
object TabSheet_NameLocation: TTabSheet
Caption = 'Name and location'
OnShow = TabSheet_NameLocationShow
object Label_Named: TLabel
Left = 8
Top = 24
Width = 37
Height = 13
Caption = '&Named:'
FocusControl = Edit_Named
end
object Label_Replace: TLabel
Left = 8
Top = 56
Width = 43
Height = 13
Caption = '&Replace:'
FocusControl = Edit_Replace
end
object Label_With: TLabel
Left = 168
Top = 56
Width = 25
Height = 13
Anchors = [akTop, akRight]
Caption = '&With:'
FocusControl = Edit_With
end
object Label_Lookin: TLabel
Left = 8
Top = 88
Width = 38
Height = 13
Caption = '&Look in:'
FocusControl = Edit_Lookin
end
object CheckBox_LowerMaps: TCheckBox
Left = 24
Top = 120
Width = 121
Height = 17
Hint = 'Check this box if you also want to search through subfolders.'
Caption = '&Include subfolders'
TabOrder = 5
end
object Edit_Named: TEdit
Left = 72
Top = 20
Width = 217
Height = 21
Hint = 'Enter a mask for files to search for.'
Anchors = [akLeft, akTop, akRight]
TabOrder = 0
end
object Edit_Replace: TEdit
Left = 72
Top = 52
Width = 81
Height = 21
Hint =
'Enter the substring to search for in the filename of the found f' +
'iles.'
TabOrder = 1
end
object Edit_With: TEdit
Left = 208
Top = 52
Width = 81
Height = 21
Hint =
'Enter the substring to replace the search-string with in the fil' +
'ename of the found files.'
Anchors = [akTop, akRight]
TabOrder = 2
end
object Edit_Lookin: TEdit
Left = 72
Top = 84
Width = 217
Height = 21
Hint = 'Enter the folder to search in.'
Anchors = [akLeft, akTop, akRight]
TabOrder = 3
OnChange = Edit_LookinChange
end
object Button_Browse: TButton
Left = 216
Top = 118
Width = 75
Height = 21
Hint = 'Browse through your folders.'
Anchors = [akTop, akRight]
Caption = '&Browse...'
TabOrder = 4
OnClick = Button_BrowseClick
end
object CheckBox_Sensitive: TCheckBox
Left = 24
Top = 136
Width = 137
Height = 17
Hint =
'Check this box if you want to search case sensitive for filename' +
's.'
Caption = 'Search &case sensitive'
TabOrder = 6
end
end
object TabSheet_Attributes: TTabSheet
Caption = 'Attributes'
ImageIndex = 1
object Label_Readonly: TLabel
Left = 8
Top = 40
Width = 48
Height = 13
Caption = '&Read only'
FocusControl = CheckBox_ReadOnly_Set
end
object Label_Hidden: TLabel
Left = 8
Top = 64
Width = 34
Height = 13
Caption = '&Hidden'
FocusControl = CheckBox_Hidden_Set
end
object Label_Archive: TLabel
Left = 8
Top = 88
Width = 36
Height = 13
Caption = 'Ar&chive'
FocusControl = CheckBox_Archief_Set
end
object Label_System: TLabel
Left = 8
Top = 112
Width = 34
Height = 13
Caption = 'S&ystem'
FocusControl = CheckBox_System_Set
end
object Label_Set: TLabel
Left = 80
Top = 16
Width = 16
Height = 13
Caption = 'Set'
end
object Label_Clear: TLabel
Left = 128
Top = 16
Width = 24
Height = 13
Caption = 'Clear'
end
object CheckBox_ReadOnly_Set: TCheckBox
Left = 80
Top = 38
Width = 17
Height = 17
TabStop = False
TabOrder = 0
OnClick = CheckBox_ReadOnly_SetClick
end
object CheckBox_Hidden_Set: TCheckBox
Left = 80
Top = 62
Width = 17
Height = 17
TabStop = False
TabOrder = 2
OnClick = CheckBox_Hidden_SetClick
end
object CheckBox_Archief_Set: TCheckBox
Left = 80
Top = 86
Width = 17
Height = 17
TabStop = False
TabOrder = 4
OnClick = CheckBox_Archief_SetClick
end
object CheckBox_System_Set: TCheckBox
Left = 80
Top = 110
Width = 17
Height = 17
TabStop = False
TabOrder = 6
OnClick = CheckBox_System_SetClick
end
object CheckBox_ReadOnly_Clear: TCheckBox
Left = 128
Top = 38
Width = 17
Height = 17
TabStop = False
TabOrder = 1
OnClick = CheckBox_ReadOnly_ClearClick
end
object CheckBox_Hidden_Clear: TCheckBox
Left = 128
Top = 62
Width = 17
Height = 17
TabStop = False
TabOrder = 3
OnClick = CheckBox_Hidden_ClearClick
end
object CheckBox_Archief_Clear: TCheckBox
Left = 128
Top = 86
Width = 17
Height = 17
TabStop = False
TabOrder = 5
OnClick = CheckBox_Archief_ClearClick
end
object CheckBox_System_Clear: TCheckBox
Left = 128
Top = 110
Width = 17
Height = 17
TabStop = False
TabOrder = 7
OnClick = CheckBox_System_ClearClick
end
end
object Tabsheet_Case: TTabSheet
Caption = 'Case'
ImageIndex = 2
object RadioGroup_ChangeCase: TRadioGroup
Left = 16
Top = 16
Width = 273
Height = 121
Anchors = [akLeft, akTop, akRight, akBottom]
Caption = 'Select Case'
ItemIndex = 3
Items.Strings = (
'&Titlecase (Default Example.exe)'
'&Lowercase (default example.exe)'
'&Uppercase (DEFAULT EXAMPLE.EXE)'
'Do ¬ change case')
TabOrder = 0
end
end
object TabSheet_ReplaceInFiles: TTabSheet
Caption = 'Replace in files'
ImageIndex = 3
object Label_ZoekInFiles: TLabel
Left = 8
Top = 24
Width = 43
Height = 13
Caption = '&Replace:'
FocusControl = Edit_ReplaceInFile
end
object Label_ReplaceInFiles: TLabel
Left = 8
Top = 56
Width = 25
Height = 13
Caption = '&With:'
FocusControl = Edit_WithInFile
end
object CheckBox_CaseSensitive: TCheckBox
Left = 24
Top = 120
Width = 137
Height = 17
Caption = 'Search &case sensitive'
TabOrder = 2
end
object Edit_ReplaceInFile: TEdit
Left = 72
Top = 20
Width = 217
Height = 21
Anchors = [akLeft, akTop, akRight]
TabOrder = 0
end
object Edit_WithInFile: TEdit
Left = 72
Top = 52
Width = 217
Height = 21
Anchors = [akLeft, akTop, akRight]
TabOrder = 1
end
end
end
end
object Button_Replace: TButton
Left = 332
Top = 33
Width = 87
Height = 21
Hint = 'Start the replace process.'
Anchors = [akTop, akRight]
Caption = 'R&eplace'
TabOrder = 1
OnClick = Button_ReplaceClick
end
object Button_Stop: TButton
Left = 332
Top = 62
Width = 87
Height = 21
Hint = 'Stop the current replace process.'
Anchors = [akTop, akRight]
Caption = '&Stop'
TabOrder = 2
OnClick = Button_StopClick
end
object Button_Again: TButton
Left = 332
Top = 91
Width = 87
Height = 21
Hint = 'Reset all values.'
Anchors = [akTop, akRight]
Caption = 'Replace &again'
TabOrder = 3
OnClick = Button_AgainClick
end
object AnimateReplace: TAnimate
Left = 352
Top = 118
Width = 48
Height = 50
Active = False
Anchors = [akTop, akRight]
CommonAVI = aviFindFile
StopFrame = 23
end
object BitBtnInfo: TBitBtn
Left = 302
Top = 16
Width = 19
Height = 19
Hint = 'About'
Anchors = [akTop, akRight]
TabOrder = 5
OnClick = BitBtnInfoClick
Glyph.Data = {
9E020000424D9E0200000000000036000000280000000E0000000E0000000100
18000000000068020000120B0000120B000000000000000000000000FF0000FF
0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF0000
FF0000FF00000000FF0000FF0000FF0000FF8000008000008000008000008000
000000FF0000FF0000FF0000FF0000FF00000000FF0000FF0000FF8000008000
00FFFFFFFFFFFFFFFFFF8000008000000000FF0000FF0000FF0000FF00000000
FF0000FF800000800000800000800000FFFFFFFF000080000080000080000000
00FF0000FF0000FF00000000FF800000800000800000800000800000FFFFFFFF
00008000008000008000008000000000FF0000FF000080000080000080000080
0000800000800000FFFFFFFF00008000008000008000008000008000000000FF
0000800000800000800000800000800000800000FFFFFFFF0000800000800000
8000008000008000000000FF0000800000800000800000800000800000800000
FFFFFFFF00008000008000008000008000008000000000FF0000800000800000
800000800000800000800000FFFFFFFF00008000008000008000008000008000
000000FF0000800000800000800000800000800000800000FFFFFFFF00008000
008000008000008000008000000000FF00000000FF8000008000008000008000
00FFFFFFFFFFFFFF00008000008000008000008000000000FF0000FF00000000
FF0000FF80000080000080000080000080000080000080000080000080000000
00FF0000FF0000FF00000000FF0000FF0000FF800000800000800000FFFFFFFF
00008000008000000000FF0000FF0000FF0000FF00000000FF0000FF0000FF00
00FF8000008000008000008000008000000000FF0000FF0000FF0000FF0000FF
0000}
end
object RzSelDirDialog: TRzSelDirDialog
Caption = 'Select a Directory'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Left = 200
Top = 152
end
end