diff options
-rw-r--r-- | src/gui/fpg_listbox.pas | 13 |
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 } |