diff options
| author | Graeme Geldenhuys <graemeg@gmail.com> | 2010-09-12 00:49:45 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graemeg@gmail.com> | 2010-09-12 00:49:45 +0200 |
| commit | cda56fc88208ee0f7838d0e3679e5ac959ad923f (patch) | |
| tree | 9365dd34cbafd8161a92371b6cdeebd4968d2bc0 /src | |
| parent | e8ed178e5af3ab1ca927073ea1a54ce33bf068bb (diff) | |
| download | fpGUI-cda56fc88208ee0f7838d0e3679e5ac959ad923f.tar.xz | |
treeview: up/down scrollbar buttons now scroll one line and not one pixel.
Diffstat (limited to 'src')
| -rw-r--r-- | src/gui/fpg_tree.pas | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/src/gui/fpg_tree.pas b/src/gui/fpg_tree.pas index 00ab6c8e..30305b04 100644 --- a/src/gui/fpg_tree.pas +++ b/src/gui/fpg_tree.pas @@ -1232,6 +1232,7 @@ begin FVScrollbar.Min := 0; FVScrollbar.Max := (GetNodeHeightSum * GetNodeHeight) - VisibleHeight + FHScrollbar.Height; FVScrollbar.PageSize := (VisibleHeight div 4) * 3; // three quarters of the height + FVScrollbar.ScrollStep := GetNodeHeight; // up/down buttons move the height of the font FHScrollbar.Min := 0; FHScrollbar.Max := MaxNodeWidth - VisibleWidth + FVScrollbar.Width; FHScrollbar.PageSize := (VisibleWidth div 4) * 3; // three quarters of the height |