paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 15:59:15 +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

3
ide/main.pp
View File

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