paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-13 14:32:38 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE, Examples manager: removed 'Under construction' label, hid 'Build Selected' button, which functionality was not implemented, improved layout

Browse Source 
git-svn-id: trunk@42614 -
This commit is contained in:
maxim 2013-09-05 13:40:31 +00:00
parent 5287911cf8
commit f83c90e8a9
2 changed files with 71 additions and 73 deletions

142
ide/examplemanager.lfm
View File

@ -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'

2
ide/examplemanager.pas
View File

@ -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;