ListBox: internal Items.Exchange now notifies the listbox to redraw.

1 files changed, 12 insertions, 0 deletions

diff --git a/src/gui/fpg_listbox.pas b/src/gui/fpg_listbox.pas
index 175f0055..613fc092 100644
--- a/src/gui/fpg_listbox.pas
+++ b/src/gui/fpg_listbox.pas
@@ -228,6 +228,7 @@ type
     function    Add(const s: String): Integer; override;
     procedure   Delete(Index: Integer); override;
     procedure   Clear; override;
+    procedure   Exchange(Index1, Index2: Integer); override;
   end;
 
 
@@ -290,6 +291,17 @@ begin
   ListBox.Invalidate;
 end;
 
+procedure TfpgListBoxStrings.Exchange(Index1, Index2: Integer);
+begin
+  inherited Exchange(Index1, Index2);
+  if UpdateCount > 0 then
+    Exit;
+  if Assigned(ListBox) and (ListBox.HasHandle) then
+  begin
+    ListBox.Invalidate;
+  end;
+end;
+
 
 { TfpgBaseListBox }