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

when compile progress dialog is shown: do not focus messages, hide on successful compile, bug #12020

Browse Source 
git-svn-id: trunk@24680 -
This commit is contained in:
mattias 2010-04-17 18:51:35 +00:00
parent af1bc64a0b
commit 1ca82b2ef3
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
ide/main.pp
View File

@ -10574,7 +10574,7 @@ begin
Project1.LastCompilerFilename:=CompilerFilename;
Project1.LastCompilerParams:=CompilerParams;
Project1.LastCompilerFileDate:=FileAgeCached(CompilerFilename);
DoJumpToCompilerMessage(-1,true);
DoJumpToCompilerMessage(-1,not EnvironmentOptions.ShowCompileDialog);
CompileProgress.Ready(lisInfoBuildError);
exit;
end;
@ -10617,7 +10617,6 @@ begin
MessagesView.AddMsg(Format(lisProjectSuccessfullyBuilt, ['"',
Project1.ShortDescription, '"']),'',-1);
CompileProgress.Ready(lisInfoBuildSuccess);
finally
// check sources
DoCheckFilesOnDisk;
@ -10700,7 +10699,8 @@ begin
Result := mrCancel;
Result := DebugBoss.StartDebugging;
// if Result<>mrOk then exit;
if Result = mrOk then
CompileProgress.Hide();
DebugLn('[TMainIDE.DoRunProject] END');
end;