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

* On opening file, move it to the start of the list (bug ID #33253)

Browse Source 
git-svn-id: trunk@57410 -
This commit is contained in:
michael 2018-02-28 08:28:12 +00:00
parent c93e5ac5f6
commit 4edb42c9f6
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/mrumenu/mrumanager.pp
View File

@ -477,7 +477,10 @@ begin
With (Sender as TRecentMenuItem) do With (Sender as TRecentMenuItem) do
FN:=FileName; FN:=FileName;
if (FN<>'') and (OnRecentFile<>Nil) then if (FN<>'') and (OnRecentFile<>Nil) then
begin
OnRecentFile(Self,FN); OnRecentFile(Self,FN);
AddToRecent(FN); // Gets moved to the top
end;
end; end;
end. end.