paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-03 20:40:25 +02:00
Code Issues Packages Projects Releases Wiki Activity

IDE: Do not clear messages before showing "Clean up and build project" dialog. Issue #41047, patch by n7800.

Browse Source 
(cherry picked from commit 2fea4c39a2)
This commit is contained in:
Juha 2024-08-01 09:17:30 +03:00 committed by Maxim Ganetsky
parent 18f1d06255
commit 7330bf87c4
1 changed files with 2 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
ide/main.pp
View File

@ -4586,9 +4586,8 @@ end;
procedure TMainIDE.mnuCleanUpAndBuildProjectClicked(Sender: TObject); procedure TMainIDE.mnuCleanUpAndBuildProjectClicked(Sender: TObject);
begin begin
if PrepareForCompileWithMsg<>mrOk then exit; if ShowBuildProjectDialog(Project1) = mrOk then
if ShowBuildProjectDialog(Project1)<>mrOk then exit; DoBuildProject(crBuild, []);
DoBuildProject(crBuild,[]);
end; end;
procedure TMainIDE.mnuBuildManyModesClicked(Sender: TObject); procedure TMainIDE.mnuBuildManyModesClicked(Sender: TObject);