paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 08:59:10 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, set initial directory of used define exported filename

Browse Source 
git-svn-id: trunk@43471 -
This commit is contained in:
jesus 2013-11-22 01:25:41 +00:00
parent a15b6e1e64
commit 056721e54c
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/lazreport/source/lr_class.pas
View File

@ -10051,7 +10051,10 @@ begin
DebugLn('2 TfrPreviewForm.visible=%s',[BooLToStr(p.Visible)]); DebugLn('2 TfrPreviewForm.visible=%s',[BooLToStr(p.Visible)]);
{$ENDIF} {$ENDIF}
if ExportFilename<>'' then if ExportFilename<>'' then
begin
p.SaveDialog.InitialDir := ExtractFilePath(ExportFileName);
p.SaveDialog.FileName := ExportFilename; p.SaveDialog.FileName := ExportFilename;
end;
p.Show_Modal(Self); p.Show_Modal(Self);
end; end;
{$IFDEF DebugLR} {$IFDEF DebugLR}