From: <jfu...@us...> - 2008-08-17 11:57:24
|
Revision: 11862 http://jvcl.svn.sourceforge.net/jvcl/?rev=11862&view=rev Author: jfudickar Date: 2008-08-17 11:57:21 +0000 (Sun, 17 Aug 2008) Log Message: ----------- Removed Hint Modified Paths: -------------- trunk/jvcl/run/JvOdacSmartQuery.pas Modified: trunk/jvcl/run/JvOdacSmartQuery.pas =================================================================== --- trunk/jvcl/run/JvOdacSmartQuery.pas 2008-08-16 02:21:10 UTC (rev 11861) +++ trunk/jvcl/run/JvOdacSmartQuery.pas 2008-08-17 11:57:21 UTC (rev 11862) @@ -575,11 +575,9 @@ Key : string; p: Integer; Field: TField; - Count : Integer; i: Integer; begin RefreshKeyFields := ''; - Count := 0; if Not (Dataset.Active and (Dataset is TOraDataset) and (TOraDataset(Dataset).KeyFields <> '')) then Exit; Fields := tStringList.create; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <jfu...@us...> - 2011-09-07 18:43:40
|
Revision: 13109 http://jvcl.svn.sourceforge.net/jvcl/?rev=13109&view=rev Author: jfudickar Date: 2011-09-07 18:43:34 +0000 (Wed, 07 Sep 2011) Log Message: ----------- Updated IFDEF's Modified Paths: -------------- trunk/jvcl/run/JvOdacSmartQuery.pas Modified: trunk/jvcl/run/JvOdacSmartQuery.pas =================================================================== --- trunk/jvcl/run/JvOdacSmartQuery.pas 2011-09-07 18:42:47 UTC (rev 13108) +++ trunk/jvcl/run/JvOdacSmartQuery.pas 2011-09-07 18:43:34 UTC (rev 13109) @@ -31,17 +31,17 @@ interface +{$IFDEF USE_3RDPARTY_CORELAB_ODAC} uses {$IFDEF UNITVERSIONING} JclUnitVersioning, {$ENDIF UNITVERSIONING} - {$IFDEF USE_3RDPARTY_CORELAB_ODAC} SysUtils, Classes, StdCtrls, ExtCtrls, Forms, Controls, DB, OraSmart, Ora, DBaccess, JvThread, JvThreadDialog, JvDynControlEngine, - {$ENDIF USE_3RDPARTY_CORELAB_ODAC} JvBaseDBThreadedDataset; +{$ENDIF USE_3RDPARTY_CORELAB_ODAC} {$IFDEF USE_3RDPARTY_CORELAB_ODAC} type @@ -310,7 +310,6 @@ property OnThreadException: TJvThreadedDatasetThreadExceptionEvent read GetOnThreadException write SetOnThreadException; end; -{$ENDIF USE_3RDPARTY_CORELAB_ODAC} {$IFDEF UNITVERSIONING} const @@ -321,6 +320,7 @@ LogPath: 'JVCL\run' ); {$ENDIF UNITVERSIONING} +{$ENDIF USE_3RDPARTY_CORELAB_ODAC} implementation @@ -1374,7 +1374,6 @@ else Result := False; end; -{$ENDIF USE_3RDPARTY_CORELAB_ODAC} {$IFDEF UNITVERSIONING} @@ -1384,5 +1383,6 @@ finalization UnregisterUnitVersion(HInstance); {$ENDIF UNITVERSIONING} +{$ENDIF USE_3RDPARTY_CORELAB_ODAC} end. This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |
From: <jfu...@us...> - 2012-06-24 21:56:06
|
Revision: 13372 http://jvcl.svn.sourceforge.net/jvcl/?rev=13372&view=rev Author: jfudickar Date: 2012-06-24 21:56:00 +0000 (Sun, 24 Jun 2012) Log Message: ----------- Better Code for IsThreadAllowed Modified Paths: -------------- trunk/jvcl/run/JvOdacSmartQuery.pas Modified: trunk/jvcl/run/JvOdacSmartQuery.pas =================================================================== --- trunk/jvcl/run/JvOdacSmartQuery.pas 2012-06-23 15:46:57 UTC (rev 13371) +++ trunk/jvcl/run/JvOdacSmartQuery.pas 2012-06-24 21:56:00 UTC (rev 13372) @@ -551,9 +551,11 @@ end; function TJvOdacSmartQuery.IsThreadAllowed: Boolean; +var ThreadedDatasetInterface : IJvThreadedDatasetInterface; begin - if Assigned(MasterSource) and Assigned(MasterSource.Dataset) and (MasterSource.Dataset is TJvOdacSmartQuery) then - Result := not TJvOdacSmartQuery(MasterSource.Dataset).ThreadHandler.ThreadIsActive + if Assigned(MasterSource) and Assigned(MasterSource.Dataset) + and Supports(MasterSource.DataSet, IJvThreadedDatasetInterface, ThreadedDatasetInterface) then + Result := not ThreadedDatasetInterface.ThreadIsActive else Result := True; end; @@ -974,9 +976,11 @@ end; function TJvOdacOraQuery.IsThreadAllowed: Boolean; +var ThreadedDatasetInterface : IJvThreadedDatasetInterface; begin - if Assigned(MasterSource) and Assigned(MasterSource.Dataset) and (MasterSource.Dataset is TJvOdacSmartQuery) then - Result := not TJvOdacSmartQuery(MasterSource.Dataset).ThreadHandler.ThreadIsActive + if Assigned(MasterSource) and Assigned(MasterSource.Dataset) + and Supports(MasterSource.DataSet, IJvThreadedDatasetInterface, ThreadedDatasetInterface) then + Result := not ThreadedDatasetInterface.ThreadIsActive else Result := True; end; @@ -1290,9 +1294,11 @@ end; function TJvOdacOraTable.IsThreadAllowed: Boolean; +var ThreadedDatasetInterface : IJvThreadedDatasetInterface; begin - if Assigned(MasterSource) and Assigned(MasterSource.Dataset) and (MasterSource.Dataset is TJvOdacSmartQuery) then - Result := not TJvOdacSmartQuery(MasterSource.Dataset).ThreadHandler.ThreadIsActive + if Assigned(MasterSource) and Assigned(MasterSource.Dataset) + and Supports(MasterSource.DataSet, IJvThreadedDatasetInterface, ThreadedDatasetInterface) then + Result := not ThreadedDatasetInterface.ThreadIsActive else Result := True; end; This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |