1object ViewUnitDialog: TViewUnitDialog 2 Left = 330 3 Height = 386 4 Top = 280 5 Width = 378 6 HorzScrollBar.Page = 377 7 HorzScrollBar.Range = 112 8 VertScrollBar.Page = 300 9 VertScrollBar.Range = 163 10 ActiveControl = FilterEdit 11 BorderIcons = [biSystemMenu] 12 Caption = 'View Project Units' 13 ClientHeight = 386 14 ClientWidth = 378 15 OnClose = FormClose 16 OnCreate = FormCreate 17 OnDestroy = FormDestroy 18 Position = poScreenCenter 19 LCLVersion = '1.7' 20 object Listbox: TListBox 21 Left = 6 22 Height = 272 23 Top = 41 24 Width = 366 25 Align = alClient 26 BorderSpacing.Around = 6 27 ClickOnSelChange = False 28 ItemHeight = 0 29 OnDblClick = OKButtonClick 30 OnDrawItem = ListboxDrawItem 31 OnKeyPress = ListboxKeyPress 32 OnMeasureItem = ListboxMeasureItem 33 PopupMenu = popListBox 34 Style = lbOwnerDrawFixed 35 TabOrder = 1 36 end 37 object ButtonPanel: TButtonPanel 38 Left = 6 39 Height = 35 40 Top = 345 41 Width = 366 42 OKButton.Name = 'OKButton' 43 OKButton.DefaultCaption = True 44 OKButton.OnClick = OKButtonClick 45 HelpButton.Name = 'HelpButton' 46 HelpButton.DefaultCaption = True 47 HelpButton.OnClick = HelpButtonClick 48 CloseButton.Name = 'CloseButton' 49 CloseButton.DefaultCaption = True 50 CloseButton.Enabled = False 51 CancelButton.Name = 'CancelButton' 52 CancelButton.DefaultCaption = True 53 CancelButton.OnClick = CancelButtonClick 54 TabOrder = 3 55 ShowButtons = [pbOK, pbCancel, pbHelp] 56 end 57 object BtnPanel: TPanel 58 Left = 6 59 Height = 29 60 Top = 6 61 Width = 366 62 Align = alTop 63 AutoSize = True 64 BorderSpacing.Around = 6 65 BevelOuter = bvNone 66 ClientHeight = 29 67 ClientWidth = 366 68 TabOrder = 0 69 object SortAlphabeticallySpeedButton: TSpeedButton 70 Left = 0 71 Height = 29 72 Top = 0 73 Width = 25 74 Align = alLeft 75 AllowAllUp = True 76 Constraints.MinHeight = 15 77 Constraints.MinWidth = 15 78 GroupIndex = 2 79 OnClick = SortAlphabeticallySpeedButtonClick 80 ShowHint = True 81 ParentShowHint = False 82 end 83 object FilterEdit: TListFilterEdit 84 Left = 31 85 Height = 29 86 Top = 0 87 Width = 335 88 ButtonWidth = 23 89 NumGlyphs = 1 90 Align = alClient 91 BorderSpacing.Left = 6 92 MaxLength = 0 93 ParentFont = False 94 TabOrder = 0 95 FilteredListbox = Listbox 96 end 97 end 98 object ProgressBar1: TProgressBar 99 Left = 6 100 Height = 20 101 Top = 319 102 Width = 366 103 Align = alBottom 104 BorderSpacing.Left = 6 105 BorderSpacing.Right = 6 106 TabOrder = 2 107 Visible = False 108 end 109 object popListBox: TPopupMenu 110 left = 144 111 top = 112 112 object mniMultiSelect: TMenuItem 113 AutoCheck = True 114 Caption = 'Multi Select' 115 OnClick = MultiselectCheckBoxClick 116 end 117 end 118end 119