paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 15:49:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Use MB_SETFOREGROUND and ICON_ERROR flags for unhandled exception message box on wince to prevent message box hiding when sequential error messages are displayed.

Browse Source 
git-svn-id: trunk@11844 -
This commit is contained in:
yury 2008-10-01 12:19:55 +00:00
parent b7f07f8144
commit 3e92fc8a28
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
rtl/wince/system.pp
View File

@ -1690,7 +1690,7 @@ Begin
if ErrorLen=ErrorBufferLength then
begin
AnsiToWideBuf(@ErrorBuf, -1, @ErrorBufW, SizeOf(ErrorBufW));
MessageBox(0,@ErrorBufW,'Error',0);
MessageBox(0,@ErrorBufW,'Error',$10010); { MB_SETFOREGROUND or ICON_ERROR }
ErrorLen:=0;
end;
Dec(F.BufPos,i);
@ -1704,7 +1704,7 @@ begin
if ErrorLen>0 then
begin
AnsiToWideBuf(@ErrorBuf, -1, @ErrorBufW, SizeOf(ErrorBufW));
MessageBox(0,@ErrorBufW,'Error',0);
MessageBox(0,@ErrorBufW,'Error',$10010); { MB_SETFOREGROUND or ICON_ERROR }
ErrorLen:=0;
end;
ErrorLen:=0;