Patch from Luigi Siciliano to implement Action support in TDataLink

git-svn-id: trunk@12395 -

packages/fcl-db/src/base/datasource.inc

@@ -300,6 +300,25 @@ begin
   end;
 end;
 
+function TDataLink.ExecuteAction(Action: TBasicAction): Boolean;
+begin
+ if Action.HandlesTarget(DataSource) then
+ begin
+   Action.ExecuteTarget(DataSource);
+   Result := True;
+ end
+ else Result := False;
+end;
+
+function TDataLink.UpdateAction(Action: TBasicAction): Boolean;
+begin
+ if Action.HandlesTarget(DataSource) then
+ begin
+   Action.UpdateTarget(DataSource);
+   Result := True;
+ end
+ else Result := False;
+end;
 
 
 { ---------------------------------------------------------------------

packages/fcl-db/src/base/db.pas

@@ -1409,6 +1409,8 @@ type
     destructor Destroy; override;
     function  Edit: Boolean;
     procedure UpdateRecord;
+    function ExecuteAction(Action: TBasicAction): Boolean; virtual;
+    function UpdateAction(Action: TBasicAction): Boolean; virtual;
     property Active: Boolean read FActive;
     property ActiveRecord: Integer read GetActiveRecord write SetActiveRecord;
     property BOF: Boolean read GetBOF;