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

Ideintf: check parent row interface when checking if TInterfacePropertyEditor is expandable

Browse Source
This commit is contained in:
Marc 2021-09-27 20:06:40 +02:00
parent 907f82485b
commit f67149d196
1 changed files with 23 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
components/ideintf/objectinspector.pp
View File

@ -1474,7 +1474,7 @@ begin
while (s<=length(PropPath)) do begin
e:=s;
while (e<=length(PropPath)) and (PropPath[e]<>'.') do inc(e);
CurName:=copy(PropPath,s,e-s);
CurName:=uppercase(copy(PropPath,s,e-s));
s:=e+1;
// search name in children
if CurParentRow=nil then
@ -2209,6 +2209,7 @@ end;
function TOICustomPropertyGrid.CanExpandRow(Row: TOIPropertyGridRow): boolean;
var
AnObject: TPersistent;
AnInterface: IInterface;
ParentRow: TOIPropertyGridRow;
begin
Result:=false;
@ -2216,17 +2217,28 @@ begin
if (not (paSubProperties in Row.Editor.GetAttributes)) then exit;
// check if circling
if (Row.Editor is TPersistentPropertyEditor) then begin
if (Row.Editor is TInterfacePropertyEditor) then
AnObject:={%H-}TPersistent(Row.Editor.GetIntfValue)
else
if (Row.Editor is TInterfacePropertyEditor) then begin
AnInterface:=Row.Editor.GetIntfValue;
ParentRow:=Row.Parent;
while ParentRow<>nil do begin
if (ParentRow.Editor is TInterfacePropertyEditor)
and (ParentRow.Editor.GetIntfValue=AnInterface) then
exit;
ParentRow:=ParentRow.Parent;
end;
end
else begin
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)
and (ParentRow.Editor.GetObjectValue=AnObject) then
exit;
ParentRow:=ParentRow.Parent;
if FSelection.IndexOf(AnObject)>=0 then exit;
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;
end;
Result:=true;