anchor.diff:      FScrollPos: integer;
       FImages: TImageList;
       FBitmap: TBitmap;
  +    FBitmapRound: TBitmap;
   
       FRectArrowDown: TRect;
       FRectArrowLeft: TRect;
  
positive.code:   _InitOptSpaceXRight = 10;
    _InitOptSpaceXInner = 3;
    _InitOptSpaceXSize = 12;
    _InitOptArrowSize = 4;
    _InitOptArrowSpaceLeft = 4;
    _InitOptColoredBandSize = 4;
  
negative.code:   FOptSpaceXRight:= _InitOptSpaceXRight;
    FOptSpaceXInner:= _InitOptSpaceXInner;
    FOptSpaceXSize:= _InitOptSpaceXSize;
    FOptSpaceXIncrementRound:= _InitOptSpaceXIncrementRound;
    FOptArrowSize:= _InitOptArrowSize;
    FOptColoredBandSize:= _InitOptColoredBandSize;
    FOptColoredBandForTop:= atpTop;
  