From b7e655df4108587cd6064c75fdf442eb9517c430 Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.burg@gmx.com>
Date: Wed, 13 May 2015 05:18:50 +0200
Subject: [PATCH] added assign to TCEPersistent shortcut

---
 src/ce_common.pas | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/src/ce_common.pas b/src/ce_common.pas
index 875a4333..25673788 100644
--- a/src/ce_common.pas
+++ b/src/ce_common.pas
@@ -60,6 +60,8 @@ type
   published
     property shortcut: TShortCut read fShortcut write fShortcut;
     property actionName: string read fActionName write fActionName;
+  public
+    procedure assign(aValue: TPersistent); override;
   end;
 
   (**
@@ -213,6 +215,19 @@ type
 
 implementation
 
+procedure TCEPersistentShortcut.assign(aValue: TPersistent);
+var
+  src: TCEPersistentShortcut;
+begin
+  if aValue is TCEPersistentShortcut then
+  begin
+    src := TCEPersistentShortcut(Avalue);
+    fActionName := src.fActionName;
+    fShortcut := src.fShortcut;
+  end
+  else inherited;
+end;
+
 {$IFDEF LINUX}
 constructor TCheckedAsyncProcess.Create(aOwner: TComponent);
 begin