From aa4e3d6902cc8dea893e0a8cfe6dbe1e69257b71 Mon Sep 17 00:00:00 2001
From: zeljko <zeljko@lazarus-ide.org>
Date: Wed, 17 Nov 2010 09:30:07 +0000
Subject: [PATCH] LCL: trigger OnSelectionChange() when
 TCustomListBox.SelectAll called. Fixes issue #17069

git-svn-id: trunk@28291 -
---
 lcl/include/customlistbox.inc | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lcl/include/customlistbox.inc b/lcl/include/customlistbox.inc
index 9c1c7a3aef..f58519da64 100644
--- a/lcl/include/customlistbox.inc
+++ b/lcl/include/customlistbox.inc
@@ -619,6 +619,7 @@ begin
   begin
     for i := 0 to Items.Count - 1 do
       Selected[i] := true;
+    DoSelectionChange(false);
   end else
   begin
     i := ItemIndex;