anchor.diff:  //  FHScrollbar.SliderSize := AvailableWidth div 2;
     FHScrollbar.Min := 0;
     if FNeedHScroll then
  -    FHScrollbar.Max := MaxDisplayWidth
  +    { TODO : As soon as we fix FLayout.Width, then we can enable the extra code below }
  +    FHScrollbar.Max := (MaxDisplayWidth) // - AvailableWidth)  + FScrollbarWidth
     else
     begin
       FHScrollBar.Position := 0;
  
positive.code: 
    // Calculate used and available width
    AvailableWidth := GetTextAreaWidth;
    MaxDisplayWidth := FLayout.Width;
  
    // Horizontal scroll setup
    if MaxDisplayWidth > AvailableWidth then
  
negative.code:   end;
  
    FHScrollBar.ScrollStep :=  25; // pixels
    FHScrollBar.PageSize := AvailableWidth - FHScrollbar.ScrollStep; // slightly less than width
    FHScrollBar.SliderSize := AvailableWidth / MaxDisplayWidth;
    FVScrollBar.ScrollStep := 25; // not used (line up/down calculated explicitly)
    FVScrollBar.PageSize := AvailableHeight - FVScrollBar.ScrollStep;
    FVScrollBar.SliderSize := AvailableHeight / FLayout.Height;
  
    // Physical horizontal scroll setup
    FHScrollbar.Visible := FNeedHScroll;
  