Ignore:
Timestamp:
Jul 7, 2010, 4:51:54 PM (14 years ago)
Author:
Kevin Toppenberg
Message:

Upgrading to version 27

File:
1 edited

Legend:

Unmodified
Added
Removed

  • cprs/trunk/CPRS-Chart/fLabs.dfm

    r456 r830  
    11inherited frmLabs: TfrmLabs
    2   Left = 376
     2  Left = 628
    33  Top = 237
    4   Height = 387
    54  HelpContext = 8000
    65  Caption = 'Laboratory Results Page'
     6  ClientHeight = 701
    77  HelpFile = 'qnoback'
    88  OnDestroy = FormDestroy
     9  ExplicitLeft = 628
     10  ExplicitTop = 237
     11  ExplicitWidth = 648
     12  ExplicitHeight = 728
    913  PixelsPerInch = 96
    1014  TextHeight = 13
    1115  inherited shpPageBottom: TShape
    12     Top = 348
     16    Top = 696
     17    ExplicitTop = 355
    1318  end
    1419  inherited sptHorz: TSplitter
    15     Height = 348
     20    Height = 696
     21    ExplicitHeight = 355
    1622  end
    1723  inherited pnlLeft: TPanel
    18     Height = 348
    19     object lblReports: TOROffsetLabel
     24    Height = 696
     25    ExplicitHeight = 696
     26    object Splitter1: TSplitter
     27      Left = 0
     28      Top = 436
     29      Width = 97
     30      Height = 10
     31      Cursor = crVSplit
     32      Align = alBottom
     33      Color = clBtnFace
     34      ParentColor = False
     35      OnCanResize = Splitter1CanResize
     36      ExplicitLeft = -1
     37      ExplicitTop = 263
     38    end
     39    object pnlLefTop: TPanel
    2040      Left = 0
    2141      Top = 0
    2242      Width = 97
    23       Height = 19
    24       Align = alTop
    25       Caption = 'Lab Results'
    26       HorzOffset = 2
    27       Transparent = False
    28       VertOffset = 6
    29       WordWrap = False
    30     end
    31     object lblDates: TOROffsetLabel
     43      Height = 436
     44      Align = alClient
     45      BevelOuter = bvNone
     46      Constraints.MinWidth = 30
     47      TabOrder = 0
     48      object lblReports: TOROffsetLabel
     49        Left = 0
     50        Top = 0
     51        Width = 97
     52        Height = 19
     53        Align = alTop
     54        Caption = 'Lab Results'
     55        HorzOffset = 2
     56        Transparent = False
     57        VertOffset = 6
     58        WordWrap = False
     59        ExplicitLeft = -41
     60        ExplicitTop = 54
     61      end
     62      object tvReports: TORTreeView
     63        Left = 0
     64        Top = 19
     65        Width = 97
     66        Height = 417
     67        Align = alClient
     68        HideSelection = False
     69        Indent = 18
     70        ReadOnly = True
     71        TabOrder = 0
     72        OnClick = tvReportsClick
     73        OnCollapsing = tvReportsCollapsing
     74        OnExpanding = tvReportsExpanding
     75        OnKeyDown = tvReportsKeyDown
     76        Caption = 'Available Reports'
     77        NodePiece = 0
     78      end
     79    end
     80    object pnlLeftBottom: TPanel
    3281      Left = 0
    33       Top = 225
     82      Top = 446
    3483      Width = 97
    35       Height = 15
     84      Height = 250
    3685      Align = alBottom
    37       Caption = 'Date Range'
    38       HorzOffset = 2
    39       Transparent = False
    40       VertOffset = 2
    41       WordWrap = False
    42     end
    43     object lblHeaders: TOROffsetLabel
    44       Left = 0
    45       Top = 125
    46       Width = 97
    47       Height = 15
    48       Align = alBottom
    49       Caption = 'Headings'
    50       HorzOffset = 2
    51       Transparent = False
    52       VertOffset = 2
    53       WordWrap = False
    54     end
    55     object lstReports: TORListBox
    56       Left = 0
    57       Top = 19
    58       Width = 97
    59       Height = 106
    60       Align = alClient
    61       ItemHeight = 13
    62       ParentShowHint = False
    63       ShowHint = True
    64       TabOrder = 0
    65       OnClick = lstReportsClick
    66       Caption = 'Lab Results'
    67       ItemTipColor = clWindow
    68       LongList = False
    69       Pieces = '2'
    70     end
    71     object lstHeaders: TORListBox
    72       Left = 0
    73       Top = 140
    74       Width = 97
    75       Height = 52
    76       Align = alBottom
    77       ItemHeight = 13
    78       ParentShowHint = False
    79       ShowHint = True
    8086      TabOrder = 1
    81       Visible = False
    82       OnClick = lstHeadersClick
    83       Caption = 'Headings'
    84       ItemTipColor = clWindow
    85       LongList = False
    86       Pieces = '2'
    87     end
    88     object lstDates: TORListBox
    89       Left = 0
    90       Top = 240
    91       Width = 97
    92       Height = 108
    93       Align = alBottom
    94       ItemHeight = 13
    95       Items.Strings = (
    96         'S^Date Range...'
    97         '1^Today'
    98         '8^One Week'
    99         '15^Two Weeks'
    100         '31^One Month'
    101         '183^Six Months'
    102         '366^One Year'
    103         '732^Two Years'
    104         '66666^All Results')
    105       ParentShowHint = False
    106       ShowHint = True
    107       TabOrder = 3
    108       Visible = False
    109       OnClick = lstDatesClick
    110       Caption = 'Date Range'
    111       ItemTipColor = clWindow
    112       LongList = False
    113       Pieces = '2'
    114     end
    115     object pnlOtherTests: TORAutoPanel
    116       Left = 0
    117       Top = 192
    118       Width = 97
    119       Height = 33
    120       Align = alBottom
    121       BevelOuter = bvNone
    122       TabOrder = 2
    123       object bvlOtherTests: TBevel
    124         Left = 3
    125         Top = 31
    126         Width = 90
    127         Height = 2
    128       end
    129       object cmdOtherTests: TButton
    130         Left = 11
    131         Top = 4
    132         Width = 75
    133         Height = 25
    134         Caption = 'Other Tests'
     87      object lblQualifier: TOROffsetLabel
     88        Left = 1
     89        Top = 1
     90        Width = 95
     91        Height = 21
     92        Align = alTop
     93        HorzOffset = 3
     94        Transparent = True
     95        VertOffset = 4
     96        Visible = False
     97        WordWrap = False
     98        ExplicitWidth = 98
     99      end
     100      object lblHeaders: TOROffsetLabel
     101        Left = 1
     102        Top = 120
     103        Width = 95
     104        Height = 17
     105        Align = alTop
     106        HorzOffset = 2
     107        Transparent = False
     108        VertOffset = 2
     109        WordWrap = False
     110        ExplicitTop = 185
     111        ExplicitWidth = 97
     112      end
     113      object lblDates: TOROffsetLabel
     114        Left = 1
     115        Top = 105
     116        Width = 95
     117        Height = 15
     118        Align = alTop
     119        Caption = 'Date Range'
     120        HorzOffset = 2
     121        Transparent = False
     122        VertOffset = 2
     123        WordWrap = False
     124        ExplicitLeft = 0
     125        ExplicitTop = 69
     126      end
     127      object lstQualifier: TORListBox
     128        Left = 1
     129        Top = 137
     130        Width = 95
     131        Height = 112
     132        Align = alClient
     133        ItemHeight = 13
     134        ParentShowHint = False
     135        ShowHint = True
    135136        TabOrder = 0
    136         OnClick = cmdOtherTestsClick
     137        Visible = False
     138        OnClick = lstQualifierClick
     139        ItemTipColor = clWindow
     140        LongList = False
     141        Pieces = '2,3'
     142        TabPositions = '10'
     143      end
     144      object lstHeaders: TORListBox
     145        Left = 1
     146        Top = 55
     147        Width = 95
     148        Height = 50
     149        Align = alTop
     150        ItemHeight = 13
     151        ParentShowHint = False
     152        ShowHint = True
     153        TabOrder = 1
     154        Visible = False
     155        OnClick = lstHeadersClick
     156        Caption = 'Headings'
     157        ItemTipColor = clWindow
     158        LongList = False
     159        Pieces = '2'
     160      end
     161      object lstDates: TORListBox
     162        Left = 1
     163        Top = 137
     164        Width = 95
     165        Height = 112
     166        Align = alClient
     167        ItemHeight = 13
     168        Items.Strings = (
     169          'S^Date Range...'
     170          '1^Today'
     171          '8^One Week'
     172          '15^Two Weeks'
     173          '31^One Month'
     174          '183^Six Months'
     175          '366^One Year'
     176          '732^Two Years'
     177          '50000^All Results')
     178        ParentShowHint = False
     179        ShowHint = True
     180        TabOrder = 3
     181        Visible = False
     182        OnClick = lstDatesClick
     183        Caption = 'Date Range'
     184        ItemTipColor = clWindow
     185        LongList = False
     186        Pieces = '2'
     187      end
     188      object pnlOtherTests: TORAutoPanel
     189        Left = 1
     190        Top = 22
     191        Width = 95
     192        Height = 33
     193        Align = alTop
     194        BevelOuter = bvNone
     195        TabOrder = 5
     196        object bvlOtherTests: TBevel
     197          Left = 3
     198          Top = 31
     199          Width = 90
     200          Height = 2
     201        end
     202        object cmdOtherTests: TButton
     203          Left = 11
     204          Top = 4
     205          Width = 75
     206          Height = 25
     207          Caption = 'Other Tests'
     208          TabOrder = 0
     209          OnClick = cmdOtherTestsClick
     210        end
    137211      end
    138212    end
    139213  end
    140214  inherited pnlRight: TPanel
    141     Height = 348
     215    Height = 696
    142216    OnResize = pnlRightResize
    143     object lblHeading: TOROffsetLabel
     217    ExplicitHeight = 696
     218    object sptHorzRight: TSplitter
     219      Left = 0
     220      Top = 299
     221      Width = 539
     222      Height = 4
     223      Cursor = crVSplit
     224      Align = alTop
     225      Visible = False
     226      OnCanResize = sptHorzRightCanResize
     227      OnMoved = sptHorzRightMoved
     228      ExplicitTop = 288
     229    end
     230    object pnlRightBottom: TPanel
     231      Left = 0
     232      Top = 303
     233      Width = 539
     234      Height = 373
     235      Align = alClient
     236      TabOrder = 0
     237      object Memo1: TMemo
     238        Left = 1
     239        Top = 1
     240        Width = 537
     241        Height = 19
     242        Align = alTop
     243        Font.Charset = DEFAULT_CHARSET
     244        Font.Color = clWindowText
     245        Font.Height = -11
     246        Font.Name = 'Courier New'
     247        Font.Style = []
     248        Lines.Strings = (
     249          '')
     250        ParentFont = False
     251        ScrollBars = ssVertical
     252        TabOrder = 0
     253        Visible = False
     254        WantTabs = True
     255        WordWrap = False
     256        OnKeyUp = Memo1KeyUp
     257      end
     258      object memLab: TRichEdit
     259        Left = 1
     260        Top = 20
     261        Width = 537
     262        Height = 352
     263        Align = alClient
     264        Color = clCream
     265        Font.Charset = DEFAULT_CHARSET
     266        Font.Color = clWindowText
     267        Font.Height = -11
     268        Font.Name = 'Courier New'
     269        Font.Style = []
     270        ParentFont = False
     271        PopupMenu = PopupMenu3
     272        ReadOnly = True
     273        ScrollBars = ssBoth
     274        TabOrder = 1
     275        Visible = False
     276        WantReturns = False
     277        WordWrap = False
     278      end
     279    end
     280    object pnlRightTop: TPanel
     281      Left = 0
     282      Top = 25
     283      Width = 539
     284      Height = 274
     285      Align = alTop
     286      TabOrder = 1
     287      object bvlHeader: TBevel
     288        Left = 1
     289        Top = 61
     290        Width = 537
     291        Height = 1
     292        Align = alTop
     293        ExplicitLeft = -8
     294        ExplicitTop = 72
     295        ExplicitWidth = 539
     296      end
     297      object pnlHeader: TORAutoPanel
     298        Left = 1
     299        Top = 1
     300        Width = 537
     301        Height = 60
     302        Align = alTop
     303        BevelOuter = bvNone
     304        TabOrder = 0
     305        object lblDateFloat: TLabel
     306          Left = 396
     307          Top = 4
     308          Width = 56
     309          Height = 13
     310          Caption = 'lblDateFloat'
     311          Visible = False
     312        end
     313        object pnlWorksheet: TORAutoPanel
     314          Left = 0
     315          Top = 0
     316          Width = 537
     317          Height = 60
     318          Align = alClient
     319          BevelOuter = bvNone
     320          TabOrder = 1
     321          object chkValues: TCheckBox
     322            Left = 404
     323            Top = 39
     324            Width = 93
     325            Height = 17
     326            Caption = 'Values'
     327            Enabled = False
     328            TabOrder = 5
     329            OnClick = chkValuesClick
     330          end
     331          object chk3D: TCheckBox
     332            Left = 329
     333            Top = 39
     334            Width = 56
     335            Height = 17
     336            Caption = '3D'
     337            Enabled = False
     338            TabOrder = 4
     339            OnClick = chk3DClick
     340          end
     341          object ragHorV: TRadioGroup
     342            Left = 12
     343            Top = 0
     344            Width = 213
     345            Height = 36
     346            Caption = 'Table Format '
     347            Columns = 2
     348            ItemIndex = 0
     349            Items.Strings = (
     350              '&Horizontal'
     351              '&Vertical')
     352            TabOrder = 0
     353            OnClick = ragHorVClick
     354          end
     355          object chkAbnormals: TCheckBox
     356            Left = 12
     357            Top = 39
     358            Width = 221
     359            Height = 17
     360            Caption = 'Abnormal Results Only'
     361            TabOrder = 2
     362            OnClick = ragHorVClick
     363          end
     364          object ragCorG: TRadioGroup
     365            Left = 252
     366            Top = 0
     367            Width = 213
     368            Height = 36
     369            Caption = 'Other Formats '
     370            Columns = 2
     371            ItemIndex = 0
     372            Items.Strings = (
     373              '&Comments'
     374              '&Graph')
     375            TabOrder = 1
     376            OnClick = ragCorGClick
     377          end
     378          object chkZoom: TCheckBox
     379            Left = 253
     380            Top = 39
     381            Width = 68
     382            Height = 17
     383            Caption = 'Zoom'
     384            Enabled = False
     385            TabOrder = 3
     386            OnClick = chkZoomClick
     387          end
     388        end
     389        object pnlGraph: TORAutoPanel
     390          Left = 0
     391          Top = 0
     392          Width = 537
     393          Height = 60
     394          Align = alClient
     395          BevelOuter = bvNone
     396          TabOrder = 2
     397          object lblGraphInfo: TLabel
     398            Left = 0
     399            Top = 47
     400            Width = 537
     401            Height = 13
     402            Align = alBottom
     403            Caption =
     404              'To Zoom, hold down the mouse button while dragging an area to be' +
     405              ' enlarged.'
     406            ExplicitWidth = 367
     407          end
     408          object chkGraph3D: TCheckBox
     409            Left = 162
     410            Top = 13
     411            Width = 61
     412            Height = 17
     413            Caption = '3D'
     414            TabOrder = 1
     415            OnClick = chkGraph3DClick
     416          end
     417          object chkGraphValues: TCheckBox
     418            Left = 276
     419            Top = 13
     420            Width = 101
     421            Height = 17
     422            Caption = 'Values'
     423            TabOrder = 2
     424            OnClick = chkGraphValuesClick
     425          end
     426          object chkGraphZoom: TCheckBox
     427            Left = 48
     428            Top = 13
     429            Width = 97
     430            Height = 17
     431            Caption = 'Zoom'
     432            TabOrder = 0
     433            OnClick = chkGraphZoomClick
     434          end
     435        end
     436        object pnlButtons: TORAutoPanel
     437          Left = 0
     438          Top = 0
     439          Width = 537
     440          Height = 60
     441          Align = alClient
     442          BevelOuter = bvNone
     443          TabOrder = 0
     444          object lblOld: TOROffsetLabel
     445            Left = 4
     446            Top = 6
     447            Width = 41
     448            Height = 15
     449            Caption = 'Oldest'
     450            HorzOffset = 2
     451            Transparent = False
     452            VertOffset = 2
     453            WordWrap = False
     454          end
     455          object lblPrev: TOROffsetLabel
     456            Left = 48
     457            Top = 6
     458            Width = 49
     459            Height = 15
     460            Caption = 'Previous'
     461            HorzOffset = 2
     462            Transparent = False
     463            VertOffset = 2
     464            WordWrap = False
     465          end
     466          object lblNext: TOROffsetLabel
     467            Left = 246
     468            Top = 6
     469            Width = 31
     470            Height = 15
     471            Caption = 'Next'
     472            HorzOffset = 2
     473            Transparent = False
     474            VertOffset = 2
     475            WordWrap = False
     476          end
     477          object lblRecent: TOROffsetLabel
     478            Left = 287
     479            Top = 6
     480            Width = 46
     481            Height = 15
     482            Caption = 'Newest'
     483            HorzOffset = 2
     484            Transparent = False
     485            VertOffset = 2
     486            WordWrap = False
     487          end
     488          object lblMostRecent: TLabel
     489            Left = 368
     490            Top = 29
     491            Width = 144
     492            Height = 13
     493            Caption = 'Most Recent Lab Results'
     494            Font.Charset = DEFAULT_CHARSET
     495            Font.Color = clWindowText
     496            Font.Height = -11
     497            Font.Name = 'MS Sans Serif'
     498            Font.Style = [fsBold]
     499            ParentFont = False
     500          end
     501          object lblCollection: TLabel
     502            Left = 100
     503            Top = 8
     504            Width = 44
     505            Height = 13
     506            Alignment = taCenter
     507            Caption = 'Collecte&d'
     508            FocusControl = lblDate
     509          end
     510          object lblDate: TVA508StaticText
     511            Name = 'lblDate'
     512            Left = 95
     513            Top = 29
     514            Width = 7
     515            Height = 15
     516            Alignment = taCenter
     517            AutoSize = True
     518            Font.Charset = DEFAULT_CHARSET
     519            Font.Color = clWindowText
     520            Font.Height = -11
     521            Font.Name = 'MS Sans Serif'
     522            Font.Style = [fsBold]
     523            ParentFont = False
     524            TabOrder = 0
     525            OnEnter = lblDateEnter
     526            ShowAccelChar = True
     527          end
     528          object cmdNext: TButton
     529            Left = 238
     530            Top = 23
     531            Width = 45
     532            Height = 25
     533            Caption = '>'
     534            Font.Charset = DEFAULT_CHARSET
     535            Font.Color = clBtnText
     536            Font.Height = -11
     537            Font.Name = 'MS Sans Serif'
     538            Font.Style = [fsBold]
     539            ParentFont = False
     540            TabOrder = 3
     541            OnClick = cmdNextClick
     542          end
     543          object cmdPrev: TButton
     544            Left = 49
     545            Top = 23
     546            Width = 45
     547            Height = 25
     548            Caption = '<'
     549            Font.Charset = DEFAULT_CHARSET
     550            Font.Color = clBtnText
     551            Font.Height = -11
     552            Font.Name = 'MS Sans Serif'
     553            Font.Style = [fsBold]
     554            ParentFont = False
     555            TabOrder = 2
     556            OnClick = cmdPrevClick
     557          end
     558          object cmdRecent: TButton
     559            Left = 283
     560            Top = 23
     561            Width = 45
     562            Height = 25
     563            Caption = '>>'
     564            Font.Charset = DEFAULT_CHARSET
     565            Font.Color = clBtnText
     566            Font.Height = -11
     567            Font.Name = 'MS Sans Serif'
     568            Font.Style = [fsBold]
     569            ParentFont = False
     570            TabOrder = 4
     571            OnClick = cmdRecentClick
     572          end
     573          object cmdOld: TButton
     574            Left = 4
     575            Top = 23
     576            Width = 45
     577            Height = 25
     578            Caption = '<<'
     579            Font.Charset = DEFAULT_CHARSET
     580            Font.Color = clBtnText
     581            Font.Height = -11
     582            Font.Name = 'MS Sans Serif'
     583            Font.Style = [fsBold]
     584            ParentFont = False
     585            TabOrder = 1
     586            OnClick = cmdOldClick
     587          end
     588        end
     589      end
     590      object TabControl1: TTabControl
     591        Left = 1
     592        Top = 62
     593        Width = 537
     594        Height = 16
     595        Align = alTop
     596        HotTrack = True
     597        Style = tsButtons
     598        TabHeight = 16
     599        TabOrder = 1
     600        Visible = False
     601        OnChange = TabControl1Change
     602      end
     603      object grdLab: TCaptionStringGrid
     604        Left = 1
     605        Top = 78
     606        Width = 537
     607        Height = 33
     608        Align = alTop
     609        Color = clCream
     610        DefaultRowHeight = 15
     611        RowCount = 2
     612        Font.Charset = DEFAULT_CHARSET
     613        Font.Color = clWindowText
     614        Font.Height = -11
     615        Font.Name = 'MS Sans Serif'
     616        Font.Style = []
     617        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing]
     618        ParentFont = False
     619        TabOrder = 2
     620        Visible = False
     621        Caption = 'Laboratory Results'
     622        ColWidths = (
     623          64
     624          64
     625          64
     626          64
     627          64)
     628        RowHeights = (
     629          15
     630          15)
     631      end
     632      object pnlChart: TPanel
     633        Left = 1
     634        Top = 111
     635        Width = 537
     636        Height = 85
     637        Align = alTop
     638        BevelOuter = bvNone
     639        Caption = 'no results to graph'
     640        TabOrder = 3
     641        Visible = False
     642        object lblGraph: TLabel
     643          Left = 0
     644          Top = 72
     645          Width = 370
     646          Height = 13
     647          Alignment = taCenter
     648          Caption =
     649            'Results may be available, but cannot be graphed. Please try an a' +
     650            'lternate view.'
     651        end
     652        object lstTestGraph: TORListBox
     653          Left = 0
     654          Top = 0
     655          Width = 97
     656          Height = 85
     657          Align = alLeft
     658          ItemHeight = 13
     659          ParentShowHint = False
     660          ShowHint = True
     661          TabOrder = 0
     662          OnClick = lstTestGraphClick
     663          Caption = 'Tests Graphed'
     664          ItemTipColor = clWindow
     665          LongList = False
     666          Pieces = '2'
     667        end
     668        object chtChart: TChart
     669          Left = 97
     670          Top = 0
     671          Width = 440
     672          Height = 85
     673          AllowPanning = pmNone
     674          AllowZoom = False
     675          BackWall.Brush.Color = clWhite
     676          BackWall.Brush.Style = bsClear
     677          Title.Text.Strings = (
     678            'test name')
     679          Title.Visible = False
     680          OnClickLegend = chtChartClickLegend
     681          OnClickSeries = chtChartClickSeries
     682          OnUndoZoom = chtChartUndoZoom
     683          LeftAxis.Title.Caption = 'units'
     684          Legend.Alignment = laTop
     685          Legend.Inverted = True
     686          Legend.ShadowSize = 2
     687          View3D = False
     688          Align = alClient
     689          BevelOuter = bvNone
     690          Color = clSilver
     691          PopupMenu = popChart
     692          TabOrder = 1
     693          OnMouseDown = chtChartMouseDown
     694          object serHigh: TLineSeries
     695            Marks.ArrowLength = 8
     696            Marks.Visible = False
     697            SeriesColor = clRed
     698            Title = 'Ref High'
     699            LinePen.Style = psDash
     700            Pointer.InflateMargins = True
     701            Pointer.Style = psRectangle
     702            Pointer.Visible = False
     703            XValues.DateTime = True
     704            XValues.Name = 'X'
     705            XValues.Multiplier = 1.000000000000000000
     706            XValues.Order = loAscending
     707            YValues.DateTime = False
     708            YValues.Name = 'Y'
     709            YValues.Multiplier = 1.000000000000000000
     710            YValues.Order = loNone
     711          end
     712          object serLow: TLineSeries
     713            Marks.ArrowLength = 8
     714            Marks.Visible = False
     715            SeriesColor = clRed
     716            Title = 'Ref Low'
     717            LinePen.Style = psDash
     718            Pointer.InflateMargins = True
     719            Pointer.Style = psRectangle
     720            Pointer.Visible = False
     721            XValues.DateTime = False
     722            XValues.Name = 'X'
     723            XValues.Multiplier = 1.000000000000000000
     724            XValues.Order = loAscending
     725            YValues.DateTime = False
     726            YValues.Name = 'Y'
     727            YValues.Multiplier = 1.000000000000000000
     728            YValues.Order = loNone
     729          end
     730          object serTest: TLineSeries
     731            Marks.ArrowLength = 8
     732            Marks.Visible = False
     733            SeriesColor = clBlue
     734            Title = 'Lab Test'
     735            Pointer.InflateMargins = True
     736            Pointer.Style = psCircle
     737            Pointer.Visible = True
     738            XValues.DateTime = True
     739            XValues.Name = 'X'
     740            XValues.Multiplier = 1.000000000000000000
     741            XValues.Order = loAscending
     742            YValues.DateTime = False
     743            YValues.Name = 'Y'
     744            YValues.Multiplier = 1.000000000000000000
     745            YValues.Order = loNone
     746          end
     747        end
     748      end
     749      object lvReports: TCaptionListView
     750        Left = 1
     751        Top = 196
     752        Width = 537
     753        Height = 77
     754        Hint = 'To sort, click on column headers|'
     755        Align = alClient
     756        Columns = <>
     757        Constraints.MinHeight = 50
     758        HideSelection = False
     759        MultiSelect = True
     760        ReadOnly = True
     761        RowSelect = True
     762        ParentShowHint = False
     763        PopupMenu = PopupMenu2
     764        ShowHint = True
     765        TabOrder = 4
     766        ViewStyle = vsReport
     767        OnColumnClick = lvReportsColumnClick
     768        OnCompare = lvReportsCompare
     769        OnKeyUp = lvReportsKeyUp
     770        OnSelectItem = lvReportsSelectItem
     771      end
     772    end
     773    object pnlRightTopHeader: TPanel
    144774      Left = 0
    145775      Top = 0
    146776      Width = 539
    147       Height = 19
     777      Height = 25
    148778      Align = alTop
    149       Caption = 'Laboratory Results'
    150       HorzOffset = 2
    151       Transparent = False
    152       VertOffset = 6
    153       WordWrap = False
    154     end
    155     object pnlHeader: TORAutoPanel
    156       Left = 0
    157       Top = 19
    158       Width = 539
    159       Height = 60
    160       Align = alTop
    161       BevelOuter = bvNone
    162       TabOrder = 0
    163       object bvlHeader: TBevel
    164         Left = 0
    165         Top = 0
    166         Width = 539
    167         Height = 2
    168         Align = alTop
    169       end
    170       object lblDateFloat: TLabel
    171         Left = 396
    172         Top = 4
    173         Width = 56
    174         Height = 13
    175         Caption = 'lblDateFloat'
    176         Visible = False
    177       end
    178       object pnlWorksheet: TORAutoPanel
    179         Left = 0
    180         Top = 2
    181         Width = 539
    182         Height = 58
     779      TabOrder = 2
     780      object lblHeading: TOROffsetLabel
     781        Left = 1
     782        Top = 1
     783        Width = 94
     784        Height = 23
     785        Align = alLeft
     786        Caption = 'Laboratory Results'
     787        HorzOffset = 2
     788        Transparent = False
     789        VertOffset = 6
     790        WordWrap = False
     791        ExplicitHeight = 39
     792      end
     793      object lblTitle: TOROffsetLabel
     794        Left = 95
     795        Top = 1
     796        Width = 346
     797        Height = 23
    183798        Align = alClient
    184         BevelOuter = bvNone
    185         TabOrder = 1
    186         object chkValues: TCheckBox
    187           Left = 404
    188           Top = 39
    189           Width = 93
    190           Height = 17
    191           Caption = 'Values'
    192           Enabled = False
    193           TabOrder = 5
    194           OnClick = chkValuesClick
    195         end
    196         object chk3D: TCheckBox
    197           Left = 329
    198           Top = 39
    199           Width = 56
    200           Height = 17
    201           Caption = '3D'
    202           Enabled = False
    203           TabOrder = 4
    204           OnClick = chk3DClick
    205         end
    206         object ragHorV: TRadioGroup
    207           Left = 12
    208           Top = 0
    209           Width = 213
    210           Height = 36
    211           Caption = 'Table Format '
    212           Columns = 2
    213           ItemIndex = 0
    214           Items.Strings = (
    215             '&Horizontal'
    216             '&Vertical')
    217           TabOrder = 0
    218           OnClick = ragHorVClick
    219         end
    220         object chkAbnormals: TCheckBox
    221           Left = 12
    222           Top = 39
    223           Width = 221
    224           Height = 17
    225           Caption = 'Abnormal Results Only'
    226           TabOrder = 2
    227           OnClick = ragHorVClick
    228         end
    229         object ragCorG: TRadioGroup
    230           Left = 252
    231           Top = 0
    232           Width = 213
    233           Height = 36
    234           Caption = 'Other Formats '
    235           Columns = 2
    236           ItemIndex = 0
    237           Items.Strings = (
    238             '&Comments'
    239             '&Graph')
    240           TabOrder = 1
    241           OnClick = ragCorGClick
    242         end
    243         object chkZoom: TCheckBox
    244           Left = 253
    245           Top = 39
    246           Width = 68
    247           Height = 17
    248           Caption = 'Zoom'
    249           Enabled = False
    250           TabOrder = 3
    251           OnClick = chkZoomClick
    252         end
    253       end
    254       object pnlGraph: TORAutoPanel
    255         Left = 0
    256         Top = 2
    257         Width = 539
    258         Height = 58
    259         Align = alClient
    260         BevelOuter = bvNone
    261         TabOrder = 2
    262         object lblGraphInfo: TLabel
    263           Left = 0
    264           Top = 45
    265           Width = 539
    266           Height = 13
    267           Align = alBottom
    268           Caption =
    269             'To Zoom, hold down the mouse button while dragging an area to be' +
    270             ' enlarged.'
    271         end
    272         object chkGraph3D: TCheckBox
    273           Left = 162
    274           Top = 13
    275           Width = 61
    276           Height = 17
    277           Caption = '3D'
    278           TabOrder = 1
    279           OnClick = chkGraph3DClick
    280         end
    281         object chkGraphValues: TCheckBox
    282           Left = 276
    283           Top = 13
    284           Width = 101
    285           Height = 17
    286           Caption = 'Values'
    287           TabOrder = 2
    288           OnClick = chkGraphValuesClick
    289         end
    290         object chkGraphZoom: TCheckBox
    291           Left = 48
    292           Top = 13
    293           Width = 97
    294           Height = 17
    295           Caption = 'Zoom'
    296           TabOrder = 0
    297           OnClick = chkGraphZoomClick
    298         end
    299       end
    300       object pnlButtons: TORAutoPanel
    301         Left = 0
    302         Top = 2
    303         Width = 539
    304         Height = 58
    305         Align = alClient
    306         BevelOuter = bvNone
     799        HorzOffset = 3
     800        Transparent = True
     801        VertOffset = 6
     802        WordWrap = False
     803        ExplicitLeft = 80
     804        ExplicitWidth = 369
     805        ExplicitHeight = 39
     806      end
     807      object chkMaxFreq: TCheckBox
     808        Left = 441
     809        Top = 1
     810        Width = 97
     811        Height = 23
     812        Align = alRight
     813        Caption = 'Max/Site OFF'
    307814        TabOrder = 0
    308         object lblOld: TOROffsetLabel
    309           Left = 4
    310           Top = 6
    311           Width = 41
    312           Height = 15
    313           Caption = 'Oldest'
    314           HorzOffset = 2
    315           Transparent = False
    316           VertOffset = 2
    317           WordWrap = False
    318         end
    319         object lblPrev: TOROffsetLabel
    320           Left = 48
    321           Top = 6
    322           Width = 49
    323           Height = 15
    324           Caption = 'Previous'
    325           HorzOffset = 2
    326           Transparent = False
    327           VertOffset = 2
    328           WordWrap = False
    329         end
    330         object lblNext: TOROffsetLabel
    331           Left = 246
    332           Top = 6
    333           Width = 31
    334           Height = 15
    335           Caption = 'Next'
    336           HorzOffset = 2
    337           Transparent = False
    338           VertOffset = 2
    339           WordWrap = False
    340         end
    341         object lblRecent: TOROffsetLabel
    342           Left = 287
    343           Top = 6
    344           Width = 46
    345           Height = 15
    346           Caption = 'Newest'
    347           HorzOffset = 2
    348           Transparent = False
    349           VertOffset = 2
    350           WordWrap = False
    351         end
    352         object lblMostRecent: TLabel
    353           Left = 368
    354           Top = 29
    355           Width = 144
    356           Height = 13
    357           Caption = 'Most Recent Lab Results'
    358           Font.Charset = DEFAULT_CHARSET
    359           Font.Color = clWindowText
    360           Font.Height = -11
    361           Font.Name = 'MS Sans Serif'
    362           Font.Style = [fsBold]
    363           ParentFont = False
    364         end
    365         object lblDate: TLabel
    366           Left = 95
    367           Top = 29
    368           Width = 5
    369           Height = 13
    370           Alignment = taCenter
    371           Font.Charset = DEFAULT_CHARSET
    372           Font.Color = clWindowText
    373           Font.Height = -11
    374           Font.Name = 'MS Sans Serif'
    375           Font.Style = [fsBold]
    376           ParentFont = False
    377         end
    378         object lblCollection: TLabel
    379           Left = 95
    380           Top = 8
    381           Width = 44
    382           Height = 13
    383           Alignment = taCenter
    384           Caption = 'Collected'
    385         end
    386         object cmdNext: TButton
    387           Left = 238
    388           Top = 23
    389           Width = 45
    390           Height = 25
    391           Caption = '>'
    392           Font.Charset = DEFAULT_CHARSET
    393           Font.Color = clBtnText
    394           Font.Height = -11
    395           Font.Name = 'MS Sans Serif'
    396           Font.Style = [fsBold]
    397           ParentFont = False
    398           TabOrder = 2
    399           OnClick = cmdNextClick
    400         end
    401         object cmdPrev: TButton
    402           Left = 49
    403           Top = 23
    404           Width = 45
    405           Height = 25
    406           Caption = '<'
    407           Font.Charset = DEFAULT_CHARSET
    408           Font.Color = clBtnText
    409           Font.Height = -11
    410           Font.Name = 'MS Sans Serif'
    411           Font.Style = [fsBold]
    412           ParentFont = False
    413           TabOrder = 1
    414           OnClick = cmdPrevClick
    415         end
    416         object cmdRecent: TButton
    417           Left = 283
    418           Top = 23
    419           Width = 45
    420           Height = 25
    421           Caption = '>>'
    422           Font.Charset = DEFAULT_CHARSET
    423           Font.Color = clBtnText
    424           Font.Height = -11
    425           Font.Name = 'MS Sans Serif'
    426           Font.Style = [fsBold]
    427           ParentFont = False
    428           TabOrder = 3
    429           OnClick = cmdRecentClick
    430         end
    431         object cmdOld: TButton
    432           Left = 4
    433           Top = 23
    434           Width = 45
    435           Height = 25
    436           Caption = '<<'
    437           Font.Charset = DEFAULT_CHARSET
    438           Font.Color = clBtnText
    439           Font.Height = -11
    440           Font.Name = 'MS Sans Serif'
    441           Font.Style = [fsBold]
    442           ParentFont = False
    443           TabOrder = 0
    444           OnClick = cmdOldClick
    445         end
     815        Visible = False
     816        OnClick = chkMaxFreqClick
    446817      end
    447818    end
    448819    object pnlFooter: TORAutoPanel
    449820      Left = 0
    450       Top = 328
     821      Top = 676
    451822      Width = 539
    452823      Height = 20
    453824      Align = alBottom
    454       TabOrder = 7
     825      TabOrder = 3
    455826      object lblSpecimen: TLabel
    456827        Left = 4
    … …  
    482853        VertOffset = 2
    483854        WordWrap = False
     855        ExplicitTop = 6
     856        ExplicitWidth = 535
    484857      end
    485858      object lstTests: TORListBox
    486         Left = 24
    487         Top = 27
    488         Width = 89
     859        Left = 1
     860        Top = 26
     861        Width = 537
    489862        Height = 17
     863        Align = alTop
    490864        ItemHeight = 13
    491865        ParentShowHint = False
    … …  
    497871      end
    498872    end
    499     object grdLab: TCaptionStringGrid
    500       Left = 0
    501       Top = 95
    502       Width = 539
    503       Height = 122
    504       Align = alTop
    505       Color = clCream
    506       DefaultRowHeight = 15
    507       RowCount = 2
    508       Font.Charset = DEFAULT_CHARSET
    509       Font.Color = clWindowText
    510       Font.Height = -11
    511       Font.Name = 'MS Sans Serif'
    512       Font.Style = []
    513       Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing]
    514       ParentFont = False
    515       TabOrder = 2
    516       Visible = False
    517       Caption = 'Laboratory Results'
    518       ColWidths = (
    519         64
    520         64
    521         64
    522         64
    523         64)
    524       RowHeights = (
    525         15
    526         15)
    527     end
    528     object pnlChart: TPanel
    529       Left = 0
    530       Top = 217
    531       Width = 539
    532       Height = 85
    533       Align = alTop
    534       BevelOuter = bvNone
    535       Caption = 'no results to graph'
    536       TabOrder = 3
    537       Visible = False
    538       object lblGraph: TLabel
    539         Left = 0
    540         Top = 72
    541         Width = 370
    542         Height = 13
    543         Alignment = taCenter
    544         Caption =
    545           'Results may be available, but cannot be graphed. Please try an a' +
    546           'lternate view.'
    547       end
    548       object lstTestGraph: TORListBox
    549         Left = 0
    550         Top = 0
    551         Width = 97
    552         Height = 85
    553         Align = alLeft
    554         ItemHeight = 13
    555         ParentShowHint = False
    556         ShowHint = True
    557         TabOrder = 0
    558         OnClick = lstTestGraphClick
    559         Caption = 'Tests Graphed'
    560         ItemTipColor = clWindow
    561         LongList = False
    562         Pieces = '2'
    563       end
    564       object chtChart: TChart
    565         Left = 97
    566         Top = 0
    567         Width = 442
    568         Height = 85
    569         AllowPanning = pmNone
    570         AllowZoom = False
    571         BackWall.Brush.Color = clWhite
    572         BackWall.Brush.Style = bsClear
    573         Title.Text.Strings = (
    574           'test name')
    575         Title.Visible = False
    576         OnClickLegend = chtChartClickLegend
    577         OnClickSeries = chtChartClickSeries
    578         OnUndoZoom = chtChartUndoZoom
    579         LeftAxis.Title.Caption = 'units'
    580         Legend.Alignment = laTop
    581         Legend.Inverted = True
    582         Legend.ShadowSize = 2
    583         View3D = False
    584         Align = alClient
    585         BevelOuter = bvNone
    586         Color = clSilver
    587         PopupMenu = popChart
    588         TabOrder = 1
    589         OnMouseDown = chtChartMouseDown
    590         object serHigh: TLineSeries
    591           Marks.ArrowLength = 8
    592           Marks.Visible = False
    593           SeriesColor = clRed
    594           Title = 'Ref High'
    595           LinePen.Style = psDash
    596           Pointer.InflateMargins = True
    597           Pointer.Style = psRectangle
    598           Pointer.Visible = False
    599           XValues.DateTime = True
    600           XValues.Name = 'X'
    601           XValues.Multiplier = 1.000000000000000000
    602           XValues.Order = loAscending
    603           YValues.DateTime = False
    604           YValues.Name = 'Y'
    605           YValues.Multiplier = 1.000000000000000000
    606           YValues.Order = loNone
    607         end
    608         object serLow: TLineSeries
    609           Marks.ArrowLength = 8
    610           Marks.Visible = False
    611           SeriesColor = clRed
    612           Title = 'Ref Low'
    613           LinePen.Style = psDash
    614           Pointer.InflateMargins = True
    615           Pointer.Style = psRectangle
    616           Pointer.Visible = False
    617           XValues.DateTime = False
    618           XValues.Name = 'X'
    619           XValues.Multiplier = 1.000000000000000000
    620           XValues.Order = loAscending
    621           YValues.DateTime = False
    622           YValues.Name = 'Y'
    623           YValues.Multiplier = 1.000000000000000000
    624           YValues.Order = loNone
    625         end
    626         object serTest: TLineSeries
    627           Marks.ArrowLength = 8
    628           Marks.Visible = False
    629           SeriesColor = clBlue
    630           Title = 'Lab Test'
    631           Pointer.InflateMargins = True
    632           Pointer.Style = psCircle
    633           Pointer.Visible = True
    634           XValues.DateTime = True
    635           XValues.Name = 'X'
    636           XValues.Multiplier = 1.000000000000000000
    637           XValues.Order = loAscending
    638           YValues.DateTime = False
    639           YValues.Name = 'Y'
    640           YValues.Multiplier = 1.000000000000000000
    641           YValues.Order = loNone
    642         end
    643       end
    644     end
    645     object memLab: TRichEdit
    646       Left = 0
    647       Top = 321
    648       Width = 539
    649       Height = 7
    650       Align = alClient
    651       Color = clCream
    652       Font.Charset = DEFAULT_CHARSET
    653       Font.Color = clWindowText
    654       Font.Height = -11
    655       Font.Name = 'Courier New'
    656       Font.Style = []
    657       ParentFont = False
    658       PopupMenu = PopupMenu1
    659       ReadOnly = True
    660       ScrollBars = ssBoth
    661       TabOrder = 5
    662       Visible = False
    663       WantReturns = False
    664       WordWrap = False
    665     end
    666     object Memo1: TMemo
    667       Left = 0
    668       Top = 302
    669       Width = 539
    670       Height = 19
    671       Align = alTop
    672       Font.Charset = DEFAULT_CHARSET
    673       Font.Color = clWindowText
    674       Font.Height = -11
    675       Font.Name = 'Courier New'
    676       Font.Style = []
    677       Lines.Strings = (
    678         '')
    679       ParentFont = False
    680       ScrollBars = ssVertical
    681       TabOrder = 4
    682       Visible = False
    683       WantTabs = True
    684       WordWrap = False
    685       OnKeyUp = Memo1KeyUp
    686     end
    687     object TabControl1: TTabControl
    688       Left = 0
    689       Top = 79
    690       Width = 539
    691       Height = 16
    692       Align = alTop
    693       HotTrack = True
    694       Style = tsButtons
    695       TabHeight = 16
    696       TabOrder = 1
    697       Visible = False
    698       OnChange = TabControl1Change
    699     end
    700     object WebBrowser1: TWebBrowser
    701       Left = 0
    702       Top = 321
    703       Width = 539
    704       Height = 7
    705       TabStop = False
    706       Align = alClient
    707       TabOrder = 6
    708       OnDocumentComplete = WebBrowser1DocumentComplete
    709       ControlData = {
    710         4C000000B5370000B90000000000000000000000000000000000000000000000
    711         000000004C000000000000000000000001000000E0D057007335CF11AE690800
    712         2B2E126208000000000000004C0000000114020000000000C000000000000046
    713         8000000000000000000000000000000000000000000000000000000000000000
    714         00000000000000000100000000000000000000000000000000000000}
    715     end
     873  end
     874  inherited amgrMain: TVA508AccessibilityManager
     875    Data = (
     876      (
     877        'Component = pnlLeft'
     878        'Status = stsDefault')
     879      (
     880        'Component = pnlRight'
     881        'Status = stsDefault')
     882      (
     883        'Component = frmLabs'
     884        'Status = stsDefault')
     885      (
     886        'Component = pnlRightBottom'
     887        'Status = stsDefault')
     888      (
     889        'Component = Memo1'
     890        'Status = stsDefault')
     891      (
     892        'Component = memLab'
     893        'Status = stsDefault')
     894      (
     895        'Component = pnlRightTop'
     896        'Status = stsDefault')
     897      (
     898        'Component = pnlHeader'
     899        'Status = stsDefault')
     900      (
     901        'Component = pnlWorksheet'
     902        'Status = stsDefault')
     903      (
     904        'Component = chkValues'
     905        'Status = stsDefault')
     906      (
     907        'Component = chk3D'
     908        'Status = stsDefault')
     909      (
     910        'Component = ragHorV'
     911        'Status = stsDefault')
     912      (
     913        'Component = chkAbnormals'
     914        'Status = stsDefault')
     915      (
     916        'Component = ragCorG'
     917        'Status = stsDefault')
     918      (
     919        'Component = chkZoom'
     920        'Status = stsDefault')
     921      (
     922        'Component = pnlGraph'
     923        'Status = stsDefault')
     924      (
     925        'Component = chkGraph3D'
     926        'Status = stsDefault')
     927      (
     928        'Component = chkGraphValues'
     929        'Status = stsDefault')
     930      (
     931        'Component = chkGraphZoom'
     932        'Status = stsDefault')
     933      (
     934        'Component = pnlButtons'
     935        'Status = stsDefault')
     936      (
     937        'Component = lblDate'
     938        'Text = Date Collected'
     939        'Status = stsOK')
     940      (
     941        'Component = cmdNext'
     942        'Text = Next'
     943        'Status = stsOK')
     944      (
     945        'Component = cmdPrev'
     946        'Text = Previous'
     947        'Status = stsOK')
     948      (
     949        'Component = cmdRecent'
     950        'Text = Newest'
     951        'Status = stsOK')
     952      (
     953        'Component = cmdOld'
     954        'Text = Oldest'
     955        'Status = stsOK')
     956      (
     957        'Component = TabControl1'
     958        'Status = stsDefault')
     959      (
     960        'Component = grdLab'
     961        'Status = stsDefault')
     962      (
     963        'Component = pnlChart'
     964        'Status = stsDefault')
     965      (
     966        'Component = lstTestGraph'
     967        'Status = stsDefault')
     968      (
     969        'Component = chtChart'
     970        'Status = stsDefault')
     971      (
     972        'Component = pnlRightTopHeader'
     973        'Status = stsDefault')
     974      (
     975        'Component = pnlFooter'
     976        'Status = stsDefault')
     977      (
     978        'Component = lstTests'
     979        'Status = stsDefault')
     980      (
     981        'Component = lvReports'
     982        'Status = stsDefault')
     983      (
     984        'Component = pnlLefTop'
     985        'Status = stsDefault')
     986      (
     987        'Component = tvReports'
     988        'Status = stsDefault')
     989      (
     990        'Component = pnlLeftBottom'
     991        'Status = stsDefault')
     992      (
     993        'Component = lstQualifier'
     994        'Status = stsDefault')
     995      (
     996        'Component = lstHeaders'
     997        'Status = stsDefault')
     998      (
     999        'Component = lstDates'
     1000        'Status = stsDefault')
     1001      (
     1002        'Component = pnlOtherTests'
     1003        'Status = stsDefault')
     1004      (
     1005        'Component = cmdOtherTests'
     1006        'Status = stsDefault')
     1007      (
     1008        'Component = chkMaxFreq'
     1009        'Status = stsDefault'))
    7161010  end
    7171011  object PopupMenu1: TPopupMenu
    7181012    OnPopup = PopupMenu1Popup
    7191013    Left = 5
    720     Top = 320
     1014    Top = 280
    7211015    object GotoTop1: TMenuItem
    7221016      Caption = 'Go to Top'
    … …  
    7431037    OnPopup = popChartPopup
    7441038    Left = 37
    745     Top = 317
     1039    Top = 277
    7461040    object popValues: TMenuItem
    7471041      Caption = 'Values'
    … …  
    7901084    Format = 'mmm d,yy'
    7911085    Left = 66
    792     Top = 320
     1086    Top = 280
    7931087  end
    7941088  object dlgWinPrint: TPrintDialog
    … …  
    8021096    Top = 45
    8031097  end
     1098  object PopupMenu2: TPopupMenu
     1099    Left = 603
     1100    Top = 158
     1101    object Print1: TMenuItem
     1102      Caption = 'Print'
     1103      ShortCut = 16464
     1104      OnClick = Print1Click
     1105    end
     1106    object Copy1: TMenuItem
     1107      Caption = 'Copy Data From Table'
     1108      ShortCut = 16451
     1109      OnClick = Copy1Click
     1110    end
     1111    object SelectAll1: TMenuItem
     1112      Caption = 'Select All From Table'
     1113      ShortCut = 16449
     1114      OnClick = SelectAll1Click
     1115    end
     1116  end
     1117  object PopupMenu3: TPopupMenu
     1118    OnPopup = PopupMenu1Popup
     1119    Left = 605
     1120    Top = 200
     1121    object Print2: TMenuItem
     1122      Caption = 'Print'
     1123      ShortCut = 16464
     1124      OnClick = Print2Click
     1125    end
     1126    object Copy2: TMenuItem
     1127      Caption = 'Copy'
     1128      ShortCut = 16451
     1129      OnClick = Copy2Click
     1130    end
     1131    object SelectAll2: TMenuItem
     1132      Caption = 'Select All'
     1133      ShortCut = 16449
     1134      OnClick = SelectAll2Click
     1135    end
     1136    object MenuItem1: TMenuItem
     1137      Caption = 'Go to Top'
     1138      Enabled = False
     1139      OnClick = GotoTop1Click
     1140    end
     1141    object MenuItem2: TMenuItem
     1142      Caption = 'Go to Bottom'
     1143      OnClick = GotoBottom1Click
     1144    end
     1145    object MenuItem3: TMenuItem
     1146      Caption = 'Freeze Text'
     1147      Enabled = False
     1148      OnClick = FreezeText1Click
     1149    end
     1150    object MenuItem4: TMenuItem
     1151      Caption = 'Un-Freeze Text'
     1152      Enabled = False
     1153      OnClick = UnfreezeText1Click
     1154    end
     1155  end
    8041156end
Note: See TracChangeset for help on using the changeset viewer.