paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-04 15:49:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

IDE: it is no longer needed to manually call translation callbacks for 'static base' packages

Browse Source
This commit is contained in:
Maxim Ganetsky 2021-12-07 17:06:53 +03:00
parent ba63a18843
commit 0c9041f474
1 changed files with 1 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
packager/packagesystem.pas
View File

@ -435,7 +435,6 @@ type
procedure RegisterComponentsHandler(const Page: string;
ComponentClasses: array of TComponentClass);
procedure RegistrationError(const Msg: string);
procedure RegisterStaticBasePackages;
procedure RegisterStaticPackage(APackage: TLazPackage;
RegisterProc: TRegisterProc);
procedure CallRegisterProc(RegisterProc: TRegisterProc);
@ -2243,9 +2242,6 @@ begin
LoadLazarusBasePackage('LazControlDsgn');
SortAutoInstallDependencies;
// register them
RegisterStaticBasePackages;
end;
procedure TLazPackageGraph.LoadAutoInstallPackages(PkgList: TStringList);
@ -5675,18 +5671,6 @@ begin
Result:=true;
end;
procedure TLazPackageGraph.RegisterStaticBasePackages;
begin
BeginUpdate(true);
// IDE built-in packages
if Assigned(OnTranslatePackage) then
begin
OnTranslatePackage(BuildIntfPackage);
OnTranslatePackage(CodeToolsPackage);
end;
EndUpdate;
end;
procedure TLazPackageGraph.RegisterStaticPackage(APackage: TLazPackage;
RegisterProc: TRegisterProc);
var
@ -5697,7 +5681,7 @@ begin
if AbortRegistration then exit;
//DebugLn(['TLazPackageGraph.RegisterStaticPackage ',APackage.IDAsString]);
// translate (load resourcestrings) package and dependies
// translate (load resourcestrings) package and dependencies
if Assigned(OnTranslatePackage) then
begin
PkgList:=nil;