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

IDE: add another filter edit to Install packages dialog.

Browse Source 
git-svn-id: trunk@42792 -
This commit is contained in:
juha 2013-09-14 09:41:24 +00:00
parent 543ef33806
commit 53705de2e3
3 changed files with 88 additions and 72 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/lazarusidestrconsts.pas
View File

@ -5358,8 +5358,7 @@ resourcestring
lisNoHints = 'no hints'; lisNoHints = 'no hints';
lisAllParametersOfThisFunctionAreAlreadySetAtThisCall = 'All parameters of ' lisAllParametersOfThisFunctionAreAlreadySetAtThisCall = 'All parameters of '
+'this function are already set at this call. Nothing to add.'; +'this function are already set at this call. Nothing to add.';
lisToInstallYouMustCompileAndRestartTheIDE = 'To install you must compile ' lisIDECompileAndRestart = 'The IDE will compile and restart itself when installing packages.';
+'and restart the IDE';
synfUnfoldAllInSelection = 'Unfold all in selection'; synfUnfoldAllInSelection = 'Unfold all in selection';
synfUnfoldCommentsInSelection = 'Unfold comments in selection'; synfUnfoldCommentsInSelection = 'Unfold comments in selection';
@ -5380,8 +5379,7 @@ resourcestring
synfUnfoldActiveIfdef = 'Unfold active Ifdef'; synfUnfoldActiveIfdef = 'Unfold active Ifdef';
synfUnfoldInactiveIfdef = 'Unfold inactive Ifdef'; synfUnfoldInactiveIfdef = 'Unfold inactive Ifdef';
synfFoldInactiveIfdef = 'Fold inactive Ifdef'; synfFoldInactiveIfdef = 'Fold inactive Ifdef';
synfFoldInactiveIfdefExcludeMixedState = 'Fold inactive Ifdef (' synfFoldInactiveIfdefExcludeMixedState = 'Fold inactive Ifdef (exclude mixed state)';
+'exclude mixed state)';
lisCanNotCompileProject = 'Cannot compile project'; lisCanNotCompileProject = 'Cannot compile project';
lisTheProjectHasNoMainSourceFile = 'The project has no main source file.'; lisTheProjectHasNoMainSourceFile = 'The project has no main source file.';

135
packager/installpkgsetdlg.lfm
View File

