home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 32 / hot34.iso / ficheros / 9EDU / NATURO10.ZIP / natur10.exe / NATUP1 / NATUP1.EXE / 0 / RCDATA / TFORM16 / TFORM16.txt
Text File  |  1995-05-10  |  15KB  |  642 lines
  1. object Form16: TForm16
  2.   Left = -19
  3.   Top = 68
  4.   HorzScrollBar.Visible = False
  5.   VertScrollBar.Visible = False
  6.   AutoScroll = False
  7.   Caption = 'Terapias Alternativas con Oligoelementos (Base de Datos)'
  8.   ClientHeight = 461
  9.   ClientWidth = 640
  10.   Font.Color = clWindowText
  11.   Font.Height = -13
  12.   Font.Name = 'System'
  13.   Font.Style = []
  14.   Position = poScreenCenter
  15.   WindowState = wsMaximized
  16.   OnActivate = FormActivate
  17.   PixelsPerInch = 96
  18.   TextHeight = 16
  19.   object Memo1: TMemo
  20.     Left = 0
  21.     Top = 8
  22.     Width = 17
  23.     Height = 25
  24.     Font.Color = clBlack
  25.     Font.Height = -1
  26.     Font.Name = 'Arial'
  27.     Font.Style = []
  28.     Lines.Strings = (
  29.       '.'
  30.       ''
  31.       ''
  32.       ''
  33.       ''
  34.       ''
  35.       ''
  36.       ''
  37.       ''
  38.       ''
  39.       ''
  40.       ''
  41.       ''
  42.       ''
  43.       '.')
  44.     ParentFont = False
  45.     TabOrder = 0
  46.     Visible = False
  47.   end
  48.   object Memo123: TMemo
  49.     Left = 0
  50.     Top = 48
  51.     Width = 17
  52.     Height = 25
  53.     Font.Color = clBlack
  54.     Font.Height = -1
  55.     Font.Name = 'Arial'
  56.     Font.Style = []
  57.     Lines.Strings = (
  58.       '.'
  59.       ''
  60.       ''
  61.       ''
  62.       ''
  63.       ''
  64.       ''
  65.       ''
  66.       ''
  67.       ''
  68.       ''
  69.       ''
  70.       ''
  71.       ''
  72.       ''
  73.       ''
  74.       ''
  75.       ''
  76.       ''
  77.       ''
  78.       ''
  79.       ''
  80.       ''
  81.       ''
  82.       ''
  83.       ''
  84.       ''
  85.       ''
  86.       ''
  87.       ''
  88.       ''
  89.       ''
  90.       ''
  91.       ''
  92.       ''
  93.       ''
  94.       ''
  95.       ''
  96.       ''
  97.       ''
  98.       ''
  99.       ''
  100.       ''
  101.       ''
  102.       ''
  103.       ''
  104.       ''
  105.       ''
  106.       ''
  107.       ''
  108.       ''
  109.       ''
  110.       ''
  111.       ''
  112.       ''
  113.       ''
  114.       ''
  115.       ''
  116.       ''
  117.       ''
  118.       ''
  119.       ''
  120.       ''
  121.       ''
  122.       ''
  123.       ''
  124.       ''
  125.       ''
  126.       ''
  127.       ''
  128.       ''
  129.       ''
  130.       ''
  131.       ''
  132.       ''
  133.       ''
  134.       ''
  135.       ''
  136.       ''
  137.       ''
  138.       ''
  139.       ''
  140.       ''
  141.       ''
  142.       ''
  143.       ''
  144.       ''
  145.       ''
  146.       ''
  147.       ''
  148.       ''
  149.       ''
  150.       ''
  151.       ''
  152.       ''
  153.       ''
  154.       ''
  155.       ''
  156.       ''
  157.       ''
  158.       ''
  159.       ''
  160.       ''
  161.       ''
  162.       ''
  163.       ''
  164.       ''
  165.       ''
  166.       ''
  167.       ''
  168.       ''
  169.       ''
  170.       ''
  171.       ''
  172.       ''
  173.       ''
  174.       ''
  175.       ''
  176.       ''
  177.       ''
  178.       ''
  179.       ''
  180.       ''
  181.       ''
  182.       ''
  183.       ''
  184.       ''
  185.       ''
  186.       ''
  187.       ''
  188.       ''
  189.       ''
  190.       ''
  191.       ''
  192.       ''
  193.       ''
  194.       ''
  195.       ''
  196.       ''
  197.       ''
  198.       ''
  199.       ''
  200.       ''
  201.       ''
  202.       ''
  203.       ''
  204.       ''
  205.       ''
  206.       ''
  207.       '.')
  208.     ParentFont = False
  209.     TabOrder = 1
  210.     Visible = False
  211.   end
  212.   object Panel1: TPanel
  213.     Left = 48
  214.     Top = 432
  215.     Width = 545
  216.     Height = 17
  217.     BevelInner = bvLowered
  218.     BorderWidth = 1
  219.     Font.Color = clBlue
  220.     Font.Height = -12
  221.     Font.Name = 'Arial'
  222.     Font.Style = []
  223.     ParentFont = False
  224.     TabOrder = 2
  225.     Visible = False
  226.   end
  227.   object Panel2321: TPanel
  228.     Left = 8
  229.     Top = 8
  230.     Width = 617
  231.     Height = 441
  232.     BevelInner = bvLowered
  233.     BevelWidth = 2
  234.     BorderWidth = 1
  235.     BorderStyle = bsSingle
  236.     TabOrder = 3
  237.     object Label50: TLabel
  238.       Left = 80
  239.       Top = 16
  240.       Width = 57
  241.       Height = 49
  242.       Hint = 'Se desplaza al primer registro'
  243.       Alignment = taCenter
  244.       Caption = 'Primero'
  245.       Font.Color = clRed
  246.       Font.Height = -12
  247.       Font.Name = 'Arial'
  248.       Font.Style = []
  249.       ParentFont = False
  250.       ParentShowHint = False
  251.       ShowHint = True
  252.       Transparent = True
  253.       OnMouseMove = Label50MouseMove
  254.     end
  255.     object Label51: TLabel
  256.       Left = 136
  257.       Top = 16
  258.       Width = 57
  259.       Height = 49
  260.       Hint = 'Se desplaza al registro anterior'
  261.       Alignment = taCenter
  262.       Caption = 'Anterior'
  263.       Font.Color = clRed
  264.       Font.Height = -12
  265.       Font.Name = 'Arial'
  266.       Font.Style = []
  267.       ParentFont = False
  268.       ParentShowHint = False
  269.       ShowHint = True
  270.       Transparent = True
  271.       OnMouseMove = Label51MouseMove
  272.     end
  273.     object Label52: TLabel
  274.       Left = 192
  275.       Top = 16
  276.       Width = 57
  277.       Height = 49
  278.       Hint = 'Se desplaza al siguiente registro'
  279.       Alignment = taCenter
  280.       Caption = 'Siguiente'
  281.       Font.Color = clRed
  282.       Font.Height = -12
  283.       Font.Name = 'Arial'
  284.       Font.Style = []
  285.       ParentFont = False
  286.       ParentShowHint = False
  287.       ShowHint = True
  288.       Transparent = True
  289.       OnMouseMove = Label52MouseMove
  290.     end
  291.     object Label53: TLabel
  292.       Left = 248
  293.       Top = 16
  294.       Width = 57
  295.       Height = 49
  296.       Hint = 'Se desplaza al ∩┐╜ltimo registro'
  297.       Alignment = taCenter
  298.       Caption = '∩┐╜ltimo'
  299.       Font.Color = clRed
  300.       Font.Height = -12
  301.       Font.Name = 'Arial'
  302.       Font.Style = []
  303.       ParentFont = False
  304.       ParentShowHint = False
  305.       ShowHint = True
  306.       Transparent = True
  307.       OnMouseMove = Label53MouseMove
  308.     end
  309.     object Label54: TLabel
  310.       Left = 304
  311.       Top = 16
  312.       Width = 57
  313.       Height = 49
  314.       Hint = 'Inserta un nuevo registro vac∩┐╜o'
  315.       Alignment = taCenter
  316.       Caption = 'Nuevo'
  317.       Font.Color = clRed
  318.       Font.Height = -12
  319.       Font.Name = 'Arial'
  320.       Font.Style = []
  321.       ParentFont = False
  322.       ParentShowHint = False
  323.       ShowHint = True
  324.       Transparent = True
  325.       OnMouseMove = Label54MouseMove
  326.     end
  327.     object Label55: TLabel
  328.       Left = 360
  329.       Top = 16
  330.       Width = 57
  331.       Height = 49
  332.       Hint = 'Borra el registro actual'
  333.       Alignment = taCenter
  334.       Caption = 'Borrar'
  335.       Font.Color = clRed
  336.       Font.Height = -12
  337.       Font.Name = 'Arial'
  338.       Font.Style = []
  339.       ParentFont = False
  340.       ParentShowHint = False
  341.       ShowHint = True
  342.       Transparent = True
  343.       OnMouseMove = Label55MouseMove
  344.     end
  345.     object Label56: TLabel
  346.       Left = 416
  347.       Top = 16
  348.       Width = 57
  349.       Height = 49
  350.       Hint = 'Grabar el registro'
  351.       Alignment = taCenter
  352.       Caption = 'Grabar'
  353.       Font.Color = clRed
  354.       Font.Height = -12
  355.       Font.Name = 'Arial'
  356.       Font.Style = []
  357.       ParentFont = False
  358.       ParentShowHint = False
  359.       ShowHint = True
  360.       Transparent = True
  361.       OnMouseMove = Label56MouseMove
  362.     end
  363.     object Label57: TLabel
  364.       Left = 472
  365.       Top = 16
  366.       Width = 57
  367.       Height = 49
  368.       Hint = 'Actualiza los datos'
  369.       Alignment = taCenter
  370.       Caption = 'Actualizar'
  371.       Font.Color = clRed
  372.       Font.Height = -12
  373.       Font.Name = 'Arial'
  374.       Font.Style = []
  375.       ParentFont = False
  376.       ParentShowHint = False
  377.       ShowHint = True
  378.       Transparent = True
  379.       OnMouseMove = Label57MouseMove
  380.     end
  381.     object Label1: TLabel
  382.       Left = 16
  383.       Top = 104
  384.       Width = 252
  385.       Height = 15
  386.       Caption = 'Nombre del S∩┐╜ntoma, Enfermedad, Dolencia...'
  387.       Font.Color = clBlue
  388.       Font.Height = -12
  389.       Font.Name = 'Arial'
  390.       Font.Style = []
  391.       ParentFont = False
  392.       Transparent = True
  393.     end
  394.     object SpButton200: TSpeedButton
  395.       Left = 488
  396.       Top = 120
  397.       Width = 25
  398.       Height = 25
  399.       Hint = 'Ayuda'
  400.       Caption = '?'
  401.       Font.Color = clBlue
  402.       Font.Height = -13
  403.       Font.Name = 'System'
  404.       Font.Style = [fsBold]
  405.       ParentFont = False
  406.       ParentShowHint = False
  407.       ShowHint = True
  408.       OnClick = SpButton200Click
  409.     end
  410.     object Label2: TLabel
  411.       Left = 16
  412.       Top = 184
  413.       Width = 140
  414.       Height = 15
  415.       Caption = 'Indicaciones y Posolog∩┐╜a:'
  416.       Font.Color = clBlue
  417.       Font.Height = -12
  418.       Font.Name = 'Arial'
  419.       Font.Style = []
  420.       ParentFont = False
  421.       Transparent = True
  422.     end
  423.     object SpeedButton1: TSpeedButton
  424.       Left = 520
  425.       Top = 120
  426.       Width = 25
  427.       Height = 25
  428.       Hint = 'Visualizar Lista'
  429.       Glyph.Data = {
  430.         E6000000424DE60000000000000076000000280000000E0000000E0000000100
  431.         0400000000007000000000000000000000001000000000000000000000000000
  432.         80000080000000808000800000008000800080800000C0C0C000808080000000
  433.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  434.         330033333333333333003300000000033300330FFFFFFF033300330F00000F03
  435.         3300330FFFFFFF033300330F00000F033300330FFFFFFF033300330F000FFF03
  436.         3300330FFFFF00033300330F00FF0F033300330FFFFF00333300330000000333
  437.         33003333333333333300}
  438.       ParentShowHint = False
  439.       ShowHint = True
  440.       OnClick = SpeedButton1Click
  441.     end
  442.     object BitBtn1: TBitBtn
  443.       Left = 16
  444.       Top = 16
  445.       Width = 41
  446.       Height = 41
  447.       Hint = 'Volver al Men∩┐╜'
  448.       ParentShowHint = False
  449.       ShowHint = True
  450.       TabOrder = 0
  451.       OnClick = BitBtn1Click
  452.       OnMouseMove = BitBtn1MouseMove
  453.       Glyph.Data = {
  454.         76020000424D7602000000000000760000002800000020000000200000000100
  455.         0400000000000000000000000000000000001000000010000000000000000000
  456.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  457.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  458.         7777777777777777777777777777777777777777777777777777777777777777
  459.         777777777777777777777777777777731444444E131313131377777777FFFF71
  460.         F4444EE9F9F9F13131777777777777739B44449B9B9B9B9B93777FFFF7777771
  461.         F9CCC4F931F939F9F1777777777777739B9CCC4B139B139B9377777777744471
  462.         F9F4CCC431F931F9F1777777774CCC439BA44CCE139B139B9377744774CCCCC4
  463.         4AA4CCE931F931F9F17774444CCCCCCCAAA3339B139B139B93777E4444CEECCA
  464.         AA4BBB3931F931F9F17777E44EE77ECCA4CCBB3B9B9B9B9B9377777EEE7777EC
  465.         4CCCE38444443339F177777777777774CCCE0AACCCCCBB3B937777777777774C
  466.         CCEAAACCCCCCBBB3F1777777777774CCCECAACCCEEEEBB3B9377777777777ECC
  467.         CCECCCCE313133F9F1777111111117ECCCCECCE31313139B937771999999997E
  468.         CCCCCCB1313131F9F177719999999973ECCCCBBB1313139B937771999FF99971
  469.         FEECBBBBB13131F9F177719999FF99739B888B3B3313139B9377719FFFFFF971
  470.         F9888833313131F9F177719999FF99739B44444444139B9B937771999FF99971
  471.         F9CCCCCCCCF9F9F9F1777199999999739BEECCCCEE9B9B9B9377779999999971
  472.         F9F9CCCEF9F9F131317777777777777313131313131313131377777777777777
  473.         7777777777777777777777777777777777777777777777777777}
  474.     end
  475.     object DBNavigator1: TDBNavigator
  476.       Left = 80
  477.       Top = 32
  478.       Width = 448
  479.       Height = 25
  480.       DataSource = DataSource1
  481.       VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbPost, nbRefresh]
  482.       TabOrder = 1
  483.       OnClick = DBNavigator1Click
  484.     end
  485.     object BitBtn2: TBitBtn
  486.       Left = 552
  487.       Top = 16
  488.       Width = 41
  489.       Height = 41
  490.       Hint = 'Imprimir'
  491.       ParentShowHint = False
  492.       ShowHint = True
  493.       TabOrder = 2
  494.       OnClick = BitBtn2Click
  495.       OnMouseMove = BitBtn2MouseMove
  496.       Glyph.Data = {
  497.         76020000424D7602000000000000760000002800000020000000200000000100
  498.         0400000000000000000000000000000000001000000010000000000000000000
  499.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  500.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00700000000000
  501.         000000000000000000070F8888888888888888888888888888800FF800000000
  502.         000000000000008888800FF708888888888888888888880778800FF70F777777
  503.         777777777777778078800FF70F777777777777777777778808800FF70F777777
  504.         777777777777778808800FF708888888888888888888888808800FF000000000
  505.         000000000000000808800F0888888888888888888888888008800F0777777777
  506.         777777777777777808800F0777777777777777777777777880800F0777777777
  507.         777777777777777888000F0777777777777777777777777888000F0777777777
  508.         777777777777777888000F0777777777777777777999977888000F0777777777
  509.         777777777777777888000F0FFFFFFFFFFFFFFFFFFFFFFFF888000F0777777777
  510.         777777777777777F88000FF0777700000000000000008777F8000FF700000FFF
  511.         FFFFFFFFFFF0000000000FF777770FFCCCCCCCCCCFF0777778800FF777770FFF
  512.         FFFFFFFFFFF0777778800FF7777788F8CCCCCCCCC8F8877778800FF7777770FF
  513.         FFFFFFFFFFFF077778800FF77777770FFCCCCCCCCCCFF07778800FF777777770
  514.         FFFFFFFFFFFFFF0778800FF7777777788FCCCCCCCCCCFF8878800FF777777777
  515.         0FFFFFFFFFFFFFF078800FFFFFFFFFFF0FFFFFFFFFFFFFF0FF800FFFFFFFFFFF
  516.         0FFFFFFFFFFFFFF0FFF070000000000000000000000000000007}
  517.     end
  518.     object MEMO2: TDBMemo
  519.       Left = 16
  520.       Top = 120
  521.       Width = 433
  522.       Height = 25
  523.       DataField = 'Sintomas'
  524.       DataSource = DataSource1
  525.       MaxLength = 55
  526.       ReadOnly = True
  527.       TabOrder = 3
  528.       OnEnter = MEMO2Enter
  529.       OnExit = MEMO2Exit
  530.       OnKeyPress = MEMO2KeyPress
  531.       OnMouseMove = MEMO2MouseMove
  532.     end
  533.     object BitBtn1998: TBitBtn
  534.       Left = 456
  535.       Top = 120
  536.       Width = 25
  537.       Height = 25
  538.       Hint = 'Buscar registros'
  539.       ParentShowHint = False
  540.       ShowHint = True
  541.       TabOrder = 4
  542.       OnClick = BitBtn1998Click
  543.       Glyph.Data = {
  544.         E6000000424DE60000000000000076000000280000000E0000000E0000000100
  545.         0400000000007000000000000000000000001000000000000000000000000000
  546.         80000080000000808000800000008000800080800000C0C0C000808080000000
  547.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  548.         33003333333333333300300000000333330000B7B7B7B03333000B0B7B7B7B03
  549.         33000BB0B7B7B7B033000FBB0000000033000BFB0B0B0B0333000FBFBFBFB003
  550.         33000BFBFBF00033330030BFBF03333333003800008333333300333333333333
  551.         33003333333333333300}
  552.     end
  553.     object Memo3: TDBMemo
  554.       Left = 16
  555.       Top = 200
  556.       Width = 577
  557.       Height = 221
  558.       DataField = 'Indicaciones'
  559.       DataSource = DataSource1
  560.       ScrollBars = ssVertical
  561.       TabOrder = 5
  562.       OnEnter = MEMO2Enter
  563.       OnExit = MEMO2Exit
  564.       OnMouseMove = Memo3MouseMove
  565.     end
  566.     object DBLookupListBox1: TDBLookupListBox
  567.       Left = 16
  568.       Top = 176
  569.       Width = 577
  570.       Height = 244
  571.       Color = clWhite
  572.       KeyField = 'Sintomas'
  573.       ListField = 'Sintomas'
  574.       ListSource = DataSource1
  575.       TabOrder = 6
  576.       Visible = False
  577.       OnClick = DBLookupListBox1Click
  578.     end
  579.     object BOTONCANCELAR: TButton
  580.       Left = 480
  581.       Top = 384
  582.       Width = 67
  583.       Height = 25
  584.       Hint = 'Cancelar Lista'
  585.       Caption = '&Ocultar'
  586.       ParentShowHint = False
  587.       ShowHint = True
  588.       TabOrder = 7
  589.       Visible = False
  590.       OnClick = BOTONCANCELARClick
  591.     end
  592.   end
  593.   object PrintDialog1: TPrintDialog
  594.     Copies = 1
  595.     Options = [poSelection]
  596.     Left = 608
  597.     Top = 16
  598.   end
  599.   object FontDialog1: TFontDialog
  600.     Font.Color = clWindowText
  601.     Font.Height = -13
  602.     Font.Name = 'System'
  603.     Font.Style = []
  604.     MinFontSize = 0
  605.     MaxFontSize = 0
  606.     Left = 608
  607.     Top = 304
  608.   end
  609.   object PrinterSetupDialog1: TPrinterSetupDialog
  610.     Left = 608
  611.     Top = 336
  612.   end
  613.   object ReplaceDialog1: TReplaceDialog
  614.     Left = 608
  615.     Top = 280
  616.   end
  617.   object DataSource1: TDataSource
  618.     DataSet = Table1
  619.     Left = 608
  620.     Top = 112
  621.   end
  622.   object Table1: TTable
  623.     Active = True
  624.     Filtered = True
  625.     DatabaseName = 'c:\natup1'
  626.     IndexFieldNames = 'Sintomas'
  627.     TableName = 'ALTERNAT.DB'
  628.     Left = 608
  629.     Top = 152
  630.     object Table1Sintomas: TStringField
  631.       FieldName = 'Sintomas'
  632.       Required = True
  633.       Size = 75
  634.     end
  635.     object Table1Indicaciones: TMemoField
  636.       FieldName = 'Indicaciones'
  637.       BlobType = ftMemo
  638.       Size = 240
  639.     end
  640.   end
  641. end
  642.