inherited frmODAllergy: TfrmODAllergy Tag = 105 Left = 13 Top = 106 Height = 339 HorzScrollBar.Range = 520 HorzScrollBar.Visible = True VertScrollBar.Range = 312 VertScrollBar.Visible = True AutoScroll = False Caption = 'Enter Allergy Information' PixelsPerInch = 96 TextHeight = 13 object btnAgent: TSpeedButton [0] Left = 175 Top = 61 Width = 19 Height = 19 Caption = '...' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False OnClick = btnAgentClick end object lblReactionType: TOROffsetLabel [1] Left = 7 Top = 81 Width = 188 Height = 15 Caption = 'Type of Reaction:' HorzOffset = 2 Transparent = False VertOffset = 2 WordWrap = False end object lblAgent: TOROffsetLabel [2] Left = 7 Top = 44 Width = 188 Height = 15 Caption = 'Causative agent:' HorzOffset = 2 Transparent = False VertOffset = 2 WordWrap = False end object lblSymptoms: TOROffsetLabel [3] Left = 7 Top = 125 Width = 134 Height = 15 Caption = 'Signs/Symptoms' HorzOffset = 2 Transparent = False VertOffset = 2 WordWrap = False end object lblSelectedSymptoms: TOROffsetLabel [4] Left = 147 Top = 125 Width = 119 Height = 15 Caption = 'Selected Symptoms' HorzOffset = 2 Transparent = False VertOffset = 2 WordWrap = False end object lblComments: TOROffsetLabel [5] Left = 281 Top = 125 Width = 226 Height = 15 Caption = 'Comments' HorzOffset = 2 Transparent = False VertOffset = 2 WordWrap = False end object lblOriginator: TOROffsetLabel [6] Left = 209 Top = 6 Width = 45 Height = 15 Caption = 'Observer' HorzOffset = 2 Transparent = False VertOffset = 2 WordWrap = False end object Bevel1: TBevel [7] Left = 2 Top = 125 Width = 273 Height = 125 end object lblObservedDate: TOROffsetLabel [8] Left = 366 Top = 46 Width = 140 Height = 15 Caption = 'Reaction Date/Time' HorzOffset = 2 Transparent = False VertOffset = 2 WordWrap = False end object lblSeverity: TOROffsetLabel [9] Left = 365 Top = 82 Width = 141 Height = 15 Caption = 'Severity' HorzOffset = 2 Transparent = False VertOffset = 2 WordWrap = False end object lstAllergy: TORListBox [10] Left = 8 Top = 61 Width = 166 Height = 21 Color = clBtnFace ExtendedSelect = False ItemHeight = 13 ParentShowHint = False ShowHint = True TabOrder = 2 OnClick = lstAllergyClick Caption = 'Causative agent' ItemTipColor = clWindow LongList = False Pieces = '2' OnChange = ControlChange end inherited memOrder: TCaptionMemo Left = 5 Top = 256 TabOrder = 16 end inherited cmdAccept: TButton Left = 441 Top = 256 Caption = 'Accept' TabOrder = 13 end inherited cmdQuit: TButton Left = 441 Top = 283 TabOrder = 14 end inherited pnlMessage: TPanel Left = 20 Top = 253 TabOrder = 15 inherited memMessage: TRichEdit Left = 41 end end object cboReactionType: TORComboBox Left = 7 Top = 96 Width = 190 Height = 21 Style = orcsDropDown AutoSelect = True Caption = 'Type of Reaction' Color = clWindow DropDownCount = 8 ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = True LongList = False LookupPiece = 0 MaxLength = 0 Pieces = '2' Sorted = False SynonymChars = '<>' TabOrder = 3 OnChange = ControlChange CharsNeedMatch = 1 end object grpObsHist: TRadioGroup Left = 364 Top = 11 Width = 147 Height = 30 Columns = 2 Ctl3D = True Items.Strings = ( '&Observed' '&Historical') ParentCtl3D = False TabOrder = 9 OnClick = grpObsHistClick end object memComments: TRichEdit Left = 282 Top = 142 Width = 229 Height = 104 TabOrder = 12 WantTabs = True OnExit = memCommentsExit OnKeyUp = memCommentsKeyUp end object lstSelectedSymptoms: TORListBox Left = 147 Top = 143 Width = 122 Height = 75 ExtendedSelect = False ItemHeight = 13 ParentShowHint = False ShowHint = True TabOrder = 5 Caption = 'Selected Symptoms' ItemTipColor = clWindow LongList = False Pieces = '2,4' OnChange = ControlChange end object ckNoKnownAllergies: TCheckBox Left = 8 Top = 18 Width = 119 Height = 17 Caption = 'No Known Allergies' TabOrder = 0 OnClick = ckNoKnownAllergiesClick end object cboOriginator: TORComboBox Left = 210 Top = 22 Width = 139 Height = 96 Anchors = [akLeft, akTop, akRight] Style = orcsSimple AutoSelect = True Caption = 'Observer' Color = clWindow DropDownCount = 8 ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = True LongList = True LookupPiece = 2 MaxLength = 0 ParentShowHint = False Pieces = '2,3' ShowHint = False Sorted = False SynonymChars = '<>' TabOrder = 8 OnChange = ControlChange OnNeedData = cboOriginatorNeedData CharsNeedMatch = 1 end object cboSymptoms: TORComboBox Left = 7 Top = 143 Width = 135 Height = 103 Style = orcsSimple AutoSelect = True Caption = 'Signs/Symptoms' Color = clWindow DropDownCount = 8 ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = True LongList = True LookupPiece = 0 MaxLength = 0 Pieces = '2' Sorted = False SynonymChars = '<>' TabOrder = 4 OnKeyDown = cboSymptomsKeyDown OnMouseClick = cboSymptomsMouseClick OnNeedData = cboSymptomsNeedData CharsNeedMatch = 1 end object btnCurrent: TButton Left = 137 Top = 14 Width = 56 Height = 21 Caption = 'Current' TabOrder = 1 OnClick = btnCurrentClick end object calObservedDate: TORDateBox Left = 365 Top = 62 Width = 145 Height = 21 TabOrder = 10 OnChange = ControlChange DateOnly = False RequireTime = False Caption = 'Reaction Date/Time' end object cboSeverity: TORComboBox Left = 365 Top = 97 Width = 144 Height = 21 Style = orcsDropDown AutoSelect = True Caption = 'Severity' Color = clWindow DropDownCount = 8 ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = True LongList = False LookupPiece = 0 MaxLength = 0 Pieces = '2' Sorted = False SynonymChars = '<>' TabOrder = 11 OnChange = ControlChange CharsNeedMatch = 1 end object btnRemove: TButton Left = 210 Top = 224 Width = 57 Height = 21 Caption = 'Remove' TabOrder = 7 OnClick = btnRemoveClick end object btnDateTime: TButton Left = 147 Top = 224 Width = 62 Height = 21 Caption = 'Date/Time' TabOrder = 6 OnClick = btnDateTimeClick end object dlgReactionDateTime: TORDateTimeDlg FMDateTime = 2981202 DateOnly = False RequireTime = False Left = 242 Top = 10 end end