home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1999 January
/
pcwk_01_1999.iso
/
Top100sh
/
Toolsys
/
Resc95
/
RESCUE95.EXE
/
0
/
RCDATA
/
TFORM8
/
TFORM8.txt
< prev
Wrap
Text File
|
1998-09-13
|
29KB
|
1,128 lines
object Form8: TForm8
Left = 153
Top = 92
HelpContext = 6
ActiveControl = PageControl1
BorderIcons = [biSystemMenu, biMinimize]
BorderStyle = bsSingle
Caption = 'WinRescue 95 Preferences'
ClientHeight = 310
ClientWidth = 427
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
Icon.Data = {<image000.ico>}
Position = poScreenCenter
OnActivate = Form8Activate
PixelsPerInch = 96
TextHeight = 13
object Label11: TLabel
Left = 16
Top = 40
Width = 97
Height = 41
Alignment = taCenter
AutoSize = False
Caption = 'To change a file'#39's status, click on it'#39's checkbox.'
Transparent = True
WordWrap = True
end
object PageControl1: TPageControl
Left = 8
Top = 8
Width = 409
Height = 265
HelpContext = 6
ActivePage = TabSheet1
MultiLine = True
TabOrder = 0
object TabSheet1: TTabSheet
HelpContext = 6
Caption = 'Backup Preferences'
object Label12: TLabel
Left = 24
Top = 20
Width = 52
Height = 13
Caption = '&Backup to:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label6: TLabel
Left = 280
Top = 20
Width = 70
Height = 13
AutoSize = False
Caption = 'Dis&kette Drive:'
Enabled = False
FocusControl = Edit1
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label10: TLabel
Left = 24
Top = 99
Width = 34
Height = 13
Caption = '&Target:'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label1: TLabel
Left = 24
Top = 134
Width = 73
Height = 30
AutoSize = False
Caption = 'Which Registry to Backup'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
WordWrap = True
end
object Label20: TLabel
Left = 24
Top = 60
Width = 92
Height = 13
Caption = '&Compression Level:'
FocusControl = ComboBox6
end
object Label30: TLabel
Left = 24
Top = 168
Width = 361
Height = 49
AutoSize = False
Caption =
'If Current is checked and Win95 accesses the Registry while it i' +
's being backed up, the backup will be bad. The only way to know' +
' if it is bad is to restore to it. So Previous is preferred, bu' +
't it doesn'#39't include any changes made since Win95 was started.'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -9
Font.Name = 'Small Fonts'
Font.Style = []
ParentFont = False
WordWrap = True
end
object ComboBox5: TComboBox
Left = 88
Top = 16
Width = 177
Height = 21
Style = csDropDownList
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
Items.Strings = (
'Hard Drive (unlimited backups)'
'Hard Drive (only one backup)'
'Hard Drive (up to 3 backups)'
'Hard Drive (up to 5 backups)'
'Hard Drive (up to 10 backups)'
'Diskette')
ParentFont = False
TabOrder = 0
OnChange = PreferenceChange
end
object Edit1: TEdit
Left = 354
Top = 16
Width = 15
Height = 21
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
MaxLength = 1
ParentFont = False
TabOrder = 1
Text = 'A'
end
object ComboBox6: TComboBox
Left = 128
Top = 56
Width = 241
Height = 21
Style = csDropDownList
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
Items.Strings = (
'Do Not Compress'
'Low/Fast Compression'
'Medium Compression'
'High/Slow Compression'
'Higher/Slower Compression'
'Highest/Slowest Compression')
ParentFont = False
TabOrder = 2
end
object TargetEdit: TEdit
Left = 72
Top = 96
Width = 281
Height = 21
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
Text = 'TargetEdit'
end
object Button14: TButton
Left = 353
Top = 96
Width = 17
Height = 20
Caption = '...'
TabOrder = 4
OnClick = Button14Click
end
object PreviousRadio1: TRadioButton
Left = 112
Top = 140
Width = 105
Height = 17
Caption = '&Previous (safest)'
Checked = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
TabStop = True
OnClick = RadioGroup1Click
end
object CurrentRadio1: TRadioButton
Left = 224
Top = 140
Width = 161
Height = 17
Caption = 'C&urrent (doesn'#39't always work)'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 6
OnClick = RadioGroup1Click
end
end
object TabSheet6: TTabSheet
Caption = 'Restore Preferences'
object Label21: TLabel
Left = 16
Top = 8
Width = 369
Height = 25
Alignment = taCenter
AutoSize = False
Caption =
'The Options below determine which backups WinRescue will use to ' +
'restore.'
WordWrap = True
end
object Label18: TLabel
Left = 216
Top = 74
Width = 169
Height = 39
AutoSize = False
Caption =
'Permanent backups made by WinRescue. These include all specifie' +
'd files, folders, and MultiFile groups.'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -9
Font.Name = 'Small Fonts'
Font.Style = []
ParentFont = False
WordWrap = True
end
object Label28: TLabel
Left = 184
Top = 123
Width = 201
Height = 17
AutoSize = False
Caption = 'Registry files from the last WinRescue backup.'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -9
Font.Name = 'Small Fonts'
Font.Style = []
ParentFont = False
end
object Label27: TLabel
Left = 160
Top = 146
Width = 225
Height = 33
AutoSize = False
Caption =
'All files, folders, and MultiFile groups backed up on diskette. ' +
' See Backup Preferences - "Backup to:" to backup to diskette. M' +
'any diskettes may be used.'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -9
Font.Name = 'Small Fonts'
Font.Style = []
ParentFont = False
WordWrap = True
end
object Label29: TLabel
Left = 176
Top = 189
Width = 209
Height = 11
AutoSize = False
Caption = 'Returns Windows back to it'#39's original settings.'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -9
Font.Name = 'Small Fonts'
Font.Style = []
ParentFont = False
end
object Label19: TLabel
Left = 192
Top = 35
Width = 193
Height = 38
AutoSize = False
Caption =
'Registry files copied when Win95 starts. This is probably the m' +
'ost recent backup, but it is often corupt. It is recommended to' +
' try this first.'
Font.Charset = ANSI_CHARSET
Font.Color = clWindowText
Font.Height = -9
Font.Name = 'Small Fonts'
Font.Style = []
ParentFont = False
WordWrap = True
end
object Backup: TRadioButton
Left = 24
Top = 72
Width = 185
Height = 15
Caption = 'Restore &WinRescue Backup'
Enabled = False
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 0
OnClick = PreferenceChange
end
object ComboBox4: TComboBox
Left = 40
Top = 90
Width = 169
Height = 21
Style = csDropDownList
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
Items.Strings = (
'Restore Most Recent Backup')
ParentFont = False
TabOrder = 1
end
object Spare: TRadioButton
Left = 24
Top = 120
Width = 145
Height = 17
Caption = 'Restore Sp&are Registry'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 2
OnClick = PreferenceChange
end
object Diskette: TRadioButton
Left = 24
Top = 144
Width = 137
Height = 15
Caption = 'Restore from &Diskette'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 3
OnClick = PreferenceChange
end
object Original: TRadioButton
Left = 24
Top = 186
Width = 145
Height = 17
Caption = 'Restore &Original Registry'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 4
OnClick = PreferenceChange
end
object Previous: TRadioButton
Left = 24
Top = 32
Width = 169
Height = 17
Caption = 'Restore &Previous Registry'
Checked = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
TabOrder = 5
TabStop = True
OnClick = PreferenceChange
end
end
object TabSheet2: TTabSheet
HelpContext = 46
Caption = 'Directories'
object Button4: TTransparentButton
Left = 25
Top = 20
Width = 62
Height = 28
Caption = '&Root'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnClick = DDirClick
end
object Button5: TTransparentButton
Left = 25
Top = 58
Width = 62
Height = 28
Caption = '&Startup'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnClick = DDirClick
end
object Button8: TTransparentButton
Left = 25
Top = 96
Width = 62
Height = 28
Caption = '&Windows'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnClick = DDirClick
end
object Button6: TTransparentButton
Left = 25
Top = 134
Width = 62
Height = 28
Caption = 'S&ystem'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnClick = DDirClick
end
object Button7: TTransparentButton
Left = 25
Top = 172
Width = 62
Height = 28
Caption = '&User'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
OnClick = DDirClick
end
object Label33: TLabel
Left = 120
Top = 32
Width = 254
Height = 153
Alignment = taCenter
AutoSize = False
Caption =
'These Default Directories should be correct. They do not need t' +
'o be changed unless you have a special setup, like, multiple use' +
'rs or foreign version.'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -19
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
WordWrap = True
end
end
object TabSheet3: TTabSheet
HelpContext = 45
Caption = 'Backup Manager'
object Label3: TLabel
Left = 120
Top = 16
Width = 145
Height = 13
Alignment = taCenter
AutoSize = False
Caption = '&List of All Backup Sets'
FocusControl = ListView1
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object ListView1: TListView
Left = 24
Top = 32
Width = 353
Height = 145
Columns = <
item
Caption = 'Backup Set'
Width = 75
end
item
Caption = 'Full Path'
Width = 300
end>
OnChange = ListView1Change
OnEdited = ListViewEdited
OnMouseDown = ListView1MouseDown
TabOrder = 0
ViewStyle = vsReport
end
object Button9: TButton
Left = 200
Top = 175
Width = 177
Height = 18
Caption = '&Delete'
TabOrder = 2
OnClick = Button9Click
end
object Button10: TButton
Left = 24
Top = 175
Width = 176
Height = 18
Caption = 'Re&name'
TabOrder = 1
OnClick = Button10Click
end
end
object TabSheet4: TTabSheet
Caption = 'Files'
object Shape2: TShape
Left = 8
Top = 32
Width = 113
Height = 153
Brush.Color = clGray
end
object Label7: TLabel
Left = 8
Top = 8
Width = 385
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'Files to Backup and Restore'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label14: TLabel
Left = 32
Top = 88
Width = 54
Height = 13
Caption = 'Do Nothing'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label15: TLabel
Left = 32
Top = 104
Width = 61
Height = 13
Caption = 'Backup Only'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label16: TLabel
Left = 32
Top = 120
Width = 73
Height = 25
AutoSize = False
Caption = 'Backup and Restore'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
WordWrap = True
end
object Image1: TImage
Left = 16
Top = 120
Width = 17
Height = 17
Picture.Data = {<image001.bmp>}
end
object Image3: TImage
Left = 16
Top = 104
Width = 17
Height = 17
Picture.Data = {<image002.bmp>}
end
object Image2: TImage
Left = 16
Top = 88
Width = 17
Height = 17
Picture.Data = {<image003.bmp>}
end
object Label17: TLabel
Left = 16
Top = 152
Width = 97
Height = 33
Alignment = taCenter
AutoSize = False
Caption = 'Click on Add to add a file to the List.'
Transparent = True
WordWrap = True
end
object Label13: TLabel
Left = 16
Top = 40
Width = 97
Height = 41
Alignment = taCenter
AutoSize = False
Caption = 'To change a file'#39's status, click on it'#39's checkbox.'
Transparent = True
WordWrap = True
end
object FileList1: TCheckListBox
Left = 128
Top = 24
Width = 265
Height = 161
AllowGrayed = True
ItemHeight = 13
Items.Strings = (
'Registry'
'Initiation Files'
'Start Menu'
'Desktop'
'Favorites'
'Recent')
TabOrder = 0
OnClick = FileList1Click
OnMouseDown = FileList1MouseDown
end
object Button16: TButton
Left = 128
Top = 184
Width = 133
Height = 17
Caption = '&Add'
TabOrder = 1
OnClick = Button16Click
end
object Button17: TButton
Left = 261
Top = 184
Width = 132
Height = 17
Caption = '&Delete'
Enabled = False
TabOrder = 2
OnClick = Button17Click
end
end
object TabSheet5: TTabSheet
Caption = 'MultiFiles'
object Label8: TLabel
Left = 16
Top = 6
Width = 92
Height = 13
Caption = 'MultiFile Groups'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label9: TLabel
Left = 112
Top = 6
Width = 269
Height = 13
Caption = '- for Backing up and Restoring Directories and File Types'
end
object Shape3: TShape
Left = 8
Top = 32
Width = 113
Height = 153
Brush.Color = clGray
end
object Label22: TLabel
Left = 16
Top = 40
Width = 97
Height = 41
Alignment = taCenter
AutoSize = False
Caption = 'To change a group'#39's status, click on it'#39's checkbox.'
Transparent = True
WordWrap = True
end
object Label23: TLabel
Left = 32
Top = 88
Width = 54
Height = 13
Caption = 'Do Nothing'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label24: TLabel
Left = 32
Top = 104
Width = 61
Height = 13
Caption = 'Backup Only'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
end
object Label25: TLabel
Left = 32
Top = 120
Width = 73
Height = 25
AutoSize = False
Caption = 'Backup and Restore'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
Transparent = True
WordWrap = True
end
object Label26: TLabel
Left = 16
Top = 152
Width = 97
Height = 33
Alignment = taCenter
AutoSize = False
Caption = 'Click on Add to add a group to the List.'
Transparent = True
WordWrap = True
end
object Image7: TImage
Left = 16
Top = 120
Width = 17
Height = 17
Picture.Data = {<image004.bmp>}
end
object Image8: TImage
Left = 16
Top = 104
Width = 17
Height = 17
Picture.Data = {<image005.bmp>}
end
object Image9: TImage
Left = 16
Top = 88
Width = 17
Height = 17
Picture.Data = {<image006.bmp>}
end
object MultiFilesList: TCheckListBox
Left = 128
Top = 24
Width = 265
Height = 161
AllowGrayed = True
ItemHeight = 13
TabOrder = 0
OnClick = MultiFilesListClick
OnMouseDown = MultiFilesListMouseDown
end
object Button11: TButton
Left = 128
Top = 184
Width = 88
Height = 17
Caption = '&Add'
TabOrder = 1
OnClick = Button11Click
end
object Button12: TButton
Left = 304
Top = 184
Width = 89
Height = 17
Caption = '&Delete'
Enabled = False
TabOrder = 2
OnClick = Button12Click
end
object Button15: TButton
Left = 216
Top = 184
Width = 89
Height = 17
Caption = '&Edit'
Enabled = False
TabOrder = 3
OnClick = Button15Click
end
end
object TabSheet8: TTabSheet
Caption = 'Automation'
object Label31: TLabel
Left = 16
Top = 8
Width = 369
Height = 13
Alignment = taCenter
AutoSize = False
Caption = 'Automatic Functions'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsBold]
ParentFont = False
end
object Label2: TLabel
Left = 32
Top = 42
Width = 161
Height = 13
AutoSize = False
Caption = 'S&tart WinRescue 95 and Wait.'
FocusControl = ComboBox1
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label4: TLabel
Left = 32
Top = 66
Width = 161
Height = 13
AutoSize = False
Caption = 'Automatically perform B&ackup.'
FocusControl = ComboBox2
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label5: TLabel
Left = 32
Top = 90
Width = 161
Height = 13
AutoSize = False
Caption = 'Automatically perform Reg&Pack.'
FocusControl = ComboBox3
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
end
object Label32: TLabel
Left = 24
Top = 120
Width = 337
Height = 41
Alignment = taCenter
AutoSize = False
Caption =
'Win98 Task Scheduler - runs WinRescue at specified time. Otherw' +
'ise Functions are run when Windows starts. To use the Task Sche' +
'duler one of the Automatic Functions must be set to Use Schedule' +
'r.'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ParentFont = False
WordWrap = True
end
object ComboBox1: TComboBox
Left = 208
Top = 38
Width = 153
Height = 21
Style = csDropDownList
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
Items.Strings = (
'Daily'
'Weekly'
'Bi-Weekly'
'Monthly'
'Use Scheduler'
'Do Not Perform')
ParentFont = False
TabOrder = 0
OnChange = FreqClick
end
object ComboBox2: TComboBox
Left = 208
Top = 62
Width = 153
Height = 21
Style = csDropDownList
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
Items.Strings = (
'Daily'
'Weekly'
'Bi-Weekly'
'Monthly'
'Use Scheduler'
'Do Not Perform')
ParentFont = False
TabOrder = 1
OnChange = FreqClick
end
object ComboBox3: TComboBox
Left = 208
Top = 86
Width = 153
Height = 21
Style = csDropDownList
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlack
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = []
ItemHeight = 13
Items.Strings = (
'Daily'
'Weekly'
'Bi-Weekly'
'Monthly'
'Use Scheduler'
'Do Not Perform')
ParentFont = False
TabOrder = 2
OnChange = FreqClick
end
object Button13: TButton
Left = 24
Top = 176
Width = 161
Height = 25
Caption = 'Setup the Task Scheduler'
TabOrder = 3
OnClick = Button13Click
end
object Button21: TButton
Left = 200
Top = 176
Width = 161
Height = 25
Caption = 'Remove WinRescue'
TabOrder = 4
OnClick = Button21Click
end
end
end
object Button1: TButton
Left = 184
Top = 280
Width = 73
Height = 20
Caption = 'O K'
Default = True
ModalResult = 1
TabOrder = 1
OnClick = Button1Click
end
object Button2: TButton
Left = 264
Top = 280
Width = 73
Height = 20
Cancel = True
Caption = 'Cancel'
ModalResult = 2
TabOrder = 2
OnClick = Button2Click
end
object Button3: TButton
Left = 344
Top = 280
Width = 73
Height = 20
Caption = '&Apply'
Enabled = False
TabOrder = 3
OnClick = Button3Click
end
object PopupMenu1: TPopupMenu
AutoPopup = False
Left = 104
Top = 256
object Dir6: TMenuItem
Caption = 'Dir'
HelpContext = 810
Hint = 'The Current Root Directory'
end
object Browse6: TMenuItem
Caption = '&Browse'
HelpContext = 820
Hint = 'Click here to assign a different root directory'
OnClick = BrowseClick
end
object N7: TMenuItem
Caption = '-'
HelpContext = 830
end
object DefaultDirectory6: TMenuItem
Caption = '&Default Directory'
HelpContext = 840
Hint = 'Change back to the default root directory.'
OnClick = DefaultDirectoryClick
end
end
object DirectoryDialog1: TDirectoryDialog
Left = 64
Top = 256
end
end