Avoid flickering in Compilation messagebox

git-svn-id: trunk@34207 -
This commit is contained in:
pierre 2016-07-26 21:01:19 +00:00
parent d0ca79baf7
commit 7b2c034065

View File

@ -620,7 +620,7 @@ begin
else
begin
if Status.CurrentSource='' then
StatusS:=''
StatusS:=' '
else
begin
StatusS:=ShrinkPath(SmartPath(DirAndNameOf(Status.Currentsourcepath+Status.CurrentSource)),