pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

TRxDBGridExportSpreadSheet - open after export

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3377 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2014-07-25 12:34:38 +00:00
parent 8a2ed380fe
commit e3ce3e1d71
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/rx/trunk/rxdbgridexportspreadsheet.pas
View File

@ -85,7 +85,7 @@ type
procedure Register; procedure Register;
implementation implementation
uses fpsallformats, LCLType, Forms, math, LazUTF8, rxdconst, Controls, uses fpsallformats, LCLType, Forms, math, LazUTF8, rxdconst, Controls, LCLIntf,
RxDBGridExportSpreadSheet_ParamsUnit; RxDBGridExportSpreadSheet_ParamsUnit;
{$R rxdbgridexportspreadsheet.res} {$R rxdbgridexportspreadsheet.res}
@ -288,6 +288,9 @@ begin
FDataSet.Bookmark:=P; FDataSet.Bookmark:=P;
FDataSet.EnableControls; FDataSet.EnableControls;
end; end;
if Result then
OpenDocument(FileName);
end; end;
function TRxDBGridExportSpreadSheet.DoSetupTools: boolean; function TRxDBGridExportSpreadSheet.DoSetupTools: boolean;