diff --git a/ide/examplemanager.lfm b/ide/examplemanager.lfm index 4a92b76356..be1f0bf89a 100644 --- a/ide/examplemanager.lfm +++ b/ide/examplemanager.lfm @@ -18,8 +18,8 @@ object ExampleManagerForm: TExampleManagerForm Align = alClient BorderSpacing.Top = 3 Caption = 'Projects' - ClientHeight = 297 - ClientWidth = 451 + ClientHeight = 308 + ClientWidth = 453 TabOrder = 0 object ProjectsListBox: TListBox AnchorSideLeft.Control = ProjectsGroupBox @@ -29,12 +29,12 @@ object ExampleManagerForm: TExampleManagerForm AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = ProjectsGroupBox AnchorSideBottom.Side = asrBottom - Left = 0 - Height = 268 - Top = 29 - Width = 451 + Left = 6 + Height = 274 + Top = 28 + Width = 441 Anchors = [akTop, akLeft, akRight, akBottom] - BorderSpacing.Top = 5 + BorderSpacing.Around = 6 ItemHeight = 0 MultiSelect = True OnSelectionChange = ProjectsListBoxSelectionChange @@ -42,8 +42,8 @@ object ExampleManagerForm: TExampleManagerForm end object ProjectFilter: TListFilterEdit AnchorSideLeft.Control = ProjectsListBox - Left = 0 - Height = 23 + Left = 6 + Height = 21 Top = 1 Width = 221 OnAfterFilter = ProjectFilterAfterFilter @@ -58,10 +58,10 @@ object ExampleManagerForm: TExampleManagerForm AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = ProjectFilter AnchorSideTop.Side = asrCenter - Left = 271 - Height = 21 - Top = 2 - Width = 113 + Left = 277 + Height = 17 + Top = 3 + Width = 87 BorderSpacing.Left = 50 Caption = 'Relative paths' OnClick = cbRelativePathClick @@ -95,33 +95,18 @@ object ExampleManagerForm: TExampleManagerForm BorderSpacing.Left = 3 BorderSpacing.Top = 3 Caption = 'Action' - ClientHeight = 297 - ClientWidth = 399 + ClientHeight = 308 + ClientWidth = 401 TabOrder = 2 - object lbConstruction: TLabel - AnchorSideTop.Control = BuildAllSelectedButton - AnchorSideTop.Side = asrBottom - AnchorSideRight.Control = BuildAllSelectedButton - AnchorSideRight.Side = asrBottom - Left = 256 - Height = 15 - Top = 31 - Width = 130 - Anchors = [akTop, akRight] - BorderSpacing.Right = 7 - Caption = '(under construction)' - ParentColor = False - end object OpenSelectedButton: TBitBtn AnchorSideLeft.Control = ActionGroupBox AnchorSideTop.Control = ActionGroupBox - AnchorSideRight.Control = ActionGroupBox - AnchorSideRight.Side = asrBottom + AnchorSideRight.Control = lblCenter Left = 6 Height = 25 Top = 6 - Width = 190 - BorderSpacing.Right = 6 + Width = 188 + Anchors = [akTop, akLeft, akRight] BorderSpacing.Around = 6 Caption = 'Open First Selected' Enabled = False @@ -129,50 +114,54 @@ object ExampleManagerForm: TExampleManagerForm TabOrder = 0 end object BuildAllSelectedButton: TBitBtn - AnchorSideLeft.Control = OpenSelectedButton - AnchorSideLeft.Side = asrBottom + AnchorSideLeft.Control = ActionGroupBox AnchorSideTop.Control = OpenSelectedButton - AnchorSideTop.Side = asrCenter - AnchorSideRight.Control = ActionGroupBox + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = lblCenter AnchorSideRight.Side = asrBottom - Left = 208 + Left = 6 Height = 25 - Top = 6 - Width = 185 + Top = 43 + Width = 189 Anchors = [akTop, akLeft, akRight] - BorderSpacing.Right = 6 + BorderSpacing.Top = 6 + BorderSpacing.Around = 6 Caption = 'Build All Selected' Enabled = False OnClick = BuildAllSelectedButtonClick TabOrder = 1 + Visible = False end object SelectAllButton: TBitBtn - AnchorSideLeft.Control = OpenSelectedButton - AnchorSideTop.Control = BuildAllSelectedButton - AnchorSideTop.Side = asrBottom - AnchorSideRight.Control = OpenSelectedButton + AnchorSideLeft.Control = lblCenter + AnchorSideLeft.Side = asrBottom + AnchorSideTop.Control = ActionGroupBox + AnchorSideRight.Control = ActionGroupBox AnchorSideRight.Side = asrBottom - Left = 6 + Left = 207 Height = 25 - Top = 48 - Width = 190 + Top = 6 + Width = 188 Anchors = [akTop, akLeft, akRight] - BorderSpacing.Top = 17 + BorderSpacing.Around = 6 Caption = 'Select All' OnClick = SelectAllButtonClick TabOrder = 2 end object SelectNoneButton: TBitBtn - AnchorSideLeft.Control = BuildAllSelectedButton + AnchorSideLeft.Control = lblCenter + AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = SelectAllButton - AnchorSideTop.Side = asrCenter - AnchorSideRight.Control = BuildAllSelectedButton + AnchorSideTop.Side = asrBottom + AnchorSideRight.Control = ActionGroupBox AnchorSideRight.Side = asrBottom - Left = 208 + Left = 207 Height = 25 - Top = 48 - Width = 185 + Top = 43 + Width = 188 Anchors = [akTop, akLeft, akRight] + BorderSpacing.Top = 6 + BorderSpacing.Around = 6 Caption = 'Select None' Enabled = False OnClick = SelectNoneButtonClick @@ -186,17 +175,26 @@ object ExampleManagerForm: TExampleManagerForm AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = ActionGroupBox AnchorSideBottom.Side = asrBottom - Left = 2 - Height = 217 - Top = 78 - Width = 395 + Left = 6 + Height = 228 + Top = 74 + Width = 389 Anchors = [akTop, akLeft, akRight, akBottom] - BorderSpacing.Top = 3 - BorderSpacing.Around = 2 + BorderSpacing.Around = 6 ReadOnly = True ScrollBars = ssAutoBoth TabOrder = 4 end + object lblCenter: TLabel + AnchorSideLeft.Control = ActionGroupBox + AnchorSideLeft.Side = asrCenter + AnchorSideTop.Control = ActionGroupBox + Left = 200 + Height = 1 + Top = 0 + Width = 1 + ParentColor = False + end end object SelectPanel: TPanel Left = 0 @@ -211,10 +209,10 @@ object ExampleManagerForm: TExampleManagerForm AnchorSideTop.Side = asrBottom AnchorSideRight.Control = edRootDirectory AnchorSideRight.Side = asrBottom - Left = 282 - Height = 21 + Left = 328 + Height = 17 Top = 56 - Width = 182 + Width = 136 Anchors = [akTop, akRight] BorderSpacing.Top = 3 Caption = 'Include all subdirectories' @@ -226,7 +224,7 @@ object ExampleManagerForm: TExampleManagerForm AnchorSideTop.Side = asrBottom AnchorSideRight.Side = asrBottom Left = 8 - Height = 23 + Height = 21 Top = 24 Width = 456 ShowHidden = False @@ -256,8 +254,8 @@ object ExampleManagerForm: TExampleManagerForm ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.ControlsPerLine = 4 - ClientHeight = 85 - ClientWidth = 363 + ClientHeight = 96 + ClientWidth = 365 Columns = 4 Items.Strings = ( 'example' @@ -277,9 +275,9 @@ object ExampleManagerForm: TExampleManagerForm end object lbRootDirectory: TLabel Left = 8 - Height = 15 + Height = 13 Top = 8 - Width = 89 + Width = 70 Caption = 'Root Directory' ParentColor = False end @@ -288,9 +286,9 @@ object ExampleManagerForm: TExampleManagerForm AnchorSideBottom.Control = SelectPanel AnchorSideBottom.Side = asrBottom Left = 8 - Height = 15 - Top = 93 - Width = 92 + Height = 13 + Top = 95 + Width = 71 Anchors = [akLeft, akBottom] BorderSpacing.Bottom = 11 Caption = 'lbProjectCount' diff --git a/ide/examplemanager.pas b/ide/examplemanager.pas index 43047c0785..ff9518deb1 100644 --- a/ide/examplemanager.pas +++ b/ide/examplemanager.pas @@ -16,6 +16,7 @@ type TExampleManagerForm = class(TForm) BuildAllSelectedButton: TBitBtn; cgIncludedDirs: TCheckGroup; + lblCenter: TLabel; lbProjectCount: TLabel; lbRootDirectory: TLabel; SelectPanel: TPanel; @@ -25,7 +26,6 @@ type cbIncludeAllDirs: TCheckBox; ProjectFilter: TListFilterEdit; OpenSelectedButton: TBitBtn; - lbConstruction: TLabel; ProjectsListBox: TListBox; SelectAllButton: TBitBtn; ButtonPanel1: TButtonPanel;