paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-04 07:42:59 +02: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; procedure RegisterComponentsHandler(const Page: string;
ComponentClasses: array of TComponentClass); ComponentClasses: array of TComponentClass);
procedure RegistrationError(const Msg: string); procedure RegistrationError(const Msg: string);
procedure RegisterStaticBasePackages;
procedure RegisterStaticPackage(APackage: TLazPackage; procedure RegisterStaticPackage(APackage: TLazPackage;
RegisterProc: TRegisterProc); RegisterProc: TRegisterProc);
procedure CallRegisterProc(RegisterProc: TRegisterProc); procedure CallRegisterProc(RegisterProc: TRegisterProc);
@ -2243,9 +2242,6 @@ begin
LoadLazarusBasePackage('LazControlDsgn'); LoadLazarusBasePackage('LazControlDsgn');
SortAutoInstallDependencies; SortAutoInstallDependencies;
// register them
RegisterStaticBasePackages;
end; end;
procedure TLazPackageGraph.LoadAutoInstallPackages(PkgList: TStringList); procedure TLazPackageGraph.LoadAutoInstallPackages(PkgList: TStringList);
@ -5675,18 +5671,6 @@ begin
Result:=true; Result:=true;
end; 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; procedure TLazPackageGraph.RegisterStaticPackage(APackage: TLazPackage;
RegisterProc: TRegisterProc); RegisterProc: TRegisterProc);
var var
@ -5697,7 +5681,7 @@ begin
if AbortRegistration then exit; if AbortRegistration then exit;
//DebugLn(['TLazPackageGraph.RegisterStaticPackage ',APackage.IDAsString]); //DebugLn(['TLazPackageGraph.RegisterStaticPackage ',APackage.IDAsString]);
// translate (load resourcestrings) package and dependies // translate (load resourcestrings) package and dependencies
if Assigned(OnTranslatePackage) then if Assigned(OnTranslatePackage) then
begin begin
PkgList:=nil; PkgList:=nil;