From 1badb23169d995a3be0756a69be8ee40df8c647d Mon Sep 17 00:00:00 2001
From: Basile Burg <basile.b@gmx.com>
Date: Fri, 15 Jun 2018 10:05:57 +0200
Subject: [PATCH] fix #328 - keep help mnu itm to the right

---
 src/ce_main.lfm | 2 +-
 src/ce_main.pas | 5 ++++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/src/ce_main.lfm b/src/ce_main.lfm
index cec0ba7f..0dd91a60 100644
--- a/src/ce_main.lfm
+++ b/src/ce_main.lfm
@@ -1837,7 +1837,7 @@ object CEMainForm: TCEMainForm
         ImageIndex = 31
       end
     end
-    object MenuItem113: TMenuItem
+    object mnuItemHelp: TMenuItem
       Caption = 'Help'
       object mnuItemAbout: TMenuItem
         Caption = 'About Coedit and tools information'
diff --git a/src/ce_main.pas b/src/ce_main.pas
index 5c12ec0e..dfd72dc9 100644
--- a/src/ce_main.pas
+++ b/src/ce_main.pas
@@ -174,7 +174,7 @@ type
     MenuItem110: TMenuItem;
     MenuItem111: TMenuItem;
     MenuItem112: TMenuItem;
-    MenuItem113: TMenuItem;
+    mnuItemHelp: TMenuItem;
     mnuItemAbout: TMenuItem;
     mnuItemCheckUpd: TMenuItem;
     mnuItemManual: TMenuItem;
@@ -1264,6 +1264,9 @@ begin
 
   InitOptionsMenu;
 
+  mainMenu.Items.Remove(mnuItemHelp);
+  mainMenu.Items.Add(mnuItemHelp);
+
   fInitialized := true;
 end;