inherited frmCover: TfrmCover Left = 1152 Top = 229 HelpContext = 1000 BorderIcons = [] Caption = 'Cover Sheet' HelpFile = 'overvw' OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 13 object pnlBase: TPanel [1] Left = 0 Top = 0 Width = 640 Height = 349 Align = alClient BevelOuter = bvNone Constraints.MinHeight = 10 TabOrder = 0 object sptBottom: TSplitter Left = 0 Top = 230 Width = 640 Height = 5 Cursor = crVSplit Align = alBottom Constraints.MinHeight = 5 OnCanResize = sptBottomCanResize end object pnlNotTheBottom: TPanel Left = 0 Top = 0 Width = 640 Height = 230 Align = alClient BevelOuter = bvNone TabOrder = 0 object sptTop: TSplitter Left = 0 Top = 120 Width = 640 Height = 5 Cursor = crVSplit Align = alTop Constraints.MinHeight = 5 OnCanResize = sptTopCanResize end object pnlTop: TPanel Left = 0 Top = 0 Width = 640 Height = 120 Align = alTop BevelOuter = bvNone TabOrder = 0 object spt_2: TSplitter Left = 424 Top = 0 Width = 5 Height = 120 Align = alRight Constraints.MinWidth = 5 OnCanResize = spt_2CanResize end object pnl_not3: TPanel Left = 0 Top = 0 Width = 424 Height = 120 Align = alClient BevelOuter = bvNone TabOrder = 0 object spt_1: TSplitter Left = 211 Top = 0 Width = 5 Height = 120 Color = clBtnFace Constraints.MinWidth = 5 ParentColor = False OnCanResize = spt_1CanResize end object pnl_1: TPanel Left = 0 Top = 0 Width = 211 Height = 120 Align = alLeft BevelOuter = bvNone TabOrder = 0 Visible = False object lbl_1: TOROffsetLabel Left = 0 Top = 0 Width = 211 Height = 19 Align = alTop Caption = ' ' HorzOffset = 2 Transparent = False VertOffset = 6 WordWrap = False end object lst_1: TORListBox Tag = 10 Left = 0 Top = 19 Width = 211 Height = 101 Align = alClient Ctl3D = True ItemHeight = 13 ParentCtl3D = False ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = CoverItemClick OnExit = CoverItemExit ItemTipColor = clWindow LongList = False TabPositions = '2,3' end end object pnl_2: TPanel Left = 216 Top = 0 Width = 208 Height = 120 Align = alClient BevelOuter = bvNone TabOrder = 1 Visible = False object lbl_2: TOROffsetLabel Left = 0 Top = 0 Width = 208 Height = 19 Align = alTop Caption = ' ' HorzOffset = 2 Transparent = False VertOffset = 6 WordWrap = False end object lst_2: TORListBox Tag = 20 Left = 0 Top = 19 Width = 208 Height = 101 Align = alClient Ctl3D = True ItemHeight = 13 ParentCtl3D = False ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = CoverItemClick OnExit = CoverItemExit ItemTipColor = clWindow LongList = False end end end object pnl_3: TPanel Left = 429 Top = 0 Width = 211 Height = 120 Align = alRight BevelOuter = bvNone TabOrder = 1 Visible = False object lbl_3: TOROffsetLabel Left = 0 Top = 57 Width = 211 Height = 19 Align = alTop Caption = ' ' HorzOffset = 2 Transparent = False VertOffset = 6 WordWrap = False end object sptFlag: TSplitter Left = 0 Top = 52 Width = 211 Height = 5 Cursor = crVSplit Align = alTop Beveled = True Constraints.MinHeight = 5 end object pnlFlag: TPanel Left = 0 Top = 0 Width = 211 Height = 52 Align = alTop Constraints.MinHeight = 40 TabOrder = 0 object lblFlag: TOROffsetLabel Left = 1 Top = 1 Width = 209 Height = 15 Align = alTop Caption = 'Patient Record Flags' HorzOffset = 2 Transparent = False VertOffset = 2 WordWrap = False end object lstFlag: TORListBox Left = 1 Top = 16 Width = 209 Height = 35 Align = alClient Font.Charset = DEFAULT_CHARSET Font.Color = clMaroon Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = lstFlagClick OnKeyDown = lstFlagKeyDown ItemTipColor = clWindow LongList = False Pieces = '2' end end object lst_3: TORListBox Tag = 30 Left = 0 Top = 76 Width = 211 Height = 44 Align = alClient Ctl3D = True Font.Charset = DEFAULT_CHARSET Font.Color = clMaroon Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 ParentCtl3D = False ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = CoverItemClick OnExit = CoverItemExit ItemTipColor = clWindow LongList = False TabPositions = '20' end end end object pnlMiddle: TPanel Left = 0 Top = 125 Width = 640 Height = 105 Align = alClient BevelOuter = bvNone TabOrder = 1 object spt_3: TSplitter Left = 318 Top = 0 Width = 5 Height = 105 Constraints.MinWidth = 5 OnCanResize = spt_3CanResize end object pnl_4: TPanel Left = 0 Top = 0 Width = 318 Height = 105 Align = alLeft BevelOuter = bvNone TabOrder = 0 Visible = False object lbl_4: TOROffsetLabel Left = 0 Top = 0 Width = 318 Height = 13 Align = alTop Caption = ' ' HorzOffset = 2 Transparent = False VertOffset = 0 WordWrap = False end object lst_4: TORListBox Tag = 40 Left = 0 Top = 13 Width = 318 Height = 92 Align = alClient Ctl3D = True ItemHeight = 13 ParentCtl3D = False ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = CoverItemClick OnExit = CoverItemExit ItemTipColor = clWindow LongList = False TabPositions = '35' end end object pnl_5: TPanel Left = 323 Top = 0 Width = 317 Height = 105 Align = alClient BevelOuter = bvNone TabOrder = 1 Visible = False object lbl_5: TOROffsetLabel Left = 0 Top = 0 Width = 317 Height = 13 Align = alTop Caption = ' ' HorzOffset = 2 Transparent = False VertOffset = 0 WordWrap = False end object lst_5: TORListBox Tag = 50 Left = 0 Top = 13 Width = 317 Height = 92 Align = alClient Ctl3D = True ItemHeight = 13 ParentCtl3D = False ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = CoverItemClick OnExit = CoverItemExit ItemTipColor = clWindow LongList = False TabPositions = '34,44' end end end end object pnlBottom: TPanel Left = 0 Top = 235 Width = 640 Height = 114 Align = alBottom BevelOuter = bvNone TabOrder = 1 object spt_5: TSplitter Left = 380 Top = 0 Width = 5 Height = 114 Align = alRight Constraints.MinWidth = 5 OnCanResize = spt_5CanResize end object pnl_not8: TPanel Left = 0 Top = 0 Width = 380 Height = 114 Align = alClient BevelOuter = bvNone TabOrder = 0 object spt_4: TSplitter Left = 255 Top = 0 Width = 5 Height = 114 Constraints.MinWidth = 5 OnCanResize = spt_4CanResize end object pnl_6: TPanel Left = 0 Top = 0 Width = 255 Height = 114 Align = alLeft BevelOuter = bvNone TabOrder = 0 Visible = False object lbl_6: TOROffsetLabel Left = 0 Top = 0 Width = 255 Height = 13 Align = alTop Caption = ' ' HorzOffset = 2 Transparent = False VertOffset = 0 WordWrap = False end object lst_6: TORListBox Tag = 60 Left = 0 Top = 13 Width = 255 Height = 101 Align = alClient Ctl3D = True ItemHeight = 13 ParentCtl3D = False ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = CoverItemClick OnExit = CoverItemExit ItemTipColor = clWindow LongList = False TabPositions = '34' end end object pnl_7: TPanel Left = 260 Top = 0 Width = 120 Height = 114 Align = alClient BevelOuter = bvNone TabOrder = 1 Visible = False object lbl_7: TOROffsetLabel Left = 0 Top = 0 Width = 120 Height = 13 Align = alTop HorzOffset = 2 Transparent = False VertOffset = 0 WordWrap = False end object lst_7: TORListBox Tag = 70 Left = 0 Top = 13 Width = 120 Height = 101 Align = alClient Ctl3D = True ItemHeight = 13 ParentCtl3D = False ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = CoverItemClick OnExit = CoverItemExit ItemTipColor = clWindow LongList = False TabPositions = '4,13,15,24' end end end object pnl_8: TPanel Left = 385 Top = 0 Width = 255 Height = 114 Align = alRight BevelOuter = bvNone TabOrder = 1 Visible = False object lbl_8: TOROffsetLabel Left = 0 Top = 0 Width = 255 Height = 13 Align = alTop HorzOffset = 2 Transparent = False VertOffset = 0 WordWrap = False end object lst_8: TORListBox Tag = 80 Left = 0 Top = 13 Width = 255 Height = 101 Align = alClient Ctl3D = True ItemHeight = 13 ParentCtl3D = False ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = CoverItemClick OnExit = CoverItemExit ItemTipColor = clWindow LongList = False TabPositions = '15,35' end end end end inherited DKLanguageController1: TDKLanguageController LangData = { 080066726D436F766572010200000001000000070043617074696F6E02000000 080048656C7046696C6501310000000D0073687050616765426F74746F6D0000 0700706E6C4261736500000900737074426F74746F6D00000F00706E6C4E6F74 546865426F74746F6D00000600737074546F7000000600706E6C546F70000005 007370745F3200000800706E6C5F6E6F7433000005007370745F310000050070 6E6C5F31000005006C626C5F31000005006C73745F3100000500706E6C5F3200 0005006C626C5F32000005006C73745F3200000500706E6C5F33000005006C62 6C5F3300000700737074466C616700000700706E6C466C6167000007006C626C 466C6167010100000003000000070043617074696F6E0007006C7374466C6167 000005006C73745F3300000900706E6C4D6964646C65000005007370745F3300 000500706E6C5F34000005006C626C5F34000005006C73745F3400000500706E 6C5F35000005006C626C5F35000005006C73745F3500000900706E6C426F7474 6F6D000005007370745F3500000800706E6C5F6E6F7438000005007370745F34 00000500706E6C5F36000005006C626C5F36000005006C73745F360000050070 6E6C5F37000005006C626C5F37000005006C73745F3700000500706E6C5F3800 0005006C626C5F38000005006C73745F380000070074696D506F6C6C00001000 706F704D656E75416C6C65726769657300000D00706F704E6577416C6C657267 79010100000004000000070043617074696F6E000E00706F7045646974416C6C 65726779010100000005000000070043617074696F6E001100706F70456E7465 726564496E4572726F72010100000006000000070043617074696F6E00060070 6F704E4B41010100000007000000070043617074696F6E00} end object timPoll: TTimer Enabled = False Interval = 2600 OnTimer = timPollTimer Left = 20 Top = 32 end object popMenuAllergies: TPopupMenu OnPopup = popMenuAllergiesPopup Left = 283 Top = 46 object popNewAllergy: TMenuItem Caption = 'Enter new allergy' OnClick = popNewAllergyClick end object popEditAllergy: TMenuItem Caption = 'Edit selected allergy' Visible = False OnClick = popEditAllergyClick end object popEnteredInError: TMenuItem Caption = 'Mark selected allergy as entered in error' OnClick = popEnteredInErrorClick end object popNKA: TMenuItem Caption = 'Mark patient as having "No Known Allergies" (NKA)' OnClick = popNKAClick end end end