paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 01:28:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Fix bug ID #24360

Browse Source 
git-svn-id: trunk@51219 -
This commit is contained in:
michael 2016-01-06 21:12:15 +00:00
parent 31641874aa
commit 7be987b140
2 changed files with 12 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/dbexport/fpdataexporter.pp
View File

@ -96,7 +96,7 @@ Var
begin
FI:=Nil;
FProgress:=Nil;
With TSelectExportFormatForm.Create(Self) do
With TSelectExportFormatForm.Create(Application) do
try
Result:=(ShowModal=mrOK);
If Result then
@ -121,7 +121,7 @@ begin
Dataset.First;
If ShowProgress then
begin
FProgress:=TExportProgressForm.Create(Self);
FProgress:=TExportProgressForm.Create(Application);
FProgress.FreeNotification(Self);
FProgress.OnCancel:=@self.DoCancel;
FExporter.OnProgress:=@self.DoProgress;

10
components/dbexport/regdbexport.pp
View File

@ -138,6 +138,16 @@ end;
Procedure Register;
begin
RegisterStdFormats;
{ RegisterFixedExportFormat;
RegisterSQLExportFormat;
RegisterSimpleXMLExportFormat;
RegisterSimpleJSONExportFormat;
RegisterDBFExportFormat;
RegisterTexExportFormat;
RegisterRTFExportFormat;
Register}
RegisterComponents('Data Export',[TCSVExporter,
TFixedLengthExporter,
TSQLExporter,