anchor.diff:  
     TfpgScrollBar = class(TfpgWidget)
     private
  +    FLargeChange: Integer;
  +    PrevAreaPressed: Boolean;
  +    NextAreaPressed: Boolean;
       procedure   SetMax(const AValue: integer);
       procedure   SetMin(const AValue: integer);
       procedure   SetPosition(const AValue: integer);
  
positive.code:     procedure   RepaintSlider;
      property    Position: integer read FPosition write SetPosition default 10;
      property    ScrollStep: integer read FScrollStep write FScrollStep default 1;
      property    Min: integer read FMin write SetMin default 0;
      property    Max: integer read FMax write SetMax default 100;
      property    OnScroll: TScrollNotifyEvent read FOnScroll write FOnScroll;
  
negative.code: end;
  
  procedure TfpgScrollBar.HandleLMouseDown(x, y: integer; shiftstate: TShiftState);
  var
    lPos: TfpgCoord;
  begin
    inherited;
  
  