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

* Fix adding filename to MRU when save as is called

Browse Source 
git-svn-id: trunk@61435 -
This commit is contained in:
michael 2019-06-21 09:24:23 +00:00
parent 9c6809c984
commit a021125215
1 changed files with 1 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
components/sqldbrest/editor/frmmain.pp
View File

@ -151,11 +151,7 @@ begin
FileName:=Self.FFileName; FileName:=Self.FFileName;
Result:=Execute; Result:=Execute;
if Result then if Result then
begin SaveSchemaFile(FileName);
fraEditor.SaveSchema(FileName);
Self.FFileName:=FileName;
SetCaption;
end;
end; end;
end; end;