diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-08-28 13:31:03 +0100 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2012-08-28 13:31:03 +0100 |
| commit | 08a89fa0ce538e6b78aa2630e28f8b19ceeea559 (patch) | |
| tree | f44f716eb8827e1520e5e8be63ea04aa3ce0216b | |
| parent | 3007d100e75fc3efd6d3946dcdc084ee6ee22901 (diff) | |
| download | fpGUI-08a89fa0ce538e6b78aa2630e28f8b19ceeea559.tar.xz | |
treeview: scrollbar width is now set to the standard 16px
No more usage of "magic" numbers either.
| -rw-r--r-- | src/gui/fpg_tree.pas | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/src/gui/fpg_tree.pas b/src/gui/fpg_tree.pas index 3b94cfdd..8b338ef6 100644 --- a/src/gui/fpg_tree.pas +++ b/src/gui/fpg_tree.pas @@ -1355,16 +1355,18 @@ begin end; procedure TfpgTreeview.ResetScrollbar; +const + cSBarThickness = 16; begin {$IFDEF DEBUG} SendDebug(Classname + '.ResetScrollbar'); {$ENDIF} UpdateScrollBars; if FHScrollbar.Visible then - FVScrollbar.SetPosition(Width - 19, 1, 18, Height - 2 - 18) + FVScrollbar.SetPosition(Width - cSBarThickness-1, 1, cSBarThickness, Height - 2 - cSBarThickness) else - FVScrollbar.SetPosition(Width - 19, 1, 18, Height - 2); - FHScrollbar.SetPosition(1, Height - 19, Width - 2, 18); + FVScrollbar.SetPosition(Width - cSBarThickness-1, 1, 16, Height - 2); + FHScrollbar.SetPosition(1, Height - cSBarThickness-1, Width - 2, cSBarThickness); end; procedure TfpgTreeView.ClearColumnLeft; |