ide: started package list editor dialog

ide/findinfileswnd.pas

@@ -24,7 +24,7 @@ uses
   ExtCtrls, Controls, DividerBevel, SynEdit, EnvironmentOpts, SearchPathProcs,
   MenuIntf, IDEWindowIntf, LazIDEIntf, SrcEditorIntf, IDEDialogs, LazFileUtils,
   LazLoggerBase, ProjectIntf, MacroIntf, InputHistory, EditorOptions,
-  PathEditorDlg;
+  PathEditorDlg, PackageListEditorDlg;
 
 type
 
@@ -57,9 +57,13 @@ type
     procedure ShowReplaceSpeedButtonClick(Sender: TObject);
   private
     DirectoriesPathEditBtn: TPathEditorButton;
+    PkgListEditBtn: TPkgListEditorButton;
     procedure DirectoriesPathEditBtnClick(Sender: TObject);
     function DirectoriesPathEditBtnExecuted(Context: String; var NewPath: String
       ): Boolean;
+    procedure PkgListEditBtnClick(Sender: TObject);
+    function PkgListEditBtnExecuted(Context: String; var NewPath: String
+      ): Boolean;
   protected
     function GetBaseDirectory: string; virtual;
     procedure DoFirstShow; override;
@@ -131,9 +135,31 @@ begin
   FileMaskComboBox.TextHint:='*.pas;*.inc;*.txt;*.lfm';
   InEditorFilesSpeedButton.Hint:='Search in editor files';
   InProjectFilesSpeedButton1.Hint:='Search in project files';
-  PkgComboBox.TextHint:='lcl;lazutils';
-  PkgComboBox.Text:='do not search in packages';
 
+  // packages
+  PkgComboBox.TextHint:='pkg1;pkg2';
+  PkgComboBox.Text:='';
+  PkgListEditBtn := TPkgListEditorButton.Create(Self);
+  with PkgListEditBtn do
+  begin
+    Name := 'PkgListEditBtn';
+    Caption := '...';
+    AutoSize := true;
+    Anchors := [akRight, akTop, akBottom];
+    AnchorParallel(akTop, 0, PkgComboBox);
+    AnchorParallel(akBottom, 0, PkgComboBox);
+    AnchorParallel(akRight, 0, WherePanel);
+    ContextCaption := 'Search in packages';
+    Templates:='$(ProjectPackages)';
+    AssociatedComboBox:=PkgComboBox;
+    OnClick := @PkgListEditBtnClick;
+    OnExecuted := @PkgListEditBtnExecuted;
+    Parent := WherePanel;
+    TabOrder := PkgComboBox.TabOrder+1;
+  end;
+  PkgComboBox.AnchorToNeighbour(akRight, 0, PkgListEditBtn);
+
+  // directories
   DirectoriesComboBox.TextHint:='folder1;folder2';
   DirectoriesComboBox.Text:='';
   DirectoriesPathEditBtn := TPathEditorButton.Create(Self);
@@ -158,6 +184,7 @@ begin
   end;
   DirectoriesComboBox.AnchorToNeighbour(akRight, 0, DirectoriesPathEditBtn);
 
+  // preview
   SrcDividerBevel.Caption:='Preview';
   SynEdit1.Lines.Text:='No source selected';
 
@@ -236,6 +263,19 @@ begin
   Result:=true;
 end;
 
+procedure TLazFindInFilesWindow.PkgListEditBtnClick(Sender: TObject);
+begin
+
+end;
+
+function TLazFindInFilesWindow.PkgListEditBtnExecuted(Context: String;
+  var NewPath: String): Boolean;
+begin
+  if Context='' then ;
+  if NewPath<>PkgComboBox.Text then ;
+  Result:=true;
+end;
+
 function TLazFindInFilesWindow.GetBaseDirectory: string;
 var
   Proj: TLazProject;

ide/frames/packagelisteditordlg.lfm

