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

* Prevent a crash of the tw2423 test on some versions of Windows.

Browse Source
This commit is contained in:
Yuriy Sydorov 2021-09-11 19:53:50 +03:00
parent fca357e898
commit daa05f19cb
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
tests/webtbs/tw2423.pp
View File

@ -6,6 +6,7 @@
{$mode objfpc}
{$endif}
{ $define BugAvoid}
uses windows;
type
pVariant=^Variant;
function ShowHTMLDialog(const hwndParent:longint;const pmk:pointer;
@ -103,5 +104,8 @@ begin
{$endif}
// Create a dummy main window to prevent a crash in ShowHTMLDialog() on some versions of Windows
CreateWindow('STATIC', 'Test', WS_POPUP, 0, 0, 200, 200, 0, 0, HInstance, nil);
ShowHTMLDialog(0,pmk,InParam,nil,nil);
end.