anchor.diff:      FontSize: integer;
       IndentMinPercents: integer;
       IndentBigPercents: integer;
  +    IndentIconPercents: integer;
       IndentRightPercents: integer;
       IndentSubmenuArrowPercents: integer;
     end;
  
positive.code:     FontSize:= 9;
      IndentMinPercents:= 50;
      IndentBigPercents:= 300;
      IndentRightPercents:= 250;
      IndentSubmenuArrowPercents:= 150;
    end;
  
negative.code:   cSampleTall = 'Wj';
  var
    mi: TMenuItem;
    Images: TCustomImageList;
    dx, dxCell, dxMin, dxBig, Y: integer;
    ExtCell, ExtTall, Ext2: Types.TSize;
    NDrawFlags: UINT;
    bDisabled, bInBar, bHasSubmenu: boolean;
    BufW: UnicodeString;
    mark: WideChar;
    R: TRect;
  begin
    mi:= Sender as TMenuItem;
  