The commands CmdRecentItems, CmdOpen, CmdSave, CmdSaveAs, and CmdNew are now implemented.

Author: Joachim Marder

Samples/High Level/07 Text Pad with Action List/FMain.dfm

@@ -182,5 +182,37 @@ object FormMain: TFormMain
       Caption = 'Font'
       OnChanged = CmdFontChanged
     end
+    object CmdOpen: TFileOpen
+      Category = 'File'
+      Caption = '&Open...'
+      Dialog.DefaultExt = 'RTF'
+      Dialog.Filter = 'All Files (*.*)|*.*'
+      Hint = 'Open|Opens an existing file'
+      ImageIndex = 7
+      ShortCut = 16463
+      OnAccept = CmdOpenAccept
+    end
+    object CmdRecentItems: TAction
+      Category = 'File'
+      Caption = 'Open Recent File'
+      OnExecute = CmdRecentItemsExecute
+    end
+    object CmdSave: TAction
+      Category = 'File'
+      Caption = '&Save'
+      OnExecute = CmdSaveExecute
+    end
+    object CmdSaveAs: TFileSaveAs
+      Category = 'File'
+      Caption = 'Save &As...'
+      Hint = 'Save As|Saves the active file with a new name'
+      ImageIndex = 30
+      OnAccept = CmdSaveAsAccept
+    end
+    object CmdNew: TAction
+      Category = 'File'
+      Caption = '&New'
+      OnExecute = CmdNewExecute
+    end
   end
 end

Samples/High Level/07 Text Pad with Action List/FMain.pas

@@ -47,6 +47,11 @@   TFormMain = class(TForm)
     Ribbon: TUIRibbon;
     CmdPasteSpecial: TAction;
     CmdFont: TRibbonFontAction;
+    CmdOpen: TFileOpen;
+    CmdRecentItems: TAction;
+    CmdSave: TAction;
+    CmdSaveAs: TFileSaveAs;
+    CmdNew: TAction;
     procedure RichEditSelectionChange(Sender: TObject);
     procedure RichEditChange(Sender: TObject);
     procedure RichEditContextPopup(Sender: TObject; MousePos: TPoint;
@@ -67,12 +72,25 @@   TFormMain = class(TForm)
     procedure CmdFontChanged(const Args: TUICommandFontEventArgs);
     procedure RibbonLoaded(Sender: TObject);
     procedure CommandCreated(const Sender: TUIRibbon; const Command: TUICommand);
+    procedure CmdOpenAccept(Sender: TObject);
+    procedure CmdRecentItemsExecute(Sender: TObject);
+    procedure CmdSaveAsAccept(Sender: TObject);
+    procedure CmdNewExecute(Sender: TObject);
+    procedure CmdSaveExecute(Sender: TObject);
   private
     { Private declarations }
     FRichEditEx: TRichEditEx;
     FPrintPreviewMode: Boolean;
+    /// The path of the currently opened file
+    FCurrentfilePath: String;
     procedure UpdateRibbonControls;
     procedure PopulateListGallery;
+    /// Loads a file into the editor and adds the file path to the recent items.
+    /// <param name="pFilePath">The path of the file that should be loaded.</param>
+    procedure Load(const pFilePath: string);
+    /// Loads the editor contents to a file.
+    /// <param name="pFilePath">The path of the file to that the editor content should be saved.</param>
+    procedure Save(const pFilePath: string);
   public
     { Public declarations }
     constructor Create(Owner: TComponent); override;
@@ -265,10 +283,6 @@ procedure TFormMain.CommandCreated(const Sender: TUIRibbon; const Command: TUICo
     CmdPicas,
     CmdPoints,
     CmdHelp,
-    CmdNew,
-    CmdOpen,
-    CmdSave,
-    CmdSaveAs,
     CmdRichTextDocument,
     CmdOfficeOpenXMLDocument,
     CmdOpenDocumentText,
@@ -299,6 +313,11 @@ destructor TFormMain.Destroy;
   inherited;
 end;
 
+procedure TFormMain.CmdRecentItemsExecute(Sender: TObject);
+begin
+  Load(Ribbon.GetSelectedRecentItem.LabelText);
+end;
+
 procedure TFormMain.CmdFontChanged(const Args: TUICommandFontEventArgs);
 var
   CharFormat: TCharFormat2;
@@ -400,4 +419,44 @@ procedure TFormMain.UpdateRibbonControls;
   CmdRedo.Enabled := FRichEditEx.CanRedo;
 end;
 
+procedure TFormMain.CmdNewExecute(Sender: TObject);
+begin
+  RichEdit.Clear();
+  fCurrentFilePath := '';
+end;
+
+procedure TFormMain.CmdOpenAccept(Sender: TObject);
+begin
+  Load(CmdOpen.Dialog.FileName);
+end;
+
+procedure TFormMain.CmdSaveAsAccept(Sender: TObject);
+begin
+  Save(CmdSaveAs.Dialog.FileName);
+end;
+
+procedure TFormMain.CmdSaveExecute(Sender: TObject);
+begin
+  if FCurrentfilePath.IsEmpty then
+    CmdSaveAs.Execute()
+  else
+    Save(FCurrentfilePath);
+end;
+
+procedure TFormMain.Load(const pFilePath: string);
+begin
+  RichEdit.Lines.LoadFromFile(pFilePath);
+  Ribbon.AddToRecentItems(pFilePath);
+  FCurrentfilePath := pFilePath;
+end;
+
+procedure TFormMain.Save(const pFilePath: string);
+begin
+  RichEdit.Lines.SaveToFile(pFilePath);
+  FCurrentfilePath := pFilePath;
+end;
+
+
+
+
 end.