home *** CD-ROM | disk | FTP | other *** search
/ Chip 2004 February / CHIP_2004_0102_X.BIN / systeem / info / drh2003e.exe / DRHARD.exe / 0 / RCDATA / TFORMPREFERENCES / TFORMPREFERENCES.txt
Text File  |  2003-07-25  |  19KB  |  638 lines

  1. object FormPreferences: TFormPreferences
  2.   Left = 316
  3.   Top = 172
  4.   HelpContext = 10
  5.   BorderStyle = bsDialog
  6.   Caption = 'Einstellungen'
  7.   ClientHeight = 442
  8.   ClientWidth = 638
  9.   Color = clBtnFace
  10.   Font.Charset = DEFAULT_CHARSET
  11.   Font.Color = clWindowText
  12.   Font.Height = -11
  13.   Font.Name = 'MS Sans Serif'
  14.   Font.Style = []
  15.   OldCreateOrder = True
  16.   Position = poScreenCenter
  17.   OnActivate = FormActivate
  18.   OnClose = FormClose
  19.   OnCreate = FormCreate
  20.   PixelsPerInch = 96
  21.   TextHeight = 13
  22.   object ExtPageControl_preferences: TExtPageControl
  23.     Left = 8
  24.     Top = 8
  25.     Width = 623
  26.     Height = 393
  27.     ActivePage = TabSheet_pref_general
  28.     TabHeight = 0
  29.     TabOrder = 0
  30.     TabWidth = 0
  31.     TabActiveColor = clBtnFace
  32.     TabActiveFont.Charset = DEFAULT_CHARSET
  33.     TabActiveFont.Color = clWindowText
  34.     TabActiveFont.Height = -11
  35.     TabActiveFont.Name = 'MS Sans Serif'
  36.     TabActiveFont.Style = []
  37.     TabInactiveColor = 10789024
  38.     TabInactiveFont.Charset = DEFAULT_CHARSET
  39.     TabInactiveFont.Color = clWindowText
  40.     TabInactiveFont.Height = -11
  41.     TabInactiveFont.Name = 'MS Sans Serif'
  42.     TabInactiveFont.Style = []
  43.     object TabSheet_pref_general: TTabSheet
  44.       Caption = 'All&gemeine Einstellungen'
  45.       object GroupBoxPrefGenOptions: TGroupBox
  46.         Left = 12
  47.         Top = 2
  48.         Width = 583
  49.         Height = 113
  50.         Caption = 'Optionen'
  51.         TabOrder = 0
  52.         object DBCheckBoxPrefGenTabsOnlyOpen: TDBCheckBox
  53.           Left = 6
  54.           Top = 32
  55.           Width = 353
  56.           Height = 17
  57.           Caption = 
  58.             '&Registerseiten nur ∩┐╜ffnen, Analyse nicht automatisch durchf∩┐╜hre' +
  59.             'n'
  60.           DataField = 'TABSONLYOPEN'
  61.           DataSource = MainForm.DS_PREF
  62.           TabOrder = 1
  63.           ValueChecked = 'True'
  64.           ValueUnchecked = 'False'
  65.         end
  66.         object DBCheckBoxPrefGenForceSysOverview: TDBCheckBox
  67.           Left = 6
  68.           Top = 14
  69.           Width = 279
  70.           Height = 17
  71.           Caption = 'Anal&yse System∩┐╜berblick beim Start erzwingen'
  72.           DataField = 'FORCESYSOVERVIEW'
  73.           DataSource = MainForm.DS_PREF
  74.           TabOrder = 0
  75.           ValueChecked = 'True'
  76.           ValueUnchecked = 'False'
  77.         end
  78.         object DBCheckBoxPrefGenBenchDiagramXisVal: TDBCheckBox
  79.           Left = 6
  80.           Top = 50
  81.           Width = 441
  82.           Height = 17
  83.           Caption = 
  84.             '&Benchmark-Diagramme: S∩┐╜ulen v. links nach rechts gem∩┐╜ss Leistun' +
  85.             'gs-Werten anordnen'
  86.           DataField = 'BENCHDIAGRAMXISVAL'
  87.           DataSource = MainForm.DS_PREF
  88.           TabOrder = 2
  89.           ValueChecked = 'True'
  90.           ValueUnchecked = 'False'
  91.         end
  92.         object DBCheckBoxPrefGenLowResColors: TDBCheckBox
  93.           Left = 6
  94.           Top = 68
  95.           Width = 441
  96.           Height = 17
  97.           Caption = '&Farbanpassung f∩┐╜r niedrige Aufl∩┐╜sungen vornehmen'
  98.           DataField = 'USESTDCOLORS'
  99.           DataSource = MainForm.DS_PREF
  100.           TabOrder = 3
  101.           ValueChecked = 'True'
  102.           ValueUnchecked = 'False'
  103.         end
  104.         object DBCheckBoxPrefGenStayOnTop: TDBCheckBox
  105.           Left = 6
  106.           Top = 88
  107.           Width = 353
  108.           Height = 17
  109.           Caption = '&Programmfenster immer im Vordergrund'
  110.           DataField = 'STAYONTOP'
  111.           DataSource = MainForm.DS_PREF
  112.           TabOrder = 4
  113.           ValueChecked = 'True'
  114.           ValueUnchecked = 'False'
  115.           Visible = False
  116.         end
  117.       end
  118.       object GroupBox_pref_gen_scale: TGroupBox
  119.         Left = 12
  120.         Top = 130
  121.         Width = 585
  122.         Height = 49
  123.         Caption = 'Programmfenster skalieren'
  124.         TabOrder = 1
  125.         object Label_pref_gen_scale: TLabel
  126.           Left = 52
  127.           Top = 22
  128.           Width = 120
  129.           Height = 13
  130.           Caption = 'P&rozent von Normalgr∩┐╜∩┐╜e'
  131.         end
  132.         object DBEditPrefGenScaleBy: TDBEdit
  133.           Left = 8
  134.           Top = 18
  135.           Width = 33
  136.           Height = 21
  137.           DataField = 'SCALEBY'
  138.           DataSource = MainForm.DS_PREF
  139.           TabOrder = 0
  140.         end
  141.         object DBCheckBoxPrefGenRescaleToDef: TDBCheckBox
  142.           Left = 204
  143.           Top = 20
  144.           Width = 275
  145.           Height = 17
  146.           Caption = '&Normalgr∩┐╜∩┐╜e bei Programmstart wiederherstellen'
  147.           DataField = 'RESTOREOLDSTATE'
  148.           DataSource = MainForm.DS_PREF
  149.           TabOrder = 1
  150.           ValueChecked = 'Wahr'
  151.           ValueUnchecked = 'Falsch'
  152.         end
  153.       end
  154.       object DBRadioGroupPrefGenEditor: TDBRadioGroup
  155.         Left = 10
  156.         Top = 274
  157.         Width = 585
  158.         Height = 53
  159.         Caption = 'Editor'
  160.         DataField = 'DEFAULTEDITOR'
  161.         DataSource = MainForm.DS_PREF
  162.         Items.Strings = (
  163.           'Den &mit Dr. Hardware ausgelieferten Editor bevorzugt verwenden'
  164.           '&Standard-Editor bevorzugt verwenden')
  165.         TabOrder = 3
  166.         Values.Strings = (
  167.           'intern'
  168.           'extern')
  169.       end
  170.       object GroupBox_pref_gen_dataprotection: TGroupBox
  171.         Left = 12
  172.         Top = 198
  173.         Width = 583
  174.         Height = 59
  175.         Caption = 'Datenintegrit∩┐╜ts-Schutz'
  176.         TabOrder = 2
  177.         object Label_pref_gen_dataintegrity_desc: TLabel
  178.           Left = 108
  179.           Top = 12
  180.           Width = 383
  181.           Height = 41
  182.           AutoSize = False
  183.           Caption = 
  184.             '&Legt fest, wann interne Datenpuffer gesichert werden, um Sch∩┐╜de' +
  185.             'n an ge∩┐╜ffneten Programmhilfsdateien infolge Systemabsturzes zu ' +
  186.             'verhindern.  Je h∩┐╜her der Schutz, desto geringer die Programm-Au' +
  187.             'sf∩┐╜hrungsgeschwindigkeit! '
  188.           FocusControl = DBComboBoxDataProtection
  189.           WordWrap = True
  190.         end
  191.         object DBComboBoxDataProtection: TDBComboBox
  192.           Left = 10
  193.           Top = 18
  194.           Width = 83
  195.           Height = 21
  196.           DataField = 'DATAPROTECTIONLEVEL'
  197.           DataSource = MainForm.DS_PREF
  198.           ItemHeight = 13
  199.           Items.Strings = (
  200.             'niedrig'
  201.             'mittel'
  202.             'hoch')
  203.           TabOrder = 0
  204.         end
  205.       end
  206.     end
  207.     object TabSheet_pref_expert: TTabSheet
  208.       Caption = 'E&xpertensetup'
  209.       object GroupBoxPrefExpOptions: TGroupBox
  210.         Left = 0
  211.         Top = 0
  212.         Width = 615
  213.         Height = 365
  214.         Align = alClient
  215.         Caption = 
  216.           'Experten-Optionen (ACHTUNG! Nur erfahrene User sollten hier ∩┐╜nde' +
  217.           'rungen vornehmen!)'
  218.         TabOrder = 0
  219.         object DBCheckBoxPrefExpForceIDEAccess: TDBCheckBox
  220.           Left = 10
  221.           Top = 18
  222.           Width = 167
  223.           Height = 15
  224.           Caption = 'IDE-Portdire&ktzugriff erzwingen'
  225.           DataField = 'FORCEIDEPORTACCESS'
  226.           DataSource = MainForm.DS_PREF
  227.           TabOrder = 0
  228.           ValueChecked = 'True'
  229.           ValueUnchecked = 'False'
  230.         end
  231.         object DBCheckBoxPrefExpForceDDC: TDBCheckBox
  232.           Left = 10
  233.           Top = 34
  234.           Width = 137
  235.           Height = 15
  236.           Caption = '&DDC-Analyse erzwingen'
  237.           DataField = 'FORCEDDCTEST'
  238.           DataSource = MainForm.DS_PREF
  239.           TabOrder = 1
  240.           ValueChecked = 'True'
  241.           ValueUnchecked = 'False'
  242.         end
  243.         object DBCheckBoxPrefExpForbid16Bit: TDBCheckBox
  244.           Left = 290
  245.           Top = 50
  246.           Width = 147
  247.           Height = 15
  248.           Caption = '&16-Bit-Analysen verbieten'
  249.           DataField = 'FORBID16BITSTUFF'
  250.           DataSource = MainForm.DS_PREF
  251.           TabOrder = 6
  252.           ValueChecked = 'True'
  253.           ValueUnchecked = 'False'
  254.         end
  255.         object GroupBoxPrefExpCPUUsage: TGroupBox
  256.           Left = 8
  257.           Top = 90
  258.           Width = 263
  259.           Height = 67
  260.           Caption = 'Diagramm CPU-Auslastung'
  261.           TabOrder = 7
  262.           object LabelPrefExpCPUUsageEmptyTable: TLabel
  263.             Left = 40
  264.             Top = 18
  265.             Width = 201
  266.             Height = 17
  267.             AutoSize = False
  268.             Caption = '&Nach ... erfassten Werten Tabelle leeren '
  269.             FocusControl = DBEditPrefExpCPUUsageEmptyTable
  270.             WordWrap = True
  271.           end
  272.           object DBEditPrefExpCPUUsageEmptyTable: TDBEdit
  273.             Left = 6
  274.             Top = 16
  275.             Width = 25
  276.             Height = 21
  277.             DataField = 'EMPTYCPUUSAGETABLE'
  278.             DataSource = MainForm.DS_PREF
  279.             TabOrder = 0
  280.           end
  281.           object DBCheckBoxPrefExpCPUUsageRange: TDBCheckBox
  282.             Left = 18
  283.             Top = 38
  284.             Width = 127
  285.             Height = 23
  286.             Caption = '&Begrenzter Ausschnitt'
  287.             DataField = 'CPUUSAGESHOWRANGE'
  288.             DataSource = MainForm.DS_PREF
  289.             TabOrder = 1
  290.             ValueChecked = 'True'
  291.             ValueUnchecked = 'False'
  292.           end
  293.         end
  294.         object DBCheckBoxPrefExpHardaccess: TDBCheckBox
  295.           Left = 290
  296.           Top = 18
  297.           Width = 159
  298.           Height = 15
  299.           Caption = '"Harte"  I/O-&Zugriffsmethode'
  300.           DataField = 'HARDHWACCESS'
  301.           DataSource = MainForm.DS_PREF
  302.           TabOrder = 4
  303.           ValueChecked = 'True'
  304.           ValueUnchecked = 'False'
  305.         end
  306.         object DBCheckBoxPrefExpPCIvia16bit: TDBCheckBox
  307.           Left = 290
  308.           Top = 34
  309.           Width = 177
  310.           Height = 15
  311.           Caption = '&PCI-Zugriff via 16-Bit-Bios'
  312.           DataField = 'PCISOFTACCESS'
  313.           DataSource = MainForm.DS_PREF
  314.           TabOrder = 5
  315.           ValueChecked = 'True'
  316.           ValueUnchecked = 'False'
  317.         end
  318.         object DBCheckBoxPrefExpMultiIOViaPnP: TDBCheckBox
  319.           Left = 10
  320.           Top = 50
  321.           Width = 251
  322.           Height = 15
  323.           Caption = 'Multi&-I/O-Chip via PnP-Funktions-Call analysieren'
  324.           DataField = 'SOFTNODESTEST'
  325.           DataSource = MainForm.DS_PREF
  326.           TabOrder = 2
  327.           ValueChecked = 'True'
  328.           ValueUnchecked = 'False'
  329.         end
  330.         object GroupBoxPrefExpSPD: TGroupBox
  331.           Left = 280
  332.           Top = 168
  333.           Width = 325
  334.           Height = 43
  335.           Caption = 'SDRAM-Analyse - Modulanzahl festlegen'
  336.           TabOrder = 8
  337.           object LabelPrefExpSPDModules: TLabel
  338.             Left = 36
  339.             Top = 20
  340.             Width = 240
  341.             Height = 13
  342.             Caption = 'Installierte Module (&0=wird vom Programm ermittelt) '
  343.             FocusControl = DBEdit1
  344.           end
  345.           object DBEdit1: TDBEdit
  346.             Left = 6
  347.             Top = 16
  348.             Width = 25
  349.             Height = 21
  350.             DataField = 'SDRAMMODULES'
  351.             DataSource = MainForm.DS_PREF
  352.             TabOrder = 0
  353.           end
  354.         end
  355.         object DBCheckBoxPrefExpDataValidityCheck: TDBCheckBox
  356.           Left = 10
  357.           Top = 66
  358.           Width = 251
  359.           Height = 15
  360.           Caption = 'Daten-Dateien beim Start auf Konsistenz pr&∩┐╜fen'
  361.           DataField = 'DATAVALIDITYCHECK'
  362.           DataSource = MainForm.DS_PREF
  363.           TabOrder = 3
  364.           ValueChecked = 'True'
  365.           ValueUnchecked = 'False'
  366.         end
  367.         object GroupBoxPrefExpSensor: TGroupBox
  368.           Left = 6
  369.           Top = 222
  370.           Width = 601
  371.           Height = 135
  372.           Caption = 
  373.             'Sensoren-/SDRAM-Analyse - Testumfang festlegen - Achtung! Bitte ' +
  374.             'auf keinen Fall Eintr∩┐╜ge l∩┐╜schen!'
  375.           TabOrder = 10
  376.           object DBGridEHPrefSensor: TDBGridEh
  377.             Left = 2
  378.             Top = 15
  379.             Width = 597
  380.             Height = 118
  381.             Align = alClient
  382.             DataSource = MainForm.DS_PREFSENSOR
  383.             Font.Charset = DEFAULT_CHARSET
  384.             Font.Color = clBlack
  385.             Font.Height = -9
  386.             Font.Name = 'MS Sans Serif'
  387.             Font.Style = []
  388.             ParentColor = True
  389.             ParentFont = False
  390.             ParentShowHint = False
  391.             ShowHint = True
  392.             TabOrder = 0
  393.             TitleFont.Charset = DEFAULT_CHARSET
  394.             TitleFont.Color = clNavy
  395.             TitleFont.Height = -12
  396.             TitleFont.Name = 'MS Sans Serif'
  397.             TitleFont.Style = []
  398.             FooterFont.Charset = DEFAULT_CHARSET
  399.             FooterFont.Color = clWindowText
  400.             FooterFont.Height = -13
  401.             FooterFont.Name = 'MS Sans Serif'
  402.             FooterFont.Style = []
  403.             FooterColor = clBtnFace
  404.             AutoFitColWidths = True
  405.             HorzScrollBar.Visible = False
  406.             VertScrollBar.Tracking = True
  407.             OptionsEh = [dghFixed3D]
  408.             EditActions = []
  409.             Columns = <
  410.               item
  411.                 Color = clWindow
  412.                 FieldName = 'TYPE'
  413.                 Title.Caption = 'Sensor-Typ'
  414.                 Width = 211
  415.                 ToolTips = True
  416.                 Footers = <>
  417.               end
  418.               item
  419.                 Color = clWindow
  420.                 FieldName = 'ADDRESS'
  421.                 Title.Caption = 'SMBus Adress-Bereich'
  422.                 Width = 218
  423.                 Footers = <>
  424.               end
  425.               item
  426.                 Color = clWindow
  427.                 FieldName = 'ISABUS'
  428.                 Title.Caption = 'ISA-Bus'
  429.                 Width = 66
  430.                 Checkboxes = True
  431.                 Footers = <>
  432.               end
  433.               item
  434.                 Color = clWindow
  435.                 FieldName = 'SMBUS'
  436.                 Title.Caption = 'SMBus'
  437.                 Width = 74
  438.                 Checkboxes = True
  439.                 Footers = <>
  440.               end>
  441.           end
  442.         end
  443.         object GroupBoxPrefExpNTPCIBus: TGroupBox
  444.           Left = 8
  445.           Top = 168
  446.           Width = 263
  447.           Height = 43
  448.           Caption = 'PCI-Analyse - Bus-Count (nur Windows NT/2000)'
  449.           TabOrder = 9
  450.           object LabelPrefExpNTBusnum: TLabel
  451.             Left = 38
  452.             Top = 20
  453.             Width = 178
  454.             Height = 13
  455.             Caption = 'Anzahl der PCI-Busse (0&=Autodetect) '
  456.             FocusControl = DBEdit2
  457.           end
  458.           object DBEdit2: TDBEdit
  459.             Left = 6
  460.             Top = 16
  461.             Width = 25
  462.             Height = 21
  463.             DataField = 'NT_PCIBUSNUM'
  464.             DataSource = MainForm.DS_PREF
  465.             TabOrder = 0
  466.           end
  467.         end
  468.         object GroupBoxPrefExpWaitmsg: TGroupBox
  469.           Left = 280
  470.           Top = 90
  471.           Width = 149
  472.           Height = 65
  473.           Caption = 'Statusmeldungen'
  474.           TabOrder = 11
  475.           object DBCheckBoxPrefExpWaitmsgShow: TDBCheckBox
  476.             Left = 10
  477.             Top = 18
  478.             Width = 131
  479.             Height = 15
  480.             Caption = 'best&∩┐╜tigen'
  481.             DataField = 'SHOWWAITMSG'
  482.             DataSource = MainForm.DS_PREF
  483.             TabOrder = 0
  484.             ValueChecked = 'True'
  485.             ValueUnchecked = 'False'
  486.           end
  487.           object DBCheckBoxPrefExpWaitmsgLog: TDBCheckBox
  488.             Left = 10
  489.             Top = 34
  490.             Width = 125
  491.             Height = 15
  492.             Caption = 'in &Logfile schreiben'
  493.             DataField = 'WRITEWAITMSG'
  494.             DataSource = MainForm.DS_PREF
  495.             TabOrder = 1
  496.             ValueChecked = 'True'
  497.             ValueUnchecked = 'False'
  498.           end
  499.         end
  500.         object RadioGroupPrefExpVesaNT: TRadioGroup
  501.           Left = 438
  502.           Top = 90
  503.           Width = 167
  504.           Height = 65
  505.           Caption = 'VESA-Test unter NT/2000/XP'
  506.           Items.Strings = (
  507.             'Auf Nachfrage'
  508.             'Nie (ohne Nachfrage)'
  509.             'Immer (ohne Nachfrage)')
  510.           TabOrder = 12
  511.         end
  512.       end
  513.     end
  514.     object TabSheet_pref_startbehaviour: TTabSheet
  515.       Caption = 'Programmstart-Optionen'
  516.       TabVisible = False
  517.       object LabelPrefStartHint: TLabel
  518.         Left = 18
  519.         Top = 18
  520.         Width = 300
  521.         Height = 13
  522.         Caption = 'Alle Optionen werden ab dem n∩┐╜chsten Programmstart wirksam!'
  523.       end
  524.       object GroupBoxPrefStartOptions: TGroupBox
  525.         Left = 14
  526.         Top = 42
  527.         Width = 447
  528.         Height = 107
  529.         Caption = 'Optionen'
  530.         TabOrder = 0
  531.         object DBCheckBoxPrefStartRestoreOldState: TDBCheckBox
  532.           Left = 12
  533.           Top = 18
  534.           Width = 223
  535.           Height = 17
  536.           Caption = 'letzten Programmzustand wiederherstellen'
  537.           DataField = 'RESTOREOLDSTATE'
  538.           DataSource = MainForm.DS_PREF
  539.           TabOrder = 0
  540.           ValueChecked = 'True'
  541.           ValueUnchecked = 'False'
  542.         end
  543.         object DBCheckBoxPrefStartForceSysOverview: TDBCheckBox
  544.           Left = 12
  545.           Top = 38
  546.           Width = 279
  547.           Height = 17
  548.           Caption = 'Analyse System∩┐╜berblick beim Start erzwingen'
  549.           DataField = 'FORCESYSOVERVIEW'
  550.           DataSource = MainForm.DS_PREF
  551.           TabOrder = 1
  552.           ValueChecked = 'True'
  553.           ValueUnchecked = 'False'
  554.         end
  555.       end
  556.       object GroupBoxPrefStartVirtualPC: TGroupBox
  557.         Left = 14
  558.         Top = 168
  559.         Width = 449
  560.         Height = 81
  561.         Caption = 'Virtuellen PC analysieren '
  562.         TabOrder = 1
  563.         object label_pref_start_datapath: TLabel
  564.           Left = 12
  565.           Top = 38
  566.           Width = 186
  567.           Height = 13
  568.           Caption = 'Verzeichnispfad f∩┐╜r Datenbank-Dateien'
  569.         end
  570.         object DBEditPrefStartVirtualPCPath: TDBEdit
  571.           Left = 12
  572.           Top = 52
  573.           Width = 373
  574.           Height = 21
  575.           DataField = 'VIRTUALPCDIR'
  576.           DataSource = MainForm.DS_PREF
  577.           TabOrder = 0
  578.         end
  579.         object Button_pref_start_virtualdir: TButton
  580.           Left = 390
  581.           Top = 52
  582.           Width = 20
  583.           Height = 21
  584.           Caption = '...'
  585.           TabOrder = 1
  586.           OnClick = Button_pref_start_virtualdirClick
  587.         end
  588.         object DBCheckBoxPrefStartVirtualPC: TDBCheckBox
  589.           Left = 12
  590.           Top = 15
  591.           Width = 197
  592.           Height = 19
  593.           Caption = 'Virtuellen PC "analysieren"'
  594.           DataField = 'TESTVIRTUALPC'
  595.           DataSource = MainForm.DS_PREF
  596.           TabOrder = 2
  597.           ValueChecked = 'True'
  598.           ValueUnchecked = 'False'
  599.         end
  600.       end
  601.     end
  602.   end
  603.   object BitBtn_pref_save: TBitBtn
  604.     Left = 478
  605.     Top = 408
  606.     Width = 71
  607.     Height = 25
  608.     Caption = '&OK'
  609.     TabOrder = 2
  610.     OnClick = BitBtn_pref_saveClick
  611.     Kind = bkOK
  612.   end
  613.   object BitBtn_pref_cancel: TBitBtn
  614.     Left = 382
  615.     Top = 408
  616.     Width = 87
  617.     Height = 25
  618.     Caption = '&Abbrechen'
  619.     TabOrder = 1
  620.     OnClick = BitBtn_pref_cancelClick
  621.     Kind = bkCancel
  622.   end
  623.   object BitBtn1: TBitBtn
  624.     Left = 556
  625.     Top = 408
  626.     Width = 75
  627.     Height = 25
  628.     TabOrder = 3
  629.     OnClick = BitBtn1Click
  630.     Kind = bkHelp
  631.   end
  632.   object OpenDialog_pref_start_virtual: TOpenDialog
  633.     InitialDir = '\database'
  634.     Left = 4
  635.     Top = 350
  636.   end
  637. end
  638.