anchor.diff:  begin
     AMenu.OwnerDraw:= false;
     AMenu.OnDrawItem:= nil;
  +  AMenu.OnMeasureItem:= nil;
   end;
   
   procedure TWin32MenuStyler.ResetForm(AForm: TForm; ARepaintEntireForm: boolean);
  
positive.code:       ARect.Right,
        ARect.Bottom);
    end;
  end;
  
  procedure TWin32MenuStyler.HandleMenuPopup(Sender: TObject);
  
negative.code: begin
    AMenu.OwnerDraw:= true;
    AMenu.OnDrawItem:= @HandleMenuDrawItem;
    AMenu.OnMeasureItem:= @HandleMenuMeasureItem;
  
    //it don't work!
    {
  