anchor.diff:    SliderSize    := 0.5;
     FOnScroll     := nil;
     FSliderPos    := 0;
  -  FSliderLength := 10;
  +  FSliderLength := cMinSliderLength;
     FScrollStep   := 1;
     FPageSize     := 5;
     FLargeChange  := 0;
  
positive.code: 
  implementation
  
  { TfpgScrollBar }
  
  constructor TfpgScrollBar.Create(AOwner: TComponent);
  
negative.code: 
      FSliderLength := Trunc(area * SliderSize);
      //FSliderLength := Trunc((width/area) * (fmax /area  ));
      if FSliderLength < cMinSliderLength then
        FSliderLength := cMinSliderLength;
      if FSliderLength > area then
        FSliderLength := area;
      area := area - FSliderLength;
  