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/Orders/fODMedIV.dfm

    r459 r460  
    11inherited frmODMedIV: TfrmODMedIV
    2   Left = 321
    3   Top = 199
     2  Left = 587
     3  Top = 331
    44  Width = 610
    55  Height = 341
    6   Caption = 'IV Fluid Order'
     6  Caption = 'Infusion Order'
    77  OnKeyDown = FormKeyDown
    88  PixelsPerInch = 96
    … …  
    1111    Left = 6
    1212    Top = 196
    13     Width = 63
    14     Height = 13
    15     Caption = 'Infusion Rate'
     13    Width = 96
     14    Height = 13
     15    Caption = 'Infusion Rate (ml/hr)'
    1616  end
    1717  object lblPriority: TLabel [1]
    … …  
    3030  end
    3131  object lblAmount: TLabel [3]
    32     Left = 333
     32    Left = 328
    3333    Top = 6
    34     Width = 74
    35     Height = 13
    36     Caption = 'Volume/Strenth'
     34    Width = 80
     35    Height = 13
     36    Caption = 'Volume/Strength'
    3737    WordWrap = True
    3838  end
    … …  
    5151    Caption = 'Duration or Total Volume'
    5252  end
    53   object Label1: TStaticText [6]
    54     Left = 100
    55     Top = 213
    56     Width = 28
    57     Height = 17
    58     Caption = 'ml/hr'
    59     TabOrder = 15
    60   end
    61   object cboAdditive: TORComboBox [7]
    62     Left = 6
    63     Top = 20
    64     Width = 200
    65     Height = 125
    66     Style = orcsSimple
    67     AutoSelect = True
    68     Caption = 'Additives'
    69     Color = clWindow
    70     DropDownCount = 11
    71     ItemHeight = 13
    72     ItemTipColor = clWindow
    73     ItemTipEnable = True
    74     ListItemsOnly = True
    75     LongList = True
    76     LookupPiece = 0
    77     MaxLength = 0
    78     Pieces = '2'
    79     Sorted = False
    80     SynonymChars = '<>'
    81     TabPositions = '20'
    82     TabOrder = 0
    83     OnExit = cboAdditiveExit
    84     OnMouseClick = cboAdditiveMouseClick
    85     OnNeedData = cboAdditiveNeedData
    86     CharsNeedMatch = 1
    87   end
    88   object tabFluid: TTabControl [8]
    89     Left = 7
    90     Top = 3
    91     Width = 200
    92     Height = 21
    93     TabHeight = 15
    94     TabOrder = 13
    95     Tabs.Strings = (
    96       '   Solutions   '
    97       '   Additives   ')
    98     TabIndex = 0
    99     TabStop = False
    100     OnChange = tabFluidChange
    101   end
    102   inherited memOrder: TCaptionMemo
    103     Top = 255
    104     Width = 475
    105     TabOrder = 11
    106   end
    107   object txtRate: TCaptionEdit [10]
     53  object txtRate: TCaptionEdit [6]
    10854    Left = 6
    10955    Top = 210
    … …  
    11157    Height = 21
    11258    AutoSelect = False
    113     TabOrder = 6
     59    TabOrder = 5
    11460    OnChange = ControlChange
     61    OnExit = txtRateExit
    11562    Caption = 'Infusion Rate'
    11663  end
    117   object cboPriority: TORComboBox [11]
     64  object cboPriority: TORComboBox [7]
    11865    Left = 134
    11966    Top = 210
    … …  
    13582    Sorted = False
    13683    SynonymChars = '<>'
    137     TabOrder = 7
     84    TabOrder = 6
    13885    OnChange = ControlChange
    13986    CharsNeedMatch = 1
    14087  end
    141   object grdSelected: TCaptionStringGrid [12]
     88  object grdSelected: TCaptionStringGrid [8]
    14289    Left = 214
    14390    Top = 20
    … …  
    15299    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected]
    153100    ScrollBars = ssVertical
    154     TabOrder = 3
     101    TabOrder = 2
    155102    OnDrawCell = grdSelectedDrawCell
    156103    OnKeyPress = grdSelectedKeyPress
    … …  
    158105    Caption = 'Selected Solution and Additives'
    159106  end
    160   object cmdRemove: TButton [13]
     107  object cmdRemove: TButton [9]
    161108    Left = 443
    162109    Top = 99
    … …  
    164111    Height = 18
    165112    Caption = 'Remove'
    166     TabOrder = 4
     113    TabOrder = 3
    167114    OnClick = cmdRemoveClick
    168115  end
    169   object memComments: TCaptionMemo [14]
     116  object memComments: TCaptionMemo [10]
    170117    Left = 214
    171118    Top = 120
    … …  
    175122      'memComments')
    176123    ScrollBars = ssVertical
    177     TabOrder = 5
     124    TabOrder = 4
    178125    OnChange = ControlChange
    179126    Caption = 'Comments'
    180127  end
    181   object txtSelected: TCaptionEdit [15]
     128  object txtSelected: TCaptionEdit [11]
    182129    Tag = -1
    183130    Left = 416
    … …  
    187134    Ctl3D = False
    188135    ParentCtl3D = False
    189     TabOrder = 1
     136    TabOrder = 0
    190137    Text = 'meq.'
    191138    Visible = False
    … …  
    194141    Caption = 'Volume'
    195142  end
    196   object cboSelected: TCaptionComboBox [16]
     143  object cboSelected: TCaptionComboBox [12]
    197144    Tag = -1
    198145    Left = 460
    … …  
    204151    ItemHeight = 13
    205152    ParentCtl3D = False
    206     TabOrder = 2
     153    TabOrder = 1
    207154    Visible = False
    208155    OnChange = cboSelectedChange
    … …  
    210157    Caption = 'Volume/Strength'
    211158  end
     159  inherited memOrder: TCaptionMemo
     160    Top = 255
     161    Width = 475
     162    TabOrder = 10
     163  end
    212164  inherited cmdAccept: TButton
    213165    Left = 495
    214166    Top = 255
    215     TabOrder = 9
     167    TabOrder = 8
    216168  end
    217169  inherited cmdQuit: TButton
    218170    Left = 495
    219171    Top = 282
    220     TabOrder = 10
     172    TabOrder = 9
    221173  end
    222174  inherited pnlMessage: TPanel
    223175    Top = 237
    224     TabOrder = 12
    225   end
    226   object cboSolution: TORComboBox
    227     Left = 6
    228     Top = 19
    229     Width = 200
    230     Height = 164
    231     Style = orcsSimple
    232     AutoSelect = True
    233     Caption = 'Solutions'
    234     Color = clWindow
    235     DropDownCount = 11
    236     ItemHeight = 13
    237     ItemTipColor = clWindow
    238     ItemTipEnable = True
    239     ListItemsOnly = True
    240     LongList = True
    241     LookupPiece = 0
    242     MaxLength = 0
    243     Pieces = '2'
    244     Sorted = False
    245     SynonymChars = '<>'
    246     TabPositions = '20'
    247     TabOrder = 14
    248     OnExit = cboSolutionExit
    249     OnMouseClick = cboSolutionMouseClick
    250     OnNeedData = cboSolutionNeedData
    251     CharsNeedMatch = 1
     176    TabOrder = 11
    252177  end
    253178  object pnlXDuration: TPanel
    … …  
    257182    Height = 21
    258183    BevelOuter = bvNone
    259     TabOrder = 8
     184    TabOrder = 7
    260185    OnEnter = pnlXDurationEnter
    261186    DesignSize = (
    262187      121
    263188      21)
    264     object btnXDuration: TSpeedButton
     189    object btnXDuration: TBitBtn
    265190      Left = 69
    266191      Top = 1
    … …  
    269194      Anchors = [akLeft, akTop, akRight, akBottom]
    270195      Caption = 'days'
     196      TabOrder = 1
     197      OnClick = btnXDurationClick
    271198      Glyph.Data = {
    272199        AE000000424DAE0000000000000076000000280000000E000000070000000100
    … …  
    279206      NumGlyphs = 2
    280207      Spacing = 0
    281       Transparent = False
    282       OnClick = btnXDurationClick
    283208    end
    284209    object txtXDuration: TCaptionEdit
    … …  
    293218    end
    294219  end
     220  object pnlCombo: TPanel
     221    Left = 8
     222    Top = 1
     223    Width = 200
     224    Height = 185
     225    BevelOuter = bvNone
     226    TabOrder = 17
     227    object cboAdditive: TORComboBox
     228      Left = 0
     229      Top = 20
     230      Width = 200
     231      Height = 165
     232      Style = orcsSimple
     233      Align = alClient
     234      AutoSelect = True
     235      Caption = 'Additives'
     236      Color = clWindow
     237      DropDownCount = 11
     238      ItemHeight = 13
     239      ItemTipColor = clWindow
     240      ItemTipEnable = True
     241      ListItemsOnly = True
     242      LongList = True
     243      LookupPiece = 0
     244      MaxLength = 0
     245      Pieces = '2'
     246      Sorted = False
     247      SynonymChars = '<>'
     248      TabPositions = '20'
     249      TabOrder = 0
     250      OnExit = cboAdditiveExit
     251      OnMouseClick = cboAdditiveMouseClick
     252      OnNeedData = cboAdditiveNeedData
     253      CharsNeedMatch = 1
     254    end
     255    object tabFluid: TTabControl
     256      Left = 0
     257      Top = 0
     258      Width = 200
     259      Height = 20
     260      Align = alTop
     261      TabHeight = 15
     262      TabOrder = 1
     263      Tabs.Strings = (
     264        '   Solutions   '
     265        '   Additives   ')
     266      TabIndex = 0
     267      TabStop = False
     268      OnChange = tabFluidChange
     269    end
     270    object cboSolution: TORComboBox
     271      Left = 0
     272      Top = 20
     273      Width = 200
     274      Height = 165
     275      Style = orcsSimple
     276      Align = alClient
     277      AutoSelect = True
     278      Caption = 'Solutions'
     279      Color = clWindow
     280      DropDownCount = 11
     281      ItemHeight = 13
     282      ItemTipColor = clWindow
     283      ItemTipEnable = True
     284      ListItemsOnly = True
     285      LongList = True
     286      LookupPiece = 0
     287      MaxLength = 0
     288      Pieces = '2'
     289      Sorted = False
     290      SynonymChars = '<>'
     291      TabPositions = '20'
     292      TabOrder = 2
     293      OnExit = cboSolutionExit
     294      OnMouseClick = cboSolutionMouseClick
     295      OnNeedData = cboSolutionNeedData
     296      CharsNeedMatch = 1
     297    end
     298  end
    295299  object popDuration: TPopupMenu
    296300    AutoHotkeys = maManual
Note: See TracChangeset for help on using the changeset viewer.