From 3f3f298212dc4e8eb9f248100e059873b149916f Mon Sep 17 00:00:00 2001
From: michael <michael@lazarus-ide.org>
Date: Sat, 24 Feb 2018 15:21:09 +0000
Subject: [PATCH] * Patch from Andreas Friess to add MRU menu

git-svn-id: trunk@57359 -
---
 .../design/frmfpreportdesignermain.lfm        | 11 +++++
 .../design/frmfpreportdesignermain.pp         | 43 ++++++++++++++++++-
 components/fpreport/design/reportdesign.lpi   |  9 ++--
 3 files changed, 57 insertions(+), 6 deletions(-)

diff --git a/components/fpreport/design/frmfpreportdesignermain.lfm b/components/fpreport/design/frmfpreportdesignermain.lfm
index af4dcc9104..4a12342d61 100644
--- a/components/fpreport/design/frmfpreportdesignermain.lfm
+++ b/components/fpreport/design/frmfpreportdesignermain.lfm
@@ -366,6 +366,9 @@ object FPReportDesignerForm: TFPReportDesignerForm
       object MISaveReport: TMenuItem
         Action = AFileSave
       end
+      object MIRecent: TMenuItem
+        Caption = 'Recent'
+      end
       object MISep: TMenuItem
         Caption = '-'
       end
@@ -806,6 +809,10 @@ object FPReportDesignerForm: TFPReportDesignerForm
       OnExecute = AReportDataExecute
       OnUpdate = AReportDataUpdate
     end
+    object ARecent: TAction
+      Category = 'File'
+      Caption = 'Recent'
+    end
   end
   object SDReport: TSaveDialog
     DefaultExt = '.json'
@@ -2068,4 +2075,8 @@ object FPReportDesignerForm: TFPReportDesignerForm
     left = 279
     top = 348
   end
+  object PMRecent: TPopupMenu
+    Left = 467
+    Top = 209
+  end
 end
diff --git a/components/fpreport/design/frmfpreportdesignermain.pp b/components/fpreport/design/frmfpreportdesignermain.pp
index b81dfeabb6..671756240c 100644
--- a/components/fpreport/design/frmfpreportdesignermain.pp
+++ b/components/fpreport/design/frmfpreportdesignermain.pp
@@ -21,7 +21,7 @@ interface
 uses
   Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
   Menus, ActnList, ComCtrls, ExtCtrls, IniPropStorage, Types, fpreport, fpreportdesignctrl,
-  fraReportObjectInspector, fpreportdesignreportdata, frafpreportdata, fpreportdb;
+  fraReportObjectInspector, fpreportdesignreportdata, frafpreportdata, fpreportdb, mrumanager;
 
 type
   // If you add something here, do not forget to add to AllReportDesignOptions.
@@ -74,6 +74,7 @@ type
     AAlignVCenter: TAction;
     AAlignBottom: TAction;
     AAlign: TAction;
+    ARecent: TAction;
     AReportData: TAction;
     APreview: TAction;
     AReportVariables: TAction;
@@ -98,7 +99,9 @@ type
     ILReport: TImageList;
     MenuItem1: TMenuItem;
     MenuItem2: TMenuItem;
+    MIRecent: TMenuItem;
     MIAddPage: TMenuItem;
+    PMRecent: TPopupMenu;
     PSDesign: TIniPropStorage;
     MIAlign: TMenuItem;
     MIAddColumnHeader: TMenuItem;
@@ -248,6 +251,7 @@ type
     procedure VAlignExecute(Sender: TObject);
     procedure VResizeExecute(Sender: TObject);
   private
+    MRUMenuManager1: TMRUMenuManager;
     FAutoSaveOnClose: Boolean;
     FDesignOptions: TFPReportDesignOptions;
     FFileName: String;
@@ -278,6 +282,7 @@ type
     procedure SetFileCaption(const AFileName: String);
     procedure SetModified(AValue: Boolean);
   Protected
+    procedure MRUMenuManager1RecentFile(Sender: TObject; const AFileName: String);
     procedure Notification(AComponent: TComponent; Operation: TOperation); override;
     procedure ApplyDesignOptions; virtual;
     function AddPageDesign(aPageNo: Integer; APage: TFPReportCustomPage): TTabSheet;
@@ -409,11 +414,23 @@ begin
   SetFileCaption('');
   FOI.OnSelectElement:=@DoSelectComponent;
   FOI.OnModified:=@DoSelectionModifiedByOI;
+  MRUMenuManager1 := TMRUMenuManager.Create(self);
+  with MRUMenuManager1 do begin
+    maxRecent := 5;
+    IniFileName := ChangeFileExt(ParamStr(0), '.ini');
+    MenuItem := MIRecent;
+    PopupMenu := PMRecent;
+    MaxItemLength := 80;
+    MenuCaptionMask := '(%d) %s';
+    OnRecentFile := @MRUMenuManager1RecentFile;
+    LoadRecentFilesFromIni;
+  end;
 end;
 
 procedure TFPReportDesignerForm.FormCloseQuery(Sender: TObject;
   var CanClose: boolean);
 begin
+  MRUMenuManager1.SaveRecentFilesToIni;
   if FAutoSaveOnClose then
     begin
     SaveReport;
@@ -610,6 +627,23 @@ begin
        PageDesigner(i).Objects.Modified:=False;
 end;
 
+procedure TFPReportDesignerForm.MRUMenuManager1RecentFile(Sender: TObject;
+  const AFileName: String);
+begin
+  if Assigned(OnOpenReport) then
+    begin
+    StopDesigning;
+    OnOpenReport(Self)
+    end
+  else
+    begin
+      StopDesigning;
+      LoadDesignFromFile(AFileName);
+      SetFileCaption(AFileName);
+    end;
+  DesignReport;
+end;
+
 procedure TFPReportDesignerForm.Notification(AComponent: TComponent;
   Operation: TOperation);
 begin
@@ -823,8 +857,11 @@ begin
         FileName:=SDReport.FileName;
         Result:=(FileName<>'');
         end;
-    if Result then
+    if Result then begin
       SaveDesignToFile(FileName);
+      if Assigned(MRUMenuManager1) then
+        MRUMenuManager1.AddToRecent(FileName);
+      end;
     end;
 end;
 
@@ -1150,6 +1187,8 @@ begin
       StopDesigning;
       LoadDesignFromFile(ODReport.FileName);
       SetFileCaption(ODReport.FileName);
+      if Assigned(MRUMenuManager1) then
+        MRUMenuManager1.AddToRecent(ODReport.FileName);
       end;
     end;
   If Result then
diff --git a/components/fpreport/design/reportdesign.lpi b/components/fpreport/design/reportdesign.lpi
index ccc7679650..1b92830e81 100644
--- a/components/fpreport/design/reportdesign.lpi
+++ b/components/fpreport/design/reportdesign.lpi
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <CONFIG>
   <ProjectOptions>
-    <Version Value="10"/>
+    <Version Value="11"/>
     <General>
       <Flags>
         <SaveOnlyProjectUnits Value="True"/>
@@ -23,9 +23,10 @@
       <Version Value="2"/>
     </PublishOptions>
     <RunParams>
-      <local>
-        <FormatVersion Value="1"/>
-      </local>
+      <FormatVersion Value="2"/>
+      <Modes Count="1">
+        <Mode0 Name="default"/>
+      </Modes>
     </RunParams>
     <RequiredPackages Count="6">
       <Item1>