anchor.diff:        repeat
           FScrollPos:= Min(APosTo, FScrollPos+cStep);
           Paint;
  +        Application.ProcessMessages;
           Sleep(cSleepTime);
  -        Application.ProcessMessages;
         until FScrollPos=APosTo
       else
         repeat
           FScrollPos:= Max(APosTo, FScrollPos-cStep);
           Paint;
  +        Application.ProcessMessages;
           Sleep(cSleepTime);
  -        Application.ProcessMessages;
         until FScrollPos=APosTo;
     finally
       Enabled:= true;
  
positive.code:     procedure DoTabDrop;
      procedure DoTabDropToOtherControl(ATarget: TControl; const APnt: TPoint);
      procedure DoUpdateTabRects;
    public
      constructor Create(AOnwer: TComponent); override;
      function CanFocus: boolean; override;
  
negative.code:     procedure DragDrop(Source: TObject; X, Y: Integer); override;
      procedure DoScrollLeft;
      procedure DoScrollRight;
  
    protected
      procedure Paint; override;
      procedure Resize; override;
  