paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-02-19 18:36:42 +01:00
Code Issues Packages Projects Releases Wiki Activity

lcl: TMenuItem.Command is a 16bit value, not a 32 bit

Browse Source 
git-svn-id: trunk@26731 -
This commit is contained in:
paul 2010-07-19 03:15:45 +00:00
parent 6070876176
commit 424162b12c
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/menus.pp
View File

@ -179,7 +179,7 @@ type
procedure TurnSiblingsOff;
procedure DoActionChange(Sender: TObject);
protected
FCommand: integer;
FCommand: Word;
class procedure WSRegisterClass; override;
procedure ActionChange(Sender: TObject; CheckDefaults: Boolean); virtual;
procedure AssignTo(Dest: TPersistent); override;
@ -258,7 +258,7 @@ type
property MenuIndex: Integer read GetMenuIndex write SetMenuIndex;
property Menu: TMenu read FMenu;
property Parent: TMenuItem read GetParent;
property Command: integer read FCommand;
property Command: Word read FCommand;
function MenuVisibleIndex: integer;
procedure WriteDebugReport(const Prefix: string);
published
@ -461,8 +461,8 @@ var
function UniqueCommand: LongInt;
begin
if CommandPool=nil then
CommandPool:=TBits.Create(32);
if CommandPool = nil then
CommandPool := TBits.Create(16);
Result := CommandPool.OpenBit;
CommandPool[Result] := True;
end;