mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-07 20:56:31 +02:00
LCL: trigger OnSelectionChange() when TCustomListBox.SelectAll called. Fixes issue #17069
git-svn-id: trunk@28291 -
This commit is contained in:
parent
9bcaf5ec16
commit
aa4e3d6902
@ -619,6 +619,7 @@ begin
|
||||
begin
|
||||
for i := 0 to Items.Count - 1 do
|
||||
Selected[i] := true;
|
||||
DoSelectionChange(false);
|
||||
end else
|
||||
begin
|
||||
i := ItemIndex;
|
||||
|
Loading…
Reference in New Issue
Block a user