home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 32 / hot34.iso / ficheros / 9EDU / NATURO10.ZIP / natur10.exe / NATUP1 / NATUP1.EXE / 0 / RCDATA / TFORMA10000 / TFORMA10000.txt
Text File  |  1995-05-10  |  2KB  |  72 lines
  1. object FORMA10000: TFORMA10000
  2.   Left = 2
  3.   Top = 108
  4.   ActiveControl = BitBtn2
  5.   BorderIcons = [biSystemMenu]
  6.   AutoScroll = False
  7.   Caption = 'Lista de Terapias Alternativas con Oligoementos (Base de Datos)'
  8.   ClientHeight = 281
  9.   ClientWidth = 512
  10.   Font.Color = clWindowText
  11.   Font.Height = -13
  12.   Font.Name = 'System'
  13.   Font.Style = []
  14.   Position = poScreenCenter
  15.   OnActivate = FormActivate
  16.   PixelsPerInch = 96
  17.   TextHeight = 16
  18.   object Panel1: TPanel
  19.     Left = 8
  20.     Top = 8
  21.     Width = 497
  22.     Height = 265
  23.     BevelInner = bvLowered
  24.     BevelWidth = 2
  25.     BorderWidth = 1
  26.     BorderStyle = bsSingle
  27.     TabOrder = 0
  28.     object DBGrid1: TDBGrid
  29.       Left = 16
  30.       Top = 16
  31.       Width = 465
  32.       Height = 193
  33.       DataSource = DataSource1
  34.       Options = [dgEditing, dgIndicator, dgColumnResize, dgTabs, dgAlwaysShowSelection, dgConfirmDelete, dgCancelOnExit]
  35.       ReadOnly = True
  36.       TabOrder = 0
  37.       TitleFont.Color = clWindowText
  38.       TitleFont.Height = -13
  39.       TitleFont.Name = 'System'
  40.       TitleFont.Style = []
  41.     end
  42.   end
  43.   object BitBtn2: TBitBtn
  44.     Left = 216
  45.     Top = 232
  46.     Width = 81
  47.     Height = 25
  48.     Caption = '&Cerrar'
  49.     TabOrder = 1
  50.     OnClick = BitBtn2Click
  51.     Kind = bkOK
  52.   end
  53.   object DataSource1: TDataSource
  54.     DataSet = Table1
  55.     Left = 72
  56.     Top = 224
  57.   end
  58.   object Table1: TTable
  59.     Active = True
  60.     Filtered = True
  61.     DatabaseName = 'C:\NATUP1'
  62.     IndexFieldNames = 'Sintomas'
  63.     TableName = 'Alternat.DB'
  64.     Left = 130
  65.     Top = 226
  66.     object Table1Sintomas: TStringField
  67.       FieldName = 'Sintomas'
  68.       Size = 75
  69.     end
  70.   end
  71. end
  72.