forks
/
dexed
mirror of https://gitlab.com/basile.b/dexed.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

added assign to TCEPersistent shortcut

This commit is contained in:
Basile Burg 2015-05-13 05:18:50 +02:00
parent 5cd90da065
commit b7e655df41
1 changed files with 15 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/ce_common.pas
View File

@ -60,6 +60,8 @@ type
published published
property shortcut: TShortCut read fShortcut write fShortcut; property shortcut: TShortCut read fShortcut write fShortcut;
property actionName: string read fActionName write fActionName; property actionName: string read fActionName write fActionName;
public
procedure assign(aValue: TPersistent); override;
end; end;
(** (**
@ -213,6 +215,19 @@ type
implementation 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} {$IFDEF LINUX}
constructor TCheckedAsyncProcess.Create(aOwner: TComponent); constructor TCheckedAsyncProcess.Create(aOwner: TComponent);
begin begin