paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-20 05:09:05 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: added ignore VCL property TMainMenu.AutoMerge, feature 17462

Browse Source 
git-svn-id: trunk@27484 -
This commit is contained in:
mattias 2010-09-26 21:12:56 +00:00
parent 8f9d20991a
commit cc6da5151d
2 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/include/mainmenu.inc
View File

@ -46,6 +46,7 @@ class procedure TMainMenu.WSRegisterClass;
begin begin
inherited WSRegisterClass; inherited WSRegisterClass;
RegisterMainMenu; RegisterMainMenu;
RegisterPropertyToSkip(TMainMenu, 'AutoMerge', 'VCL compatibility property', '');
end; end;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------

2
lcl/menus.pp
View File

@ -46,7 +46,7 @@ interface
uses uses
Classes, SysUtils, LCLStrConsts, LCLType, LCLProc, LCLIntf, InterfaceBase, Classes, SysUtils, LCLStrConsts, LCLType, LCLProc, LCLIntf, InterfaceBase,
LMessages, ActnList, Graphics, ImgList, LCLClasses, Themes; LResources, LMessages, ActnList, Graphics, ImgList, LCLClasses, Themes;
type type
TMenu = class; TMenu = class;