object UseProjUnitDialog: TUseProjUnitDialog Left = 315 Height = 346 Top = 177 Width = 365 Caption = 'Use a Unit from this Project' ClientHeight = 346 ClientWidth = 365 Constraints.MinHeight = 150 Constraints.MinWidth = 200 OnCreate = FormCreate Position = poScreenCenter LCLVersion = '0.9.31' object ButtonPanel1: TButtonPanel Left = 6 Height = 32 Top = 308 Width = 353 OKButton.Name = 'OKButton' OKButton.Caption = '&OK' HelpButton.Name = 'HelpButton' HelpButton.Caption = '&Help' HelpButton.Enabled = False CloseButton.Name = 'CloseButton' CloseButton.Caption = '&Close' CloseButton.Enabled = False CancelButton.Name = 'CancelButton' CancelButton.Caption = 'Cancel' TabOrder = 2 ShowButtons = [pbOK, pbCancel] ShowBevel = False end object SectionRadioGroup: TRadioGroup AnchorSideLeft.Control = UnitsListBox AnchorSideTop.Control = UnitsListBox AnchorSideTop.Side = asrBottom AnchorSideRight.Control = UnitsListBox AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = ButtonPanel1 Left = 6 Height = 49 Top = 253 Width = 353 Anchors = [akLeft, akRight, akBottom] AutoFill = True BorderSpacing.Top = 3 BorderSpacing.Bottom = 3 Caption = 'Insert into Uses Section' ChildSizing.LeftRightSpacing = 6 ChildSizing.TopBottomSpacing = 6 ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 2 ClientHeight = 30 ClientWidth = 349 Columns = 2 ItemIndex = 1 Items.Strings = ( 'Interface' 'Implementation' ) TabOrder = 1 end object UnitsListBox: TListBox AnchorSideLeft.Control = Owner AnchorSideTop.Control = Owner AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = SectionRadioGroup Left = 6 Height = 241 Top = 6 Width = 353 Anchors = [akTop, akLeft, akRight, akBottom] BorderSpacing.Around = 6 ItemHeight = 0 OnDblClick = UnitsListBoxDblClick OnDrawItem = UnitsListBoxDrawItem Style = lbOwnerDrawFixed TabOrder = 0 end end