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

ideintf: do not filter sub-properties by TComponent (fixes bug #0013354)

Browse Source 
git-svn-id: trunk@19035 -
This commit is contained in:
paul 2009-03-20 00:33:50 +00:00
parent a56ea09d06
commit 7a695c516b
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
ideintf/propedits.pp
View File

@ -6786,7 +6786,7 @@ var
// Since components are selectable in the designer,
// there is always a possibility that some descendant class may have
// properties of the required kind.
(GetTypeData(ti)^.ClassType.InheritsFrom(TComponent));
(GetTypeData(ti)^.ClassType.InheritsFrom(TPersistent));
// Class properties may directly or indirectly refer to the same class,
// so we must avoid infinite recursion.
if Result or (visited.IndexOf(ti) >= 0) then exit;