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

IdeIntf: Create also Constraints.OnChange handler when clicked in Object Inspector. Issue #29562.

Browse Source 
git-svn-id: trunk@51469 -
This commit is contained in:
juha 2016-02-01 21:04:53 +00:00
parent bd20aff9d3
commit deeef8296e
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/ideintf/propedits.pp
View File

@ -6062,7 +6062,12 @@ begin
if Instance is TComponent then
Result:=TComponent(Instance).Name
else if instance is TCollectionItem then
Result:=TCollectionItem(Instance).GetNamePath;
Result:=TCollectionItem(Instance).GetNamePath
else begin
Result:=Instance.ClassName;
if (Length(Result) > 1) and (Result[1] in ['t', 'T']) then
system.Delete(Result, 1, 1);
end;
end;
procedure TPropertyEditorHook.GetObjectNames(TypeData: PTypeData;