anchor.diff:    if FScrollbarDownPart = sbpSlider then
     begin
       FSliderDragStart := FSliderPos;
  -    Invalidate; //DrawSlider(False);
  +    Invalidate;
     end
     else if not (FScrollbarDownPart in [sbpNone, sbpSlider]) then
     begin
       FScrollTimer.Interval := 300;
       FScrollTimer.Enabled := True;
  -
  -    Invalidate; //HandlePaint;
  +    Invalidate;
     end;
   end;
   
  
positive.code:   FScrollbarDownPart := sbpNone;
    
    if WasPressed then
      Invalidate; //HandlePaint;
  end;
  
  procedure TfpgScrollBar.HandleMouseMove(x, y: integer; btnstate: word; shiftstate: TShiftState);
  
negative.code:   Canvas.SetColor(clText1);
    img := fpgImages.GetImage(imgname);
    if img <> nil then
    begin
      if ButtonEnabled then
        Canvas.DrawImage(x + w div 2 - (img.Width div 2) + dx, y + h div 2 - (img.Height div 2) + dy, img)
      else
      begin
        imgdisabled := img.CreateDisabledImage;
        Canvas.DrawImage(x + w div 2 - (img.Width div 2) + dx, y + h div 2 - (img.Height div 2) + dy, imgdisabled);
        imgdisabled.Free;
      end;
    end;
  end;
  
  // only called from inside HandlePaint so no need for BeginDraw..EndDraw calls
  