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

LCL: TListView update FSelectedIdx in multiselect mode too. issue #21389

Browse Source 
git-svn-id: trunk@35614 -
This commit is contained in:
zeljko 2012-02-28 19:11:20 +00:00
parent 3ee12b8bbf
commit 1e2b5b21f7
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lcl/include/customlistview.inc
View File

@ -356,8 +356,7 @@ begin
Include(FFlags,lffSelectedValid); Include(FFlags,lffSelectedValid);
if OwnerData then if OwnerData then
begin begin
if (MultiSelect and (FSelectedIdx = -1)) or not MultiSelect then FSelectedIdx:=nm^.iItem;
FSelectedIdx:=nm^.iItem;
end; end;
//DebugLn('TCustomListView.CNNotify FSelected=',dbgs(FSelected)); //DebugLn('TCustomListView.CNNotify FSelected=',dbgs(FSelected));
DoSelectItem(Item, True); DoSelectItem(Item, True);