diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-08-26 11:07:07 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-08-26 11:07:07 +0200 |
| commit | 59b9bc045dedf03bc5a6d14005dabc097ab95e60 (patch) | |
| tree | e36bba79ddacf568b90e8ea2054c83dee4849a3c /src | |
| parent | e79082b1cdf1eefdb07893cf65137df46d1bd590 (diff) | |
| download | fpGUI-59b9bc045dedf03bc5a6d14005dabc097ab95e60.tar.xz | |
treeview: Improved the page_up/page_down jump size of the scrollbars.
Diffstat (limited to 'src')
| -rw-r--r-- | src/gui/fpg_tree.pas | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/src/gui/fpg_tree.pas b/src/gui/fpg_tree.pas index 37d2af22..00ab6c8e 100644 --- a/src/gui/fpg_tree.pas +++ b/src/gui/fpg_tree.pas @@ -1231,8 +1231,10 @@ begin FVScrollbar.Visible := VisibleHeight < (GetNodeHeightSum * GetNodeHeight); FVScrollbar.Min := 0; FVScrollbar.Max := (GetNodeHeightSum * GetNodeHeight) - VisibleHeight + FHScrollbar.Height; + FVScrollbar.PageSize := (VisibleHeight div 4) * 3; // three quarters of the height FHScrollbar.Min := 0; FHScrollbar.Max := MaxNodeWidth - VisibleWidth + FVScrollbar.Width; + FHScrollbar.PageSize := (VisibleWidth div 4) * 3; // three quarters of the height FHScrollbar.Visible := MaxNodeWidth > Width - 2; if not FVScrollbar.Visible then begin |