paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 02:18:03 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL/ListView: Fix OnSelectItem not showing previously selected item when argument Selected=false (on Windows).

Browse Source
This commit is contained in:
wp_xyz 2022-04-04 11:51:42 +02:00
parent 829bad776f
commit 9aa8b52ba2
1 changed files with 5 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/customlistview.inc
View File

@ -260,6 +260,7 @@ var
nm: PNMListView;
Item: TListItem;
n: Integer;
oldSelected: TListItem;
begin
nm := PNMListView(AMessage.NMHdr);
// ignore any notifications while initializing items
@ -347,6 +348,7 @@ begin
if (((nm^.uOldState and LVIS_SELECTED) <> (nm^.uNewState and LVIS_SELECTED)))
or (not (lffSelectedValid in FFlags) and (nm^.uNewState and LVIS_SELECTED <> 0)) then
begin
oldSelected := FSelected;
if MultiSelect and OwnerData then
UpdateMultiSelList(Item, nm^.uNewState and LVIS_SELECTED <> 0);
@ -358,9 +360,12 @@ begin
if FSelected = Item then
InvalidateSelected
end else
begin
if (nm^.iItem < 0) or (nm^.iItem = FSelectedIdx) then
if not MultiSelect then
InvalidateSelected;
Item := oldSelected;
end;
end else
begin
FSelected := Item;