anchor.diff:      ACanvas.FillRect(ARect);
     end;
   
  +  ACanvas.Font.Name:= MenuStylerTheme.FontName;
  +  ACanvas.Font.Size:= MenuStylerTheme.FontSize;
  +  ACanvas.Font.Style:= [];
  +
     Windows.GetTextExtentPoint(ACanvas.Handle, PChar(cSampleShort), Length(cSampleShort), ExtCell);
     dxCell:= ExtCell.cx;
     dxMin:= dxCell * MenuStylerTheme.IndentMinPercents div 100;
  
positive.code:     ACanvas.Font.Color:= MenuStylerTheme.ColorFontSelected
    else
      ACanvas.Font.Color:= MenuStylerTheme.ColorFont;
  
    ACanvas.Font.Name:= MenuStylerTheme.FontName;
    ACanvas.Font.Size:= MenuStylerTheme.FontSize;
    ACanvas.Font.Style:= [];
  
    Windows.GetTextExtentPoint(ACanvas.Handle, PChar(cSampleTall), Length(cSampleTall), ExtTall);
  
  
negative.code:   mi: TMenuItem;
    S: string;
  begin
    ACanvas.Font.Name:= MenuStylerTheme.FontName;
    ACanvas.Font.Size:= MenuStylerTheme.FontSize;
    ACanvas.Font.Style:= [];
  
    mi:= Sender as TMenuItem;
    S:= mi.Caption;
  
    if not mi.IsInMenuBar then
    begin
      S:= '     '+S;
      if mi.ShortCut<>0 then
        S+= '  '+ShortCutToText(mi.ShortCut);
      if mi.Count>0 then;
        S+= ' >';
    end;
  
    Size:= ACanvas.TextExtent(S);
    AWidth:= Size.cx;
    AHeight:= Size.cy;
  