anchor.diff:      C.Brush.Color:= ColorFocusBand;
       if bActive then
         if FOptShowAtBottom then
  -        C.FillRect(PL1.X, 0, PR1.X, FOptFocusBandSize)
  +        C.FillRect(PL1.X, 0, PR1.X, FOptActiveMarkSize)
         else
  -        C.FillRect(PL2.X, ClientHeight-FOptFocusBandSize, PR2.X, ClientHeight);
  +        C.FillRect(PL2.X, ClientHeight-FOptActiveMarkSize, PR2.X, ClientHeight);
     end
     else
     if FOptShowAtBottom then
  
positive.code:     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;
      FOptArrowSize: integer; //half-size of "arrow" mark
      FOptDropMarkSize: integer;
      FOptScrollMarkSizeX: integer;
  
negative.code:   FOptSpaceXSize:= _InitOptSpaceXSize;
    FOptArrowSize:= _InitOptArrowSize;
    FOptColoredBandSize:= _InitOptColoredBandSize;
    FOptActiveMarkSize:= _InitOptActiveMarkSize;
    FOptScrollMarkSizeX:= _InitOptScrollMarkSizeX;
    FOptScrollMarkSizeY:= _InitOptScrollMarkSizeY;
    FOptDropMarkSize:= _InitOptDropMarkSize;
  