home *** CD-ROM | disk | FTP | other *** search
- object Form2: TForm2
- Left = 172
- Top = 100
- BorderIcons = []
- BorderStyle = bsSingle
- Caption = 'Qsoft QuickFile - Settings'
- ClientHeight = 368
- ClientWidth = 563
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- Position = poScreenCenter
- ShowHint = True
- OnCreate = FormCreate
- OnHide = FormHide
- OnPaint = FormPaint
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Bevel1: TBevel
- Left = 208
- Top = 96
- Width = 345
- Height = 225
- Style = bsRaised
- end
- object Label3: TLabel
- Left = 224
- Top = 104
- Width = 140
- Height = 13
- Caption = 'Individual menu settings'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label4: TLabel
- Left = 224
- Top = 128
- Width = 69
- Height = 13
- Caption = 'Choose menu:'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = []
- ParentFont = False
- end
- object Label5: TLabel
- Left = 224
- Top = 168
- Width = 28
- Height = 13
- Caption = 'Filter:'
- end
- object Label6: TLabel
- Left = 224
- Top = 196
- Width = 45
- Height = 13
- Caption = 'Initial dir:'
- end
- object Label7: TLabel
- Left = 224
- Top = 224
- Width = 23
- Height = 13
- Caption = 'Hint:'
- end
- object Label8: TLabel
- Left = 224
- Top = 258
- Width = 25
- Height = 13
- Caption = 'Icon:'
- end
- object ImageIcon: TImage
- Left = 288
- Top = 248
- Width = 32
- Height = 33
- Stretch = True
- end
- object Button1: TButton
- Left = 470
- Top = 336
- Width = 83
- Height = 23
- Hint = 'Click to close this window'#13#10'and apply the changes.'
- Caption = 'OK'
- TabOrder = 0
- OnClick = Button1Click
- end
- object Panel1: TPanel
- Left = 8
- Top = 8
- Width = 185
- Height = 313
- TabOrder = 1
- object Label1: TLabel
- Left = 16
- Top = 8
- Width = 93
- Height = 13
- Caption = 'General settings'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label9: TLabel
- Left = 16
- Top = 72
- Width = 159
- Height = 26
- Caption = 'Word to replace &-sign in menus:'#13#10'(Otherwise & is shown as _ )'
- ShowAccelChar = False
- end
- object CheckBoxEnableFloppy: TCheckBox
- Left = 16
- Top = 40
- Width = 137
- Height = 17
- Hint =
- 'Check if you want QuickFile'#13#10'to check FDD'#39's for files.'#13#10'Attentio' +
- 'n: this can slow down'#13#10'the program seriously when no'#13#10'floppy is ' +
- 'loaded.'
- Caption = 'Enable &floppy disk drive'
- TabOrder = 0
- end
- object Enterkey: TButton
- Left = 16
- Top = 272
- Width = 153
- Height = 23
- Hint = 'Click when you have received '#13#10'your registration key'
- Caption = 'Enter registration &key...'
- TabOrder = 1
- Visible = False
- OnClick = EnterkeyClick
- end
- object EditAnd: TEdit
- Left = 16
- Top = 104
- Width = 153
- Height = 21
- Hint = 'Enter word to replace '#39'&'#39' in the menus'#13#10'Example: and'
- TabOrder = 2
- end
- object Reginfo: TButton
- Left = 16
- Top = 240
- Width = 153
- Height = 23
- Hint = 'Click to read how to register this program'
- Caption = 'Registration &info...'
- TabOrder = 3
- Visible = False
- OnClick = ReginfoClick
- end
- object Button6: TButton
- Left = 16
- Top = 176
- Width = 153
- Height = 23
- Hint = 'http://www.geocities.com/Siliconvalley/Sector/7979'
- Caption = '&Goto Qsoft'#39's homepage...'
- TabOrder = 4
- OnClick = Button6Click
- end
- object Button7: TButton
- Left = 16
- Top = 144
- Width = 153
- Height = 23
- Hint =
- 'Click to unload QuickFile from memory and/or'#13#10'to prevent it from' +
- ' loading again on Windows startup.'
- Caption = '&Stop using Quickfile...'
- TabOrder = 5
- OnClick = Button7Click
- end
- object Button2: TButton
- Left = 16
- Top = 208
- Width = 153
- Height = 23
- Hint = 'About QuickFile'
- Caption = 'A&bout Quickfile'
- TabOrder = 6
- OnClick = Button2Click
- end
- end
- object Panel2: TPanel
- Left = 208
- Top = 8
- Width = 345
- Height = 73
- TabOrder = 2
- object Label2: TLabel
- Left = 16
- Top = 8
- Width = 85
- Height = 13
- Caption = 'Menu manager'
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'Tahoma'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Button4: TButton
- Left = 16
- Top = 32
- Width = 97
- Height = 23
- Hint = 'Click to create a new menu'
- Caption = 'Ad&d menu...'
- TabOrder = 0
- OnClick = Button4Click
- end
- object Button5: TButton
- Left = 120
- Top = 32
- Width = 97
- Height = 23
- Hint = 'Click to remove a menu'
- Caption = '&Remove menu...'
- TabOrder = 1
- OnClick = Button5Click
- end
- end
- object ComboBoxChooseMenu: TComboBox
- Left = 312
- Top = 126
- Width = 225
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 3
- OnChange = ComboBoxChooseMenuChange
- OnEnter = ComboBoxChooseMenuEnter
- end
- object EditFilter: TEdit
- Left = 288
- Top = 166
- Width = 249
- Height = 21
- Hint =
- 'Enter filter for files in this menu.'#13#10'Filters must be separated ' +
- 'by semicolons.'#13#10'Example: *.doc;*.xls'
- TabOrder = 4
- OnEnter = EditFilterEnter
- end
- object EditInitialDir: TEdit
- Left = 288
- Top = 194
- Width = 249
- Height = 21
- Hint =
- 'Enter folder to start searching for files'#13#10'of the defined type. ' +
- ' Enter nothing if you'#13#10'want to search all drives.'#13#10'Right click f' +
- 'or pre-defined folders.'
- PopupMenu = PopupMenu1
- TabOrder = 5
- OnEnter = EditFilterEnter
- end
- object Button8: TButton
- Left = 336
- Top = 254
- Width = 73
- Height = 23
- Hint = 'Click to change the icon shown for'#13#10'this menu on the system tray'
- Caption = '&Change...'
- TabOrder = 6
- OnClick = Button8Click
- end
- object CheckBoxActive: TCheckBox
- Left = 488
- Top = 291
- Width = 49
- Height = 17
- Hint = 'Check to enable this menu'
- Caption = '&Active'
- State = cbChecked
- TabOrder = 7
- OnEnter = EditFilterEnter
- end
- object EditHint: TEdit
- Left = 288
- Top = 222
- Width = 249
- Height = 21
- Hint =
- 'Enter hint to be shown for the icon'#13#10'of this menu on the system ' +
- 'tray'
- TabOrder = 8
- OnEnter = EditFilterEnter
- end
- object CheckBoxShowExt: TCheckBox
- Left = 224
- Top = 291
- Width = 121
- Height = 17
- Hint = 'Check to show file extensions in menu'
- Caption = 'Show file &extensions'
- TabOrder = 9
- OnEnter = EditFilterEnter
- end
- object PopupMenu1: TPopupMenu
- Left = 496
- Top = 192
- object Desktop1: TMenuItem
- Caption = 'Desktop'
- OnClick = PopupMenu1Popup
- end
- object Mydocuments1: TMenuItem
- Caption = 'Favorites'
- OnClick = PopupMenu1Popup
- end
- object Personal1: TMenuItem
- Caption = 'Personal'
- OnClick = PopupMenu1Popup
- end
- object Programs1: TMenuItem
- Caption = 'Programs'
- OnClick = PopupMenu1Popup
- end
- object Recent1: TMenuItem
- Caption = 'Recent'
- OnClick = PopupMenu1Popup
- end
- object Startmenu1: TMenuItem
- Caption = 'Start menu'
- OnClick = PopupMenu1Popup
- end
- end
- end
-