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:   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;
  
negative.code:     ACanvas.Font.Color:= MenuStylerTheme.ColorFontSelected
    else
      ACanvas.Font.Color:= MenuStylerTheme.ColorFont;
  
    Windows.GetTextExtentPoint(ACanvas.Handle, PChar(cSampleTall), Length(cSampleTall), ExtTall);
  
  