@ -1,12 +1,12 @@
object InstallPkgSetDialog: TInstallPkgSetDialog object InstallPkgSetDialog: TInstallPkgSetDialog
Left = 292 Left = 376
Height = 562 Height = 578
Top = 240 Top = 216
Width = 587 Width = 607
BorderStyle = bsSizeToolWin BorderStyle = bsSizeToolWin
Caption = 'InstallPkgSetDialog' Caption = 'InstallPkgSetDialog'
ClientHeight = 562 ClientHeight = 578
ClientWidth = 587 ClientWidth = 607
Constraints.MinHeight = 400 Constraints.MinHeight = 400
Constraints.MinWidth = 450 Constraints.MinWidth = 450
OnCreate = InstallPkgSetDialogCreate OnCreate = InstallPkgSetDialogCreate
@ -21,23 +21,23 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
AnchorSideRight.Control = lblMiddle AnchorSideRight.Control = lblMiddle
AnchorSideBottom.Control = PkgInfoGroupBox AnchorSideBottom.Control = PkgInfoGroupBox
Left = 6 Left = 6
Height = 362 Height = 373
Top = 27 Top = 27
Width = 284 Width = 294
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BorderSpacing.Right = 3 BorderSpacing.Right = 3
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
Caption = 'InstallPkgGroupBox' Caption = 'InstallPkgGroupBox'
ClientHeight = 345 ClientHeight = 354
ClientWidth = 280 ClientWidth = 290
TabOrder = 0 TabOrder = 0
object ImportButton: TButton object ImportButton: TButton
Left = 6 Left = 6
Height = 25 Height = 25
Top = 283 Top = 292
Width = 268 Width = 278
Align = alBottom Align = alBottom
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'ImportButton' Caption = 'ImportButton'
@ -47,8 +47,8 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
object ExportButton: TButton object ExportButton: TButton
Left = 6 Left = 6
Height = 25 Height = 25
Top = 314 Top = 323
Width = 268 Width = 278
Align = alBottom Align = alBottom
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'ExportButton' Caption = 'ExportButton'
@ -56,12 +56,13 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
TabOrder = 3 TabOrder = 3
end end
object InstallTreeView: TTreeView object InstallTreeView: TTreeView
Left = 6 AnchorSideTop.Control = InstalledFilterEdit
Height = 240 AnchorSideTop.Side = asrBottom
Top = 6 Left = 8
Width = 268 Height = 227
Align = alClient Top = 28
BorderSpacing.Around = 6 Width = 278
Anchors = [akTop, akLeft, akRight, akBottom]
DefaultItemHeight = 18 DefaultItemHeight = 18
MultiSelect = True MultiSelect = True
ReadOnly = True ReadOnly = True
@ -77,14 +78,28 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
object UninstallButton: TBitBtn object UninstallButton: TBitBtn
Left = 6 Left = 6
Height = 25 Height = 25
Top = 252 Top = 261
Width = 268 Width = 278
Align = alBottom Align = alBottom
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'UninstallButton' Caption = 'UninstallButton'
OnClick = UninstallButtonClick OnClick = UninstallButtonClick
TabOrder = 1 TabOrder = 1
end end
object InstalledFilterEdit: TTreeFilterEdit
AnchorSideTop.Control = InstallPkgGroupBox
Left = 8
Height = 25
Top = 3
Width = 253
ButtonWidth = 23
NumGlyphs = 1
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 3
MaxLength = 0
TabOrder = 4
FilteredTreeview = InstallTreeView
end
end end
object AvailablePkgGroupBox: TGroupBox object AvailablePkgGroupBox: TGroupBox
AnchorSideLeft.Control = lblMiddle AnchorSideLeft.Control = lblMiddle
@ -93,26 +108,26 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
AnchorSideRight.Control = Owner AnchorSideRight.Control = Owner
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = PkgInfoGroupBox AnchorSideBottom.Control = PkgInfoGroupBox
Left = 296 Left = 306
Height = 362 Height = 373
Top = 27 Top = 27
Width = 285 Width = 295
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 3 BorderSpacing.Left = 3
BorderSpacing.Top = 6 BorderSpacing.Top = 6
BorderSpacing.Right = 6 BorderSpacing.Right = 6
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
Caption = 'AvailablePkgGroupBox' Caption = 'AvailablePkgGroupBox'
ClientHeight = 345 ClientHeight = 354
ClientWidth = 281 ClientWidth = 291
TabOrder = 1 TabOrder = 1
object AvailableTreeView: TTreeView object AvailableTreeView: TTreeView
AnchorSideTop.Control = AvailableFilterEdit AnchorSideTop.Control = AvailableFilterEdit
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 6 Left = 6
Height = 276 Height = 289
Top = 32 Top = 28
Width = 269 Width = 279
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Right = 6 BorderSpacing.Right = 6
@ -133,8 +148,8 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
object AddToInstallButton: TBitBtn object AddToInstallButton: TBitBtn
Left = 6 Left = 6
Height = 25 Height = 25
Top = 314 Top = 323
Width = 269 Width = 279
Align = alBottom Align = alBottom
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'AddToInstallButton' Caption = 'AddToInstallButton'
@ -142,14 +157,16 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
TabOrder = 2 TabOrder = 2
end end
object AvailableFilterEdit: TTreeFilterEdit object AvailableFilterEdit: TTreeFilterEdit
AnchorSideTop.Control = AvailablePkgGroupBox
Left = 6 Left = 6
Height = 25 Height = 25
Top = 7 Top = 3
Width = 247 Width = 255
UseFormActivate = True UseFormActivate = True
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 3
Font.Color = clBtnShadow Font.Color = clBtnShadow
MaxLength = 0 MaxLength = 0
ParentFont = False ParentFont = False
@ -162,18 +179,18 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
AnchorSideBottom.Control = BtnPanel AnchorSideBottom.Control = BtnPanel
Left = 0 Left = 0
Height = 127 Height = 127
Top = 395 Top = 406
Width = 587 Width = 607
Align = alBottom Align = alBottom
Caption = 'PkgInfoGroupBox' Caption = 'PkgInfoGroupBox'
ClientHeight = 110 ClientHeight = 108
ClientWidth = 583 ClientWidth = 603
TabOrder = 2 TabOrder = 2
object PkgInfoMemo: TMemo object PkgInfoMemo: TMemo
Left = 6 Left = 6
Height = 98 Height = 96
Top = 6 Top = 6
Width = 571 Width = 591
Align = alClient Align = alClient
BorderSpacing.Around = 6 BorderSpacing.Around = 6
ReadOnly = True ReadOnly = True
@ -183,20 +200,20 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
end end
object BtnPanel: TPanel object BtnPanel: TPanel
Left = 0 Left = 0
Height = 40 Height = 45
Top = 522 Top = 533
Width = 587 Width = 607
Align = alBottom Align = alBottom
AutoSize = True AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 40 ClientHeight = 45
ClientWidth = 587 ClientWidth = 607
TabOrder = 3 TabOrder = 3
object HelpButton: TBitBtn object HelpButton: TBitBtn
Left = 6 Left = 6
Height = 28 Height = 33
Top = 6 Top = 6
Width = 75 Width = 76
Align = alLeft Align = alLeft
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -207,10 +224,10 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
TabOrder = 0 TabOrder = 0
end end
object CancelButton: TBitBtn object CancelButton: TBitBtn
Left = 196 Left = 156
Height = 28 Height = 33
Top = 6 Top = 6
Width = 75 Width = 90
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -222,10 +239,10 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
TabOrder = 1 TabOrder = 1
end end
object SaveAndExitButton: TBitBtn object SaveAndExitButton: TBitBtn
Left = 442 Left = 441
Height = 28 Height = 33
Top = 6 Top = 6
Width = 139 Width = 160
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -271,10 +288,10 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
TabOrder = 2 TabOrder = 2
end end
object SaveAndRebuildButton: TBitBtn object SaveAndRebuildButton: TBitBtn
Left = 277 Left = 252
Height = 28 Height = 33
Top = 6 Top = 6
Width = 159 Width = 183
Align = alRight Align = alRight
AutoSize = True AutoSize = True
BorderSpacing.Around = 6 BorderSpacing.Around = 6
@ -324,7 +341,7 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
Left = 6 Left = 6
Height = 15 Height = 15
Top = 6 Top = 6
Width = 575 Width = 595
Align = alTop Align = alTop
BorderSpacing.Around = 6 BorderSpacing.Around = 6
Caption = 'NoteLabel' Caption = 'NoteLabel'
@ -335,9 +352,9 @@ object InstallPkgSetDialog: TInstallPkgSetDialog
AnchorSideLeft.Side = asrCenter AnchorSideLeft.Side = asrCenter
AnchorSideTop.Control = Owner AnchorSideTop.Control = Owner
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 293 Left = 303
Height = 1 Height = 1
Top = 281 Top = 289
Width = 1 Width = 1
AutoSize = False AutoSize = False
ParentColor = False ParentColor = False

