anchor.diff:    
     TfpgScrollBarPart = (sbpNone, sbpUpBack, sbpPageUpBack, sbpSlider, sbpDownForward, sbpPageDownForward);
   
  -  { TfpgScrollBar }
   
     TfpgScrollBar = class(TfpgWidget)
     private
  
positive.code: 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);
  var
    img: TfpgImage;
    dx: integer;
    dy: integer;
  begin
  
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
  