ListBox: Items.Assign() now correctly updates scrollbar status.

1 files changed, 13 insertions, 0 deletions

diff --git a/src/gui/fpg_listbox.pas b/src/gui/fpg_listbox.pas
index 613fc092..4b6d162e 100644
--- a/src/gui/fpg_listbox.pas
+++ b/src/gui/fpg_listbox.pas
@@ -229,6 +229,7 @@ type
     procedure   Delete(Index: Integer); override;
     procedure   Clear; override;
     procedure   Exchange(Index1, Index2: Integer); override;
+    procedure   Assign(Source: TPersistent); override;
   end;
 
 
@@ -302,6 +303,18 @@ begin
   end;
 end;
 
+procedure TfpgListBoxStrings.Assign(Source: TPersistent);
+begin
+  inherited Assign(Source);
+  if UpdateCount > 0 then
+    Exit;
+  if Assigned(ListBox) and (ListBox.HasHandle) then
+  begin
+    ListBox.UpdateScrollBar;
+    ListBox.Invalidate;
+  end;
+end;
+
 
 { TfpgBaseListBox }