paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 12:40:22 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TMenuItem.AddHandler: changed AsLast to AsFirst for consistency and implemented it

Browse Source 
git-svn-id: trunk@39783 -
This commit is contained in:
mattias 2013-01-06 18:58:47 +00:00
parent 62fb47e350
commit e25cb27f70
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/menus.pp
View File

@ -249,7 +249,7 @@ type
AsFirst: boolean = false);
procedure RemoveHandlerOnDestroy(const OnDestroyEvent: TNotifyEvent);
procedure AddHandler(HandlerType: TMenuItemHandlerType;
const AMethod: TMethod; AsFirst: boolean);
const AMethod: TMethod; AsFirst: boolean = false);
procedure RemoveHandler(HandlerType: TMenuItemHandlerType;
const AMethod: TMethod);
public