paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 00:19:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: More improvements to Project Inspector and Package Editor GUIs.

Browse Source 
git-svn-id: trunk@34963 -
This commit is contained in:
juha 2012-01-26 19:37:06 +00:00
parent 886d3e9169
commit adf110ff06
3 changed files with 97 additions and 112 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
ide/projectinspector.lfm
View File

@ -1,7 +1,7 @@
object ProjectInspectorForm: TProjectInspectorForm object ProjectInspectorForm: TProjectInspectorForm
Left = 328 Left = 374
Height = 474 Height = 474
Top = 24 Top = 0
Width = 425 Width = 425
ActiveControl = ItemsTreeView ActiveControl = ItemsTreeView
Caption = 'ProjectInspectorForm' Caption = 'ProjectInspectorForm'
@ -39,6 +39,8 @@ object ProjectInspectorForm: TProjectInspectorForm
TabOrder = 1 TabOrder = 1
object OpenButton: TSpeedButton object OpenButton: TSpeedButton
AnchorSideLeft.Control = BtnPanel AnchorSideLeft.Control = BtnPanel
AnchorSideTop.Control = BtnPanel
AnchorSideTop.Side = asrCenter
Left = 1 Left = 1
Height = 26 Height = 26
Top = 1 Top = 1
@ -58,7 +60,7 @@ object ProjectInspectorForm: TProjectInspectorForm
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = OpenButton AnchorSideTop.Control = OpenButton
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 43 Left = 37
Height = 25 Height = 25
Top = 2 Top = 2
Width = 25 Width = 25
@ -78,7 +80,7 @@ object ProjectInspectorForm: TProjectInspectorForm
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = OpenButton AnchorSideTop.Control = OpenButton
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 69 Left = 63
Height = 25 Height = 25
Top = 2 Top = 2
Width = 25 Width = 25
@ -96,13 +98,15 @@ object ProjectInspectorForm: TProjectInspectorForm
object FilterEdit: TTreeFilterEdit object FilterEdit: TTreeFilterEdit
AnchorSideLeft.Control = SortAlphabeticallyButton AnchorSideLeft.Control = SortAlphabeticallyButton
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
Left = 97 AnchorSideTop.Control = SortAlphabeticallyButton
Height = 28 AnchorSideTop.Side = asrCenter
Top = 1 Left = 91
Width = 305 Height = 22
Top = 3
Width = 311
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 0 NumGlyphs = 0
Anchors = [akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 3 BorderSpacing.Left = 3
Font.Color = clBtnShadow Font.Color = clBtnShadow
MaxLength = 0 MaxLength = 0

184
packager/packageeditor.lfm
View File

@ -1,7 +1,7 @@
inherited PackageEditorForm: TPackageEditorForm inherited PackageEditorForm: TPackageEditorForm
Left = 278 Left = 385
Height = 455 Height = 455
Top = 490 Top = 525
Width = 577 Width = 577
Caption = 'PackageEditorForm' Caption = 'PackageEditorForm'
ClientHeight = 455 ClientHeight = 455
@ -25,18 +25,18 @@ inherited PackageEditorForm: TPackageEditorForm
object FilePropsGroupBox: TGroupBox[1] object FilePropsGroupBox: TGroupBox[1]
Left = 0 Left = 0
Height = 118 Height = 118
Top = 314 Top = 318
Width = 577 Width = 577
Align = alBottom Align = alBottom
Caption = 'FilePropsGroupBox' Caption = 'FilePropsGroupBox'
ClientHeight = 96 ClientHeight = 99
ClientWidth = 569 ClientWidth = 571
TabOrder = 2 TabOrder = 2
object CallRegisterProcCheckBox: TCheckBox object CallRegisterProcCheckBox: TCheckBox
Left = 0 Left = 0
Height = 23 Height = 21
Top = 0 Top = 0
Width = 222 Width = 174
Caption = 'CallRegisterProcCheckBox' Caption = 'CallRegisterProcCheckBox'
OnChange = CallRegisterProcCheckBoxChange OnChange = CallRegisterProcCheckBoxChange
ParentShowHint = False ParentShowHint = False
@ -46,10 +46,10 @@ inherited PackageEditorForm: TPackageEditorForm
object AddToUsesPkgSectionCheckBox: TCheckBox object AddToUsesPkgSectionCheckBox: TCheckBox
AnchorSideLeft.Control = CallRegisterProcCheckBox AnchorSideLeft.Control = CallRegisterProcCheckBox
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
Left = 232 Left = 184
Height = 23 Height = 21
Top = 0 Top = 0
Width = 264 Width = 203
BorderSpacing.Left = 10 BorderSpacing.Left = 10
Caption = 'AddToUsesPkgSectionCheckBox' Caption = 'AddToUsesPkgSectionCheckBox'
OnChange = AddToUsesPkgSectionCheckBoxChange OnChange = AddToUsesPkgSectionCheckBoxChange
@ -62,9 +62,9 @@ inherited PackageEditorForm: TPackageEditorForm
AnchorSideTop.Control = MinVersionEdit AnchorSideTop.Control = MinVersionEdit
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 0 Left = 0
Height = 23 Height = 21
Top = 3 Top = 1
Width = 211 Width = 163
Caption = 'UseMinVersionCheckBox' Caption = 'UseMinVersionCheckBox'
OnChange = UseMinVersionCheckBoxChange OnChange = UseMinVersionCheckBoxChange
TabOrder = 2 TabOrder = 2
@ -73,8 +73,8 @@ inherited PackageEditorForm: TPackageEditorForm
AnchorSideLeft.Control = UseMinVersionCheckBox AnchorSideLeft.Control = UseMinVersionCheckBox
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = FilePropsGroupBox AnchorSideTop.Control = FilePropsGroupBox
Left = 221 Left = 173
Height = 28 Height = 22
Top = 0 Top = 0
Width = 100 Width = 100
BorderSpacing.Left = 10 BorderSpacing.Left = 10
@ -87,9 +87,9 @@ inherited PackageEditorForm: TPackageEditorForm
AnchorSideTop.Control = MaxVersionEdit AnchorSideTop.Control = MaxVersionEdit
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 0 Left = 0
Height = 23 Height = 21
Top = 33 Top = 25
Width = 216 Width = 167
Caption = 'UseMaxVersionCheckBox' Caption = 'UseMaxVersionCheckBox'
OnChange = UseMaxVersionCheckBoxChange OnChange = UseMaxVersionCheckBoxChange
TabOrder = 4 TabOrder = 4
@ -99,9 +99,9 @@ inherited PackageEditorForm: TPackageEditorForm
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = MinVersionEdit AnchorSideTop.Control = MinVersionEdit
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 226 Left = 177
Height = 28 Height = 22
Top = 30 Top = 24
Width = 100 Width = 100
BorderSpacing.Left = 10 BorderSpacing.Left = 10
BorderSpacing.Top = 2 BorderSpacing.Top = 2
@ -114,9 +114,9 @@ inherited PackageEditorForm: TPackageEditorForm
AnchorSideTop.Control = MaxVersionEdit AnchorSideTop.Control = MaxVersionEdit
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 30 Height = 23
Top = 64 Top = 52
Width = 193 Width = 152
AutoSize = True AutoSize = True
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'ApplyDependencyButton' Caption = 'ApplyDependencyButton'
@ -127,21 +127,21 @@ inherited PackageEditorForm: TPackageEditorForm
AnchorSideTop.Control = CallRegisterProcCheckBox AnchorSideTop.Control = CallRegisterProcCheckBox
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 0 Left = 0
Height = 67 Height = 72
Top = 29 Top = 27
Width = 569 Width = 571
Align = alBottom Align = alBottom
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 6 BorderSpacing.Top = 6
Caption = 'RegisteredPluginsGroupBox' Caption = 'RegisteredPluginsGroupBox'
ClientHeight = 45 ClientHeight = 53
ClientWidth = 561 ClientWidth = 565
TabOrder = 7 TabOrder = 7
object RegisteredListBox: TListBox object RegisteredListBox: TListBox
Left = 0 Left = 0
Height = 45 Height = 53
Top = 0 Top = 0
Width = 561 Width = 565
Align = alClient Align = alClient
ItemHeight = 0 ItemHeight = 0
OnDrawItem = RegisteredListBoxDrawItem OnDrawItem = RegisteredListBoxDrawItem
@ -153,10 +153,10 @@ inherited PackageEditorForm: TPackageEditorForm
AnchorSideLeft.Control = AddToUsesPkgSectionCheckBox AnchorSideLeft.Control = AddToUsesPkgSectionCheckBox
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = AddToUsesPkgSectionCheckBox AnchorSideTop.Control = AddToUsesPkgSectionCheckBox
Left = 502 Left = 393
Height = 23 Height = 21
Top = 0 Top = 0
Width = 241 Width = 186
BorderSpacing.Left = 6 BorderSpacing.Left = 6
Caption = 'DisableI18NForLFMCheckBox' Caption = 'DisableI18NForLFMCheckBox'
OnChange = DisableI18NForLFMCheckBoxChange OnChange = DisableI18NForLFMCheckBoxChange
@ -167,8 +167,8 @@ inherited PackageEditorForm: TPackageEditorForm
end end
object StatusBar: TStatusBar[2] object StatusBar: TStatusBar[2]
Left = 0 Left = 0
Height = 23 Height = 19
Top = 432 Top = 436
Width = 577 Width = 577
Panels = <> Panels = <>
end end
@ -176,55 +176,35 @@ inherited PackageEditorForm: TPackageEditorForm
Cursor = crVSplit Cursor = crVSplit
Left = 0 Left = 0
Height = 5 Height = 5
Top = 309 Top = 313
Width = 577 Width = 577
Align = alBottom Align = alBottom
ResizeAnchor = akBottom ResizeAnchor = akBottom
end end
object ItemsPanel: TPanel[4] object BtnPanel: TPanel[4]
Left = 0 Left = 0
Height = 261 Height = 28
Top = 48 Top = 48
Width = 577 Width = 577
Align = alClient Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 261 ClientHeight = 28
ClientWidth = 577 ClientWidth = 577
TabOrder = 1 TabOrder = 1
object FilesTreeView: TTreeView
AnchorSideTop.Control = FilterEdit
AnchorSideTop.Side = asrBottom
Left = 0
Height = 230
Top = 31
Width = 577
Align = alBottom
Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Top = 3
DefaultItemHeight = 16
PopupMenu = FilesPopupMenu
ReadOnly = True
RightClickSelect = True
TabOrder = 1
OnDblClick = FixFilesCaseMenuItemClick
OnKeyPress = FilesTreeViewKeyPress
OnSelectionChanged = FilesTreeViewSelectionChanged
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
end
object DirectoryHierarchyButton: TSpeedButton object DirectoryHierarchyButton: TSpeedButton
AnchorSideLeft.Control = DummyButton AnchorSideLeft.Control = OpenButton
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = OpenButton AnchorSideTop.Control = OpenButton
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 42 Left = 36
Height = 25 Height = 25
Top = 3 Top = 2
Width = 25 Width = 25
AllowAllUp = True AllowAllUp = True
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Left = 1 BorderSpacing.Left = 11
Constraints.MinHeight = 25 Constraints.MinHeight = 25
Constraints.MinWidth = 25 Constraints.MinWidth = 25
GroupIndex = 1 GroupIndex = 1
@ -239,9 +219,9 @@ inherited PackageEditorForm: TPackageEditorForm
AnchorSideTop.Control = OpenButton AnchorSideTop.Control = OpenButton
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 68 Left = 62
Height = 25 Height = 25
Top = 3 Top = 2
Width = 25 Width = 25
AllowAllUp = True AllowAllUp = True
AutoSize = True AutoSize = True
@ -257,12 +237,13 @@ inherited PackageEditorForm: TPackageEditorForm
object FilterEdit: TTreeFilterEdit object FilterEdit: TTreeFilterEdit
AnchorSideLeft.Control = SortAlphabeticallyButton AnchorSideLeft.Control = SortAlphabeticallyButton
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = ItemsPanel AnchorSideTop.Control = SortAlphabeticallyButton
AnchorSideTop.Side = asrCenter
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 96 Left = 90
Height = 28 Height = 22
Top = 0 Top = 3
Width = 458 Width = 464
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 0 NumGlyphs = 0
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -274,11 +255,13 @@ inherited PackageEditorForm: TPackageEditorForm
FilteredTreeview = FilesTreeView FilteredTreeview = FilesTreeView
end end
object OpenButton: TSpeedButton object OpenButton: TSpeedButton
AnchorSideLeft.Control = ItemsPanel AnchorSideLeft.Control = BtnPanel
AnchorSideTop.Control = BtnPanel
AnchorSideTop.Side = asrCenter
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 0 Left = 0
Height = 25 Height = 25
Top = 3 Top = 2
Width = 25 Width = 25
AllowAllUp = True AllowAllUp = True
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akBottom]
@ -290,38 +273,37 @@ inherited PackageEditorForm: TPackageEditorForm
ShowHint = True ShowHint = True
ParentShowHint = False ParentShowHint = False
end end
object DummyButton: TSpeedButton
AnchorSideLeft.Control = OpenButton
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = OpenButton
AnchorSideTop.Side = asrCenter
AnchorSideBottom.Side = asrBottom
Left = 26
Height = 12
Top = 9
Width = 15
AllowAllUp = True
Anchors = [akTop, akLeft, akBottom]
BorderSpacing.Left = 1
NumGlyphs = 0
OnClick = DirectoryHierarchyButtonClick
ShowHint = True
ParentShowHint = False
end
end end
object FilesPopupMenu: TPopupMenu[5] object FilesTreeView: TTreeView[5]
Left = 0
Height = 234
Top = 79
Width = 577
Align = alClient
BorderSpacing.Top = 3
DefaultItemHeight = 16
PopupMenu = FilesPopupMenu
ReadOnly = True
RightClickSelect = True
TabOrder = 5
OnDblClick = FixFilesCaseMenuItemClick
OnKeyPress = FilesTreeViewKeyPress
OnSelectionChanged = FilesTreeViewSelectionChanged
Options = [tvoAutoItemHeight, tvoHideSelection, tvoKeepCollapsedNodes, tvoReadOnly, tvoRightClickSelect, tvoShowButtons, tvoShowLines, tvoShowRoot, tvoToolTips, tvoThemedDraw]
end
object FilesPopupMenu: TPopupMenu[6]
OnPopup = FilesPopupMenuPopup OnPopup = FilesPopupMenuPopup
left = 165 left = 296
top = 160 top = 8
end end
object UsePopupMenu: TPopupMenu[6] object UsePopupMenu: TPopupMenu[7]
OnPopup = UsePopupMenuPopup OnPopup = UsePopupMenuPopup
left = 80 left = 184
top = 112 top = 8
end end
object MorePopupMenu: TPopupMenu[7] object MorePopupMenu: TPopupMenu[8]
OnPopup = MorePopupMenuPopup OnPopup = MorePopupMenuPopup
left = 264 left = 416
top = 192 top = 8
end end
end end

3
packager/packageeditor.pas
View File

@ -145,8 +145,7 @@ type
OpenButton: TSpeedButton; OpenButton: TSpeedButton;
DisableI18NForLFMCheckBox: TCheckBox; DisableI18NForLFMCheckBox: TCheckBox;
FilterEdit: TTreeFilterEdit; FilterEdit: TTreeFilterEdit;
ItemsPanel: TPanel; BtnPanel: TPanel;
DummyButton: TSpeedButton;
SortAlphabeticallyButton: TSpeedButton; SortAlphabeticallyButton: TSpeedButton;
Splitter1: TSplitter; Splitter1: TSplitter;
// toolbar // toolbar