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

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

Revision: 12056
          http://jvcl.svn.sourceforge.net/jvcl/?rev=12056&view=rev
Author:   jfudickar
Date:     2008-11-24 23:05:46 +0000 (Mon, 24 Nov 2008)

Log Message:
-----------
Fixed TJvDatasetThreadDialogForm.FillDialogData

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

Modified: trunk/jvcl/run/JvBaseDBThreadedDataset.pas
===================================================================
--- trunk/jvcl/run/JvBaseDBThreadedDataset.pas	2008-11-24 21:45:35 UTC (rev 12055)
+++ trunk/jvcl/run/JvBaseDBThreadedDataset.pas	2008-11-24 23:05:46 UTC (rev 12056)
@@ -88,7 +88,7 @@
     procedure SetDatasetFetchAllRecords(const Value: Boolean);
     procedure SetDialogOptions(Value: TJvThreadedDatasetDialogOptions);
     procedure SetOnThreadException(const Value:
-        TJvThreadedDatasetThreadExceptionEvent); 
+        TJvThreadedDatasetThreadExceptionEvent);
     procedure SetThreadOptions(const Value: TJvThreadedDatasetThreadOptions);
     property AfterThreadExecution: TJvThreadedDatasetThreadEvent read
         GetAfterThreadExecution write SetAfterThreadExecution;
@@ -547,8 +547,7 @@
 var
   ITmpControl: IJvDynControl;
 begin
-  if Assigned(ConnectedDatasetHandler)
-     and (ConnectedDatasetHandler.CurrentOpenDuration > 0) then
+  if Assigned(ConnectedDatasetHandler) then
   begin
     if DialogOptions.Caption <> '' then
       Caption := DialogOptions.Caption +' - '+ConnectedDatasetHandler.CurrentOperationAction
@@ -563,10 +562,7 @@
   end
   else
   begin
-    if DialogOptions.Caption <> '' then
-      Caption := DialogOptions.Caption
-    else
-      Caption := '';
+    Caption := DialogOptions.Caption;
     if Supports(FRowsStaticText, IJvDynControl, ITmpControl) then
       ITmpControl.ControlSetCaption(IntToStr(0));
     if Supports(FTimeStaticText, IJvDynControl, ITmpControl) then


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