xsharp.eu

Code: Select all

class DynMenu inherit Menu
	protect _aMenuItems 		as array		// The item of the menu
	protect _aAcceleratorKeys	as array		// The accelerator keys
	protect _aMenuChoices		as array		// array of descriptions and associated methods
	protect	_aMethodIDs		as array		// The methods and ID's
	protect _oKeys				as DynMenuAcceleratorKeys // added

method ActivateAcceleratorKeys( oOwner )

	// Create an accelerator class instance from the keys registred with this menu
	_oKeys				:= DynMenuAcceleratorKeys{ self:AcceleratorKeys } // using the protect and not more the local variable

	// Set the AcceleratorKeys for this menu
	self:Accelerator	:= DynMenuAccelerator{ GetNextMenuID(), _oKeys:GetAcceleratorHandle }
	if IsInstanceOfUsual( oOwner, #Window )
		SetAccelerator( oOwner:Handle(), self:Accelerator:Handle() )
	endif

	return self:Accelerator