paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 20:40:59 +02:00
Code Issues Packages Projects Releases Wiki Activity

Packager: minor changes to PackageEditor

Browse Source 
git-svn-id: trunk@35444 -
This commit is contained in:
juha 2012-02-18 14:04:38 +00:00
parent 9ec7f6d914
commit dce2189855
2 changed files with 51 additions and 51 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

99
packager/packageeditor.lfm
View File

@ -1,7 +1,7 @@
inherited PackageEditorForm: TPackageEditorForm inherited PackageEditorForm: TPackageEditorForm
Left = 419 Left = 338
Height = 455 Height = 455
Top = 408 Top = 533
Width = 464 Width = 464
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 = 318 Top = 315
Width = 464 Width = 464
Align = alBottom Align = alBottom
Caption = 'FilePropsGroupBox' Caption = 'FilePropsGroupBox'
ClientHeight = 99 ClientHeight = 100
ClientWidth = 458 ClientWidth = 460
TabOrder = 3 TabOrder = 3
object CallRegisterProcCheckBox: TCheckBox object CallRegisterProcCheckBox: TCheckBox
Left = 0 Left = 0
Height = 21 Height = 20
Top = 0 Top = 0
Width = 174 Width = 173
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 = 184 Left = 183
Height = 21 Height = 20
Top = 0 Top = 0
Width = 203 Width = 202
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 = 21 Height = 20
Top = 1 Top = 2
Width = 163 Width = 162
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 = 173 Left = 172
Height = 22 Height = 24
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 = 21 Height = 20
Top = 25 Top = 28
Width = 167 Width = 166
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 = 177 Left = 176
Height = 22 Height = 24
Top = 24 Top = 26
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 = 23 Height = 24
Top = 52 Top = 56
Width = 152 Width = 153
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 = 72 Height = 74
Top = 27 Top = 26
Width = 458 Width = 460
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 = 53 ClientHeight = 56
ClientWidth = 452 ClientWidth = 456
TabOrder = 7 TabOrder = 7
object RegisteredListBox: TListBox object RegisteredListBox: TListBox
Left = 0 Left = 0
Height = 53 Height = 56
Top = 0 Top = 0
Width = 452 Width = 456
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 = 393 Left = 391
Height = 21 Height = 20
Top = 0 Top = 0
Width = 186 Width = 185
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 = 19 Height = 22
Top = 436 Top = 433
Width = 464 Width = 464
Panels = <> Panels = <>
end end
@ -176,7 +176,7 @@ inherited PackageEditorForm: TPackageEditorForm
Cursor = crVSplit Cursor = crVSplit
Left = 0 Left = 0
Height = 5 Height = 5
Top = 313 Top = 310
Width = 464 Width = 464
Align = alBottom Align = alBottom
ResizeAnchor = akBottom ResizeAnchor = akBottom
@ -197,7 +197,7 @@ inherited PackageEditorForm: TPackageEditorForm
AnchorSideTop.Control = OpenButton AnchorSideTop.Control = OpenButton
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 36 Left = 39
Height = 25 Height = 25
Top = 2 Top = 2
Width = 25 Width = 25
@ -219,7 +219,7 @@ inherited PackageEditorForm: TPackageEditorForm
AnchorSideTop.Control = OpenButton AnchorSideTop.Control = OpenButton
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 62 Left = 65
Height = 25 Height = 25
Top = 2 Top = 2
Width = 25 Width = 25
@ -240,10 +240,10 @@ inherited PackageEditorForm: TPackageEditorForm
AnchorSideTop.Control = SortAlphabeticallyButton AnchorSideTop.Control = SortAlphabeticallyButton
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 160 Left = 163
Height = 22 Height = 24
Top = 3 Top = 2
Width = 281 Width = 278
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 0 NumGlyphs = 0
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
@ -259,13 +259,14 @@ inherited PackageEditorForm: TPackageEditorForm
AnchorSideTop.Control = FilterPanel AnchorSideTop.Control = FilterPanel
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 0 Left = 3
Height = 25 Height = 25
Top = 2 Top = 2
Width = 25 Width = 25
AllowAllUp = True AllowAllUp = True
Anchors = [akTop, akLeft, akBottom] Anchors = [akTop, akLeft, akBottom]
AutoSize = True AutoSize = True
BorderSpacing.Left = 3
Constraints.MinHeight = 25 Constraints.MinHeight = 25
Constraints.MinWidth = 25 Constraints.MinWidth = 25
NumGlyphs = 0 NumGlyphs = 0
@ -278,7 +279,7 @@ inherited PackageEditorForm: TPackageEditorForm
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = OpenButton AnchorSideTop.Control = OpenButton
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 98 Left = 101
Height = 26 Height = 26
Top = 1 Top = 1
Width = 25 Width = 25
@ -296,7 +297,7 @@ inherited PackageEditorForm: TPackageEditorForm
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = OpenButton AnchorSideTop.Control = OpenButton
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 124 Left = 127
Height = 26 Height = 26
Top = 1 Top = 1
Width = 25 Width = 25
@ -312,11 +313,11 @@ inherited PackageEditorForm: TPackageEditorForm
end end
object FilesTreeView: TTreeView[5] object FilesTreeView: TTreeView[5]
Left = 0 Left = 0
Height = 234 Height = 233
Top = 79 Top = 77
Width = 464 Width = 464
Align = alClient Align = alClient
BorderSpacing.Top = 3 BorderSpacing.Top = 1
DefaultItemHeight = 16 DefaultItemHeight = 16
PopupMenu = FilesPopupMenu PopupMenu = FilesPopupMenu
ReadOnly = True ReadOnly = True

3
packager/packageeditor.pas
View File

@ -738,7 +738,7 @@ end;
procedure TPackageEditorForm.FilesTreeViewKeyPress(Sender: TObject; var Key: Char); procedure TPackageEditorForm.FilesTreeViewKeyPress(Sender: TObject; var Key: Char);
begin begin
if Key = #13 then if Key = char(VK_RETURN) then
OpenFileMenuItemClick(Self); OpenFileMenuItemClick(Self);
end; end;
@ -1295,7 +1295,6 @@ begin
// Buttons on FilterPanel // Buttons on FilterPanel
OpenButton.LoadGlyphFromLazarusResource('laz_open'); OpenButton.LoadGlyphFromLazarusResource('laz_open');
OpenButton.Caption:='';
OpenButton.Hint:=lisOpenFile2; OpenButton.Hint:=lisOpenFile2;
SortAlphabeticallyButton.Hint:=lisPESortFilesAlphabetically; SortAlphabeticallyButton.Hint:=lisPESortFilesAlphabetically;
SortAlphabeticallyButton.LoadGlyphFromLazarusResource('pkg_sortalphabetically'); SortAlphabeticallyButton.LoadGlyphFromLazarusResource('pkg_sortalphabetically');