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

LazBuild: Do not require OnRegisterGroup to be assigned. Not needed by LazBuild.

Browse Source
This commit is contained in:
Juha 2023-06-18 15:48:59 +03:00
parent e045ba01d2
commit 7287cd8a11
2 changed files with 2 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/buildintf/ideoptionsintf.pas
View File

@ -281,9 +281,8 @@ implementation
procedure RegisterOptionsGroup(AGroupIndex: Integer; AGroupClass: TAbstractIDEOptionsClass);
// Like function RegisterIDEOptionsGroup in IDEOptEditorIntf (IdeIntf) but does not return anything.
begin
if OnRegisterGroup=Nil then
raise Exception.Create('RegisterOptionsGroup: OnRegisterGroup=Nil');
OnRegisterGroup(AGroupIndex, AGroupClass);
if Assigned(OnRegisterGroup) then
OnRegisterGroup(AGroupIndex, AGroupClass);
end;
{ TIDEEnvironmentOptions }

2
ide/lazbuild.lpr
View File

@ -37,8 +37,6 @@ uses
LCLPlatformDef, Forms,
// Codetools
CodeCache, CodeToolManager, DefineTemplates, FileProcs,
// IdeIntf
IDEOptEditorIntf, // Initialize RegisterOptionsGroup event
// BuildIntf
BaseIDEIntf, MacroIntf, PackageIntf, LazMsgWorker, ProjectIntf, IDEExternToolIntf,
CompOptsIntf, IDEOptionsIntf, PackageDependencyIntf,