home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 32 / hot34.iso / ficheros / 9EDU / NATURO10.ZIP / natur10.exe / NATUP1 / NATUP1.EXE / 0 / RCDATA / TFORM1 / TFORM1.txt
Text File  |  1995-05-10  |  25KB  |  688 lines
  1. object Form1: TForm1
  2.   Left = 10
  3.   Top = 82
  4.   HorzScrollBar.Visible = False
  5.   VertScrollBar.Visible = False
  6.   AutoScroll = False
  7.   Caption = 'Naturopat∩┐╜a v1.0 (Base de Datos)'
  8.   ClientHeight = 455
  9.   ClientWidth = 634
  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 = 8
  21.     Top = -8
  22.     Width = 601
  23.     Height = 25
  24.     DragMode = dmAutomatic
  25.     Lines.Strings = (
  26.       'Realizado por: FRANCISCO PATI∩┐╜O SANCHEZ y  MERCEDES SOTO SOLI∩┐╜O '
  27.       'D.N.I.: 35239976    --   D.N.I.: 50041703')
  28.     ReadOnly = True
  29.     TabOrder = 0
  30.     Visible = False
  31.   end
  32.   object Panel5rde21: TPanel
  33.     Left = 8
  34.     Top = 8
  35.     Width = 617
  36.     Height = 441
  37.     BevelInner = bvLowered
  38.     BevelWidth = 2
  39.     BorderWidth = 1
  40.     BorderStyle = bsSingle
  41.     DragMode = dmAutomatic
  42.     TabOrder = 1
  43.     object Panel1: TPanel
  44.       Left = 16
  45.       Top = 16
  46.       Width = 577
  47.       Height = 409
  48.       BevelInner = bvRaised
  49.       BorderWidth = 1
  50.       BorderStyle = bsSingle
  51.       DragMode = dmAutomatic
  52.       Font.Color = clBlack
  53.       Font.Height = -13
  54.       Font.Name = 'System'
  55.       Font.Style = [fsBold]
  56.       ParentFont = False
  57.       TabOrder = 0
  58.       OnMouseMove = Panel1MouseMove
  59.       object Panel4: TPanel
  60.         Left = 16
  61.         Top = 280
  62.         Width = 545
  63.         Height = 113
  64.         BevelInner = bvLowered
  65.         BorderWidth = 1
  66.         BorderStyle = bsSingle
  67.         DragMode = dmAutomatic
  68.         TabOrder = 0
  69.         OnMouseMove = Panel4MouseMove
  70.         object Label1: TLabel
  71.           Left = 8
  72.           Top = 8
  73.           Width = 62
  74.           Height = 15
  75.           Caption = '22/22/1998'
  76.           DragMode = dmAutomatic
  77.           Font.Color = clBlack
  78.           Font.Height = -12
  79.           Font.Name = 'Arial'
  80.           Font.Style = []
  81.           ParentFont = False
  82.           OnMouseMove = Label1MouseMove
  83.         end
  84.         object Label2: TLabel
  85.           Left = 480
  86.           Top = 8
  87.           Width = 48
  88.           Height = 15
  89.           Caption = '22:22:22'
  90.           DragMode = dmAutomatic
  91.           Font.Color = clBlack
  92.           Font.Height = -12
  93.           Font.Name = 'Arial'
  94.           Font.Style = []
  95.           ParentFont = False
  96.           OnMouseMove = Label2MouseMove
  97.         end
  98.         object BitBtn33: TBitBtn
  99.           Left = 88
  100.           Top = 16
  101.           Width = 49
  102.           Height = 41
  103.           Hint = 'Pedidos'
  104.           ParentShowHint = False
  105.           ShowHint = False
  106.           TabOrder = 0
  107.           OnClick = BitBtn17Click
  108.           OnMouseMove = BitBtn33MouseMove
  109.           Glyph.Data = {
  110.             76020000424D7602000000000000760000002800000020000000200000000100
  111.             0400000000000000000000000000000000001000000010000000000000000000
  112.             8000008000000080800080000000800080008080000080808000C0C0C0000000
  113.             FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00778888888888
  114.             8888888888887777777777888888888888888888888877777777000000000000
  115.             000000000088777777770FFFFFFFFFFFFFFFFFFFF088777777770FF8888888FF
  116.             FFFFFFFFF088777777770F99999998FFFFFFFFFFF088777777770F9FFFFF98FF
  117.             FFFFFFFFF088777777770F9FFFFF98FFFFFFFFFFF088777777770F9FFFFF98FF
  118.             FFFFFFFFF088777777770F9FFFFF98FFFF000FFFF088777777770F9FFFFF98FF
  119.             FF00003FF088877777770F9999999FFFFF0003B3B088887777770FFFFFFFFFFF
  120.             FFF03B3B3B38888777770FF8888888FFFFF0B3B3B3BC888877770F99999998FF
  121.             FFFB3B3B3BCCC88887770F90FFF098FFFFFFB3B3B3ECCC8888770F9F0F0F98FF
  122.             FFFF3B3BCCCECCC888870F9FF0FF98FFFFFFF3BECCCCECCC88880F9F0F0F98FF
  123.             FFFFFBCCECCCCECCC8880F90FFF098FFFFFFFCCCCECCCCECCC880F99999998FF
  124.             FFFFFFCCCCECCCCECCC80FFFFFFFF8FFFFFFFFFCCCCECCCCECCC0FF8888888FF
  125.             FFFFFFFFCCCCECCCCECC0F99999998FFFFFFFFFFFCCCCECCCCEC0F9FFFFF98FF
  126.             FFFFFFFFF0CCCCECCCCE0F9FFFFF98FFFFFFFFFFF08CCCCECCCC0F9FFFFF98FF
  127.             FFFFFFFFF088CCCCECCC0F9FFFFF98FFFFFFFFFFF0887CCCCECC0F9FFFFF98FF
  128.             FFFFFFFFF08877CCCCEC0F9999999FFFFFFFFFFFF088777CCCCE0FFFFFFFFFFF
  129.             FFFFFFFFF0777777CCCC00000000000000000000007777777CCC}
  130.         end
  131.         object CATALOGO: TBitBtn
  132.           Left = 152
  133.           Top = 16
  134.           Width = 49
  135.           Height = 41
  136.           Hint = 'Cat∩┐╜logo'
  137.           ParentShowHint = False
  138.           ShowHint = False
  139.           TabOrder = 1
  140.           OnClick = CATALOGOClick
  141.           OnMouseMove = CATALOGOMouseMove
  142.           Glyph.Data = {
  143.             76020000424D7602000000000000760000002800000020000000200000000100
  144.             0400000000000000000000000000000000001000000010000000000000000000
  145.             8000008000000080800080000000800080008080000080808000C0C0C0000000
  146.             FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  147.             7777777770000777777777777777470000077770007800077777777777774000
  148.             08C00000777888000477777777740C88088C007779778888000777777774C878
  149.             07F077797FF8888888007777774CC8780770727FF00077888880777774CC8778
  150.             07F07FF00B330077888077744CC8FF780770F00BBB3333007780444CCC8FF778
  151.             07F70BBBBF73333300704CCC88FFFF78077F3BBFFBB7333333074C888FFFF778
  152.             07F73FFB37BB733300004C8F8FFFFF78077F3B73737BB73033304C8F8FFFF778
  153.             07F783B73737BB703BB04C8F8FFFFF78077FF83B737B80B0BBB34C8F8FFFF778
  154.             07F78F000BB00308BB374C8F8FFFFF78077FF83BB0B03BBBB3774C8F8FFFF778
  155.             07F78F3BB808BBB330774C8F8FFFFF78077FF8833BBBB33CC0774C8F8FFFF778
  156.             07F78FF8833338BCC0774C8F8FFFFF78077FF88FFFFFF8FCC0774C8F8FFFF778
  157.             07F78FF8888FF8BCC0774C8F8FFFFF78077FF88FFFFFF8FCC0774C8F8FFFF778
  158.             07FF8FF888FFF8CCC0774C8F8FFFFF78888FF88FFFFFF84444774C8F8FFFF778
  159.             778FFFF8888FF87777774C8F8FFFFF7877788FFFFFFFF87777774C8F8FFFF787
  160.             7777788FFFFFF8777777448F8FFFFF8777777778888888777777778F8FFFF877
  161.             7777777777777777777777888FFF87777777777777777777777777778FF87777
  162.             7777777777777777777777778887777777777777777777777777}
  163.         end
  164.         object BitBtn35: TBitBtn
  165.           Left = 216
  166.           Top = 16
  167.           Width = 49
  168.           Height = 41
  169.           Hint = 'Pr∩┐╜logo'
  170.           Font.Color = clNavy
  171.           Font.Height = -13
  172.           Font.Name = 'System'
  173.           Font.Style = [fsBold]
  174.           ParentFont = False
  175.           ParentShowHint = False
  176.           ShowHint = False
  177.           TabOrder = 2
  178.           OnClick = BitBtn14Click
  179.           OnMouseMove = BitBtn35MouseMove
  180.           Glyph.Data = {
  181.             76020000424D7602000000000000760000002800000020000000200000000100
  182.             0400000000000000000000000000000000001000000010000000000000000000
  183.             8000008000000080800080000000800080008080000080808000C0C0C0000000
  184.             FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00700777E71111
  185.             1111E766E7E7E7EEEE07770771117E7E7E7E1176667E7E7EE007770017E7E7E7
  186.             E7E1E7176667E7EEE0777770777E7E7E711888811E667E7E0077777007E7E7E7
  187.             1777778881E667E00777777700077E7177700008881E66007777777777000017
  188.             77888880888100777777777777777100787777880880177777777777777771F0
  189.             87778878800F17777777777777771FF07F7FFF77880FF1777777777777771FF0
  190.             FF800007780FF177777777777771FF0FFF0F77707780FF17777777777771FF0F
  191.             FFFF0077F770FF17777777777771F00FFFF0F007FF700F17777777777771F0FF
  192.             FFF8F787FF770F17777777777771187FFFFF087777778117777777777771817F
  193.             F777087777771817777777777777187F44778888447881777777777777770878
  194.             8080000808888077777777777777708888077770088007777777777777777000
  195.             00777777000007777777777777770F7778F78777038880777777777777770F77
  196.             78F7887703888077777777777777708888F7777700000777777777777777770B
  197.             338F7770333077777777777777777703BBB88883333077777777777777777770
  198.             BBBBBBB333077777777777777777777700BBBB3B007777777777777777777777
  199.             7700000077777777777777777777777777777777777777777777777777777777
  200.             7777777777777777777777777777777777777777777777777777}
  201.         end
  202.         object BitBtn34: TBitBtn
  203.           Left = 280
  204.           Top = 16
  205.           Width = 49
  206.           Height = 41
  207.           Hint = '? ...'
  208.           ParentShowHint = False
  209.           ShowHint = False
  210.           TabOrder = 3
  211.           OnClick = BitBtn34Click
  212.           OnMouseMove = BitBtn34MouseMove
  213.           Glyph.Data = {
  214.             5A030000424D5A03000000000000760000002800000024000000250000000100
  215.             040000000000E4020000C30E0000C30E00000000000000000000000000000000
  216.             80000080000000808000800000008000800080800000C0C0C000808080000000
  217.             FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFFF
  218.             FFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF
  219.             0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFF8F8F8F8800000008
  220.             8FFFFFFFFFFFFFFF0000FFF8F8FF800CCCEEFFFCC08FFFFFFFF0FFFF0000FF8F
  221.             8F88800CCCEEFFFCCE08FFFFFF000FFF0000FFF8F8F0E00CCCEEFFFCCE00FFFF
  222.             F000FFFF0000FFFF8F80E00CCCEEFFFCCE00FFFF000FFFFF0000FFFFFFF0E00C
  223.             CCEEFFFCCE00FFF000FFFFFF0000FFFFFFF0E00CCCEEFFFCCE00FF000FFFFFFF
  224.             0000FFFFFFF0E000000000000E00F000FFFFFFFF0000FFFFFFF000CCCCEEFFFC
  225.             C00F000FFFFFFFFF0000FFFFFFF0EC0CCCEEFFFCCEF000FFFFFFFFFF0000FFFF
  226.             FF00E000000000000F000FFFFFFFFFFF0000FFFFF7008C8C8C8C8C8CF000FFFF
  227.             FFFFFFFF0000FFFF80C8C8C8C8C8C8CF000FC08FFFFFFFFF0000FFF80C8C8C88
  228.             888888F000FC8C08FFFFFFFF0000FFF0C8C8C80833083F0F0FE8CCC0FFFFFFFF
  229.             0000FFF88C8C8BBB3333F0FF060E8E80FFFFFFFF0000FFFF08C33BB3B333F0F0
  230.             6308C80FFFFFFFFF0000FFFF780333BB3333300F30E008EFFFFFFFFF0000FFFF
  231.             F033333B877773600330EFFFCEFFFFFF0000FFFFF03333337700773333330F0F
  232.             0FF0FFFF0000FFFFF033333370FF073B3B3B0FFFFFCFFFFF0000FFFFF0B3B3B3
  233.             70FF073333330FCE0FEFFFFF0000FFFFF03333337700773333330FFFFFF0FFFF
  234.             0000FFFFF03333333777733333330FFFCEFFFFFF0000FFFFFF033E3BB33333B3
  235.             3330FFFFFFFFFFFF0000FFFFFF0E33B8B33333BB3330FFFFFFFCEFFF0000FFFF
  236.             FFF03BBB83333B7BB30FFFFFFFFFFFFF0000FFFFFFF0BB8B333333BBBB0FFFFF
  237.             FFFFFFFF0000FFFFFFFF00B83333333B00FFFFFFFFFFFFFF0000FFFFFFFFFF00
  238.             33333300FFFFFFFFFFFFFFFF0000FFFFFFFFFFFF000000FFFFFFFFFFFFFFFFFF
  239.             0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFF
  240.             FFFFFFFFFFFFFFFF0000FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF0000}
  241.         end
  242.         object Panel3: TPanel
  243.           Left = 8
  244.           Top = 64
  245.           Width = 521
  246.           Height = 25
  247.           BevelInner = bvLowered
  248.           BevelOuter = bvNone
  249.           BorderWidth = 1
  250.           DragMode = dmAutomatic
  251.           Font.Color = clBlue
  252.           Font.Height = -12
  253.           Font.Name = 'Arial'
  254.           Font.Style = []
  255.           ParentFont = False
  256.           TabOrder = 4
  257.           OnMouseMove = Panel3MouseMove
  258.         end
  259.         object BitBtn1: TBitBtn
  260.           Left = 408
  261.           Top = 16
  262.           Width = 49
  263.           Height = 41
  264.           Hint = 'Salir'
  265.           ParentShowHint = False
  266.           ShowHint = False
  267.           TabOrder = 5
  268.           OnClick = BitBtn1Click
  269.           OnMouseMove = BitBtn1MouseMove
  270.           Glyph.Data = {
  271.             76020000424D7602000000000000760000002800000020000000200000000100
  272.             0400000000000000000000000000000000001000000010000000000000000000
  273.             8000008000000080800080000000800080008080000080808000C0C0C0000000
  274.             FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  275.             7777777777777777777777777777777777777777777777777777777777777777
  276.             777777777777777777777777777777731444444E131313131377777777FFFF71
  277.             F4444EE9F9F9F13131777777777777739B44449B9B9B9B9B93777FFFF7777771
  278.             F9CCC4F931F939F9F1777777777777739B9CCC4B139B139B9377777777744471
  279.             F9F4CCC431F931F9F1777777774CCC439BA44CCE139B139B9377744774CCCCC4
  280.             4AA4CCE931F931F9F17774444CCCCCCCAAA3339B139B139B93777E4444CEECCA
  281.             AA4BBB3931F931F9F17777E44EE77ECCA4CCBB3B9B9B9B9B9377777EEE7777EC
  282.             4CCCE38444443339F177777777777774CCCE0AACCCCCBB3B937777777777774C
  283.             CCEAAACCCCCCBBB3F1777777777774CCCECAACCCEEEEBB3B9377777777777ECC
  284.             CCECCCCE313133F9F1777111111117ECCCCECCE31313139B937771999999997E
  285.             CCCCCCB1313131F9F177719999999973ECCCCBBB1313139B937771999FF99971
  286.             FEECBBBBB13131F9F177719999FF99739B888B3B3313139B9377719FFFFFF971
  287.             F9888833313131F9F177719999FF99739B44444444139B9B937771999FF99971
  288.             F9CCCCCCCCF9F9F9F1777199999999739BEECCCCEE9B9B9B9377779999999971
  289.             F9F9CCCEF9F9F131317777777777777313131313131313131377777777777777
  290.             7777777777777777777777777777777777777777777777777777}
  291.         end
  292.         object BitBtn3333: TBitBtn
  293.           Left = 344
  294.           Top = 16
  295.           Width = 49
  296.           Height = 41
  297.           Hint = 'Ayuda'
  298.           Font.Color = clNavy
  299.           Font.Height = -13
  300.           Font.Name = 'System'
  301.           Font.Style = [fsBold]
  302.           ParentFont = False
  303.           ParentShowHint = False
  304.           ShowHint = False
  305.           TabOrder = 6
  306.           OnClick = BitBtn3333Click
  307.           OnMouseMove = BitBtn3333MouseMove
  308.           Glyph.Data = {
  309.             76020000424D7602000000000000760000002800000020000000200000000100
  310.             0400000000000000000000000000000000001000000010000000000000000000
  311.             8000008000000080800080000000800080008080000080808000C0C0C0000000
  312.             FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00FFFFFFFFFFF0
  313.             0000000FFFFFFFFFFFFFFFFFFFFFFFF0BFBFBF00FFFFFFFFFFFFFFFFFFFFFFF0
  314.             FBFBFB0B0FFFFFFFFFFFFFFFFFFFFFF0BFBFBF0BB0FFFFFFFFFFFFFFFFFFFFF0
  315.             FBFBFB0BB07FFFFFFFFFFFFFFFFFFFF00000000BB077FFFFFFFFFFFFFFFFFFFF
  316.             0BBBBBB0B077FFFFFFFFFFFFFFFFFFF00000000B0077FFFFFFFFFFFFFFFFFFF0
  317.             FBFBFB00B077FFFFFFFFFFFFFFFFFFF0BFBFBF0B0FF7FFFFFFFFFFFFFFFFFFF0
  318.             FBFBFB0BB07FFFFFFFFFFFFFFFFFFFF0BFBFBFB0B077FFFFFFFFFFFFFFFFFFF0
  319.             FBFBFBF0B077FFFFFFFFFFFFFFFFFFFF0FBFBFBF0077FFFFFFFFFFFFFFFFFFFF
  320.             0BFBFBFBF0777FFFFFFFFFFFFFFFFFFFF0BFBFBFBF0777FFFFFFFFFF0000000F
  321.             FF0BFBFBFB00777FFFFFFFFF0FBFBF0FFFF0BFBFBFB00777FFFFFFFF0BFBFB0F
  322.             FFFF0BFBFBF0B077FFFFFFFF0FBFBF0FFFFF0FBFBFB0B077FFFFFFFF0BFBFB0F
  323.             FFFF0BFBFBF0BB077FFFFFFF0FBFBFB0FFF0BFBFBFB0BB077FFFFFFF0BFBFBFB
  324.             000BFBFBFBF0BB077FFFFFFFF0BFBFBFBFBFBFBFBF0BBB077FFFFFFFF0FBFBFB
  325.             FBFBFBFBFB0BBB077FFFFFFFFF0FBFBFBFBFBFBFB0BBBB077FFFFFFFFFF0FBFB
  326.             FBFBFBFB0BBBB077FFFFFFFFFFFF00BFBFBFBF00BBBBB077FFFFFFFFFFFFF000
  327.             000000BBBBBB077FFFFFFFFFFFFFFF0BBBBBBBBBBBB077FFFFFFFFFFFFFFFFF0
  328.             0BBBBBBBB0077FFFFFFFFFFFFFFFFFFFF0000000077FFFFFFFFF}
  329.         end
  330.       end
  331.       object Panel2: TPanel
  332.         Left = 16
  333.         Top = 16
  334.         Width = 545
  335.         Height = 257
  336.         BevelInner = bvLowered
  337.         BorderWidth = 1
  338.         BorderStyle = bsSingle
  339.         DragMode = dmAutomatic
  340.         TabOrder = 1
  341.         OnMouseMove = Panel2MouseMove
  342.         object Label3: TLabel
  343.           Left = 176
  344.           Top = 8
  345.           Width = 200
  346.           Height = 32
  347.           Alignment = taCenter
  348.           Caption = 'NATUROPAT∩┐╜A'
  349.           DragMode = dmAutomatic
  350.           Font.Color = clGreen
  351.           Font.Height = -27
  352.           Font.Name = 'Arial'
  353.           Font.Style = [fsBold]
  354.           ParentFont = False
  355.           Transparent = True
  356.           OnMouseMove = Label3MouseMove
  357.         end
  358.         object BitBtn22: TBitBtn
  359.           Left = 16
  360.           Top = 48
  361.           Width = 169
  362.           Height = 33
  363.           Caption = '&Productos Cosm∩┐╜ticos'
  364.           Font.Color = clNavy
  365.           Font.Height = -13
  366.           Font.Name = 'System'
  367.           Font.Style = [fsBold]
  368.           ModalResult = 1
  369.           ParentFont = False
  370.           TabOrder = 0
  371.           OnClick = BitBtn8Click
  372.           OnMouseMove = BitBtn8MouseMove
  373.           NumGlyphs = 2
  374.         end
  375.         object BitBtn20: TBitBtn
  376.           Left = 192
  377.           Top = 48
  378.           Width = 169
  379.           Height = 33
  380.           Caption = '&Tratamientos Naturales'
  381.           Font.Color = clNavy
  382.           Font.Height = -13
  383.           Font.Name = 'System'
  384.           Font.Style = [fsBold]
  385.           ParentFont = False
  386.           TabOrder = 1
  387.           OnClick = BitBtn5Click
  388.           OnMouseMove = BitBtn5MouseMove
  389.         end
  390.         object BitBtn21: TBitBtn
  391.           Left = 368
  392.           Top = 48
  393.           Width = 161
  394.           Height = 33
  395.           Caption = '&Dietas Naturistas'
  396.           Font.Color = clNavy
  397.           Font.Height = -13
  398.           Font.Name = 'System'
  399.           Font.Style = [fsBold]
  400.           ParentFont = False
  401.           ParentShowHint = False
  402.           ShowHint = False
  403.           TabOrder = 2
  404.           OnClick = BitBtn6Click
  405.           OnMouseMove = BitBtn6MouseMove
  406.         end
  407.         object BitBtn19: TBitBtn
  408.           Left = 16
  409.           Top = 88
  410.           Width = 169
  411.           Height = 33
  412.           Caption = '&Informaci∩┐╜n General'
  413.           Font.Color = clNavy
  414.           Font.Height = -13
  415.           Font.Name = 'System'
  416.           Font.Style = [fsBold]
  417.           ParentFont = False
  418.           TabOrder = 3
  419.           OnClick = BitBtn7Click
  420.           OnMouseMove = BitBtn7MouseMove
  421.         end
  422.         object BitBtn23: TBitBtn
  423.           Left = 192
  424.           Top = 88
  425.           Width = 169
  426.           Height = 33
  427.           Caption = '&Remedios de la Abuela'
  428.           Font.Color = clNavy
  429.           Font.Height = -13
  430.           Font.Name = 'System'
  431.           Font.Style = [fsBold]
  432.           ParentFont = False
  433.           TabOrder = 4
  434.           OnClick = BitBtn12Click
  435.           OnMouseMove = BitBtn12MouseMove
  436.         end
  437.         object BitBtn24: TBitBtn
  438.           Left = 368
  439.           Top = 88
  440.           Width = 161
  441.           Height = 33
  442.           Caption = '&Glosario M∩┐╜dico'
  443.           Font.Color = clNavy
  444.           Font.Height = -13
  445.           Font.Name = 'System'
  446.           Font.Style = [fsBold]
  447.           ParentFont = False
  448.           TabOrder = 5
  449.           OnClick = BitBtn18Click
  450.           OnMouseMove = BitBtn18MouseMove
  451.         end
  452.         object BitBtn28: TBitBtn
  453.           Left = 16
  454.           Top = 128
  455.           Width = 169
  456.           Height = 33
  457.           Caption = '&Confeccionar Fichas'
  458.           Font.Color = clNavy
  459.           Font.Height = -13
  460.           Font.Name = 'System'
  461.           Font.Style = [fsBold]
  462.           ParentFont = False
  463.           TabOrder = 6
  464.           OnClick = BitBtn16Click
  465.           OnMouseMove = BitBtn16MouseMove
  466.         end
  467.         object BitBtn26: TBitBtn
  468.           Left = 192
  469.           Top = 128
  470.           Width = 169
  471.           Height = 33
  472.           Caption = 'Terapias &Alternativas'
  473.           Font.Color = clNavy
  474.           Font.Height = -13
  475.           Font.Name = 'System'
  476.           Font.Style = [fsBold]
  477.           ParentFont = False
  478.           TabOrder = 7
  479.           OnClick = BitBtn11Click
  480.           OnMouseMove = BitBtn11MouseMove
  481.         end
  482.         object BitBtn27: TBitBtn
  483.           Left = 368
  484.           Top = 128
  485.           Width = 161
  486.           Height = 33
  487.           Caption = '&Editor de Texto'
  488.           Font.Color = clNavy
  489.           Font.Height = -13
  490.           Font.Name = 'System'
  491.           Font.Style = [fsBold]
  492.           ParentFont = False
  493.           TabOrder = 8
  494.           OnClick = BitBtn15Click
  495.           OnMouseMove = BitBtn15MouseMove
  496.         end
  497.         object BitBtn25: TBitBtn
  498.           Left = 16
  499.           Top = 168
  500.           Width = 169
  501.           Height = 33
  502.           Caption = '&Funci∩┐╜n Fisiol∩┐╜gica'
  503.           Font.Color = clNavy
  504.           Font.Height = -13
  505.           Font.Name = 'System'
  506.           Font.Style = [fsBold]
  507.           ModalResult = 1
  508.           ParentFont = False
  509.           TabOrder = 9
  510.           OnClick = BitBtn10Click
  511.           OnMouseMove = BitBtn10MouseMove
  512.           NumGlyphs = 2
  513.         end
  514.         object BitBtn29: TBitBtn
  515.           Left = 192
  516.           Top = 168
  517.           Width = 169
  518.           Height = 33
  519.           Caption = '&S∩┐╜ntoma - Diagn∩┐╜stico'
  520.           Font.Color = clNavy
  521.           Font.Height = -13
  522.           Font.Name = 'System'
  523.           Font.Style = [fsBold]
  524.           ParentFont = False
  525.           TabOrder = 10
  526.           OnClick = BitBtn13Click
  527.           OnMouseMove = BitBtn13MouseMove
  528.         end
  529.         object BitBtn30: TBitBtn
  530.           Left = 368
  531.           Top = 168
  532.           Width = 161
  533.           Height = 33
  534.           Caption = '&Herbodiet∩┐╜tica'
  535.           Font.Color = clNavy
  536.           Font.Height = -13
  537.           Font.Name = 'System'
  538.           Font.Style = [fsBold]
  539.           ModalResult = 1
  540.           ParentFont = False
  541.           TabOrder = 11
  542.           OnClick = BitBtn9Click
  543.           OnMouseMove = BitBtn9MouseMove
  544.           NumGlyphs = 2
  545.         end
  546.         object BOTONEDITAR: TBitBtn
  547.           Left = 16
  548.           Top = 208
  549.           Width = 169
  550.           Height = 33
  551.           Caption = 'Editar Pr&oductos'
  552.           Font.Color = clNavy
  553.           Font.Height = -13
  554.           Font.Name = 'System'
  555.           Font.Style = [fsBold]
  556.           ParentFont = False
  557.           TabOrder = 12
  558.           OnClick = BOTONEDITARClick
  559.           OnMouseMove = BOTONEDITARMouseMove
  560.         end
  561.         object BitBtn2: TBitBtn
  562.           Left = 192
  563.           Top = 208
  564.           Width = 169
  565.           Height = 33
  566.           Caption = 'S&umar Productos'
  567.           Font.Color = clNavy
  568.           Font.Height = -13
  569.           Font.Name = 'System'
  570.           Font.Style = [fsBold]
  571.           ParentFont = False
  572.           TabOrder = 13
  573.           OnClick = BitBtn2Click
  574.           OnMouseMove = BitBtn2MouseMove
  575.         end
  576.         object VENTASDIARIAS: TBitBtn
  577.           Left = 368
  578.           Top = 208
  579.           Width = 161
  580.           Height = 33
  581.           Caption = '&Ventas Diarias'
  582.           Font.Color = clNavy
  583.           Font.Height = -13
  584.           Font.Name = 'System'
  585.           Font.Style = [fsBold]
  586.           ParentFont = False
  587.           TabOrder = 14
  588.           OnClick = VENTASDIARIASClick
  589.           OnMouseMove = VENTASDIARIASMouseMove
  590.         end
  591.       end
  592.       object PANELFRAN2: TMemo
  593.         Left = 8
  594.         Top = 8
  595.         Width = 553
  596.         Height = 385
  597.         DragMode = dmAutomatic
  598.         Font.Color = clBlack
  599.         Font.Height = -13
  600.         Font.Name = 'Arial'
  601.         Font.Style = []
  602.         Lines.Strings = (
  603.           '   '
  604.           
  605.             '      Versi∩┐╜n ShareWare (Versi∩┐╜n Reducida) del programa Naturopa' +
  606.             't∩┐╜a v1.0 (Base de Datos).'
  607.           ''
  608.           
  609.             '                                         - Ideal para Probar ant' +
  610.             'es de Comprar -'
  611.           ''
  612.           
  613.             ' Todos los botones y campos est∩┐╜n activados, excepto el Campo Cl' +
  614.             'ave (∩┐╜ndice) que no est∩┐╜ '
  615.           
  616.             ' activado, as∩┐╜ pues, no podr∩┐╜ usted GRABAR nada de lo que escrib' +
  617.             'a en la Base de Datos.'
  618.           
  619.             ' Tambi∩┐╜n y en lo referente a Herbodiet∩┐╜tica, Tratamientos Natura' +
  620.             'les, Informaci∩┐╜n Diet∩┐╜tica, '
  621.           
  622.             ' S∩┐╜ntomas y Diagn∩┐╜sticos, Terapias Alternativas, etc..., existen' +
  623.             ' algunos datos no disponibles.'
  624.           
  625.             ' Si desea usted el Programa Completo, entonces, deber∩┐╜ de solici' +
  626.             'tar la Versi∩┐╜n Comercial.'
  627.           ' '
  628.           
  629.             ' Si desea la Versi∩┐╜n Comercial (Programa Completo) deber∩┐╜ de sol' +
  630.             'icitarlo enviando por correo'
  631.           
  632.             ' la Hoja de Pedido ∩┐╜ puede hacerlo m∩┐╜s r∩┐╜pido llamando por Tel∩┐╜f' +
  633.             'ono ∩┐╜ enviando un Fax.'
  634.           ''
  635.           ' - Informaci∩┐╜n y Pedidos a:'
  636.           '                                                    SOFT MAGIC'
  637.           
  638.             '                                                    Distribuidor' +
  639.             ' comercial:'
  640.           
  641.             '                                                    FRANCISCO PA' +
  642.             'TI∩┐╜O S∩┐╜NCHEZ '
  643.           
  644.             '                                                    Apartado de ' +
  645.             'Correos, 114'
  646.           
  647.             '                                                    36080 - Pont' +
  648.             'evedra.'
  649.           ''
  650.           ' - Tel∩┐╜fono y Fax:  (986) - 84.43.04'
  651.           ' - Tel∩┐╜fono M∩┐╜vil: 939.501.801')
  652.         ParentFont = False
  653.         ReadOnly = True
  654.         TabOrder = 2
  655.       end
  656.       object F3: TPanel
  657.         Left = 480
  658.         Top = 336
  659.         Width = 73
  660.         Height = 49
  661.         BevelInner = bvRaised
  662.         BorderWidth = 5
  663.         BorderStyle = bsSingle
  664.         Caption = 'F3'
  665.         TabOrder = 3
  666.         object F2: TButton
  667.           Left = 8
  668.           Top = 8
  669.           Width = 53
  670.           Height = 29
  671.           Caption = '&Men∩┐╜'
  672.           TabOrder = 0
  673.           OnClick = F2Click
  674.         end
  675.       end
  676.     end
  677.   end
  678.   object Timer2: TTimer
  679.     OnTimer = Timer2Timer
  680.     Left = 8
  681.     Top = 408
  682.   end
  683.   object Timer1: TTimer
  684.     OnTimer = Timer1Timer
  685.     Left = 608
  686.   end
  687. end
  688.