inherited frmODMedIV: TfrmODMedIV Left = 321 Top = 199 Width = 610 Height = 341 Caption = 'IV Fluid Order' OnKeyDown = FormKeyDown PixelsPerInch = 96 TextHeight = 13 object lblInfusionRate: TLabel [0] Left = 6 Top = 196 Width = 63 Height = 13 Caption = 'Infusion Rate' end object lblPriority: TLabel [1] Left = 134 Top = 196 Width = 31 Height = 13 Caption = 'Priority' end object lblComponent: TLabel [2] Left = 214 Top = 6 Width = 81 Height = 13 Caption = 'Solution/Additive' end object lblAmount: TLabel [3] Left = 333 Top = 6 Width = 74 Height = 13 Caption = 'Volume/Strenth' WordWrap = True end object lblComments: TLabel [4] Left = 214 Top = 106 Width = 49 Height = 13 Caption = 'Comments' end object lblLimit: TLabel [5] Left = 230 Top = 196 Width = 117 Height = 13 Caption = 'Duration or Total Volume' end object Label1: TStaticText [6] Left = 100 Top = 213 Width = 28 Height = 17 Caption = 'ml/hr' TabOrder = 15 end object cboAdditive: TORComboBox [7] Left = 6 Top = 20 Width = 200 Height = 125 Style = orcsSimple AutoSelect = True Caption = 'Additives' Color = clWindow DropDownCount = 11 ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = True LongList = True LookupPiece = 0 MaxLength = 0 Pieces = '2' Sorted = False SynonymChars = '<>' TabPositions = '20' TabOrder = 0 OnExit = cboAdditiveExit OnMouseClick = cboAdditiveMouseClick OnNeedData = cboAdditiveNeedData CharsNeedMatch = 1 end object tabFluid: TTabControl [8] Left = 7 Top = 3 Width = 200 Height = 21 TabHeight = 15 TabOrder = 13 Tabs.Strings = ( ' Solutions ' ' Additives ') TabIndex = 0 TabStop = False OnChange = tabFluidChange end inherited memOrder: TCaptionMemo Top = 255 Width = 475 TabOrder = 11 end object txtRate: TCaptionEdit [10] Left = 6 Top = 210 Width = 91 Height = 21 AutoSelect = False TabOrder = 6 OnChange = ControlChange Caption = 'Infusion Rate' end object cboPriority: TORComboBox [11] Left = 134 Top = 210 Width = 72 Height = 21 Style = orcsDropDown AutoSelect = True Caption = 'Priority' Color = clWindow DropDownCount = 8 ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = False LongList = False LookupPiece = 0 MaxLength = 0 Pieces = '2' Sorted = False SynonymChars = '<>' TabOrder = 7 OnChange = ControlChange CharsNeedMatch = 1 end object grdSelected: TCaptionStringGrid [12] Left = 214 Top = 20 Width = 384 Height = 76 ColCount = 3 DefaultColWidth = 100 DefaultRowHeight = 19 FixedCols = 0 RowCount = 1 FixedRows = 0 Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goDrawFocusSelected] ScrollBars = ssVertical TabOrder = 3 OnDrawCell = grdSelectedDrawCell OnKeyPress = grdSelectedKeyPress OnMouseDown = grdSelectedMouseDown Caption = 'Selected Solution and Additives' end object cmdRemove: TButton [13] Left = 443 Top = 99 Width = 72 Height = 18 Caption = 'Remove' TabOrder = 4 OnClick = cmdRemoveClick end object memComments: TCaptionMemo [14] Left = 214 Top = 120 Width = 384 Height = 66 Lines.Strings = ( 'memComments') ScrollBars = ssVertical TabOrder = 5 OnChange = ControlChange Caption = 'Comments' end object txtSelected: TCaptionEdit [15] Tag = -1 Left = 416 Top = 44 Width = 45 Height = 19 Ctl3D = False ParentCtl3D = False TabOrder = 1 Text = 'meq.' Visible = False OnChange = txtSelectedChange OnExit = txtSelectedExit Caption = 'Volume' end object cboSelected: TCaptionComboBox [16] Tag = -1 Left = 460 Top = 44 Width = 53 Height = 21 Style = csDropDownList Ctl3D = False ItemHeight = 13 ParentCtl3D = False TabOrder = 2 Visible = False OnChange = cboSelectedChange OnExit = cboSelectedExit Caption = 'Volume/Strength' end inherited cmdAccept: TButton Left = 495 Top = 255 TabOrder = 9 end inherited cmdQuit: TButton Left = 495 Top = 282 TabOrder = 10 end inherited pnlMessage: TPanel Top = 237 TabOrder = 12 end object cboSolution: TORComboBox Left = 6 Top = 19 Width = 200 Height = 164 Style = orcsSimple AutoSelect = True Caption = 'Solutions' Color = clWindow DropDownCount = 11 ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = True LongList = True LookupPiece = 0 MaxLength = 0 Pieces = '2' Sorted = False SynonymChars = '<>' TabPositions = '20' TabOrder = 14 OnExit = cboSolutionExit OnMouseClick = cboSolutionMouseClick OnNeedData = cboSolutionNeedData CharsNeedMatch = 1 end object pnlXDuration: TPanel Left = 229 Top = 210 Width = 121 Height = 21 BevelOuter = bvNone TabOrder = 8 OnEnter = pnlXDurationEnter DesignSize = ( 121 21) object btnXDuration: TSpeedButton Left = 69 Top = 1 Width = 50 Height = 20 Anchors = [akLeft, akTop, akRight, akBottom] Caption = 'days' Glyph.Data = { AE000000424DAE0000000000000076000000280000000E000000070000000100 0400000000003800000000000000000000001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 330033333333333333003330333333733300330003333F87330030000033FFFF F30033333333333333003333333333333300} Layout = blGlyphRight NumGlyphs = 2 Spacing = 0 Transparent = False OnClick = btnXDurationClick end object txtXDuration: TCaptionEdit Left = 0 Top = 0 Width = 68 Height = 21 TabOrder = 0 OnChange = txtXDurationChange OnExit = txtXDurationExit Caption = 'Duration' end end object popDuration: TPopupMenu AutoHotkeys = maManual Left = 387 Top = 91 object popL: TMenuItem Tag = 1 Caption = 'L' OnClick = popDurationClick end object popML: TMenuItem Tag = 2 Caption = 'ml' OnClick = popDurationClick end object popDays: TMenuItem Tag = 3 Caption = 'days' OnClick = popDurationClick end object popHours: TMenuItem Tag = 4 Caption = 'hours' OnClick = popDurationClick end end end