home *** CD-ROM | disk | FTP | other *** search
/ PC Shareware 1997 December / PCShareware-12-97.iso.bin / programy / recipe / _setup.1 / recipe.exe / 0 / RCDATA / TINGREDIENTFORM / TINGREDIENTFORM.txt
Text File  |  1997-10-09  |  3KB  |  121 lines
  1. inherited IngredientForm: TIngredientForm
  2.   Left = 425
  3.   Top = 237
  4.   HelpContext = 290
  5.   BorderIcons = [biSystemMenu]
  6.   BorderStyle = bsDialog
  7.   Caption = 'Find/Enter Ingredient'
  8.   ClientHeight = 231
  9.   ClientWidth = 291
  10.   Font.Color = clBlack
  11.   KeyPreview = True
  12.   ShowHint = True
  13.   OnCreate = FormCreate
  14.   OnDestroy = FormDestroy
  15.   PixelsPerInch = 96
  16.   TextHeight = 13
  17.   object Label1: TLabel [0]
  18.     Left = 8
  19.     Top = 10
  20.     Width = 102
  21.     Height = 13
  22.     Caption = 'Search for Ingredient '
  23.   end
  24.   object OKButton: TBitBtn [1]
  25.     Left = 6
  26.     Top = 198
  27.     Width = 77
  28.     Height = 27
  29.     Caption = '&Select'
  30.     ModalResult = 1
  31.     TabOrder = 3
  32.     NumGlyphs = 2
  33.     Spacing = -1
  34.     IsControl = True
  35.   end
  36.   object CancelBtn: TBitBtn [2]
  37.     Left = 90
  38.     Top = 198
  39.     Width = 77
  40.     Height = 27
  41.     Cancel = True
  42.     Caption = '&Cancel'
  43.     ModalResult = 2
  44.     TabOrder = 4
  45.     NumGlyphs = 2
  46.     Spacing = -1
  47.     IsControl = True
  48.   end
  49.   object btnInsert: TBitBtn [3]
  50.     Left = 178
  51.     Top = 24
  52.     Width = 99
  53.     Height = 25
  54.     Hint = 'This button can be accessed by pressing Alt+I'
  55.     Caption = '&Insert Ingredient'
  56.     TabOrder = 1
  57.     OnClick = btnInsertClick
  58.   end
  59.   object GroupBox5: TGroupBox [4]
  60.     Left = 8
  61.     Top = 50
  62.     Width = 269
  63.     Height = 133
  64.     Caption = 'Ingredients Fitting Criteria'
  65.     TabOrder = 2
  66.     object SearchGrid: TDBGrid
  67.       Left = 2
  68.       Top = 15
  69.       Width = 265
  70.       Height = 116
  71.       Align = alClient
  72.       Color = clBtnFace
  73.       DataSource = dsIngredient
  74.       Options = [dgTitles, dgColLines, dgRowLines, dgRowSelect, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
  75.       TabOrder = 0
  76.       TitleFont.Charset = DEFAULT_CHARSET
  77.       TitleFont.Color = clBlack
  78.       TitleFont.Height = -11
  79.       TitleFont.Name = 'MS Sans Serif'
  80.       TitleFont.Style = []
  81.       OnCellClick = SearchGridCellClick
  82.       OnDblClick = SearchGridDblClick
  83.       OnKeyPress = SelectIngredientFromCriteria
  84.     end
  85.   end
  86.   object SearchName: TIncrementalSearch [5]
  87.     Left = 8
  88.     Top = 26
  89.     Width = 159
  90.     Height = 21
  91.     DataSource = dsIngredient
  92.     TimerIntervalSQL = 700
  93.     TimerIntervalIndex = 250
  94.     TabOrder = 0
  95.     OnKeyDown = SearchNameKeyDown
  96.   end
  97.   object tblIngredient: TTable
  98.     Active = True
  99.     OnNewRecord = tblIngredientNewRecord
  100.     DatabaseName = 'Evalc'
  101.     IndexFieldNames = 'Ingredient'
  102.     TableName = 'INGREDIE.DB'
  103.     Left = 196
  104.     Top = 188
  105.     object tblIngredientIngredient_ID: TStringField
  106.       FieldName = 'Ingredient_ID'
  107.       Visible = False
  108.       Size = 13
  109.     end
  110.     object tblIngredientIngredient: TStringField
  111.       FieldName = 'Ingredient'
  112.       Size = 40
  113.     end
  114.   end
  115.   object dsIngredient: TDataSource
  116.     DataSet = tblIngredient
  117.     Left = 260
  118.     Top = 188
  119.   end
  120. end
  121.