From: <jfu...@us...> - 2006-12-19 22:33:42
|
Revision: 11100 http://svn.sourceforge.net/jvcl/?rev=11100&view=rev Author: jfudickar Date: 2006-12-19 14:33:41 -0800 (Tue, 19 Dec 2006) Log Message: ----------- Removed Dialogs Unit Modified Paths: -------------- trunk/jvcl/run/JvOdacSmartQuery.pas Modified: trunk/jvcl/run/JvOdacSmartQuery.pas =================================================================== --- trunk/jvcl/run/JvOdacSmartQuery.pas 2006-12-19 22:29:57 UTC (rev 11099) +++ trunk/jvcl/run/JvOdacSmartQuery.pas 2006-12-19 22:33:41 UTC (rev 11100) @@ -131,8 +131,6 @@ implementation -uses Dialogs; - //=== { TJvOdacSmartQuery } ================================================== constructor TJvOdacSmartQuery.Create(AOwner: TComponent); This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <jfu...@us...> - 2007-03-02 22:09:24
|
Revision: 11196 http://svn.sourceforge.net/jvcl/?rev=11196&view=rev Author: jfudickar Date: 2007-03-02 14:09:09 -0800 (Fri, 02 Mar 2007) Log Message: ----------- Event AfterThreadExecution Added Modified Paths: -------------- trunk/jvcl/run/JvOdacSmartQuery.pas Modified: trunk/jvcl/run/JvOdacSmartQuery.pas =================================================================== --- trunk/jvcl/run/JvOdacSmartQuery.pas 2007-03-02 22:07:51 UTC (rev 11195) +++ trunk/jvcl/run/JvOdacSmartQuery.pas 2007-03-02 22:09:09 UTC (rev 11196) @@ -84,11 +84,13 @@ private FBeforeFetch: TBeforeFetchEvent; FThreadHandler: TJvBaseDatasetThreadHandler; - function GetBeforeThreadExecution1: TJvThreadedDatasetThreadEvent; + function GetAfterThreadExecution: TJvThreadedDatasetThreadEvent; + function GetBeforeThreadExecution: TJvThreadedDatasetThreadEvent; function GetDialogOptions: TJvThreadedDatasetDialogOptions; function GetEnhancedOptions: TJvOdacThreadedDatasetEnhancedOptions; function GetThreadOptions: TJvThreadedDatasetThreadOptions; - procedure SetBeforeThreadExecution1(const Value: TJvThreadedDatasetThreadEvent); + procedure SetAfterThreadExecution(const Value: TJvThreadedDatasetThreadEvent); + procedure SetBeforeThreadExecution(const Value: TJvThreadedDatasetThreadEvent); procedure SetDialogOptions(Value: TJvThreadedDatasetDialogOptions); procedure SetEnhancedOptions(const Value: TJvOdacThreadedDatasetEnhancedOptions); @@ -111,9 +113,11 @@ function ErrorMessage: string; function ThreadIsActive: Boolean; published + property AfterThreadExecution: TJvThreadedDatasetThreadEvent read + GetAfterThreadExecution write SetAfterThreadExecution; property BeforeFetch: TBeforeFetchEvent read FBeforeFetch write FBeforeFetch; - property BeforeThreadExecution1: TJvThreadedDatasetThreadEvent read GetBeforeThreadExecution1 write - SetBeforeThreadExecution1; + property BeforeThreadExecution: TJvThreadedDatasetThreadEvent read + GetBeforeThreadExecution write SetBeforeThreadExecution; property DialogOptions: TJvThreadedDatasetDialogOptions read GetDialogOptions write SetDialogOptions; property EnhancedOptions: TJvOdacThreadedDatasetEnhancedOptions read GetEnhancedOptions write SetEnhancedOptions; property ThreadOptions: TJvThreadedDatasetThreadOptions read GetThreadOptions write SetThreadOptions; @@ -235,9 +239,19 @@ Result := ''; end; -function TJvOdacSmartQuery.GetBeforeThreadExecution1: TJvThreadedDatasetThreadEvent; +function TJvOdacSmartQuery.GetAfterThreadExecution: + TJvThreadedDatasetThreadEvent; begin if Assigned(ThreadHandler) then + Result := ThreadHandler.AfterThreadExecution + else + Result := nil; +end; + +function TJvOdacSmartQuery.GetBeforeThreadExecution: + TJvThreadedDatasetThreadEvent; +begin + if Assigned(ThreadHandler) then Result := ThreadHandler.BeforeThreadExecution else Result := nil; @@ -306,9 +320,17 @@ ThreadHandler.SetActive(Value); end; -procedure TJvOdacSmartQuery.SetBeforeThreadExecution1(const Value: TJvThreadedDatasetThreadEvent); +procedure TJvOdacSmartQuery.SetAfterThreadExecution(const Value: + TJvThreadedDatasetThreadEvent); begin if Assigned(ThreadHandler) then + ThreadHandler.AfterThreadExecution := Value; +end; + +procedure TJvOdacSmartQuery.SetBeforeThreadExecution(const Value: + TJvThreadedDatasetThreadEvent); +begin + if Assigned(ThreadHandler) then ThreadHandler.BeforeThreadExecution := Value; end; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |