inherited frmODMedIV: TfrmODMedIV Left = 587 Top = 331 Width = 610 Height = 341 Caption = 'Infusion Order' OnKeyDown = FormKeyDown PixelsPerInch = 96 TextHeight = 13 object lblInfusionRate: TLabel [0] Left = 6 Top = 196 Width = 96 Height = 13 Caption = 'Infusion Rate (ml/hr)' 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 = 328 Top = 6 Width = 80 Height = 13 Caption = 'Volume/Strength' 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 txtRate: TCaptionEdit [6] Left = 6 Top = 210 Width = 91 Height = 21 AutoSelect = False TabOrder = 5 OnChange = ControlChange OnExit = txtRateExit Caption = 'Infusion Rate' end object cboPriority: TORComboBox [7] 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 = 6 OnChange = ControlChange CharsNeedMatch = 1 end object grdSelected: TCaptionStringGrid [8] 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 = 2 OnDrawCell = grdSelectedDrawCell OnKeyPress = grdSelectedKeyPress OnMouseDown = grdSelectedMouseDown Caption = 'Selected Solution and Additives' end object cmdRemove: TButton [9] Left = 443 Top = 99 Width = 72 Height = 18 Caption = 'Remove' TabOrder = 3 OnClick = cmdRemoveClick end object memComments: TCaptionMemo [10] Left = 214 Top = 120 Width = 384 Height = 66 Lines.Strings = ( 'memComments') ScrollBars = ssVertical TabOrder = 4 OnChange = ControlChange Caption = 'Comments' end object txtSelected: TCaptionEdit [11] Tag = -1 Left = 416 Top = 44 Width = 45 Height = 19 Ctl3D = False ParentCtl3D = False TabOrder = 0 Text = 'meq.' Visible = False OnChange = txtSelectedChange OnExit = txtSelectedExit Caption = 'Volume' end object cboSelected: TCaptionComboBox [12] Tag = -1 Left = 460 Top = 44 Width = 53 Height = 21 Style = csDropDownList Ctl3D = False ItemHeight = 13 ParentCtl3D = False TabOrder = 1 Visible = False OnChange = cboSelectedChange OnExit = cboSelectedExit Caption = 'Volume/Strength' end inherited memOrder: TCaptionMemo Top = 255 Width = 475 TabOrder = 10 end inherited cmdAccept: TButton Left = 495 Top = 255 TabOrder = 8 end object pnlXDuration: TPanel [15] Left = 229 Top = 210 Width = 121 Height = 21 BevelOuter = bvNone TabOrder = 7 OnEnter = pnlXDurationEnter DesignSize = ( 121 21) object btnXDuration: TBitBtn Left = 69 Top = 1 Width = 50 Height = 20 Anchors = [akLeft, akTop, akRight, akBottom] Caption = 'days' TabOrder = 1 OnClick = btnXDurationClick Glyph.Data = { AE000000424DAE0000000000000076000000280000000E000000070000000100 0400000000003800000000000000000000001000000000000000000000000000 8000008000000080800080000000800080008080000080808000C0C0C0000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 330033333333333333003330333333733300330003333F87330030000033FFFF F30033333333333333003333333333333300} Layout = blGlyphRight NumGlyphs = 2 Spacing = 0 end object txtXDuration: TCaptionEdit Left = 0 Top = 0 Width = 68 Height = 21 TabOrder = 0 OnChange = txtXDurationChange OnExit = txtXDurationExit Caption = 'Duration' end end object pnlCombo: TPanel [16] Left = 8 Top = 1 Width = 200 Height = 185 BevelOuter = bvNone TabOrder = 17 object cboAdditive: TORComboBox Left = 0 Top = 20 Width = 200 Height = 165 Style = orcsSimple Align = alClient 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 Left = 0 Top = 0 Width = 200 Height = 20 Align = alTop TabHeight = 15 TabOrder = 1 Tabs.Strings = ( ' Solutions ' ' Additives ') TabIndex = 0 TabStop = False OnChange = tabFluidChange end object cboSolution: TORComboBox Left = 0 Top = 20 Width = 200 Height = 165 Style = orcsSimple Align = alClient 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 = 2 OnExit = cboSolutionExit OnMouseClick = cboSolutionMouseClick OnNeedData = cboSolutionNeedData CharsNeedMatch = 1 end end inherited cmdQuit: TButton Left = 495 Top = 282 TabOrder = 9 end inherited pnlMessage: TPanel Top = 237 TabOrder = 11 end inherited DKLanguageController1: TDKLanguageController LangData = { 0A0066726D4F444D65644956010100000005000000070043617074696F6E011F 00000008006D656D4F72646572010100000002000000070043617074696F6E00 0900636D64416363657074010100000003000000070043617074696F6E000700 636D6451756974010100000004000000070043617074696F6E000A00706E6C4D 65737361676500000A00696D674D65737361676500000A006D656D4D65737361 676500000F006C626C496E667573696F6E526174650101000000060000000700 43617074696F6E000B006C626C5072696F726974790101000000070000000700 43617074696F6E000C006C626C436F6D706F6E656E7401010000000800000007 0043617074696F6E0009006C626C416D6F756E74010100000009000000070043 617074696F6E000B006C626C436F6D6D656E747301010000000A000000070043 617074696F6E0008006C626C4C696D697401010000000B000000070043617074 696F6E0007007478745261746501010000000C000000070043617074696F6E00 0B0063626F5072696F7269747901010000000D000000070043617074696F6E00 0B0067726453656C656374656401010000000E000000070043617074696F6E00 0900636D6452656D6F766501010000000F000000070043617074696F6E000B00 6D656D436F6D6D656E7473010200000011000000070043617074696F6E100000 0005004C696E6573000B0074787453656C656374656401020000001300000007 0043617074696F6E12000000040054657874000B0063626F53656C6563746564 010100000014000000070043617074696F6E000C00706E6C584475726174696F 6E00000C0062746E584475726174696F6E010100000015000000070043617074 696F6E000C00747874584475726174696F6E0101000000160000000700436170 74696F6E000800706E6C436F6D626F00000B0063626F41646469746976650101 00000017000000070043617074696F6E000800746162466C7569640101000000 18000000040054616273000B0063626F536F6C7574696F6E0101000000190000 00070043617074696F6E000B00706F704475726174696F6E00000400706F704C 01010000001A000000070043617074696F6E000500706F704D4C01010000001B 000000070043617074696F6E000700706F704461797301010000001C00000007 0043617074696F6E000800706F70486F75727301010000001D00000007004361 7074696F6E00} 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