3
packager/installpkgsetdlg.pas
View File

@ -69,6 +69,7 @@ type
SaveAndExitButton: TBitBtn; SaveAndExitButton: TBitBtn;
InstallPkgGroupBox: TGroupBox; InstallPkgGroupBox: TGroupBox;
SaveAndRebuildButton: TBitBtn; SaveAndRebuildButton: TBitBtn;
InstalledFilterEdit: TTreeFilterEdit;
UninstallButton: TBitBtn; UninstallButton: TBitBtn;
procedure AddToInstallButtonClick(Sender: TObject); procedure AddToInstallButtonClick(Sender: TObject);
function AvailableFilterEditGetImageIndex(Str: String; Data: TObject; function AvailableFilterEditGetImageIndex(Str: String; Data: TObject;
@ -192,7 +193,7 @@ begin
ImgIndexOverlayRunTimePackage := IDEImages.LoadImage(16, 'pkg_runtime_overlay'); ImgIndexOverlayRunTimePackage := IDEImages.LoadImage(16, 'pkg_runtime_overlay');
Caption:=lisInstallUninstallPackages; Caption:=lisInstallUninstallPackages;
NoteLabel.Caption:=lisToInstallYouMustCompileAndRestartTheIDE; NoteLabel.Caption:=lisIDECompileAndRestart;
AvailablePkgGroupBox.Caption:=lisAvailableForInstallation; AvailablePkgGroupBox.Caption:=lisAvailableForInstallation;