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

DbExport, lazdbexport.lpk: Check if filename is blank in TBaseConfigExportForm. Issue #24143, patch from snorkel

Browse Source 
git-svn-id: trunk@42092 -
This commit is contained in:
juha 2013-07-15 15:26:32 +00:00
parent a274fa8811
commit 518b18464f
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
components/dbexport/frmbaseconfigexport.pp
View File

@ -61,7 +61,6 @@ type
Procedure OnOKClick(Sender : TObject);
procedure ExporterToForm;
private
{ private declarations }
FFieldMap : TExportFields;
FFormatting : TCustomExportFormatSettings;
procedure FormToExporter;
@ -70,7 +69,6 @@ type
procedure SelectField(F: TExportFieldItem);
procedure ShowSelectedField;
public
{ public declarations }
Property Exporter : TCustomDatasetExporter Read FExporter Write SetExporter;
end;
@ -152,7 +150,15 @@ end;
procedure TBaseConfigExportForm.OnOKClick(Sender: TObject);
begin
FormToExporter;
ModalResult:=mrok;
if EFileName.Text <> '' then
FormToExporter
else
begin
MessageDlg('Information','Filename cannot be blank',mtInformation,[mbok],0);
EFileName.SetFocus;
ModalResult:=mrnone;
end;
end;
procedure TBaseConfigExportForm.CLBFieldsItemClick(Sender: TObject;