inherited frmConsultAction: TfrmConsultAction Left = 277 Top = 217 BorderIcons = [] Caption = 'frmConsultAction' ClientHeight = 379 ClientWidth = 592 Constraints.MinHeight = 406 Constraints.MinWidth = 600 OldCreateOrder = True Position = poScreenCenter PixelsPerInch = 96 TextHeight = 13 object pnlBase: TPanel [0] Left = 0 Top = 0 Width = 592 Height = 379 Align = alClient BevelOuter = bvNone TabOrder = 0 object pnlForward: TPanel Left = 0 Top = 0 Width = 224 Height = 379 Align = alLeft BevelOuter = bvNone TabOrder = 0 object lblToService: TOROffsetLabel Left = 2 Top = 0 Width = 120 Height = 19 Caption = 'To service' HorzOffset = 2 Transparent = False VertOffset = 6 WordWrap = False end object lblAttentionOf: TOROffsetLabel Left = 2 Top = 325 Width = 44 Height = 19 Caption = 'Attention' HorzOffset = 2 Transparent = False VertOffset = 6 WordWrap = False end object lblUrgency: TOROffsetLabel Left = 2 Top = 277 Width = 42 Height = 19 Caption = 'Urgency' HorzOffset = 2 Transparent = False VertOffset = 6 WordWrap = False end object Label1: TMemo Left = 18 Top = 123 Width = 185 Height = 65 TabStop = False Alignment = taCenter BorderStyle = bsNone Color = clBtnFace Lines.Strings = ( 'A procedure can only be forwarded to ' 'other services defined as being able to ' 'perform that procedure. Valid ' 'selections for this procedure are listed ' 'in the drop-down box above.') ReadOnly = True TabOrder = 4 end object cboAttentionOf: TORComboBox Left = 2 Top = 344 Width = 212 Height = 21 Style = orcsDropDown AutoSelect = True Caption = 'Attention' Color = clWindow DropDownCount = 8 ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = True LongList = True LookupPiece = 2 MaxLength = 0 Pieces = '2,3' Sorted = False SynonymChars = '<>' TabOrder = 3 OnNeedData = NewPersonNeedData CharsNeedMatch = 1 end object cboUrgency: TORComboBox Left = 2 Top = 297 Width = 212 Height = 21 Style = orcsDropDown AutoSelect = True Caption = 'Urgency' Color = clWindow DropDownCount = 8 ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = True LongList = False LookupPiece = 0 MaxLength = 0 Pieces = '2' Sorted = False SynonymChars = '<>' TabOrder = 2 CharsNeedMatch = 1 end object treService: TORTreeView Left = 2 Top = 100 Width = 212 Height = 182 HideSelection = False Indent = 19 ReadOnly = True TabOrder = 1 OnChange = treServiceChange OnExit = treServiceExit Caption = 'To service' NodePiece = 0 end object cboService: TORComboBox Left = 2 Top = 23 Width = 212 Height = 75 Style = orcsSimple AutoSelect = True Caption = 'To service' Color = clWindow DropDownCount = 8 ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = True LongList = False LookupPiece = 0 MaxLength = 0 Pieces = '2' Sorted = True SynonymChars = '<>' TabOrder = 0 OnKeyPause = cboServiceSelect OnMouseClick = cboServiceSelect CharsNeedMatch = 1 end end object pnlOther: TPanel Left = 224 Top = 0 Width = 368 Height = 379 Align = alClient BevelOuter = bvNone TabOrder = 1 object pnlSigFind: TPanel Left = 0 Top = 0 Width = 368 Height = 57 Align = alTop BevelOuter = bvNone TabOrder = 0 object grpSigFindings: TRadioGroup Left = 9 Top = 7 Width = 350 Height = 41 Caption = 'Significant Findings - Current status: ' Columns = 3 Ctl3D = True Items.Strings = ( '&Yes' '&No' '&Unknown') ParentCtl3D = False TabOrder = 0 end end object pnlComments: TPanel Left = 0 Top = 57 Width = 368 Height = 224 Align = alClient Alignment = taLeftJustify BevelOuter = bvNone TabOrder = 1 object lblComments: TOROffsetLabel Left = 0 Top = 0 Width = 368 Height = 19 Align = alTop Caption = 'Comments' HorzOffset = 2 Transparent = False VertOffset = 6 WordWrap = False end object memComments: TCaptionMemo Left = 0 Top = 19 Width = 368 Height = 170 Align = alClient Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Courier New' Font.Style = [] ParentFont = False ScrollBars = ssVertical TabOrder = 0 Caption = 'Comments' end object pnlAlert: TPanel Left = 0 Top = 189 Width = 368 Height = 35 Align = alBottom BevelOuter = bvNone TabOrder = 1 object lblAutoAlerts: TStaticText Left = 6 Top = 1 Width = 4 Height = 4 TabOrder = 1 end object ckAlert: TCheckBox Left = 6 Top = 17 Width = 129 Height = 17 Caption = 'Send additional alerts' TabOrder = 0 OnClick = ckAlertClick end end end object pnlAllActions: TPanel Left = 0 Top = 281 Width = 368 Height = 98 Align = alBottom BevelOuter = bvNone TabOrder = 2 DesignSize = ( 368 98) object lblActionBy: TOROffsetLabel Left = 138 Top = -4 Width = 215 Height = 19 Caption = 'Action by' HorzOffset = 2 Transparent = False VertOffset = 6 WordWrap = False end object lblDateofAction: TOROffsetLabel Left = 5 Top = -4 Width = 112 Height = 19 Caption = 'Date/time of this action' HorzOffset = 2 Transparent = False VertOffset = 6 WordWrap = False end object calDateofAction: TORDateBox Left = 5 Top = 15 Width = 116 Height = 21 TabOrder = 0 Text = 'Now' DateOnly = False RequireTime = False Caption = 'Date/time of this action' end object cmdOK: TORAlignButton Left = 201 Top = 62 Width = 75 Height = 22 Anchors = [akRight, akBottom] Caption = 'OK' TabOrder = 2 OnClick = cmdOKClick end object cmdCancel: TORAlignButton Left = 286 Top = 62 Width = 75 Height = 22 Anchors = [akRight, akBottom] Cancel = True Caption = 'Cancel' TabOrder = 3 OnClick = cmdCancelClick end object cboPerson: TORComboBox Left = 137 Top = 15 Width = 220 Height = 21 Style = orcsDropDown AutoSelect = True Caption = 'Action by' Color = clWindow DropDownCount = 8 ItemHeight = 13 ItemTipColor = clWindow ItemTipEnable = True ListItemsOnly = True LongList = True LookupPiece = 2 MaxLength = 0 Pieces = '2,3' Sorted = False SynonymChars = '<>' TabOrder = 1 TabStop = True OnNeedData = NewPersonNeedData CharsNeedMatch = 1 end end end end inherited amgrMain: TVA508AccessibilityManager Data = ( ( 'Component = pnlBase' 'Status = stsDefault') ( 'Component = pnlForward' 'Status = stsDefault') ( 'Component = Label1' 'Status = stsDefault') ( 'Component = cboAttentionOf' 'Status = stsDefault') ( 'Component = cboUrgency' 'Status = stsDefault') ( 'Component = treService' 'Status = stsDefault') ( 'Component = cboService' 'Status = stsDefault') ( 'Component = pnlOther' 'Status = stsDefault') ( 'Component = pnlSigFind' 'Status = stsDefault') ( 'Component = grpSigFindings' 'Status = stsDefault') ( 'Component = pnlComments' 'Status = stsDefault') ( 'Component = memComments' 'Status = stsDefault') ( 'Component = pnlAlert' 'Status = stsDefault') ( 'Component = lblAutoAlerts' 'Status = stsDefault') ( 'Component = ckAlert' 'Status = stsDefault') ( 'Component = pnlAllActions' 'Status = stsDefault') ( 'Component = calDateofAction' 'Status = stsDefault') ( 'Component = cmdOK' 'Status = stsDefault') ( 'Component = cmdCancel' 'Status = stsDefault') ( 'Component = cboPerson' 'Status = stsDefault') ( 'Component = frmConsultAction' 'Status = stsDefault')) end end