object ViewUnitDialog: TViewUnitDialog Left = 308 Height = 386 Top = 275 Width = 378 HorzScrollBar.Page = 377 HorzScrollBar.Range = 112 VertScrollBar.Page = 300 VertScrollBar.Range = 163 ActiveControl = FilterEdit BorderIcons = [biSystemMenu] Caption = 'View Project Units' ClientHeight = 386 ClientWidth = 378 Position = poScreenCenter LCLVersion = '4.99.0.0' OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy Position = poScreenCenter LCLVersion = '2.3.0.0' object Listbox: TListBox Left = 6 Height = 279 Top = 35 Width = 366 Align = alClient BorderSpacing.Around = 6 ClickOnSelChange = False ItemHeight = 0 OnDblClick = OKButtonClick OnDrawItem = ListboxDrawItem OnKeyPress = ListboxKeyPress PopupMenu = popListBox Style = lbOwnerDrawFixed TabOrder = 1 end object ButtonPanel: TButtonPanel Left = 6 Height = 34 Top = 346 Width = 366 OKButton.Name = 'OKButton' OKButton.DefaultCaption = True OKButton.OnClick = OKButtonClick HelpButton.Name = 'HelpButton' HelpButton.DefaultCaption = True HelpButton.OnClick = HelpButtonClick CloseButton.Name = 'CloseButton' CloseButton.DefaultCaption = True CloseButton.Enabled = False CancelButton.Name = 'CancelButton' CancelButton.DefaultCaption = True CancelButton.OnClick = CancelButtonClick TabOrder = 3 ShowButtons = [pbOK, pbCancel, pbHelp] end object BtnPanel: TPanel Left = 6 Height = 23 Top = 6 Width = 366 Align = alTop AutoSize = True BorderSpacing.Around = 6 BevelOuter = bvNone ClientHeight = 23 ClientWidth = 366 TabOrder = 0 object SortAlphabeticallySpeedButton: TSpeedButton Left = 0 Height = 23 Top = 0 Width = 25 Align = alLeft AllowAllUp = True Constraints.MinHeight = 15 Constraints.MinWidth = 15 GroupIndex = 2 OnClick = SortAlphabeticallySpeedButtonClick ShowHint = True ParentShowHint = False end object FilterEdit: TListFilterEdit Left = 31 Height = 23 Top = 0 Width = 335 OnFilterItemEx = FilterEditFilterItemEx ButtonHint = 'Clear Filter' ButtonWidth = 23 Align = alClient BorderSpacing.Left = 6 NumGlyphs = 1 MaxLength = 0 ParentFont = False ParentShowHint = False ShowHint = True TabOrder = 0 OnKeyDown = FilterEditKeyDown FilteredListbox = Listbox end end object ProgressBar1: TProgressBar Left = 6 Height = 20 Top = 320 Width = 366 Align = alBottom BorderSpacing.Left = 6 BorderSpacing.Right = 6 TabOrder = 2 Visible = False end object popListBox: TPopupMenu Left = 144 Top = 112 object mniMultiSelect: TMenuItem AutoCheck = True Caption = 'Multi Select' OnClick = MultiselectCheckBoxClick end end end