inherited frmBAOptionsDiagnoses: TfrmBAOptionsDiagnoses Left = 231 Top = 183 Width = 747 Height = 557 Caption = 'Personal Diagnoses List' Constraints.MinHeight = 100 Constraints.MinWidth = 200 OnActivate = FormActivate OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Panel1: TPanel Left = 0 Top = 0 Width = 739 Height = 530 Align = alClient Caption = 'Panel1' Constraints.MinHeight = 344 Constraints.MinWidth = 576 TabOrder = 0 object Panel2: TPanel Left = 16 Top = 10 Width = 713 Height = 519 Caption = 'Panel1' TabOrder = 0 object Splitter1: TSplitter Left = 458 Top = 26 Width = -3 Height = 463 Cursor = crHSplit end object Splitter2: TSplitter Left = 169 Top = 26 Width = 7 Height = 463 Cursor = crHSplit end object Splitter3: TSplitter Left = 457 Top = 26 Width = 1 Height = 463 Cursor = crHSplit end object Splitter5: TSplitter Left = 455 Top = 26 Width = 2 Height = 463 Cursor = crHSplit end object pnlBottom: TPanel Left = 1 Top = 489 Width = 711 Height = 29 Align = alBottom BevelOuter = bvNone Caption = ' ' TabOrder = 0 DesignSize = ( 711 29) object btnOther: TButton Left = 13 Top = 3 Width = 129 Height = 23 Anchors = [akLeft, akBottom] Caption = 'Other &Diagnoses' Constraints.MinHeight = 23 Constraints.MinWidth = 115 TabOrder = 0 OnClick = btnOtherClick end object btnOK: TButton Left = 523 Top = 3 Width = 75 Height = 23 Anchors = [akRight, akBottom] Caption = '&OK' TabOrder = 1 OnClick = btnOKClick end object Button1: TButton Left = 632 Top = 4 Width = 75 Height = 21 Anchors = [akRight, akBottom] Caption = '&Cancel' TabOrder = 2 OnClick = Button1Click end end object Panel3: TPanel Left = 1 Top = 26 Width = 168 Height = 463 Align = alLeft BevelOuter = bvNone Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 object lbSections: TORListBox Left = 0 Top = 17 Width = 161 Height = 446 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemHeight = 13 ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 0 OnClick = lbSectionsClick OnEnter = lbSectionsEnter ItemTipColor = clWindow LongList = False Pieces = '3' end object hdrCntlDxSections: THeaderControl Left = 0 Top = 0 Width = 168 Height = 17 DragReorder = False Sections = < item Alignment = taCenter ImageIndex = -1 Text = 'Diagnoses Sections' Width = 50 end> end end object Panel4: TPanel Left = 176 Top = 26 Width = 201 Height = 463 Align = alLeft BevelOuter = bvNone Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 object lbDiagnosis: TORListBox Left = 0 Top = 17 Width = 201 Height = 446 Align = alClient ItemHeight = 13 MultiSelect = True ParentShowHint = False ShowHint = True Sorted = True TabOrder = 0 OnClick = lbDiagnosisChange OnEnter = lbDiagnosisEnter ItemTipColor = clWindow LongList = False Pieces = '1,2,3' OnChange = lbDiagnosisChange end object hdrCntlDxAdd: THeaderControl Left = 0 Top = 0 Width = 201 Height = 17 DragReorder = False Sections = < item Alignment = taCenter ImageIndex = -1 Text = 'Diagnoses to add' Width = 50 end> end end object Panel5: TPanel Left = 455 Top = 26 Width = 257 Height = 463 Align = alClient BevelOuter = bvNone Caption = 'Panel5' TabOrder = 3 object lbPersonalDx: TORListBox Left = 0 Top = 17 Width = 257 Height = 446 Align = alClient Anchors = [akRight] Color = clInfoBk ItemHeight = 13 MultiSelect = True ParentShowHint = False ShowHint = True Sorted = True TabOrder = 0 OnClick = lbPersonalDxClick ItemTipColor = clWindow LongList = False Pieces = '2,1,3' end object hdrCntlDx: THeaderControl Left = 0 Top = 0 Width = 257 Height = 17 DragReorder = False Sections = < item Alignment = taCenter ImageIndex = -1 MinWidth = 150 Text = 'Diagnoses Codes' Width = 150 end> OnSectionClick = hdrCntlDxSectionClick end end object pnlTop: TPanel Left = 1 Top = 1 Width = 711 Height = 25 Align = alTop BevelOuter = bvNone TabOrder = 4 object StaticText3: TStaticText Left = 472 Top = 8 Width = 140 Height = 17 Caption = 'Personal Diagnoses List' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False TabOrder = 0 TabStop = True end end object Panel7: TPanel Left = 377 Top = 26 Width = 78 Height = 463 Align = alLeft BevelOuter = bvNone TabOrder = 5 DesignSize = ( 78 463) object btnAdd: TBitBtn Left = 1 Top = 88 Width = 75 Height = 25 Anchors = [akLeft, akTop, akRight] Caption = '&Add' Constraints.MinHeight = 25 Constraints.MinWidth = 70 Enabled = False TabOrder = 0 OnClick = btnAddClick NumGlyphs = 2 end object btnDelete: TBitBtn Left = 2 Top = 136 Width = 75 Height = 25 Caption = '&Remove' Constraints.MinHeight = 25 Constraints.MinWidth = 70 Enabled = False TabOrder = 1 OnClick = btnDeleteClick NumGlyphs = 2 end end end end end