fix #328 - keep help mnu itm to the right

This commit is contained in:
Basile Burg 2018-06-15 10:05:57 +02:00
parent d59aa68366
commit 1badb23169
2 changed files with 5 additions and 2 deletions

View File

@ -1837,7 +1837,7 @@ object CEMainForm: TCEMainForm
ImageIndex = 31 ImageIndex = 31
end end
end end
object MenuItem113: TMenuItem object mnuItemHelp: TMenuItem
Caption = 'Help' Caption = 'Help'
object mnuItemAbout: TMenuItem object mnuItemAbout: TMenuItem
Caption = 'About Coedit and tools information' Caption = 'About Coedit and tools information'

View File

@ -174,7 +174,7 @@ type
MenuItem110: TMenuItem; MenuItem110: TMenuItem;
MenuItem111: TMenuItem; MenuItem111: TMenuItem;
MenuItem112: TMenuItem; MenuItem112: TMenuItem;
MenuItem113: TMenuItem; mnuItemHelp: TMenuItem;
mnuItemAbout: TMenuItem; mnuItemAbout: TMenuItem;
mnuItemCheckUpd: TMenuItem; mnuItemCheckUpd: TMenuItem;
mnuItemManual: TMenuItem; mnuItemManual: TMenuItem;
@ -1264,6 +1264,9 @@ begin
InitOptionsMenu; InitOptionsMenu;
mainMenu.Items.Remove(mnuItemHelp);
mainMenu.Items.Add(mnuItemHelp);
fInitialized := true; fInitialized := true;
end; end;