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

IDE: formatting

Browse Source 
git-svn-id: trunk@40553 -
This commit is contained in:
juha 2013-03-15 13:09:43 +00:00
parent 4b5bda4b7d
commit 1984461ac1
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/main.pp
View File

@ -13600,14 +13600,12 @@ begin
PkgBoss.AddDependencyToUnitOwners(AnUnitInfo.Filename,RequiredUnitName); PkgBoss.AddDependencyToUnitOwners(AnUnitInfo.Filename,RequiredUnitName);
end; end;
procedure TMainIDE.OnPropHookGetComponentNames(TypeData: PTypeData; procedure TMainIDE.OnPropHookGetComponentNames(TypeData: PTypeData; Proc: TGetStrProc);
Proc: TGetStrProc);
begin begin
PkgBoss.IterateComponentNames(GlobalDesignHook.LookupRoot,TypeData,Proc); PkgBoss.IterateComponentNames(GlobalDesignHook.LookupRoot,TypeData,Proc);
end; end;
function TMainIDE.OnPropHookGetComponent(const ComponentPath: String function TMainIDE.OnPropHookGetComponent(const ComponentPath: String): TComponent;
): TComponent;
begin begin
Result:=PkgBoss.FindUsableComponent(GlobalDesignHook.LookupRoot,ComponentPath); Result:=PkgBoss.FindUsableComponent(GlobalDesignHook.LookupRoot,ComponentPath);
end; end;