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