From f8ce545ba2ee987941a1d9668aa88b15744101a8 Mon Sep 17 00:00:00 2001 From: Maxim Ganetsky Date: Sat, 25 Nov 2023 05:23:24 +0300 Subject: [PATCH] IDE: changed class of "Select profiles to build" dialog from TGenericCheckListForm to TLazarusBuildManyDialog. The former type corresponds to generic dialog and poses potential risk of name clashing when storing layout. Patch by n7800. (cherry picked from commit 1e7d5e9eeb78442d0036b24c6660a4da5c86ce3c) --- ide/buildlazdialog.pas | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) diff --git a/ide/buildlazdialog.pas b/ide/buildlazdialog.pas index b51644be18..936af9fae3 100644 --- a/ide/buildlazdialog.pas +++ b/ide/buildlazdialog.pas @@ -206,6 +206,12 @@ type property ProfileChanged: boolean read fProfileChanged write fProfileChanged; end; + { TLazarusBuildManyDialog } + + TLazarusBuildManyDialog = class(TGenericCheckListForm) + // nothing, just ApplyLayout() requires a specific class name + end; + function GetMakeIDEConfigFilename: string; function GetBackupExeFilename(Filename: string): string; @@ -1453,12 +1459,12 @@ procedure TConfigureBuildLazarusDlg.CompileAdvancedButtonClick(Sender: TObject); // mrYes=save and compile // mrCancel=do nothing var - EditForm: TGenericCheckListForm; + EditForm: TLazarusBuildManyDialog; i, ind: Integer; begin PrepareClose; // Add a button for building all. - EditForm:=TGenericCheckListForm.CreateWithActionButton(lisBuild, 'menu_build'); + EditForm:=TLazarusBuildManyDialog.CreateWithActionButton(lisBuild, 'menu_build'); try EditForm.Caption:=lisLazBuildSelectProfilesToBuild; // Copy profile names to checkboxlist and check the previously selected ones.