[JVCL-Checkins] SF.net SVN: jvcl:[12683] trunk/jvcl/run

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

Revision: 12683
          http://jvcl.svn.sourceforge.net/jvcl/?rev=12683&view=rev
Author:   jfudickar
Date:     2010-01-29 22:50:54 +0000 (Fri, 29 Jan 2010)

Log Message:
-----------
Added the option to bring a nonmodal thread dialog with formstyle = fsNormal to front.

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

Modified: trunk/jvcl/run/JvBaseDBThreadedDataset.pas
===================================================================
--- trunk/jvcl/run/JvBaseDBThreadedDataset.pas	2010-01-28 23:20:13 UTC (rev 12682)
+++ trunk/jvcl/run/JvBaseDBThreadedDataset.pas	2010-01-29 22:50:54 UTC (rev 12683)
@@ -64,6 +64,7 @@
   IJvThreadedDatasetInterface = interface
     ['{220CC94D-AA41-4195-B90C-ECA24BAD3CDB}']
     procedure BreakExecution;
+    procedure BringThreadDialogToFront;
     function CurrentFetchDuration: TDateTime;
     function CurrentOpenDuration: TDateTime;
     procedure DoInheritedInternalLast;
@@ -391,6 +392,7 @@
     procedure AfterRefresh; virtual;
     procedure BeforeOpen; virtual;
     procedure BeforeRefresh; virtual;
+    procedure BringDialogToFront;
     procedure CapitalizeDatasetLabels;
     function CheckContinueRecordFetch: TJvThreadedDatasetContinueCheckResult;
     function GetNextRecord: Boolean;
@@ -913,6 +915,13 @@
   IntRowCheckEnabled := False;
 end;
 
+procedure TJvBaseDatasetThreadHandler.BringDialogToFront;
+begin
+  if Assigned(ExecuteThread) and ExecuteThread.OneThreadIsRunning
+    and Assigned(ExecuteThread.ThreadDialogForm) then
+    ExecuteThread.ThreadDialogForm.BringToFront;
+end;
+
 procedure TJvBaseDatasetThreadHandler.CapitalizeDatasetLabels;
 var
   I, J: Integer;

Modified: trunk/jvcl/run/JvOdacSmartQuery.pas
===================================================================
--- trunk/jvcl/run/JvOdacSmartQuery.pas	2010-01-28 23:20:13 UTC (rev 12682)
+++ trunk/jvcl/run/JvOdacSmartQuery.pas	2010-01-29 22:50:54 UTC (rev 12683)
@@ -84,6 +84,7 @@
 
   TJvOdacSmartQuery = class(TSmartQuery, IJvThreadedDatasetInterface)
     procedure BreakExecution;
+    procedure BringThreadDialogToFront;
     function DoGetInheritedNextRecord: Boolean;
     procedure DoInheritedAfterOpen;
     procedure DoInheritedAfterRefresh;
@@ -154,6 +155,7 @@
 
   TJvOdacOraQuery = class(TOraQuery, IJvThreadedDatasetInterface)
     procedure BreakExecution;
+    procedure BringThreadDialogToFront;
     function DoGetInheritedNextRecord: Boolean;
     procedure DoInheritedAfterOpen;
     procedure DoInheritedAfterRefresh;
@@ -228,6 +230,7 @@
 type
   TJvOdacOraTable = class(TOraTable, IJvThreadedDatasetInterface)
     procedure BreakExecution;
+    procedure BringThreadDialogToFront;
     function DoGetInheritedNextRecord: Boolean;
     procedure DoInheritedAfterOpen;
     procedure DoInheritedAfterRefresh;
@@ -330,6 +333,12 @@
   BreakExec;
 end;
 
+procedure TJvOdacSmartQuery.BringThreadDialogToFront;
+begin
+  if Assigned(ThreadHandler) then
+    ThreadHandler.BringDialogToFront;
+end;
+
 function TJvOdacSmartQuery.CurrentFetchDuration: TDateTime;
 begin
   if Assigned(ThreadHandler) then
@@ -738,6 +747,12 @@
   BreakExec;
 end;
 
+procedure TJvOdacOraQuery.BringThreadDialogToFront;
+begin
+  if Assigned(ThreadHandler) then
+    ThreadHandler.BringDialogToFront;
+end;
+
 function TJvOdacOraQuery.CurrentFetchDuration: TDateTime;
 begin
   if Assigned(ThreadHandler) then
@@ -1056,6 +1071,12 @@
   BreakExec;
 end;
 
+procedure TJvOdacOraTable.BringThreadDialogToFront;
+begin
+  if Assigned(ThreadHandler) then
+    ThreadHandler.BringDialogToFront;
+end;
+
 function TJvOdacOraTable.CurrentFetchDuration: TDateTime;
 begin
   if Assigned(ThreadHandler) then

Modified: trunk/jvcl/run/JvOracleDataSet.pas
===================================================================
--- trunk/jvcl/run/JvOracleDataSet.pas	2010-01-28 23:20:13 UTC (rev 12682)
+++ trunk/jvcl/run/JvOracleDataSet.pas	2010-01-29 22:50:54 UTC (rev 12683)
@@ -73,6 +73,7 @@
 
   TJvOracleDataset = class(TOracleDataset, IJvThreadedDatasetInterface)
     procedure BreakExecution;
+    procedure BringThreadDialogToFront;
     function DoGetInheritedNextRecord: Boolean;
     procedure DoInheritedAfterOpen;
     procedure DoInheritedAfterRefresh;
@@ -172,6 +173,12 @@
     Session.BreakExecution;
 end;
 
+procedure TJvOracleDataset.BringThreadDialogToFront;
+begin
+  if Assigned(ThreadHandler) then
+    ThreadHandler.BringDialogToFront;
+end;
+
 function TJvOracleDataset.CurrentFetchDuration: TDateTime;
 begin
   if Assigned(ThreadHandler) then


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