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

LazReport, Remember the last saved file directory if possible, issue #28770

Browse Source 
git-svn-id: trunk@52708 -
This commit is contained in:
jesus 2016-07-17 22:23:33 +00:00
parent 0653cf52ef
commit c66e4799fa
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3404,7 +3404,8 @@ begin
sTemplFile + ' (*.frt)|*.frt|' +
sLazFormFile + ' (*.lrf)|*.lrf|' +
sLazTemplateFile + ' (*.lrt)|*.lrt';
InitialDir:=ExtractFilePath(ParamStrUTF8(0));
if InitialDir='' then
InitialDir:=ExtractFilePath(ParamStrUTF8(0));
FileName := CurDocName;
FilterIndex := 3;
if Execute then