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

MG: TMenuItem can now be created/destroyed/moved at any time

Browse Source 
git-svn-id: trunk@1073 -
This commit is contained in:
lazarus 2002-02-09 01:47:47 +00:00
parent 20faa2088c
commit e7575ea85f
1 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lcl/include/interfacebase.inc
View File

@ -50,7 +50,7 @@ begin
Result := 0;
end;
function TInterfaceBase.CheckMenuItem(hMenu: HMENU; uIDEnableItem: Integer;
function TInterfaceBase.CheckMenuItem(hndMenu: HMENU; uIDEnableItem: Integer;
bChecked: Boolean): Boolean;
begin
Result := false;
@ -178,7 +178,7 @@ Begin
Result := False;
end;
function TInterfaceBase.EnableMenuItem(hMenu: HMENU; uIDEnableItem: Integer; bEnable: Boolean): Boolean;
function TInterfaceBase.EnableMenuItem(hndMenu: HMENU; uIDEnableItem: Integer; bEnable: Boolean): Boolean;
begin
Result := False;
end;
@ -424,7 +424,7 @@ begin
Result := False;
end;
function TInterfaceBase.RadioMenuItemGroup(hMenu: HMENU; bRadio: Boolean): Boolean;
function TInterfaceBase.RadioMenuItemGroup(hndMenu: HMENU; bRadio: Boolean): Boolean;
begin
Result := false;
end;
@ -444,6 +444,11 @@ begin
Result := true;
end;
function TInterfaceBase.RegroupMenuItem(hndMenu: HMENU; GroupIndex: Integer) : Boolean;
begin
Result := false;
end;
Function TInterfaceBase.ReleaseCapture : Boolean;
Begin
Result := True;
@ -610,6 +615,9 @@ end;
{ =============================================================================
$Log$
Revision 1.35 2002/08/08 09:07:06 lazarus
MG: TMenuItem can now be created/destroyed/moved at any time
Revision 1.34 2002/08/07 09:55:30 lazarus
MG: codecompletion now checks for filebreaks, savefile now checks for filedate