mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-23 05:19:31 +02:00
* Fix adding filename to MRU when save as is called
git-svn-id: trunk@61435 -
This commit is contained in:
parent
9c6809c984
commit
a021125215
@ -151,11 +151,7 @@ begin
|
||||
FileName:=Self.FFileName;
|
||||
Result:=Execute;
|
||||
if Result then
|
||||
begin
|
||||
fraEditor.SaveSchema(FileName);
|
||||
Self.FFileName:=FileName;
|
||||
SetCaption;
|
||||
end;
|
||||
SaveSchemaFile(FileName);
|
||||
end;
|
||||
end;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user