diff options
| -rw-r--r-- | docview/components/richtext/RichTextView.pas | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/docview/components/richtext/RichTextView.pas b/docview/components/richtext/RichTextView.pas index 46873de1..0cce5705 100644 --- a/docview/components/richtext/RichTextView.pas +++ b/docview/components/richtext/RichTextView.pas @@ -1233,7 +1233,7 @@ begin // Calculate used and available width AvailableWidth := GetTextAreaWidth; - MaxDisplayWidth := FLayout.Width + 200; { TODO : We need to fix FLayout.Width first before we remove + 200 } + MaxDisplayWidth := FLayout.Width; // Horizontal scroll setup if MaxDisplayWidth > AvailableWidth then @@ -1242,8 +1242,7 @@ begin // FHScrollbar.SliderSize := AvailableWidth div 2; FHScrollbar.Min := 0; if FNeedHScroll then - { TODO : As soon as we fix FLayout.Width, then we can enable the extra code below } - FHScrollbar.Max := (MaxDisplayWidth) // - AvailableWidth) + FScrollbarWidth + FHScrollbar.Max := (MaxDisplayWidth - AvailableWidth) + FScrollbarWidth else begin FHScrollBar.Position := 0; |