paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-09-07 20:50:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

tests: fixed SetWindowLong test

Browse Source 
git-svn-id: trunk@14477 -
This commit is contained in:
paul 2009-12-25 11:42:06 +00:00
parent 1bbd116730
commit e9770b180a
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
tests/webtbs/tw4043.pp
View File

@ -1,5 +1,4 @@
{ %target=win32 } { %target=win32 }
{ %OPT=-Sew -vw }
uses uses
windows; windows;
@ -9,6 +8,7 @@ var
begin begin
WindowHandle:=0; WindowHandle:=0;
// the next code must compile but with a range check warning
SetWindowLong(WindowHandle, GWL_STYLE, WS_POPUP or WS_CLIPCHILDREN); SetWindowLong(WindowHandle, GWL_STYLE, WS_POPUP or WS_CLIPCHILDREN);
halt(0); halt(0);
end. end.