diff options
-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 |