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

LCL: TCustomListView: allow programatically selection of items when OwnerData. issue #18202

Browse Source 
git-svn-id: trunk@35243 -
This commit is contained in:
zeljko 2012-02-08 19:47:12 +00:00
parent c63e24b53b
commit 90c91e2666
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
lcl/include/listitem.inc
View File

@ -487,7 +487,10 @@ end;
{------------------------------------------------------------------------------}
function TListItem.WSUpdateAllowed: Boolean;
begin
Result := (FFlags * [lifDestroying, lifCreated] = [lifCreated])
Result :=
( (FFlags * [lifDestroying, lifCreated] = [lifCreated]) or
((FFlags = []) and (FOwner <> nil) and (FOwner.FOwner <> nil) and
(FOwner.FOwner.OwnerData)) )
and (FOwner <> nil)
and FOwner.WSUpdateAllowed;
end;