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

MG: fixes for fpc1.1

Browse Source 
git-svn-id: trunk@3522 -
This commit is contained in:
lazarus 2002-10-20 21:49:09 +00:00
parent 8b6212b898
commit 41b25f79a9
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/menus.pp
View File

@ -148,7 +148,7 @@ type
property ActionLink: TMenuActionLink read FActionLink write FActionLink;
procedure CreateHandle; virtual;
procedure DestroyHandle; virtual;
procedure DoClicked(var msg); message LM_ACTIVATE; //'activate';
procedure DoClicked(var msg); message LM_ACTIVATE;
function GetHandle: HMenu;
Procedure SetImageIndex(value : Integer);
procedure SetGroupIndex(AValue: Byte);
@ -464,6 +464,9 @@ end.
{
$Log$
Revision 1.29 2002/10/20 21:49:09 lazarus
MG: fixes for fpc1.1
Revision 1.28 2002/10/08 22:32:26 lazarus
MG: fixed cool little bug (menu double attaching bug)