home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 32 / hot34.iso / ficheros / 9EDU / NATURO10.ZIP / natur10.exe / NATUP1 / NATUP1.EXE / 0 / RCDATA / TFORM8 / TFORM8.txt
Text File  |  1995-05-10  |  15KB  |  646 lines
  1. object Form8: TForm8
  2.   Left = -6
  3.   Top = 96
  4.   HorzScrollBar.Visible = False
  5.   VertScrollBar.Visible = False
  6.   AutoScroll = False
  7.   Caption = 'Editor de Textos (Base de Datos)'
  8.   ClientHeight = 461
  9.   ClientWidth = 638
  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 = 17
  23.     Height = 33
  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 = 72
  51.     Width = 25
  52.     Height = 33
  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 Panel287654: TPanel
  228.     Left = 8
  229.     Top = 8
  230.     Width = 617
  231.     Height = 441
  232.     Hint = 'Tipo de Letra'
  233.     BevelInner = bvLowered
  234.     BevelWidth = 2
  235.     BorderWidth = 1
  236.     BorderStyle = bsSingle
  237.     ParentShowHint = False
  238.     ShowHint = False
  239.     TabOrder = 3
  240.     object Label50: TLabel
  241.       Left = 80
  242.       Top = 16
  243.       Width = 57
  244.       Height = 49
  245.       Hint = 'Se desplaza al primer registro'
  246.       Alignment = taCenter
  247.       Caption = 'Primero'
  248.       Font.Color = clRed
  249.       Font.Height = -12
  250.       Font.Name = 'Arial'
  251.       Font.Style = []
  252.       ParentFont = False
  253.       ParentShowHint = False
  254.       ShowHint = True
  255.       Transparent = True
  256.       OnMouseMove = Label50MouseMove
  257.     end
  258.     object Label51: TLabel
  259.       Left = 136
  260.       Top = 16
  261.       Width = 57
  262.       Height = 49
  263.       Hint = 'Se desplaza al registro anterior'
  264.       Alignment = taCenter
  265.       Caption = 'Anterior'
  266.       Font.Color = clRed
  267.       Font.Height = -12
  268.       Font.Name = 'Arial'
  269.       Font.Style = []
  270.       ParentFont = False
  271.       ParentShowHint = False
  272.       ShowHint = True
  273.       Transparent = True
  274.       OnMouseMove = Label51MouseMove
  275.     end
  276.     object Label52: TLabel
  277.       Left = 192
  278.       Top = 16
  279.       Width = 57
  280.       Height = 49
  281.       Hint = 'Se desplaza al siguiente registro'
  282.       Alignment = taCenter
  283.       Caption = 'Siguiente'
  284.       Font.Color = clRed
  285.       Font.Height = -12
  286.       Font.Name = 'Arial'
  287.       Font.Style = []
  288.       ParentFont = False
  289.       ParentShowHint = False
  290.       ShowHint = True
  291.       Transparent = True
  292.       OnMouseMove = Label52MouseMove
  293.     end
  294.     object Label53: TLabel
  295.       Left = 248
  296.       Top = 16
  297.       Width = 57
  298.       Height = 49
  299.       Hint = 'Se desplaza al ∩┐╜ltimo registro'
  300.       Alignment = taCenter
  301.       Caption = '∩┐╜ltimo'
  302.       Font.Color = clRed
  303.       Font.Height = -12
  304.       Font.Name = 'Arial'
  305.       Font.Style = []
  306.       ParentFont = False
  307.       ParentShowHint = False
  308.       ShowHint = True
  309.       Transparent = True
  310.       OnMouseMove = Label53MouseMove
  311.     end
  312.     object Label54: TLabel
  313.       Left = 304
  314.       Top = 16
  315.       Width = 57
  316.       Height = 49
  317.       Hint = 'Inserta un nuevo registro vac∩┐╜o'
  318.       Alignment = taCenter
  319.       Caption = 'Nuevo'
  320.       Font.Color = clRed
  321.       Font.Height = -12
  322.       Font.Name = 'Arial'
  323.       Font.Style = []
  324.       ParentFont = False
  325.       ParentShowHint = False
  326.       ShowHint = True
  327.       Transparent = True
  328.       OnMouseMove = Label54MouseMove
  329.     end
  330.     object Label55: TLabel
  331.       Left = 360
  332.       Top = 16
  333.       Width = 57
  334.       Height = 49
  335.       Hint = 'Borra el registro actual'
  336.       Alignment = taCenter
  337.       Caption = 'Borrar'
  338.       Font.Color = clRed
  339.       Font.Height = -12
  340.       Font.Name = 'Arial'
  341.       Font.Style = []
  342.       ParentFont = False
  343.       ParentShowHint = False
  344.       ShowHint = True
  345.       Transparent = True
  346.       OnMouseMove = Label55MouseMove
  347.     end
  348.     object Label56: TLabel
  349.       Left = 416
  350.       Top = 16
  351.       Width = 57
  352.       Height = 49
  353.       Hint = 'Grabar el registro'
  354.       Alignment = taCenter
  355.       Caption = 'Grabar'
  356.       Font.Color = clRed
  357.       Font.Height = -12
  358.       Font.Name = 'Arial'
  359.       Font.Style = []
  360.       ParentFont = False
  361.       ParentShowHint = False
  362.       ShowHint = True
  363.       Transparent = True
  364.       OnMouseMove = Label56MouseMove
  365.     end
  366.     object Label57: TLabel
  367.       Left = 472
  368.       Top = 16
  369.       Width = 57
  370.       Height = 49
  371.       Hint = 'Actualiza los datos'
  372.       Alignment = taCenter
  373.       Caption = 'Actualizar'
  374.       Font.Color = clRed
  375.       Font.Height = -12
  376.       Font.Name = 'Arial'
  377.       Font.Style = []
  378.       ParentFont = False
  379.       ParentShowHint = False
  380.       ShowHint = True
  381.       Transparent = True
  382.       OnMouseMove = Label57MouseMove
  383.     end
  384.     object Label1: TLabel
  385.       Left = 16
  386.       Top = 96
  387.       Width = 111
  388.       Height = 15
  389.       Caption = 'Nombre de la Ficha:'
  390.       Font.Color = clBlue
  391.       Font.Height = -12
  392.       Font.Name = 'Arial'
  393.       Font.Style = []
  394.       ParentFont = False
  395.       Transparent = True
  396.     end
  397.     object SpButton200: TSpeedButton
  398.       Left = 472
  399.       Top = 112
  400.       Width = 25
  401.       Height = 25
  402.       Hint = 'Ayuda'
  403.       Caption = '?'
  404.       Font.Color = clBlue
  405.       Font.Height = -13
  406.       Font.Name = 'System'
  407.       Font.Style = [fsBold]
  408.       ParentFont = False
  409.       ParentShowHint = False
  410.       ShowHint = True
  411.       OnClick = SpButton200Click
  412.     end
  413.     object SpeedButton1: TSpeedButton
  414.       Left = 504
  415.       Top = 112
  416.       Width = 25
  417.       Height = 25
  418.       Hint = 'Visualizar Lista'
  419.       Glyph.Data = {
  420.         E6000000424DE60000000000000076000000280000000E0000000E0000000100
  421.         0400000000007000000000000000000000001000000000000000000000000000
  422.         80000080000000808000800000008000800080800000C0C0C000808080000000
  423.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  424.         330033333333333333003300000000033300330FFFFFFF033300330F00000F03
  425.         3300330FFFFFFF033300330F00000F033300330FFFFFFF033300330F000FFF03
  426.         3300330FFFFF00033300330F00FF0F033300330FFFFF00333300330000000333
  427.         33003333333333333300}
  428.       ParentShowHint = False
  429.       ShowHint = True
  430.       OnClick = SpeedButton1Click
  431.     end
  432.     object SpeedButton2: TSpeedButton
  433.       Left = 536
  434.       Top = 112
  435.       Width = 25
  436.       Height = 25
  437.       Hint = 'Tipo de Letra'
  438.       Caption = 'F'
  439.       Font.Color = clBlack
  440.       Font.Height = -13
  441.       Font.Name = 'System'
  442.       Font.Style = [fsBold]
  443.       ParentFont = False
  444.       ParentShowHint = False
  445.       ShowHint = True
  446.       OnClick = SpeedButton2Click
  447.     end
  448.     object BitBtn1: TBitBtn
  449.       Left = 16
  450.       Top = 16
  451.       Width = 41
  452.       Height = 41
  453.       Hint = 'Volver al Men∩┐╜'
  454.       ParentShowHint = False
  455.       ShowHint = True
  456.       TabOrder = 0
  457.       OnClick = BitBtn1Click
  458.       OnMouseMove = BitBtn1MouseMove
  459.       Glyph.Data = {
  460.         76020000424D7602000000000000760000002800000020000000200000000100
  461.         0400000000000000000000000000000000001000000010000000000000000000
  462.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  463.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777
  464.         7777777777777777777777777777777777777777777777777777777777777777
  465.         777777777777777777777777777777731444444E131313131377777777FFFF71
  466.         F4444EE9F9F9F13131777777777777739B44449B9B9B9B9B93777FFFF7777771
  467.         F9CCC4F931F939F9F1777777777777739B9CCC4B139B139B9377777777744471
  468.         F9F4CCC431F931F9F1777777774CCC439BA44CCE139B139B9377744774CCCCC4
  469.         4AA4CCE931F931F9F17774444CCCCCCCAAA3339B139B139B93777E4444CEECCA
  470.         AA4BBB3931F931F9F17777E44EE77ECCA4CCBB3B9B9B9B9B9377777EEE7777EC
  471.         4CCCE38444443339F177777777777774CCCE0AACCCCCBB3B937777777777774C
  472.         CCEAAACCCCCCBBB3F1777777777774CCCECAACCCEEEEBB3B9377777777777ECC
  473.         CCECCCCE313133F9F1777111111117ECCCCECCE31313139B937771999999997E
  474.         CCCCCCB1313131F9F177719999999973ECCCCBBB1313139B937771999FF99971
  475.         FEECBBBBB13131F9F177719999FF99739B888B3B3313139B9377719FFFFFF971
  476.         F9888833313131F9F177719999FF99739B44444444139B9B937771999FF99971
  477.         F9CCCCCCCCF9F9F9F1777199999999739BEECCCCEE9B9B9B9377779999999971
  478.         F9F9CCCEF9F9F131317777777777777313131313131313131377777777777777
  479.         7777777777777777777777777777777777777777777777777777}
  480.     end
  481.     object DBNavigator1: TDBNavigator
  482.       Left = 80
  483.       Top = 32
  484.       Width = 448
  485.       Height = 25
  486.       DataSource = DataSource1
  487.       VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast, nbInsert, nbDelete, nbPost, nbRefresh]
  488.       TabOrder = 1
  489.       OnClick = DBNavigator1Click
  490.     end
  491.     object BitBtn2: TBitBtn
  492.       Left = 552
  493.       Top = 16
  494.       Width = 41
  495.       Height = 41
  496.       Hint = 'Imprimir'
  497.       ParentShowHint = False
  498.       ShowHint = True
  499.       TabOrder = 2
  500.       OnClick = BitBtn2Click
  501.       OnMouseMove = BitBtn2MouseMove
  502.       Glyph.Data = {
  503.         76020000424D7602000000000000760000002800000020000000200000000100
  504.         0400000000000000000000000000000000001000000010000000000000000000
  505.         8000008000000080800080000000800080008080000080808000C0C0C0000000
  506.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00700000000000
  507.         000000000000000000070F8888888888888888888888888888800FF800000000
  508.         000000000000008888800FF708888888888888888888880778800FF70F777777
  509.         777777777777778078800FF70F777777777777777777778808800FF70F777777
  510.         777777777777778808800FF708888888888888888888888808800FF000000000
  511.         000000000000000808800F0888888888888888888888888008800F0777777777
  512.         777777777777777808800F0777777777777777777777777880800F0777777777
  513.         777777777777777888000F0777777777777777777777777888000F0777777777
  514.         777777777777777888000F0777777777777777777999977888000F0777777777
  515.         777777777777777888000F0FFFFFFFFFFFFFFFFFFFFFFFF888000F0777777777
  516.         777777777777777F88000FF0777700000000000000008777F8000FF700000FFF
  517.         FFFFFFFFFFF0000000000FF777770FFCCCCCCCCCCFF0777778800FF777770FFF
  518.         FFFFFFFFFFF0777778800FF7777788F8CCCCCCCCC8F8877778800FF7777770FF
  519.         FFFFFFFFFFFF077778800FF77777770FFCCCCCCCCCCFF07778800FF777777770
  520.         FFFFFFFFFFFFFF0778800FF7777777788FCCCCCCCCCCFF8878800FF777777777
  521.         0FFFFFFFFFFFFFF078800FFFFFFFFFFF0FFFFFFFFFFFFFF0FF800FFFFFFFFFFF
  522.         0FFFFFFFFFFFFFF0FFF070000000000000000000000000000007}
  523.     end
  524.     object MEMO2: TDBMemo
  525.       Left = 16
  526.       Top = 112
  527.       Width = 417
  528.       Height = 25
  529.       DataField = 'Nombre Ficha'
  530.       DataSource = DataSource1
  531.       MaxLength = 55
  532.       ReadOnly = True
  533.       TabOrder = 3
  534.       OnEnter = MEMO2Enter
  535.       OnExit = MEMO2Exit
  536.       OnKeyPress = MEMO2KeyPress
  537.       OnMouseMove = MEMO2MouseMove
  538.     end
  539.     object BitBtn2000: TBitBtn
  540.       Left = 440
  541.       Top = 112
  542.       Width = 25
  543.       Height = 25
  544.       Hint = 'Buscar registros'
  545.       ParentShowHint = False
  546.       ShowHint = True
  547.       TabOrder = 4
  548.       OnClick = BitBtn2000Click
  549.       Glyph.Data = {
  550.         E6000000424DE60000000000000076000000280000000E0000000E0000000100
  551.         0400000000007000000000000000000000001000000000000000000000000000
  552.         80000080000000808000800000008000800080800000C0C0C000808080000000
  553.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
  554.         33003333333333333300300000000333330000B7B7B7B03333000B0B7B7B7B03
  555.         33000BB0B7B7B7B033000FBB0000000033000BFB0B0B0B0333000FBFBFBFB003
  556.         33000BFBFBF00033330030BFBF03333333003800008333333300333333333333
  557.         33003333333333333300}
  558.     end
  559.     object Memo3: TDBMemo
  560.       Left = 16
  561.       Top = 168
  562.       Width = 577
  563.       Height = 249
  564.       DataField = 'EditorTextos'
  565.       DataSource = DataSource1
  566.       ScrollBars = ssBoth
  567.       TabOrder = 5
  568.       OnEnter = MEMO2Enter
  569.       OnExit = MEMO2Exit
  570.       OnMouseMove = Memo3MouseMove
  571.     end
  572.     object DBLookupListBox1: TDBLookupListBox
  573.       Left = 16
  574.       Top = 160
  575.       Width = 577
  576.       Height = 260
  577.       Color = clWhite
  578.       KeyField = 'Nombre Ficha'
  579.       ListField = 'Nombre Ficha'
  580.       ListSource = DataSource1
  581.       TabOrder = 6
  582.       Visible = False
  583.       OnClick = DBLookupListBox1Click
  584.     end
  585.     object BOTONCANCELAR: TButton
  586.       Left = 496
  587.       Top = 384
  588.       Width = 67
  589.       Height = 25
  590.       Hint = 'Cancelar Lista'
  591.       Caption = '&Ocultar'
  592.       TabOrder = 7
  593.       Visible = False
  594.       OnClick = BOTONCANCELARClick
  595.     end
  596.   end
  597.   object PrintDialog1: TPrintDialog
  598.     Copies = 1
  599.     Options = [poSelection]
  600.     Left = 608
  601.     Top = 16
  602.   end
  603.   object PrinterSetupDialog1: TPrinterSetupDialog
  604.     Left = 608
  605.     Top = 384
  606.   end
  607.   object ReplaceDialog1: TReplaceDialog
  608.     Left = 608
  609.     Top = 352
  610.   end
  611.   object FontDialog1: TFontDialog
  612.     Font.Color = clWindowText
  613.     Font.Height = -13
  614.     Font.Name = 'System'
  615.     Font.Style = []
  616.     MinFontSize = 0
  617.     MaxFontSize = 0
  618.     Left = 608
  619.     Top = 320
  620.   end
  621.   object DataSource1: TDataSource
  622.     DataSet = Table1
  623.     Left = 608
  624.     Top = 184
  625.   end
  626.   object Table1: TTable
  627.     Active = True
  628.     Filtered = True
  629.     DatabaseName = 'C:\NATUP1'
  630.     IndexFieldNames = 'Nombre Ficha'
  631.     TableName = 'EDITOR.DB'
  632.     Left = 608
  633.     Top = 224
  634.     object Table1NombreFicha: TStringField
  635.       FieldName = 'Nombre Ficha'
  636.       Required = True
  637.       Size = 75
  638.     end
  639.     object Table1EditorTextos: TMemoField
  640.       FieldName = 'EditorTextos'
  641.       BlobType = ftMemo
  642.       Size = 240
  643.     end
  644.   end
  645. end
  646.