paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-25 07:00:04 +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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

142
ide/examplemanager.lfm
View File

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

2
ide/examplemanager.pas
View File

@ -16,6 +16,7 @@ type
TExampleManagerForm = class(TForm) TExampleManagerForm = class(TForm)
BuildAllSelectedButton: TBitBtn; BuildAllSelectedButton: TBitBtn;
cgIncludedDirs: TCheckGroup; cgIncludedDirs: TCheckGroup;
lblCenter: TLabel;
lbProjectCount: TLabel; lbProjectCount: TLabel;
lbRootDirectory: TLabel; lbRootDirectory: TLabel;
SelectPanel: TPanel; SelectPanel: TPanel;
@ -25,7 +26,6 @@ type
cbIncludeAllDirs: TCheckBox; cbIncludeAllDirs: TCheckBox;
ProjectFilter: TListFilterEdit; ProjectFilter: TListFilterEdit;
OpenSelectedButton: TBitBtn; OpenSelectedButton: TBitBtn;
lbConstruction: TLabel;
ProjectsListBox: TListBox; ProjectsListBox: TListBox;
SelectAllButton: TBitBtn; SelectAllButton: TBitBtn;
ButtonPanel1: TButtonPanel; ButtonPanel1: TButtonPanel;