anchor.diff:      exit;
     end;
   
  -  ScrollDistance := FXScroll - FLastXScroll;
  +//  ScrollDistance := FXScroll - FLastXScroll;
   
     { TODO -ograemeg -cscrolling : Implement horizontal scrolling }
     //ScrollControlRect( Self,
  
positive.code:   if Assigned(FLayout) then
      FreeAndNil(FLayout);
  
    FScrollTimer.Free;
    if not InDesigner then
    begin
      RemoveCursor;
  
negative.code:   FVScrollBar.Orientation := orVertical;
    FVScrollbar.SetPosition(Width-2-FScrollbarWidth, 2, FScrollbarWidth, Height-4-FScrollbarWidth);
  
  //  FScrollTimer := TfpgTimer.Create( 100 );
  //  FScrollTimer.OnTimer := @OnScrollTimer;
  
  //  FLinkCursor := GetLinkCursor;
  
  