inherited frmVisitType: TfrmVisitType Left = 255 Top = 186 Caption = 'Encounter VisitType' ClientWidth = 620 OnCloseQuery = FormCloseQuery OnResize = FormResize PixelsPerInch = 96 TextHeight = 13 object lblVType: TLabel [0] Left = 150 Top = 6 Width = 67 Height = 13 Caption = 'Section Name' end object lblSCDisplay: TLabel [1] Left = 6 Top = 123 Width = 186 Height = 13 Caption = 'Service Connection && Rated Disabilities' end object lblVTypeSection: TLabel [2] Left = 6 Top = 6 Width = 58 Height = 13 Caption = 'Type of Visit' end object lblCurrentProv: TLabel [3] Left = 277 Top = 249 Width = 165 Height = 13 Caption = 'Current providers for this encounter' end object lblProvider: TLabel [4] Left = 6 Top = 249 Width = 89 Height = 13 Caption = 'Available providers' end object lblMod: TLabel [5] Left = 358 Top = 6 Width = 42 Height = 13 Hint = 'Modifiers' Caption = 'Modifiers' ParentShowHint = False ShowHint = True end inherited btnOK: TBitBtn Left = 463 Top = 377 TabOrder = 8 end inherited btnCancel: TBitBtn Left = 543 Top = 377 TabOrder = 9 end object pnlMain: TPanel Left = 2 Top = 19 Width = 615 Height = 92 BevelOuter = bvNone TabOrder = 0 object splLeft: TSplitter Left = 145 Top = 0 Width = 3 Height = 92 Cursor = crHSplit OnMoved = splLeftMoved end object splRight: TSplitter Left = 352 Top = 0 Width = 3 Height = 92 Cursor = crHSplit Align = alRight OnMoved = splRightMoved end object pnlLeft: TPanel Left = 0 Top = 0 Width = 145 Height = 92 Align = alLeft BevelOuter = bvNone TabOrder = 0 object lstVTypeSection: TORListBox Tag = 10 Left = 0 Top = 0 Width = 145 Height = 92 Align = alTop ItemHeight = 13 ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = lstVTypeSectionClick Caption = 'Type of Visit' ItemTipColor = clWindow LongList = False Pieces = '3' CheckEntireLine = True end end object lbxVisits: TORListBox Tag = 10 Left = 148 Top = 0 Width = 204 Height = 92 Style = lbOwnerDrawFixed Align = alClient ItemHeight = 16 ParentShowHint = False ShowHint = True TabOrder = 1 OnClick = lbxVisitsClick Caption = 'Section Name' ItemTipColor = clWindow LongList = False Pieces = '3,4,5' TabPosInPixels = True CheckBoxes = True CheckEntireLine = True OnClickCheck = lbxVisitsClickCheck end object lbMods: TORListBox Left = 355 Top = 0 Width = 260 Height = 92 Style = lbOwnerDrawFixed Align = alRight Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 14 ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 2 Caption = 'Modifiers' ItemTipColor = clWindow LongList = False Pieces = '2,3' TabPosInPixels = True CheckBoxes = True CheckEntireLine = True OnClickCheck = lbModsClickCheck end end object memSCDisplay: TCaptionMemo Left = 6 Top = 137 Width = 411 Height = 107 Color = clBtnFace Lines.Strings = ( '') ScrollBars = ssVertical TabOrder = 1 Caption = 'Service Connection && Rated Disabilities' end object lbProviders: TORListBox Left = 277 Top = 265 Width = 183 Height = 126 ItemHeight = 13 ParentShowHint = False ShowHint = True TabOrder = 7 OnDblClick = lbProvidersDblClick Caption = 'Current providers for this encounter' ItemTipColor = clWindow LongList = False Pieces = '2' OnChange = lbProvidersChange CheckEntireLine = True end object cboPtProvider: TORComboBox Left = 6 Top = 265 Width = 183 Height = 126 Style = orcsSimple AutoSelect = True Caption = 'Available providers' 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 TabStop = True CheckEntireLine = True OnChange = cboPtProviderChange OnDblClick = cboPtProviderDblClick OnNeedData = cboPtProviderNeedData end object btnAdd: TButton Left = 196 Top = 275 Width = 75 Height = 21 Caption = 'Add' TabOrder = 4 OnClick = btnAddClick end object btnDelete: TButton Left = 196 Top = 307 Width = 75 Height = 21 Caption = 'Remove' TabOrder = 5 OnClick = btnDeleteClick end object btnPrimary: TButton Left = 196 Top = 355 Width = 75 Height = 21 Caption = 'Primary' TabOrder = 6 OnClick = btnPrimaryClick end inline fraVisitRelated: TfraVisitRelated Left = 426 Top = 112 Width = 192 Height = 137 TabOrder = 2 end end