paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-26 06:49:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDEIntf: OI: implemented checking for circles in nested object properties, feature 11333

Browse Source 
git-svn-id: trunk@15193 -
This commit is contained in:
mattias 2008-05-21 11:48:02 +00:00
parent f2fa3c549d
commit 177dcdbe22
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
ideintf/objectinspector.pp
View File

@ -1702,10 +1702,24 @@ begin
end;
function TOICustomPropertyGrid.CanExpandRow(Row: TOIPropertyGridRow): boolean;
var
AnObject: TObject;
ParentRow: TOIPropertyGridRow;
begin
Result:=false;
if (Row=nil) or (Row.Editor=nil) then exit;
if (not (paSubProperties in Row.Editor.GetAttributes)) then exit;
// check if circling
if (Row.Editor is TPersistentPropertyEditor) then begin
AnObject:=Row.Editor.GetObjectValue;
ParentRow:=Row.Parent;
while ParentRow<>nil do begin
if (ParentRow.Editor is TPersistentPropertyEditor)
and (ParentRow.Editor.GetObjectValue=AnObject) then
exit;
ParentRow:=ParentRow.Parent;
end;
end;
Result:=true;
end;