anchor.diff:    FVScrollBar.Orientation := orVertical;
     FVScrollbar.SetPosition(Width-2-FScrollbarWidth, 2, FScrollbarWidth, Height-4-FScrollbarWidth);
   
  -  FScrollTimer := TfpgTimer.Create( 100 );
  -  FScrollTimer.OnTimer := @OnScrollTimer;
  +//  FScrollTimer := TfpgTimer.Create( 100 );
  +//  FScrollTimer.OnTimer := @OnScrollTimer;
   
   //  FLinkCursor := GetLinkCursor;
   
  
positive.code:     FImages: TfpgImageList;
  
      // Selection scrolling
      FScrollTimer: TfpgTimer;
      FOldMousePoint: TPoint;
      FScrollingDirection: TScrollingDirection;
  
  
negative.code:     exit;
    end;
  
  //  ScrollDistance := FXScroll - FLastXScroll;
  
    { TODO -ograemeg -cscrolling : Implement horizontal scrolling }
    //ScrollControlRect( Self,
  