anchor.diff:        ARect.Right,
         ARect.Bottom);
     end;
  +end;
  +
  +procedure TWin32MenuStyler.HandleMenuMeasureItem(Sender: TObject;
  +  ACanvas: TCanvas; var AWidth, AHeight: Integer);
  +var
  +  Size: TSize;
  +  mi: TMenuItem;
  +  S: string;
  +begin
  +  if MenuStylerTheme.FontSize<=9 then exit;
  +  ACanvas.Font.Name:= MenuStylerTheme.FontName;
  +  ACanvas.Font.Size:= MenuStylerTheme.FontSize;
  +  mi:= Sender as TMenuItem;
  +  S:= mi.Caption+'   ';
  +  if mi.ShortCut<>0 then
  +    S+= ShortCutToText(mi.ShortCut);
  +  if mi.Count>0 then;
  +    S+= '>';
  +  Size:= ACanvas.TextExtent(S);
  +  AWidth:= Size.cx;
  +  AHeight:= Size.cy;
   end;
   
   procedure TWin32MenuStyler.HandleMenuPopup(Sender: TObject);
  
positive.code:     procedure ApplyBackColor(h: HMENU; AReset: boolean);
      procedure HandleMenuDrawItem(Sender: TObject; ACanvas: TCanvas;
        ARect: TRect; AState: TOwnerDrawState);
      procedure HandleMenuPopup(Sender: TObject);
    public
      procedure ApplyToMenu(AMenu: TMenu);
  
negative.code: begin
    AMenu.OwnerDraw:= false;
    AMenu.OnDrawItem:= nil;
    AMenu.OnMeasureItem:= nil;
  end;
  
  procedure TWin32MenuStyler.ResetForm(AForm: TForm; ARepaintEntireForm: boolean);
  