Ignore:
Timestamp:
May 7, 2015, 12:34:29 PM (9 years ago)
Author:
healthsevak
Message:

Updating the working copy to CPRS version 28

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r830 r1679  
    77  HelpFile = 'qnoback'
    88  OnDestroy = FormDestroy
    9   ExplicitLeft = 628
    10   ExplicitTop = 237
    119  ExplicitWidth = 648
    12   ExplicitHeight = 728
     10  ExplicitHeight = 735
    1311  PixelsPerInch = 96
    1412  TextHeight = 13
    … …  
    2018    Height = 696
    2119    ExplicitHeight = 355
     20  end
     21  object Label1: TLabel [2]
     22    Left = 144
     23    Top = 88
     24    Width = 3
     25    Height = 13
     26    Visible = False
     27  end
     28  object Label2: TLabel [3]
     29    Left = 128
     30    Top = 88
     31    Width = 3
     32    Height = 13
     33    Visible = False
    2234  end
    2335  inherited pnlLeft: TPanel
    … …  
    170182          '1^Today'
    171183          '8^One Week'
    172           '15^Two Weeks'
    173184          '31^One Month'
    174185          '183^Six Months'
    175186          '366^One Year'
    176           '732^Two Years'
     187          '732^Two Year'
    177188          '50000^All Results')
    178189        ParentShowHint = False
    … …  
    218229    object sptHorzRight: TSplitter
    219230      Left = 0
    220       Top = 299
     231      Top = 296
    221232      Width = 539
    222233      Height = 4
    … …  
    225236      Visible = False
    226237      OnCanResize = sptHorzRightCanResize
    227       OnMoved = sptHorzRightMoved
    228238      ExplicitTop = 288
    229239    end
    230240    object pnlRightBottom: TPanel
    231241      Left = 0
    232       Top = 303
     242      Top = 300
    233243      Width = 539
    234       Height = 373
     244      Height = 376
    235245      Align = alClient
    236246      TabOrder = 0
    … …  
    260270        Top = 20
    261271        Width = 537
    262         Height = 352
     272        Height = 355
    263273        Align = alClient
    264274        Color = clCream
    … …  
    280290    object pnlRightTop: TPanel
    281291      Left = 0
    282       Top = 25
     292      Top = 45
    283293      Width = 539
    284       Height = 274
     294      Height = 251
    285295      Align = alTop
    286296      TabOrder = 1
    … …  
    442452          BevelOuter = bvNone
    443453          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
    488454          object lblMostRecent: TLabel
    489             Left = 368
    490             Top = 29
    491             Width = 144
     455            Left = 361
     456            Top = 16
     457            Width = 129
    492458            Height = 13
    493             Caption = 'Most Recent Lab Results'
     459            Caption = 'Most Recent Lab Data'
    494460            Font.Charset = DEFAULT_CHARSET
    495461            Font.Color = clWindowText
    … …  
    499465            ParentFont = False
    500466          end
    501           object lblCollection: TLabel
    502             Left = 100
    503             Top = 8
    504             Width = 44
     467          object lblSample: TLabel
     468            Left = 1
     469            Top = 42
     470            Width = 64
    505471            Height = 13
    506             Alignment = taCenter
    507             Caption = 'Collecte&d'
    508             FocusControl = lblDate
     472            Caption = 'Specimen: '
     473            Color = clWindow
     474            Font.Charset = DEFAULT_CHARSET
     475            Font.Color = clWindowText
     476            Font.Height = -11
     477            Font.Name = 'MS Sans Serif'
     478            Font.Style = [fsBold]
     479            ParentColor = False
     480            ParentFont = False
    509481          end
    510482          object lblDate: TVA508StaticText
    511483            Name = 'lblDate'
    512             Left = 95
    513             Top = 29
     484            Left = 150
     485            Top = 2
    514486            Width = 7
    515487            Height = 15
    … …  
    523495            ParentFont = False
    524496            TabOrder = 0
     497            Visible = False
    525498            OnEnter = lblDateEnter
    526499            ShowAccelChar = True
    527500          end
    528501          object cmdNext: TButton
    529             Left = 238
    530             Top = 23
    531             Width = 45
     502            Left = 191
     503            Top = 10
     504            Width = 82
    532505            Height = 25
    533             Caption = '>'
     506            Caption = 'Next >'
    534507            Font.Charset = DEFAULT_CHARSET
    535508            Font.Color = clBtnText
    … …  
    542515          end
    543516          object cmdPrev: TButton
    544             Left = 49
    545             Top = 23
    546             Width = 45
     517            Left = 87
     518            Top = 10
     519            Width = 82
    547520            Height = 25
    548             Caption = '<'
     521            Caption = '< Previous'
    549522            Font.Charset = DEFAULT_CHARSET
    550523            Font.Color = clBtnText
    … …  
    557530          end
    558531          object cmdRecent: TButton
    559             Left = 283
    560             Top = 23
    561             Width = 45
     532            Left = 279
     533            Top = 10
     534            Width = 76
    562535            Height = 25
    563             Caption = '>>'
     536            Caption = 'Newest >>'
    564537            Font.Charset = DEFAULT_CHARSET
    565538            Font.Color = clBtnText
    … …  
    572545          end
    573546          object cmdOld: TButton
    574             Left = 4
    575             Top = 23
    576             Width = 45
     547            Left = 5
     548            Top = 10
     549            Width = 76
    577550            Height = 25
    578             Caption = '<<'
     551            Caption = '<< Oldest'
    579552            Font.Charset = DEFAULT_CHARSET
    580553            Font.Color = clBtnText
    … …  
    588561        end
    589562      end
    590       object TabControl1: TTabControl
     563      object grdLab: TCaptionStringGrid
    591564        Left = 1
    592565        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
    606566        Width = 537
    607567        Height = 33
    … …  
    617577        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing]
    618578        ParentFont = False
    619         TabOrder = 2
     579        TabOrder = 1
    620580        Visible = False
     581        OnTopLeftChanged = grdLabTopLeftChanged
    621582        Caption = 'Laboratory Results'
    622         ColWidths = (
    623           64
    624           64
    625           64
    626           64
    627           64)
    628583        RowHeights = (
    629584          15
    … …  
    632587      object pnlChart: TPanel
    633588        Left = 1
    634         Top = 111
     589        Top = 95
    635590        Width = 537
    636591        Height = 85
    … …  
    638593        BevelOuter = bvNone
    639594        Caption = 'no results to graph'
    640         TabOrder = 3
     595        TabOrder = 2
    641596        Visible = False
    642597        object lblGraph: TLabel
    … …  
    749704      object lvReports: TCaptionListView
    750705        Left = 1
    751         Top = 196
     706        Top = 180
    752707        Width = 537
    753         Height = 77
     708        Height = 70
    754709        Hint = 'To sort, click on column headers|'
    755710        Align = alClient
    … …  
    763718        PopupMenu = PopupMenu2
    764719        ShowHint = True
    765         TabOrder = 4
     720        TabOrder = 3
    766721        ViewStyle = vsReport
    767722        OnColumnClick = lvReportsColumnClick
    … …  
    775730      Top = 0
    776731      Width = 539
    777       Height = 25
     732      Height = 45
    778733      Align = alTop
    779734      TabOrder = 2
    780       object lblHeading: TOROffsetLabel
     735      object pnlRightTopHeaderTop: TPanel
    781736        Left = 1
    782737        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
     738        Width = 537
     739        Height = 21
     740        Align = alTop
     741        TabOrder = 0
     742        object lblHeading: TOROffsetLabel
     743          Left = 137
     744          Top = 1
     745          Width = 302
     746          Height = 19
     747          Align = alClient
     748          HorzOffset = 2
     749          Transparent = False
     750          VertOffset = 6
     751          WordWrap = False
     752          ExplicitWidth = 304
     753          ExplicitHeight = 25
     754        end
     755        object lblTitle: TOROffsetLabel
     756          Left = 1
     757          Top = 1
     758          Width = 136
     759          Height = 19
     760          Align = alLeft
     761          HorzOffset = 3
     762          Transparent = True
     763          VertOffset = 6
     764          WordWrap = False
     765          ExplicitLeft = 12
     766          ExplicitTop = 19
     767        end
     768        object chkMaxFreq: TCheckBox
     769          Left = 439
     770          Top = 1
     771          Width = 97
     772          Height = 19
     773          Align = alRight
     774          Caption = 'Max/Site OFF'
     775          TabOrder = 0
     776          Visible = False
     777          OnClick = chkMaxFreqClick
     778        end
     779      end
     780      object TabControl1: TTabControl
     781        Left = 1
     782        Top = 22
     783        Width = 537
     784        Height = 22
    798785        Align = alClient
    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'
    814         TabOrder = 0
     786        HotTrack = True
     787        Style = tsButtons
     788        TabHeight = 16
     789        TabOrder = 1
    815790        Visible = False
    816         OnClick = chkMaxFreqClick
     791        OnChange = TabControl1Change
    817792      end
    818793    end
    … …  
    955930        'Status = stsOK')
    956931      (
     932        'Component = grdLab'
     933        'Status = stsDefault')
     934      (
     935        'Component = pnlChart'
     936        'Status = stsDefault')
     937      (
     938        'Component = lstTestGraph'
     939        'Status = stsDefault')
     940      (
     941        'Component = chtChart'
     942        'Status = stsDefault')
     943      (
     944        'Component = pnlRightTopHeader'
     945        'Status = stsDefault')
     946      (
     947        'Component = pnlFooter'
     948        'Status = stsDefault')
     949      (
     950        'Component = lstTests'
     951        'Status = stsDefault')
     952      (
     953        'Component = lvReports'
     954        'Status = stsDefault')
     955      (
     956        'Component = pnlLefTop'
     957        'Status = stsDefault')
     958      (
     959        'Component = tvReports'
     960        'Status = stsDefault')
     961      (
     962        'Component = pnlLeftBottom'
     963        'Status = stsDefault')
     964      (
     965        'Component = lstQualifier'
     966        'Status = stsDefault')
     967      (
     968        'Component = lstHeaders'
     969        'Status = stsDefault')
     970      (
     971        'Component = lstDates'
     972        'Status = stsDefault')
     973      (
     974        'Component = pnlOtherTests'
     975        'Status = stsDefault')
     976      (
     977        'Component = cmdOtherTests'
     978        'Status = stsDefault')
     979      (
     980        'Component = pnlRightTopHeaderTop'
     981        'Status = stsDefault')
     982      (
     983        'Component = chkMaxFreq'
     984        'Status = stsDefault')
     985      (
    957986        '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'
    1009987        'Status = stsDefault'))
    1010   end
    1011   object PopupMenu1: TPopupMenu
    1012     OnPopup = PopupMenu1Popup
    1013     Left = 5
    1014     Top = 280
    1015     object GotoTop1: TMenuItem
    1016       Caption = 'Go to Top'
    1017       Enabled = False
    1018       OnClick = GotoTop1Click
    1019     end
    1020     object GotoBottom1: TMenuItem
    1021       Caption = 'Go to Bottom'
    1022       Enabled = False
    1023       OnClick = GotoBottom1Click
    1024     end
    1025     object FreezeText1: TMenuItem
    1026       Caption = 'Freeze Text'
    1027       Enabled = False
    1028       OnClick = FreezeText1Click
    1029     end
    1030     object UnfreezeText1: TMenuItem
    1031       Caption = 'Un-freeze Text'
    1032       Enabled = False
    1033       OnClick = UnfreezeText1Click
    1034     end
    1035988  end
    1036989  object popChart: TPopupMenu
    … …  
    10931046    Interval = 100
    10941047    OnTimer = Timer1Timer
    1095     Left = 253
    1096     Top = 45
     1048    Left = 605
     1049    Top = 69
    10971050  end
    10981051  object PopupMenu2: TPopupMenu
    … …  
    11161069  end
    11171070  object PopupMenu3: TPopupMenu
    1118     OnPopup = PopupMenu1Popup
    1119     Left = 605
    1120     Top = 200
     1071    OnPopup = PopupMenu3Popup
     1072    Left = 597
     1073    Top = 344
    11211074    object Print2: TMenuItem
    11221075      Caption = 'Print'
    … …  
    11341087      OnClick = SelectAll2Click
    11351088    end
    1136     object MenuItem1: TMenuItem
     1089    object GoToTop1: TMenuItem
    11371090      Caption = 'Go to Top'
    1138       Enabled = False
    11391091      OnClick = GotoTop1Click
    11401092    end
    1141     object MenuItem2: TMenuItem
     1093    object GoToBottom1: TMenuItem
    11421094      Caption = 'Go to Bottom'
    11431095      OnClick = GotoBottom1Click
    11441096    end
    1145     object MenuItem3: TMenuItem
     1097    object FreezeText1: TMenuItem
    11461098      Caption = 'Freeze Text'
    11471099      Enabled = False
    11481100      OnClick = FreezeText1Click
    11491101    end
    1150     object MenuItem4: TMenuItem
     1102    object UnFreezeText1: TMenuItem
    11511103      Caption = 'Un-Freeze Text'
    11521104      Enabled = False
Note: See TracChangeset for help on using the changeset viewer.