mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-06 17:57:54 +02:00
IDE: Do not clear messages before showing "Clean up and build project" dialog. Issue #41047, patch by n7800.
(cherry picked from commit 2fea4c39a2
)
This commit is contained in:
parent
18f1d06255
commit
7330bf87c4
@ -4586,9 +4586,8 @@ end;
|
||||
|
||||
procedure TMainIDE.mnuCleanUpAndBuildProjectClicked(Sender: TObject);
|
||||
begin
|
||||
if PrepareForCompileWithMsg<>mrOk then exit;
|
||||
if ShowBuildProjectDialog(Project1)<>mrOk then exit;
|
||||
DoBuildProject(crBuild,[]);
|
||||
if ShowBuildProjectDialog(Project1) = mrOk then
|
||||
DoBuildProject(crBuild, []);
|
||||
end;
|
||||
|
||||
procedure TMainIDE.mnuBuildManyModesClicked(Sender: TObject);
|
||||
|
Loading…
Reference in New Issue
Block a user