anchor.diff:      CharRadiomark: WideChar;
       FontName: string;
       FontSize: integer;
  +    IndentMinPercents: integer;
  +    IndentBigPercents: integer;
  +    IndentRightPercents: integer;
     end;
   
   type
  
positive.code:   ACanvas.FillRect(ARect);
  
    Windows.GetTextExtentPoint(ACanvas.Handle, PChar(cSampleShort), Length(cSampleShort), Ext1);
    dx1:= Ext1.cx;
    dxMin:= dx1 div 3;
  
    if mi.IsLine then
    begin
  
negative.code: 
    if mi.ShortCut<>0 then
    begin
      if odDisabled in AState then
        ACanvas.Font.Color:= MenuStylerTheme.ColorFontDisabled
      else
        ACanvas.Font.Color:= MenuStylerTheme.ColorFontShortcut;
      BufA:= ShortCutToText(mi.Shortcut);
      Windows.GetTextExtentPoint(ACanvas.Handle, PChar(BufA), Length(BufA), Ext2);
      Windows.TextOut(ACanvas.Handle,
        ARect.Right - Ext2.cx - Ext1.cx*MenuStylerTheme.IndentRightPercents div 100,
        Y,
        PChar(BufA),
        Length(BufA));
    end;
  end;
  
  