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 [0] Left = 0 Top = 0 Width = 739 Height = 523 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 end object Splitter2: TSplitter Left = 169 Top = 26 Width = 7 Height = 463 end object Splitter3: TSplitter Left = 457 Top = 26 Width = 1 Height = 463 end object Splitter5: TSplitter Left = 455 Top = 26 Width = 2 Height = 463 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 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 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 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 inherited DKLanguageController1: TDKLanguageController LangData = { 150066726D42414F7074696F6E73446961676E6F736573010100000001000000 070043617074696F6E0118000000060050616E656C3101010000000200000007 0043617074696F6E00060050616E656C32010100000003000000070043617074 696F6E00090053706C6974746572310000090053706C69747465723200000900 53706C6974746572330000090053706C69747465723500000900706E6C426F74 746F6D0000080062746E4F74686572010100000004000000070043617074696F 6E00050062746E4F4B010100000005000000070043617074696F6E0007004275 74746F6E31010100000006000000070043617074696F6E00060050616E656C33 00000A006C6253656374696F6E7300001100686472436E746C44785365637469 6F6E73010100000007000000100053656374696F6E735B305D2E546578740006 0050616E656C3400000B006C62446961676E6F73697300000C00686472436E74 6C4478416464010100000008000000100053656374696F6E735B305D2E546578 7400060050616E656C35010100000009000000070043617074696F6E000C006C 62506572736F6E616C447800000900686472436E746C447801010000000A0000 00100053656374696F6E735B305D2E54657874000600706E6C546F7000000B00 537461746963546578743301010000000B000000070043617074696F6E000600 50616E656C370000060062746E41646401010000000C00000007004361707469 6F6E00090062746E44656C65746501010000000D000000070043617074696F6E 00} end end