From 4edb42c9f6cc1f02b89532e8d3d1592c7c98b394 Mon Sep 17 00:00:00 2001
From: michael <michael@lazarus-ide.org>
Date: Wed, 28 Feb 2018 08:28:12 +0000
Subject: [PATCH] * On opening file, move it to the start of the list (bug ID
 #33253)

git-svn-id: trunk@57410 -
---
 components/mrumenu/mrumanager.pp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/components/mrumenu/mrumanager.pp b/components/mrumenu/mrumanager.pp
index 893760f12d..d13b3dcf29 100644
--- a/components/mrumenu/mrumanager.pp
+++ b/components/mrumenu/mrumanager.pp
@@ -477,7 +477,10 @@ begin
   With (Sender as TRecentMenuItem) do
     FN:=FileName;
   if (FN<>'') and (OnRecentFile<>Nil) then
+    begin
     OnRecentFile(Self,FN);
+    AddToRecent(FN); // Gets moved to the top
+    end;
 end;
 
 end.