object frmConsultsByStatus: TfrmConsultsByStatus Left = 286 Top = 202 Width = 316 Height = 232 BorderIcons = [] Caption = 'List Consults by Status' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] OldCreateOrder = True Position = poScreenCenter PixelsPerInch = 96 TextHeight = 13 object pnlBase: TORAutoPanel Left = 0 Top = 0 Width = 308 Height = 198 Align = alClient BevelOuter = bvNone TabOrder = 0 object lblStatus: TLabel Left = 8 Top = 8 Width = 30 Height = 13 Caption = 'Status' end object radSort: TRadioGroup Left = 8 Top = 148 Width = 212 Height = 49 Caption = 'Sort Order' Items.Strings = ( '&Ascending (A-Z)' '&Descending (Z-A)') TabOrder = 1 end object lstStatus: TORListBox Left = 8 Top = 22 Width = 212 Height = 118 ItemHeight = 13 MultiSelect = True ParentShowHint = False ShowHint = True TabOrder = 0 Caption = 'Status' ItemTipColor = clWindow LongList = False Pieces = '2' end object cmdOK: TButton Left = 228 Top = 149 Width = 72 Height = 21 Caption = 'OK' Default = True TabOrder = 2 OnClick = cmdOKClick end object cmdCancel: TButton Left = 228 Top = 176 Width = 72 Height = 21 Cancel = True Caption = 'Cancel' TabOrder = 3 OnClick = cmdCancelClick end end object DKLanguageController1: TDKLanguageController Left = 280 Top = 48 LangData = { 130066726D436F6E73756C747342795374617475730101000000010000000700 43617074696F6E01060000000700706E6C42617365000009006C626C53746174 7573010100000002000000070043617074696F6E000700726164536F72740102 00000003000000070043617074696F6E0400000005004974656D730009006C73 74537461747573010100000005000000070043617074696F6E000500636D644F 4B010100000006000000070043617074696F6E000900636D6443616E63656C01 0100000007000000070043617074696F6E00} end end