From 59b9bc045dedf03bc5a6d14005dabc097ab95e60 Mon Sep 17 00:00:00 2001 From: Graeme Geldenhuys Date: Thu, 26 Aug 2010 11:07:07 +0200 Subject: treeview: Improved the page_up/page_down jump size of the scrollbars. --- src/gui/fpg_tree.pas | 2 ++ 1 file changed, 2 insertions(+) (limited to 'src') 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 -- cgit v1.2.3-70-g09d2