paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 01:28:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDEIntf: OI: forbid showing sub properties of a TPersistent property if value is selected component, bug #11355

Browse Source 
git-svn-id: trunk@15908 -
This commit is contained in:
mattias 2008-07-29 09:05:04 +00:00
parent 12f1a8ff3d
commit d1c8d571f1
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ideintf/objectinspector.pp
View File

@ -1734,7 +1734,7 @@ end;
function TOICustomPropertyGrid.CanExpandRow(Row: TOIPropertyGridRow): boolean;
var
AnObject: TObject;
AnObject: TPersistent;
ParentRow: TOIPropertyGridRow;
begin
Result:=false;
@ -1742,7 +1742,8 @@ begin
if (not (paSubProperties in Row.Editor.GetAttributes)) then exit;
// check if circling
if (Row.Editor is TPersistentPropertyEditor) then begin
AnObject:=Row.Editor.GetObjectValue;
AnObject:=TPersistent(Row.Editor.GetObjectValue);
if FSelection.IndexOf(AnObject)>=0 then exit;
ParentRow:=Row.Parent;
while ParentRow<>nil do begin
if (ParentRow.Editor is TPersistentPropertyEditor)