From e3ce3e1d71dc8b28f148e56cdc17faa2068b177f Mon Sep 17 00:00:00 2001
From: alexs75 <alexs75@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Fri, 25 Jul 2014 12:34:38 +0000
Subject: [PATCH] TRxDBGridExportSpreadSheet - open after export

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3377 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/rx/trunk/rxdbgridexportspreadsheet.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/components/rx/trunk/rxdbgridexportspreadsheet.pas b/components/rx/trunk/rxdbgridexportspreadsheet.pas
index e0e6159ae..97cd6ed59 100644
--- a/components/rx/trunk/rxdbgridexportspreadsheet.pas
+++ b/components/rx/trunk/rxdbgridexportspreadsheet.pas
@@ -85,7 +85,7 @@ type
 procedure Register;
 
 implementation
-uses fpsallformats, LCLType, Forms, math, LazUTF8, rxdconst, Controls,
+uses fpsallformats, LCLType, Forms, math, LazUTF8, rxdconst, Controls, LCLIntf,
   RxDBGridExportSpreadSheet_ParamsUnit;
 
 {$R rxdbgridexportspreadsheet.res}
@@ -288,6 +288,9 @@ begin
     FDataSet.Bookmark:=P;
     FDataSet.EnableControls;
   end;
+
+  if Result then
+    OpenDocument(FileName);
 end;
 
 function TRxDBGridExportSpreadSheet.DoSetupTools: boolean;