[JVCL-Checkins] SF.net SVN: jvcl: [11599] trunk/jvcl/run/JvBaseDBThreadedDataset.pas

[<jfu...@us...>]

Revision: 11599
          http://jvcl.svn.sourceforge.net/jvcl/?rev=11599&view=rev
Author:   jfudickar
Date:     2007-12-12 12:34:04 -0800 (Wed, 12 Dec 2007)

Log Message:
-----------
Fixed Cancel Behaviour

Modified Paths:
--------------
    trunk/jvcl/run/JvBaseDBThreadedDataset.pas

Modified: trunk/jvcl/run/JvBaseDBThreadedDataset.pas
===================================================================
--- trunk/jvcl/run/JvBaseDBThreadedDataset.pas	2007-12-12 20:18:16 UTC (rev 11598)
+++ trunk/jvcl/run/JvBaseDBThreadedDataset.pas	2007-12-12 20:34:04 UTC (rev 11599)
@@ -852,14 +852,18 @@
 procedure TJvBaseDatasetThreadHandler.BreakExecution;
 begin
   IntCurrentAction := tdaCancel;
-  if (FetchMode = tdfmFetch) and (EnhancedOptions.AllowedContinueRecordFetchOptions.Pause or
+  if (FetchMode = tdfmFetch) and
+   (EnhancedOptions.AllowedContinueRecordFetchOptions.Pause or
     EnhancedOptions.AllowedContinueRecordFetchOptions.Cancel) then
     if EnhancedOptions.AllowedContinueRecordFetchOptions.Pause then
       FetchMode := tdfmBreak
     else
       FetchMode := tdfmStop
   else
+  begin
     IThreadedDatasetInterface.BreakExecution;
+    FetchMode := tdfmStop;
+  end;
   IntRowCheckEnabled := False;
 end;
 


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.