Lazarus Version: #0.9.29
FPC: 2.5.1
SVN: 25556
win32
Machine: Windows Vista, Service Pack 2.
Package was not compiled and installed unless I commented out the following lines in procedure
TBaseVirtualTree.WMContextMenu, VirtualTrees unit, (at line ~ 15240):
procedure TBaseVirtualTree.WMContextMenu(var Message: TLMContextMenu);
// This method is called when a popup menu is about to be displayed.
// We have to cancel some pending states here to avoid interferences.
begin
{$ifdef DEBUG_VTV}Logger.EnterMethod([lcMessages],'WMContextMenu');{$endif}
DoStateChange([], [tsClearPending, tsEditPending, tsOLEDragPending, tsVCLDragPending]);
//if not (tsPopupMenuShown in FStates) then
//inherited WMContextMenu(Message);
{$ifdef DEBUG_VTV}Logger.ExitMethod([lcMessages],'WMContextMenu');{$endif}
end;
Commented out:
//if not (tsPopupMenuShown in FStates) then
//inherited WMContextMenu(Message);
Please anyone, How critical is this? How it can be fixed?
Thanks