anchor.diff:      CharRadiomark:= #$25CF; //#$2022;
       FontName:= 'default';
       FontSize:= 9;
  +    IndentMinPercents:= 50;
  +    IndentBigPercents:= 300;
  +    IndentRightPercents:= 250;
     end;
   
   finalization
  
positive.code:   ACanvas.Font.Size:= MenuStylerTheme.FontSize;
    ACanvas.Font.Style:= [];
  
    Windows.GetTextExtentPoint(ACanvas.Handle, PChar(cSampleBig), Length(cSampleBig), Ext2);
  
    if mi.IsInMenuBar then
      dx2:= dx1
    else
      dx2:= Ext2.cx;
  
    Y:= (ARect.Top+ARect.Bottom-Ext2.cy) div 2;
  
    BufW:= UTF8Decode(mi.Caption);
    R.Left:= ARect.Left+dx2;
    R.Top:= Y;
    R.Right:= ARect.Right;
    R.Bottom:= ARect.Bottom;
  
negative.code:   ARect: TRect; AState: TOwnerDrawState);
  const
    cSampleShort = '0';
    cSampleTall = 'Wj';
  var
    mi: TMenuItem;
    dx, dxMin, Y: integer;
    mark: WideChar;
    BufA: string;
    BufW: UnicodeString;
    Ext1, Ext2, ExtTall: Types.TSize;
    R: TRect;
  begin
    mi:= Sender as TMenuItem;
  