anchor.diff:      FOptSpaceXInner: integer; //space from "x" square edge to "x" mark
       FOptSpaceXSize: integer; //size of "x" mark
       FOptColoredBandSize: integer; //height of "misc color" line
  -    FOptFocusBandSize: integer;
  +    FOptActiveMarkSize: integer;
       FOptArrowSize: integer; //half-size of "arrow" mark
       FOptDropMarkSize: integer;
       FOptScrollMarkSizeX: integer;
  
positive.code:   _InitOptArrowSize = 4;
    _InitOptArrowSpaceLeft = 4;
    _InitOptColoredBandSize = 4;
    _InitOptFocusBandSize = 5;
    _InitOptScrollMarkSizeX = 20;
    _InitOptScrollMarkSizeY = 3;
    _InitOptDropMarkSize = 6;
  
negative.code:     C.Brush.Color:= ColorFocusBand;
      if bActive then
        if FOptShowAtBottom then
          C.FillRect(PL1.X, 0, PR1.X, FOptActiveMarkSize)
        else
          C.FillRect(PL2.X, ClientHeight-FOptActiveMarkSize, PR2.X, ClientHeight);
    end
    else
    if FOptShowAtBottom then
  