From: <jfu...@us...> - 2009-06-28 16:06:21
|
Revision: 12349 http://jvcl.svn.sourceforge.net/jvcl/?rev=12349&view=rev Author: jfudickar Date: 2009-06-28 16:05:18 +0000 (Sun, 28 Jun 2009) Log Message: ----------- Mantis 0004787: Database Actions won't work properly if TActionlist is placed into a TDatamodule. Modified Paths: -------------- trunk/jvcl/run/JvActionsEngine.pas trunk/jvcl/run/JvDBActions.pas Modified: trunk/jvcl/run/JvActionsEngine.pas =================================================================== --- trunk/jvcl/run/JvActionsEngine.pas 2009-06-25 10:59:10 UTC (rev 12348) +++ trunk/jvcl/run/JvActionsEngine.pas 2009-06-28 16:05:18 UTC (rev 12349) @@ -123,7 +123,7 @@ {$IFDEF HAS_UNIT_VARIANTS} Variants, {$ENDIF HAS_UNIT_VARIANTS} - JvResources; + JvResources, JvJVCLUtils; //=== { TJvActionEngineList } ======================================== @@ -239,7 +239,7 @@ else intValue := nil; Changed := FActionComponent <> intValue; - FActionComponent := intValue; + ReplaceComponentReference (Self, intValue, FActionComponent); if changed then ChangeActionComponent(FActionComponent); end; Modified: trunk/jvcl/run/JvDBActions.pas =================================================================== --- trunk/jvcl/run/JvDBActions.pas 2009-06-25 10:59:10 UTC (rev 12348) +++ trunk/jvcl/run/JvDBActions.pas 2009-06-28 16:05:18 UTC (rev 12349) @@ -770,7 +770,9 @@ begin Result := False; if Assigned(FBeforeExecute) then - FBeforeExecute(Self, DatabaseControlEngine, DataComponent, ContinueExecute); + FBeforeExecute(Self, DatabaseControlEngine, DataComponent, ContinueExecute) + else + ContinueExecute := True; if ContinueExecute then begin Result := inherited Execute; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |