paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 23:19:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

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.

Browse Source
This commit is contained in:
Maxim Ganetsky 2023-11-25 05:23:24 +03:00
parent 3256ff9246
commit 1e7d5e9eeb
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
ide/buildlazdialog.pas
View File

@ -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;
@ -1456,12 +1462,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.