diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-05-31 10:28:33 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-05-31 10:28:33 +0200 |
| commit | ad24d3be685a1f2e86e0b0cfdd7dfdf2e3a99b04 (patch) | |
| tree | c0d4ca593bb7c7cb5fc8368b85afa00ab7bbec07 /src/gui | |
| parent | 93b69c0bc710d88e7156cb894544d0cc961c529c (diff) | |
| download | fpGUI-ad24d3be685a1f2e86e0b0cfdd7dfdf2e3a99b04.tar.xz | |
Scrollbar: When resized it now triggers a recalc of slidersize.
Diffstat (limited to 'src/gui')
| -rw-r--r-- | src/gui/fpg_scrollbar.pas | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/gui/fpg_scrollbar.pas b/src/gui/fpg_scrollbar.pas index 08a0b2a3..12541b9c 100644 --- a/src/gui/fpg_scrollbar.pas +++ b/src/gui/fpg_scrollbar.pas @@ -79,6 +79,7 @@ type procedure HandleMouseMove(x, y: integer; btnstate: word; shiftstate: TShiftState); override; procedure HandleMouseScroll(x, y: integer; shiftstate: TShiftState; delta: smallint); override; procedure HandlePaint; override; + procedure HandleResize(AWidth, AHeight: TfpgCoord); override; procedure PositionChange(d: integer); public Orientation: TOrientation; @@ -148,6 +149,12 @@ begin FRecalc := False; end; +procedure TfpgScrollBar.HandleResize(AWidth, AHeight: TfpgCoord); +begin + inherited HandleResize(AWidth, AHeight); + FRecalc := True; +end; + procedure TfpgScrollBar.RepaintSlider; begin if not HasHandle then |