paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 19:09:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Do not display error message if NoErrMsg is set.

Browse Source 
git-svn-id: trunk@27765 -
This commit is contained in:
michael 2014-05-11 10:19:04 +00:00
parent 4258d71a2d
commit d5a88caecd
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
rtl/win/syswin.inc
View File

@ -457,6 +457,7 @@ Begin
end; end;
if ErrorLen=ErrorBufferLength then if ErrorLen=ErrorBufferLength then
begin begin
if not NoErrMsg then
MessageBox(0,@ErrorBuf,pchar('Error'),0); MessageBox(0,@ErrorBuf,pchar('Error'),0);
ErrorLen:=0; ErrorLen:=0;
end; end;