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

LCL: Improve TCustomListView.SetSelection a little.

Browse Source 
git-svn-id: trunk@53506 -
This commit is contained in:
juha 2016-12-01 15:36:55 +00:00
parent 4f5167f4bb
commit 79edcb1a9f
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/include/customlistview.inc
View File

@ -1578,10 +1578,8 @@ begin
Include(FFlags,lffSelectedValid);
end else
begin
FSelected := AValue;
if HandleAllocated then
TWSCustomListViewClass(WidgetSetClass).ItemSetState(Self, FSelected.Index,
FSelected, lisSelected, True);
DoSelectItem(FSelected, False);
DoSelectItem(AValue, True);
end;
end;