1object UseUnitDialog: TUseUnitDialog 2 Left = 315 3 Height = 422 4 Top = 177 5 Width = 363 6 BorderIcons = [biSystemMenu, biMaximize] 7 Caption = 'Add unit to uses section' 8 ClientHeight = 422 9 ClientWidth = 363 10 Constraints.MinHeight = 150 11 Constraints.MinWidth = 200 12 OnClose = FormClose 13 OnCreate = FormCreate 14 OnDestroy = FormDestroy 15 Position = poScreenCenter 16 LCLVersion = '2.1.0.0' 17 object ButtonPanel1: TButtonPanel 18 AnchorSideBottom.Side = asrBottom 19 Left = 6 20 Height = 26 21 Top = 390 22 Width = 351 23 OKButton.Name = 'OKButton' 24 OKButton.DefaultCaption = True 25 HelpButton.Name = 'HelpButton' 26 HelpButton.DefaultCaption = True 27 HelpButton.Enabled = False 28 CloseButton.Name = 'CloseButton' 29 CloseButton.DefaultCaption = True 30 CloseButton.Enabled = False 31 CancelButton.Name = 'CancelButton' 32 CancelButton.DefaultCaption = True 33 TabOrder = 4 34 ShowButtons = [pbOK, pbCancel] 35 ShowBevel = False 36 end 37 object SectionRadioGroup: TRadioGroup 38 AnchorSideLeft.Control = Owner 39 AnchorSideTop.Side = asrBottom 40 AnchorSideRight.Control = Owner 41 AnchorSideRight.Side = asrBottom 42 AnchorSideBottom.Control = ButtonPanel1 43 Left = 6 44 Height = 51 45 Top = 333 46 Width = 351 47 Anchors = [akLeft, akRight, akBottom] 48 AutoFill = True 49 AutoSize = True 50 BorderSpacing.Around = 6 51 Caption = 'Insert into Uses Section' 52 ChildSizing.LeftRightSpacing = 6 53 ChildSizing.TopBottomSpacing = 6 54 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize 55 ChildSizing.EnlargeVertical = crsHomogenousChildResize 56 ChildSizing.ShrinkHorizontal = crsScaleChilds 57 ChildSizing.ShrinkVertical = crsScaleChilds 58 ChildSizing.Layout = cclLeftToRightThenTopToBottom 59 ChildSizing.ControlsPerLine = 2 60 ClientHeight = 31 61 ClientWidth = 347 62 Columns = 2 63 ItemIndex = 0 64 Items.Strings = ( 65 'Interface' 66 'Implementation' 67 ) 68 OnClick = SectionRadioGroupClick 69 TabOrder = 3 70 end 71 object UnitsListBox: TListBox 72 AnchorSideLeft.Control = Owner 73 AnchorSideTop.Control = FilterEdit 74 AnchorSideTop.Side = asrBottom 75 AnchorSideRight.Control = Owner 76 AnchorSideRight.Side = asrBottom 77 AnchorSideBottom.Control = AllUnitsCheckBox 78 Left = 6 79 Height = 267 80 Top = 35 81 Width = 351 82 Anchors = [akTop, akLeft, akRight, akBottom] 83 BorderSpacing.Around = 6 84 ItemHeight = 0 85 OnDblClick = UnitsListBoxDblClick 86 OnDrawItem = UnitsListBoxDrawItem 87 OnKeyDown = UnitsListBoxKeyDown 88 OnMeasureItem = UnitsListBoxMeasureItem 89 Style = lbOwnerDrawFixed 90 TabOrder = 1 91 end 92 object AllUnitsCheckBox: TCheckBox 93 AnchorSideLeft.Control = Owner 94 AnchorSideBottom.Control = SectionRadioGroup 95 Left = 6 96 Height = 19 97 Top = 308 98 Width = 93 99 Anchors = [akLeft, akBottom] 100 BorderSpacing.Around = 6 101 Caption = 'Show all units' 102 OnChange = AllUnitsCheckBoxChange 103 TabOrder = 2 104 end 105 object FilterEdit: TListFilterEdit 106 AnchorSideLeft.Control = Owner 107 AnchorSideTop.Control = Owner 108 AnchorSideRight.Control = Owner 109 AnchorSideRight.Side = asrBottom 110 Left = 6 111 Height = 23 112 Top = 6 113 Width = 351 114 OnAfterFilter = FilterEditAfterFilter 115 ButtonWidth = 23 116 Anchors = [akTop, akLeft, akRight] 117 BorderSpacing.Around = 6 118 NumGlyphs = 1 119 MaxLength = 0 120 ParentFont = False 121 TabOrder = 0 122 FilteredListbox = UnitsListBox 123 end 124end 125