@@ -0,0 +1,237 @@
+object PkgListEditorDialog: TPkgListEditorDialog
+  Left = 420
+  Height = 450
+  Top = 156
+  Width = 662
+  AutoSize = True
+  Caption = 'PkgListEditorDialog'
+  ClientHeight = 450
+  ClientWidth = 662
+  Constraints.MinHeight = 400
+  Constraints.MinWidth = 500
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
+  OnShow = FormShow
+  Position = poScreenCenter
+  LCLVersion = '2.3.0.0'
+  object PkgsGroupBox: TGroupBox
+    AnchorSideLeft.Control = Owner
+    AnchorSideTop.Control = Owner
+    AnchorSideRight.Side = asrBottom
+    AnchorSideBottom.Control = AddTemplateButton
+    Left = 6
+    Height = 363
+    Top = 6
+    Width = 378
+    Anchors = [akTop, akLeft, akBottom]
+    BorderSpacing.Around = 6
+    Caption = 'PkgsGroupBox'
+    ClientHeight = 347
+    ClientWidth = 376
+    Constraints.MinHeight = 100
+    Constraints.MinWidth = 200
+    TabOrder = 0
+    object DeleteButton: TBitBtn
+      AnchorSideLeft.Control = PkgsGroupBox
+      AnchorSideBottom.Control = PkgsGroupBox
+      AnchorSideBottom.Side = asrBottom
+      Left = 6
+      Height = 31
+      Top = 310
+      Width = 93
+      Anchors = [akLeft, akBottom]
+      AutoSize = True
+      BorderSpacing.Around = 6
+      Caption = 'DeleteButton'
+      Enabled = False
+      OnClick = DeleteButtonClick
+      ParentShowHint = False
+      ShowHint = True
+      TabOrder = 0
+    end
+    object MoveUpButton: TSpeedButton
+      AnchorSideRight.Control = PkgsGroupBox
+      AnchorSideRight.Side = asrBottom
+      AnchorSideBottom.Control = PkgsGroupBox
+      AnchorSideBottom.Side = asrBottom
+      Left = 345
+      Height = 25
+      Top = 85
+      Width = 25
+      Anchors = [akRight]
+      BorderSpacing.Around = 6
+      OnClick = MoveUpButtonClick
+      ShowHint = True
+      ParentShowHint = False
+    end
+    object MoveDownButton: TSpeedButton
+      AnchorSideLeft.Side = asrCenter
+      AnchorSideTop.Control = MoveUpButton
+      AnchorSideTop.Side = asrBottom
+      AnchorSideRight.Control = MoveUpButton
+      AnchorSideRight.Side = asrBottom
+      AnchorSideBottom.Side = asrBottom
+      Left = 345
+      Height = 25
+      Top = 119
+      Width = 25
+      Anchors = [akTop, akRight]
+      BorderSpacing.Top = 9
+      OnClick = MoveDownButtonClick
+      ShowHint = True
+      ParentShowHint = False
+    end
+    object PkgsStringGrid: TStringGrid
+      AnchorSideLeft.Control = PkgsGroupBox
+      AnchorSideTop.Control = PkgsGroupBox
+      AnchorSideRight.Control = MoveUpButton
+      AnchorSideBottom.Control = DeleteButton
+      Left = 6
+      Height = 298
+      Top = 6
+      Width = 333
+      Anchors = [akTop, akLeft, akRight, akBottom]
+      AutoFillColumns = True
+      BorderSpacing.Around = 6
+      ColCount = 2
+      Columns = <      
+        item
+          SizePriority = 3
+          Title.Caption = 'Package'
+          Width = 166
+        end      
+        item
+          ButtonStyle = cbsPickList
+          PickList.Strings = (
+            'Include'
+            'Include, Recursive'
+            'Exclude'
+          )
+          Title.Caption = 'Option'
+          Width = 165
+        end>
+      FixedCols = 0
+      Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goSmoothScroll]
+      TabOrder = 1
+      ColWidths = (
+        166
+        165
+      )
+    end
+  end
+  object ButtonPanel1: TButtonPanel
+    Left = 6
+    Height = 32
+    Top = 412
+    Width = 650
+    OKButton.Name = 'OKButton'
+    OKButton.DefaultCaption = True
+    HelpButton.Name = 'HelpButton'
+    HelpButton.DefaultCaption = True
+    CloseButton.Name = 'CloseButton'
+    CloseButton.DefaultCaption = True
+    CancelButton.Name = 'CancelButton'
+    CancelButton.DefaultCaption = True
+    TabOrder = 1
+    ShowButtons = [pbOK, pbCancel]
+    ShowBevel = False
+  end
+  object AddTemplateButton: TBitBtn
+    AnchorSideBottom.Control = ButtonPanel1
+    Left = 16
+    Height = 31
+    Top = 375
+    Width = 128
+    Anchors = [akLeft, akBottom]
+    AutoSize = True
+    BorderSpacing.Around = 6
+    Caption = 'AddTemplateButton'
+    OnClick = AddTemplateButtonClick
+    ParentShowHint = False
+    ShowHint = True
+    TabOrder = 2
+  end
+  object AvailableGroupBox: TGroupBox
+    AnchorSideLeft.Control = PkgsGroupBox
+    AnchorSideLeft.Side = asrBottom
+    AnchorSideTop.Control = Owner
+    AnchorSideRight.Control = Owner
+    AnchorSideRight.Side = asrBottom
+    AnchorSideBottom.Control = ButtonPanel1
+    Left = 390
+    Height = 400
+    Top = 6
+    Width = 266
+    Anchors = [akTop, akLeft, akRight, akBottom]
+    BorderSpacing.Around = 6
+    Caption = 'AvailableGroupBox'
+    ClientHeight = 384
+    ClientWidth = 264
+    TabOrder = 3
+    object AvailableListBox: TListBox
+      AnchorSideLeft.Control = AvailableGroupBox
+      AnchorSideTop.Control = AvailableGroupBox
+      AnchorSideRight.Control = AvailableGroupBox
+      AnchorSideRight.Side = asrBottom
+      AnchorSideBottom.Control = AddButton
+      Left = 6
+      Height = 335
+      Top = 6
+      Width = 252
+      Anchors = [akTop, akLeft, akRight, akBottom]
+      BorderSpacing.Around = 6
+      ItemHeight = 0
+      TabOrder = 0
+      TopIndex = -1
+    end
+    object AddButton: TBitBtn
+      AnchorSideLeft.Control = AvailableListBox
+      AnchorSideBottom.Control = AvailableGroupBox
+      AnchorSideBottom.Side = asrBottom
+      Left = 12
+      Height = 31
+      Top = 347
+      Width = 77
+      Anchors = [akLeft, akBottom]
+      AutoSize = True
+      BorderSpacing.Around = 6
+      Caption = 'AddButton'
+      Enabled = False
+      OnClick = AddButtonClick
+      ParentShowHint = False
+      ShowHint = True
+      TabOrder = 1
+    end
+  end
+  object PopupMenu1: TPopupMenu
+    Left = 48
+    Top = 100
+    object CopyMenuItem: TMenuItem
+      Caption = 'Copy All'
+      OnClick = CopyMenuItemClick
+    end
+    object PasteMenuItem: TMenuItem
+      Caption = 'Paste'
+      OnClick = PasteMenuItemClick
+    end
+    object SeparMenuItem: TMenuItem
+      Caption = '-'
+    end
+    object ExportMenuItem: TMenuItem
+      Caption = 'Export to file'
+      OnClick = ExportMenuItemClick
+    end
+    object ImportMenuItem: TMenuItem
+      Caption = 'Import from file'
+      OnClick = ImportMenuItemClick
+    end
+  end
+  object OpenDialog1: TOpenDialog
+    Left = 128
+    Top = 100
+  end
+  object SaveDialog1: TSaveDialog
+    Left = 128
+    Top = 170
+  end
+end

