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

IDEIntf: GetLookupRootForComponent extended to search via TCollectionItem and TCollection, bug #15217

Browse Source 
git-svn-id: trunk@22896 -
This commit is contained in:
mattias 2009-12-01 13:03:21 +00:00
parent 7a89ac6e1f
commit d3c0a4612b
1 changed files with 20 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
ideintf/propedits.pp
View File

@ -6506,10 +6506,26 @@ end;
function GetLookupRootForComponent(APersistent: TPersistent): TPersistent;
begin
Result:=APersistent;
if (Result<>nil) and (Result is TComponent) then begin
while TComponent(Result).Owner<>nil do
Result:=TComponent(Result).Owner;
end;
if Result=nil then exit;
repeat
if (Result is TComponent) then begin
if TComponent(Result).Owner<>nil then
Result:=TComponent(Result).Owner
else
exit;
end else if Result is TCollection then begin
if TCollection(Result).Owner<>nil then
Result:=TCollection(Result).Owner
else
exit;
end else if Result is TCollectionItem then begin
if TCollectionItem(Result).Collection<>nil then
Result:=TCollectionItem(Result).Collection
else
exit;
end else
exit;
until false;
end;
function KeyAndShiftStateToKeyString(Key: word; ShiftState: TShiftState): String;