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

IdeIntf: Reduce debug msgs in TPropertyEditorHook. Rename a variable.

Browse Source 
git-svn-id: trunk@51417 -
This commit is contained in:
juha 2016-01-25 20:04:49 +00:00
parent cf3a735d93
commit 468a5a31d3
1 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/ideintf/propedits.pp
View File

@ -5757,7 +5757,7 @@ end;
function TPropertyEditorHook.GetComponentName(AComponent: TComponent): String;
var
i: Integer;
CompName, ParentName: String;
CompName, OwnerName: String;
Handler: TPropHookGetComponentName;
begin
Result := '';
@ -5773,17 +5773,17 @@ begin
begin
CompName := AComponent.Name;
if (AComponent.Owner<>LookupRoot) and (AComponent.Owner<>nil) then
ParentName := AComponent.Owner.Name;
if CompName='' then
OwnerName := AComponent.Owner.Name;
{ if CompName='' then
DebugLn('TPropertyEditorHook.GetComponentName: AComponent.Name is empty, '+
'AComponent.Owner.Name="' + ParentName+'".');
if ParentName='' then
'AComponent.Owner.Name="' + OwnerName+'".');
if OwnerName='' then
DebugLn('TPropertyEditorHook.GetComponentName: AComponent.Owner.Name is empty.');
}
Result := CompName;
if ParentName<>'' then
if OwnerName<>'' then
begin
Result := ParentName;
Result := OwnerName;
if CompName<>'' then
Result := Result+'.'+CompName;
end;