ide/frames/packagelisteditordlg.pas

@@ -0,0 +1,528 @@
+{
+ /***************************************************************************
+                          packageslisteditordlg.pas
+                          -------------------------
+
+ ***************************************************************************/
+
+ *****************************************************************************
+  See the file COPYING.modifiedLGPL.txt, included in this distribution,
+  for details about the license.
+ *****************************************************************************
+
+ Abstract:
+   Defines the TPckListEditorDialog, which is a form to edit search lists of packages
+ 
+}
+unit PackageListEditorDlg;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils,
+  // LCL
+  LCLType, LCLProc, Forms, Controls, Buttons, StdCtrls, Dialogs, Menus, Graphics,
+  ButtonPanel, Clipbrd, Grids,
+  // LazUtils
+  FileUtil, LazFileUtils, LazStringUtils, LazFileCache, LazUTF8,
+  // IdeIntf
+  IDEImagesIntf,
+  // IDE
+  TransferMacros, GenericListSelect, LazarusIDEStrConsts;
+
+type
+  TPkgPatternPrefix = (
+    pppInclude,
+    pppIncludeRecursive,
+    pppExclude
+    );
+const
+  PkgPatternPrefixes: array[TPkgPatternPrefix] of string = (
+    '',
+    '>',
+    '-'
+    );
+
+type
+
+  { TPkgListEditorDialog }
+
+  TPkgListEditorDialog = class(TForm)
+    AddTemplateButton: TBitBtn;
+    AvailableGroupBox: TGroupBox;
+    AvailableListBox: TListBox;
+    ButtonPanel1: TButtonPanel;
+    CopyMenuItem: TMenuItem;
+    MoveDownButton: TSpeedButton;
+    MoveUpButton: TSpeedButton;
+    OpenDialog1: TOpenDialog;
+    PkgsStringGrid: TStringGrid;
+    SaveDialog1: TSaveDialog;
+    ExportMenuItem: TMenuItem;
+    ImportMenuItem: TMenuItem;
+    SeparMenuItem: TMenuItem;
+    PasteMenuItem: TMenuItem;
+    PopupMenu1: TPopupMenu;
+    AddButton: TBitBtn;
+    DeleteButton: TBitBtn;
+    PkgsGroupBox: TGroupBox;
+    procedure AddButtonClick(Sender: TObject);
+    procedure AddTemplateButtonClick(Sender: TObject);
+    procedure CopyMenuItemClick(Sender: TObject);
+    procedure ExportMenuItemClick(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+    procedure PasteMenuItemClick(Sender: TObject);
+    procedure DeleteButtonClick(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure MoveDownButtonClick(Sender: TObject);
+    procedure MoveUpButtonClick(Sender: TObject);
+    procedure ImportMenuItemClick(Sender: TObject);
+  private
+    FTemplateList: TStringListUTF8Fast;
+    procedure AddPkg(PkgName: string; PkgAction: TPkgPatternPrefix);
+    function GetPath: string;
+    procedure SetPath(const AValue: string);
+    procedure SetTemplates(const AValue: string);
+    procedure UpdateButtons;
+    function SaveToList: TStringListUTF8Fast;
+    procedure LoadFromList(sl: TStrings);
+    function PatternActionToCaption(PkgAction: TPkgPatternPrefix): string;
+    function CaptionToPatternAction(const PkgAction: string): TPkgPatternPrefix;
+    function RowOfPkgName(const PkgName: string): integer;
+  public
+    property Path: string read GetPath write SetPath;
+    property Templates: string {read GetTemplates} write SetTemplates;
+  end;
+
+  TOnPkgListEditorExecuted = function (Context: String; var NewPath: String): Boolean of object;
+
+  { TPkgListEditorButton }
+
+  TPkgListEditorButton = class(TButton)
+  private
+    FAssociatedComboBox: TCustomComboBox;
+    FCurrentPkgListEditor: TPkgListEditorDialog;
+    FAssociatedEdit: TCustomEdit;
+    FContextCaption: String;
+    FTemplates: String;
+    FOnExecuted: TOnPkgListEditorExecuted;
+    function GetAssociatedText: string;
+  protected
+    procedure DoOnPathEditorExecuted;
+  public
+    procedure Click; override;
+    property CurrentPathEditor: TPkgListEditorDialog read FCurrentPkgListEditor;
+    property AssociatedComboBox: TCustomComboBox read FAssociatedComboBox write FAssociatedComboBox;
+    property AssociatedEdit: TCustomEdit read FAssociatedEdit write FAssociatedEdit;
+    property AssociatedText: string read GetAssociatedText;
+    property ContextCaption: String read FContextCaption write FContextCaption;
+    property Templates: String read FTemplates write FTemplates;
+    property OnExecuted: TOnPkgListEditorExecuted read FOnExecuted write FOnExecuted;
+  end;
+
+function PkgListEditorDialog: TPkgListEditorDialog;
+procedure SetPkgListTextAndHint(aPath: String; aEdit: TWinControl);
+function ParsePkgPattern(const Pattern: string; out Action: TPkgPatternPrefix): string; // returns packagename
+function MakeParsePkgPattern(const PkgName: string; Action: TPkgPatternPrefix): string;
+
+implementation
+
+{$R *.lfm}
+
+var PkgListEditor: TPkgListEditorDialog;
+
+function PkgListEditorDialog: TPkgListEditorDialog;
+begin
+  if PkgListEditor=nil then
+    PkgListEditor:=TPkgListEditorDialog.Create(Application);
+  Result:=PkgListEditor;
+end;
+
+procedure SetPkgListTextAndHint(aPath: String; aEdit: TWinControl);
+var
+  sl: TStrings;
+begin
+  if aEdit is TCustomEdit then
+    TCustomEdit(aEdit).Text := aPath
+  else if aEdit is TCustomComboBox then
+    TCustomComboBox(aEdit).Text := aPath;
+  if Pos(';', aPath) > 0 then
+  begin
+    sl := SplitString(aPath, ';');
+    aEdit.Hint := sl.Text;
+    sl.Free;
+  end
+  else
+    aEdit.Hint := lisDelimiterIsSemicolon;
+end;
+
+function ParsePkgPattern(const Pattern: string; out Action: TPkgPatternPrefix
+  ): string;
+var
+  ap: String;
+begin
+  for Action in TPkgPatternPrefix do
+  begin
+    ap:=PkgPatternPrefixes[Action];
+    if ap='' then continue;
+    if LeftStr(Pattern,length(ap))=ap then
+    begin
+      Result:=copy(Pattern,length(ap)+1,length(Pattern));
+      exit;
+    end;
+  end;
+  Result:=Pattern;
+  Action:=pppInclude;
+end;
+
+function MakeParsePkgPattern(const PkgName: string; Action: TPkgPatternPrefix
+  ): string;
+begin
+  if PkgName='' then
+    exit('');
+  Result:=PkgPatternPrefixes[Action]+PkgName;
+end;
+
+{ TPkgListEditorDialog }
+
+procedure TPkgListEditorDialog.AddButtonClick(Sender: TObject);
+begin
+  // ToDo
+end;
+
+procedure TPkgListEditorDialog.DeleteButtonClick(Sender: TObject);
+begin
+  PkgsStringGrid.DeleteRow(PkgsStringGrid.Row);
+  UpdateButtons;
+end;
+
+procedure TPkgListEditorDialog.AddTemplateButtonClick(Sender: TObject);
+var
+  TemplateForm: TGenericListSelectForm;
+  i, j: Integer;
+begin
+  TemplateForm := TGenericListSelectForm.Create(Nil);
+  try
+    TemplateForm.Caption := lisPathEditPathTemplates;
+    // Let a user select only templates which are not in the list already.
+    for i := 0 to FTemplateList.Count-1 do
+    begin
+      j:=PkgsStringGrid.RowCount-1;
+      while (j>0) and not SameText(PkgsStringGrid.Cells[0,j],FTemplateList[i]) do dec(j);
+      if j<1 then
+        TemplateForm.ListBox.Items.Add(FTemplateList[i]);
+    end;
+    if TemplateForm.ShowModal = mrOK then
+      with TemplateForm.ListBox do
+        AddPkg(Items[ItemIndex], pppInclude);
+  finally
+    TemplateForm.Free;
+  end;
+end;
+
+procedure TPkgListEditorDialog.CopyMenuItemClick(Sender: TObject);
+var
+  Paths: TStringList;
+begin
+  Paths := SaveToList;
+  try
+    Clipboard.AsText := Paths.Text;
+  finally
+    Paths.Free;
+  end;
+end;
+
+procedure TPkgListEditorDialog.ExportMenuItemClick(Sender: TObject);
+var
+  Paths: TStringList;
+begin
+  if not SaveDialog1.Execute then Exit;
+  Paths := SaveToList;
+  try
+    Paths.SaveToFile(SaveDialog1.FileName);
+  finally
+    Paths.Free;
+  end;
+end;
+
+procedure TPkgListEditorDialog.LoadFromList(sl: TStrings);
+var
+  PkgName: string;
+  i: integer;
+  PkgAction: TPkgPatternPrefix;
+begin
+  for i:=sl.Count-1 downto 0 do
+  begin
+    PkgName:=ParsePkgPattern(Trim(sl[i]),PkgAction);
+    if PkgName='' then sl.Delete(i);
+  end;
+  PkgsStringGrid.RowCount:=sl.Count+1;
+  for i:=0 to sl.Count-1 do
+  begin
+    PkgName:=ParsePkgPattern(Trim(sl[i]),PkgAction);
+    PkgsStringGrid.Cells[0,i+1]:=PkgName;
+    PkgsStringGrid.Cells[1,i+1]:=PatternActionToCaption(PkgAction);
+  end;
+  UpdateButtons;
+end;
+
+procedure TPkgListEditorDialog.PasteMenuItemClick(Sender: TObject);
+var
+  Paths: TStringList;
+begin
+  Paths := TStringList.Create;
+  try
+    Paths.Text := Clipboard.AsText;
+    LoadFromList(Paths);
+  finally
+    Paths.Free;
+  end;
+end;
+
+procedure TPkgListEditorDialog.ImportMenuItemClick(Sender: TObject);
+var
+  Paths: TStringList;
+begin
+  if not OpenDialog1.Execute then Exit;
+  Paths := TStringList.Create;
+  try
+    Paths.LoadFromFile(OpenDialog1.FileName);
+    LoadFromList(Paths);
+  finally
+    Paths.Free;
+  end;
+end;
+
+procedure TPkgListEditorDialog.AddPkg(PkgName: string;
+  PkgAction: TPkgPatternPrefix);
+var
+  i: Integer;
+begin
+  for i:=1 to PkgsStringGrid.RowCount-1 do
+  begin
+    if not SameText(PkgsStringGrid.Cells[0,i],PkgName) then continue;
+    PkgsStringGrid.Cells[1,i]:=PatternActionToCaption(PkgAction);
+    exit;
+  end;
+  i:=PkgsStringGrid.RowCount;
+  PkgsStringGrid.RowCount:=i+1;
+  PkgsStringGrid.Cells[0,i]:=PkgName;
+  PkgsStringGrid.Cells[1,i]:=PatternActionToCaption(PkgAction);
+end;
+
+procedure TPkgListEditorDialog.FormCreate(Sender: TObject);
+const
+  Filt = 'Text file (*.txt)|*.txt|All files (*)|*';
+var
+  PkgAction: TPkgPatternPrefix;
+  s: String;
+begin
+  FTemplateList := TStringListUTF8Fast.Create;
+  Caption:='Search in Packages Editor';
+  PkgsGroupBox.Caption:=lisPathEditSearchPaths;
+  MoveUpButton.Hint:=lisPathEditMovePathUp;
+  MoveDownButton.Hint:=lisPathEditMovePathDown;
+  AddButton.Caption:=lisAdd;
+  AddButton.Hint:=lisPathEditorAddHint;
+  DeleteButton.Caption:=lisDelete;
+  DeleteButton.Hint:=lisPathEditorDeleteHint;
+  AddTemplateButton.Caption:=lisCodeTemplAdd;
+  AddTemplateButton.Hint:=lisPathEditorTemplAddHint;
+
+  s:='';
+  for PkgAction in TPkgPatternPrefix do
+    s:=s+PatternActionToCaption(PkgAction)+sLineBreak;
+  PkgsStringGrid.Columns[1].PickList.Text:=s;
+
+  PopupMenu1.Images:=IDEImages.Images_16;
+  CopyMenuItem.Caption:=lisCopyAllItemsToClipboard;
+  CopyMenuItem.ImageIndex:=IDEImages.LoadImage('laz_copy');
+  PasteMenuItem.Caption:=lisMenuPasteFromClipboard;
+  PasteMenuItem.ImageIndex:=IDEImages.LoadImage('laz_paste');
+  ExportMenuItem.Caption:=lisExportAllItemsToFile;
+  ExportMenuItem.ImageIndex:=IDEImages.LoadImage('laz_save');
+  ImportMenuItem.Caption:=lisImportFromFile;
+  ImportMenuItem.ImageIndex:=IDEImages.LoadImage('laz_open');
+
+  OpenDialog1.Filter:=Filt;
+  SaveDialog1.Filter:=Filt;
+
+  IDEImages.AssignImage(MoveUpButton, 'arrow_up');
+  IDEImages.AssignImage(MoveDownButton, 'arrow_down');
+  //IDEImages.AssignImage(ReplaceButton, 'menu_reportingbug');
+  IDEImages.AssignImage(AddButton, 'laz_add');
+  IDEImages.AssignImage(DeleteButton, 'laz_delete');
+  //IDEImages.AssignImage(DeleteInvalidPkgsButton, 'menu_clean');
+  IDEImages.AssignImage(AddTemplateButton, 'laz_add');
+end;
+
+procedure TPkgListEditorDialog.FormDestroy(Sender: TObject);
+begin
+  FTemplateList.Free;
+end;
+
+procedure TPkgListEditorDialog.FormShow(Sender: TObject);
+begin
+  UpdateButtons;
+end;
+
+procedure TPkgListEditorDialog.MoveDownButtonClick(Sender: TObject);
+var
+  y: integer;
+begin
+  y:=PkgsStringGrid.Row;
+  if (y>0) and (y<PkgsStringGrid.RowCount-1) then begin
+    PkgsStringGrid.MoveColRow(false,y,y+1);
+    UpdateButtons;
+  end;
+end;
+
+procedure TPkgListEditorDialog.MoveUpButtonClick(Sender: TObject);
+var
+  y: integer;
+begin
+  y:=PkgsStringGrid.Row;
+  if (y>2) and (y<PkgsStringGrid.RowCount) then begin
+    PkgsStringGrid.MoveColRow(false,y+1,y);
+    UpdateButtons;
+  end;
+end;
+
+function TPkgListEditorDialog.GetPath: string;
+var
+  i: Integer;
+  PkgAction: TPkgPatternPrefix;
+begin
+  Result:='';
+  for i:=1 to PkgsStringGrid.RowCount-1 do
+  begin
+    PkgAction:=CaptionToPatternAction(PkgsStringGrid.Cells[1,i]);
+    if Result<>'' then
+      Result:=Result+';';
+    Result:=PkgPatternPrefixes[PkgAction]+Trim(PkgsStringGrid.Cells[0,i]);
+  end;
+end;
+
+procedure TPkgListEditorDialog.SetPath(const AValue: string);
+var
+  sl: TStrings;
+begin
+  sl := SplitString(AValue, ';');
+  try
+    LoadFromList(sl);
+  finally
+    sl.Free;
+  end;
+end;
+
+procedure TPkgListEditorDialog.SetTemplates(const AValue: string);
+begin
+  SplitString(GetForcedPathDelims(AValue), ';', FTemplateList, True);
+  AddTemplateButton.Enabled := FTemplateList.Count > 0;
+end;
+
+procedure TPkgListEditorDialog.UpdateButtons;
+var
+  i: integer;
+begin
+  AddButton.Enabled:=(AvailableListBox.ItemIndex>=0)
+       and (RowOfPkgName(AvailableListBox.Items[AvailableListBox.ItemIndex])<1);
+  DeleteButton.Enabled:=PkgsStringGrid.Row>0;
+
+  // Move up / down buttons
+  i := PkgsStringGrid.Row;
+  MoveUpButton.Enabled := i > 1;
+  MoveDownButton.Enabled := (i > -1) and (i < PkgsStringGrid.RowCount-1);
+end;
+
+function TPkgListEditorDialog.SaveToList: TStringListUTF8Fast;
+var
+  i: Integer;
+  PkgAction: TPkgPatternPrefix;
+begin
+  Result:=TStringListUTF8Fast.Create;
+  for i:=1 to PkgsStringGrid.RowCount-1 do
+  begin
+    PkgAction:=CaptionToPatternAction(PkgsStringGrid.Cells[1,i]);
+    Result.Add(PkgPatternPrefixes[PkgAction]+PkgsStringGrid.Cells[0,i]);
+  end;
+end;
+
+function TPkgListEditorDialog.PatternActionToCaption(
+  PkgAction: TPkgPatternPrefix): string;
+begin
+  case PkgAction of
+    pppIncludeRecursive: Result:=lisIncludeRecursive;
+    pppExclude: Result:=lisExclude;
+  else
+    Result:=lisPckOptsInclude;
+  end;
+end;
+
+function TPkgListEditorDialog.CaptionToPatternAction(const PkgAction: string
+  ): TPkgPatternPrefix;
+begin
+  if PkgAction=lisIncludeRecursive then
+    Result:=pppIncludeRecursive
+  else if PkgAction=lisExclude then
+    Result:=pppExclude
+  else
+    Result:=pppInclude;
+end;
+
+function TPkgListEditorDialog.RowOfPkgName(const PkgName: string): integer;
+begin
+  for Result:=1 to PkgsStringGrid.RowCount-1 do
+    if SameText(PkgsStringGrid.Cells[0,Result],PkgName) then
+      exit;
+  Result:=-1;
+end;
+
+{ TPkgListEditorButton }
+
+procedure TPkgListEditorButton.Click;
+begin
+  FCurrentPkgListEditor:=PkgListEditorDialog;
+  try
+    inherited Click;
+    FCurrentPkgListEditor.Templates := FTemplates;
+    FCurrentPkgListEditor.Path := AssociatedText;
+    FCurrentPkgListEditor.ShowModal;
+    DoOnPathEditorExecuted;
+  finally
+    FCurrentPkgListEditor:=nil;
+  end;
+end;
+
+function TPkgListEditorButton.GetAssociatedText: string;
+begin
+  if AssociatedEdit<>nil then
+    Result:=AssociatedEdit.Text
+  else if AssociatedComboBox<>nil then
+    Result:=AssociatedComboBox.Text
+  else
+    Result:='';
+end;
+
+procedure TPkgListEditorButton.DoOnPathEditorExecuted;
+var
+  Ok: Boolean;
+  NewPath: String;
+begin
+  NewPath := FCurrentPkgListEditor.Path;
+  Ok := (FCurrentPkgListEditor.ModalResult = mrOk) and (AssociatedText <> NewPath);
+  if Ok and Assigned(OnExecuted) then
+    Ok := OnExecuted(ContextCaption, NewPath);
+  // Assign value only if old <> new and OnExecuted allows it.
+  if not Ok then exit;
+  if AssociatedEdit<>nil then
+    SetPkgListTextAndHint(NewPath, AssociatedEdit)
+  else if AssociatedComboBox<>nil then
+    SetPkgListTextAndHint(NewPath, AssociatedComboBox);
+end;
+
+end.
+

ide/lazarusidestrconsts.pas

@@ -5477,6 +5477,8 @@ resourcestring
   lisPVUEditVirtualUnit = 'Edit virtual unit';
   lisExportAllItemsToFile = 'Export All Items to File';
   lisImportFromFile = 'Import from File';
+  lisIncludeRecursive = 'Include, recursive';
+  lisExclude = 'Exclude';
 
   // version info tab
   VersionInfoTitle = 'Version Info';