anchor.diff:  end;
   
   // only called from inside HandlePaint so no need for BeginDraw..EndDraw calls
  -procedure TfpgScrollBar.DrawButton(x, y, w, h: TfpgCoord; const imgname: string; Pressed: Boolean = False);
  +procedure TfpgScrollBar.DrawButton(x, y, w, h: TfpgCoord; const imgname: string; Pressed: Boolean = False; const ButtonEnabled: Boolean= True);
   var
  -  img: TfpgImage;
  +  img, imgdisabled: TfpgImage;
     dx: integer;
     dy: integer;
   begin
  
positive.code:     FMousePosition: TPoint;
      FOnScroll: TScrollNotifyEvent;
      procedure   ScrollTimer(Sender: TObject);
      procedure   DrawButton(x, y, w, h: TfpgCoord; const imgname: string; Pressed: Boolean = False); virtual;
      procedure   DrawSlider(recalc: boolean); virtual;
      procedure   HandleLMouseDown(x, y: integer; shiftstate: TShiftState); override;
      procedure   HandleLMouseUp(x, y: integer; shiftstate: TShiftState); override;
  
negative.code:   if FScrollbarDownPart = sbpSlider then
    begin
      FSliderDragStart := FSliderPos;
      Invalidate;
    end
    else if not (FScrollbarDownPart in [sbpNone, sbpSlider]) then
    begin
      FScrollTimer.Interval := 300;
      FScrollTimer.Enabled := True;
      Invalidate;
    end;
  end;
  
  