From 7287cd8a1154d7ef1104390fdbd33054f433919c Mon Sep 17 00:00:00 2001 From: Juha Date: Sun, 18 Jun 2023 15:48:59 +0300 Subject: [PATCH] LazBuild: Do not require OnRegisterGroup to be assigned. Not needed by LazBuild. --- components/buildintf/ideoptionsintf.pas | 5 ++--- ide/lazbuild.lpr | 2 -- 2 files changed, 2 insertions(+), 5 deletions(-) diff --git a/components/buildintf/ideoptionsintf.pas b/components/buildintf/ideoptionsintf.pas index 567716be3c..10f571cd95 100644 --- a/components/buildintf/ideoptionsintf.pas +++ b/components/buildintf/ideoptionsintf.pas @@ -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 } diff --git a/ide/lazbuild.lpr b/ide/lazbuild.lpr index c962d976aa..719c744244 100644 --- a/ide/lazbuild.lpr +++ b/ide/lazbuild.lpr @@ -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,