paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-28 15:20:49 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: Set ListView.Selection always when working with OwnerData. Issue #30320, patch from Rolf Wetjen.

Browse Source 
git-svn-id: trunk@52595 -
This commit is contained in:
juha 2016-07-02 09:27:37 +00:00
parent 5416af6a20
commit 3b284c4674
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/customlistview.inc
View File

@ -1557,7 +1557,7 @@ var
begin
if (AValue<>nil) and (AValue.ListView<>Self) then
raise Exception.Create('Item does not belong to this listview');
if FSelected = AValue then Exit;
if (not FOwnerData) and (FSelected = AValue) then Exit;
//DebugLn('TCustomListView.SetSelection FSelected=',dbgs(FSelected));
if AValue = nil then
begin