paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-09 13:08:12 +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
This commit is contained in:
Juha 2024-08-01 09:17:30 +03:00
parent 3ffc1f862f
commit 2fea4c39a2
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

@ -4644,9 +4644,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);