1 files changed, 10 insertions, 0 deletions
diff --git a/src/gui/gui_listbox.pas b/src/gui/gui_listbox.pas
index dd631dd7..bd493efd 100644
--- a/src/gui/gui_listbox.pas
+++ b/src/gui/gui_listbox.pas
@@ -81,6 +81,7 @@ type
     procedure   HandleLMouseUp(x, y: integer; shiftstate: TShiftState); override;
     procedure   HandleMouseMove(x, y: integer; btnstate: word; shiftstate: TShiftState); override;
     procedure   HandleMouseScroll(x, y: integer; shiftstate: TShiftState; delta: smallint); override;
+    procedure   HandleResize(awidth, aheight: TfpgCoord); override;
     procedure   HandleShow; override;
     procedure   HandlePaint; override;
     property    AutoHeight: boolean read FAutoHeight write SetAutoHeight default False;
@@ -571,6 +572,15 @@ begin
   end;
 end;
 
+procedure TfpgBaseListBox.HandleResize(awidth, aheight: TfpgCoord);
+begin
+  inherited HandleResize(awidth, aheight);
+  if (csLoading in ComponentState) then
+    Exit;
+  UpdateScrollbarCoords;
+  UpdateScrollBar;
+end;
+
 procedure TfpgBaseListBox.HandleShow;
 begin
   inherited HandleShow;