Ignore:
Timestamp:
Jul 6, 2008, 8:20:14 PM (16 years ago)
Author:
Kevin Toppenberg
Message:

Uploading from OR_30_258

File:
1 edited

Legend:

Unmodified
Added
Removed

  • cprs/branches/foia-cprs/CPRS-Chart/Encounter/fEncVitals.dfm

    r459 r460  
    11inherited frmEncVitals: TfrmEncVitals
    2   Left = 400
    3   Top = 227
     2  Left = 353
     3  Top = 210
    44  Caption = 'Vitals'
    55  KeyPreview = True
    … …  
    88  OnKeyDown = FormKeyDown
    99  OnResize = FormResize
    10   OnShow = FormShow
    1110  PixelsPerInch = 96
    1211  TextHeight = 13
     12  object lvVitals: TCaptionListView [0]
     13    Left = 0
     14    Top = 0
     15    Width = 624
     16    Height = 368
     17    Hint = 'To sort, click on column headers|'
     18    Align = alClient
     19    Columns = <>
     20    Constraints.MinHeight = 50
     21    HideSelection = False
     22    MultiSelect = True
     23    ReadOnly = True
     24    RowSelect = True
     25    ParentShowHint = False
     26    ShowHint = True
     27    TabOrder = 1
     28    ViewStyle = vsReport
     29  end
     30  object pnlBottom: TPanel [1]
     31    Left = 0
     32    Top = 368
     33    Width = 624
     34    Height = 32
     35    Align = alBottom
     36    BevelOuter = bvNone
     37    TabOrder = 5
     38  end
    1339  inherited btnOK: TBitBtn
    1440    Left = 444
    1541    Top = 377
    16     TabOrder = 1
     42    TabOrder = 3
    1743  end
    1844  inherited btnCancel: TBitBtn
    1945    Left = 524
    2046    Top = 377
    21     TabOrder = 2
     47    TabOrder = 4
    2248  end
    2349  object pnlmain: TPanel
    … …  
    2753    Height = 217
    2854    TabOrder = 0
     55    Visible = False
    2956    object lblVitPointer: TOROffsetLabel
    3057      Left = 506
    … …  
    383410      ListItemsOnly = True
    384411      LongList = False
     412      LookupPiece = 0
    385413      MaxLength = 0
    386414      Pieces = '1,2'
    … …  
    390418      TabStop = True
    391419      OnEnter = SetVitPointer
     420      CharsNeedMatch = 1
    392421    end
    393422    object txtMeasPulse: TCaptionEdit
    … …  
    414443    end
    415444  end
     445  object btnEnterVitals: TButton
     446    Left = 8
     447    Top = 377
     448    Width = 75
     449    Height = 21
     450    Caption = 'Enter Vitals'
     451    TabOrder = 2
     452    OnClick = btnEnterVitalsClick
     453  end
    416454end
Note: See TracChangeset for help on using the changeset viewer.