home *** CD-ROM | disk | FTP | other *** search
/ PC Direkt 1998 November / PCDIREKT_1198.bin / data / system / quickfile / _SETUP.1 / QuickFile.exe / 0 / RCDATA / TFORM4 / TFORM4.txt
Encoding:
Text File  |  1998-08-25  |  3.2 KB  |  156 lines
  1. object Form4: TForm4
  2.   Left = 322
  3.   Top = 115
  4.   ActiveControl = Editfilter
  5.   BorderStyle = bsDialog
  6.   Caption = 'Add menu'
  7.   ClientHeight = 199
  8.   ClientWidth = 348
  9.   Font.Charset = DEFAULT_CHARSET
  10.   Font.Color = clWindowText
  11.   Font.Height = -11
  12.   Font.Name = 'MS Sans Serif'
  13.   Font.Style = []
  14.   Position = poScreenCenter
  15.   ShowHint = True
  16.   OnHide = FormHide
  17.   OnShow = FormShow
  18.   PixelsPerInch = 96
  19.   TextHeight = 13
  20.   object Label5: TLabel
  21.     Left = 16
  22.     Top = 24
  23.     Width = 25
  24.     Height = 13
  25.     Caption = 'Filter:'
  26.   end
  27.   object Label6: TLabel
  28.     Left = 16
  29.     Top = 52
  30.     Width = 41
  31.     Height = 13
  32.     Caption = 'Initial dir:'
  33.   end
  34.   object Label7: TLabel
  35.     Left = 16
  36.     Top = 80
  37.     Width = 22
  38.     Height = 13
  39.     Caption = 'Hint:'
  40.   end
  41.   object Label1: TLabel
  42.     Left = 16
  43.     Top = 120
  44.     Width = 24
  45.     Height = 13
  46.     Caption = 'Icon:'
  47.   end
  48.   object Imageicon: TImage
  49.     Left = 80
  50.     Top = 112
  51.     Width = 32
  52.     Height = 32
  53.     Stretch = True
  54.   end
  55.   object EditInitialDir: TEdit
  56.     Left = 80
  57.     Top = 50
  58.     Width = 249
  59.     Height = 21
  60.     Hint = 
  61.       'Enter folder to start searching for files'#13#10'of the defined type. ' +
  62.       ' Enter nothing if you'#13#10'want to search all drives.'#13#10'Right click f' +
  63.       'or pre-defined folders.'
  64.     PopupMenu = PopupMenu1
  65.     TabOrder = 0
  66.   end
  67.   object EditHint: TEdit
  68.     Left = 80
  69.     Top = 78
  70.     Width = 249
  71.     Height = 21
  72.     Hint = 
  73.       'Enter hint to be shown for the icon'#13#10'of this menu on the system ' +
  74.       'tray'
  75.     TabOrder = 1
  76.   end
  77.   object Button1: TButton
  78.     Left = 249
  79.     Top = 162
  80.     Width = 83
  81.     Height = 23
  82.     Caption = 'OK'
  83.     Default = True
  84.     TabOrder = 2
  85.     OnClick = Button1Click
  86.   end
  87.   object Button2: TButton
  88.     Left = 161
  89.     Top = 162
  90.     Width = 83
  91.     Height = 23
  92.     Cancel = True
  93.     Caption = 'Cancel'
  94.     TabOrder = 3
  95.     OnClick = Button2Click
  96.   end
  97.   object CheckBoxActive: TCheckBox
  98.     Left = 272
  99.     Top = 119
  100.     Width = 57
  101.     Height = 17
  102.     Hint = 'Check to enable this menu'
  103.     Caption = 'Active'
  104.     State = cbChecked
  105.     TabOrder = 4
  106.   end
  107.   object Button8: TButton
  108.     Left = 128
  109.     Top = 117
  110.     Width = 73
  111.     Height = 23
  112.     Hint = 'Click to change the icon shown for'#13#10'this menu on the system tray'
  113.     Caption = '&Change...'
  114.     TabOrder = 5
  115.     OnClick = Button8Click
  116.   end
  117.   object Editfilter: TEdit
  118.     Left = 80
  119.     Top = 22
  120.     Width = 249
  121.     Height = 21
  122.     Hint = 
  123.       'Enter filter for files in this menu.'#13#10'Filters must be separated ' +
  124.       'by semicolons.'#13#10'Example:  *.doc;*.xls'
  125.     TabOrder = 6
  126.   end
  127.   object PopupMenu1: TPopupMenu
  128.     Left = 288
  129.     Top = 48
  130.     object Desktop1: TMenuItem
  131.       Caption = 'Desktop'
  132.       OnClick = PopupMenu1Popup
  133.     end
  134.     object Mydocuments1: TMenuItem
  135.       Caption = 'Favorites'
  136.       OnClick = PopupMenu1Popup
  137.     end
  138.     object Personal1: TMenuItem
  139.       Caption = 'Personal'
  140.       OnClick = PopupMenu1Popup
  141.     end
  142.     object Programs1: TMenuItem
  143.       Caption = 'Programs'
  144.       OnClick = PopupMenu1Popup
  145.     end
  146.     object Recent1: TMenuItem
  147.       Caption = 'Recent'
  148.       OnClick = PopupMenu1Popup
  149.     end
  150.     object Startmenu1: TMenuItem
  151.       Caption = 'Start menu'
  152.       OnClick = PopupMenu1Popup
  153.     end
  154.   end
  155. end
  156.