anchor.diff:    TScrollNotifyEvent = procedure(Sender: TObject; position: integer) of object;
   
     TfpgScrollStyle = (ssNone, ssHorizontal, ssVertical, ssAutoBoth);
  +  
  +  TfpgScrollBarPart = (sbpNone, sbpUpBack, sbpPageUpBack, sbpSlider, sbpDownForward, sbpPageDownForward);
   
     TfpgScrollBar = class(TfpgWidget)
     private
       FLargeChange: Integer;
  -    PrevAreaPressed: Boolean;
  -    NextAreaPressed: Boolean;
  +    FScrollbarDownPart: TfpgScrollBarPart;
       procedure   SetMax(const AValue: integer);
       procedure   SetMin(const AValue: integer);
       procedure   SetPosition(const AValue: integer);
  
positive.code:   SliderSize    := 0.5;
    FOnScroll     := nil;
    FSliderPos    := 0;
    FSliderDragging := False;
    FSliderLength := 10;
    FScrollStep   := 1;
    FLargeChange  := 0;
    
    PrevAreaPressed := False;
    NextAreaPressed := False;
  end;
  
  destructor TfpgScrollBar.Destroy;
  
negative.code:   
    if Orientation = orVertical then
    begin
      DrawButton(0, 0, Width, Width, 'sys.sb.up', FScrollbarDownPart = sbpPageUpBack);
      DrawButton(0, Height-Width, Width, Width, 'sys.sb.down', FScrollbarDownPart = sbpPageDownForward);
    end
    else
    begin
      DrawButton(0, 0, Height, Height, 'sys.sb.left', FScrollbarDownPart = sbpPageUpBack);
      DrawButton(Width-Height, 0, Height, Height, 'sys.sb.right', FScrollbarDownPart = sbpPageDownForward);
    end;
  
    DrawSlider(True);
  