Browse Source

+ added test

git-svn-id: trunk@11061 -
Jonas Maebe 17 years ago
parent
commit
e4124cd070
2 changed files with 18 additions and 0 deletions
  1. 1 0
      .gitattributes
  2. 17 0
      tests/webtbs/tw11349.pp

+ 1 - 0
.gitattributes

@@ -8281,6 +8281,7 @@ tests/webtbs/tw11309.pp svneol=native#text/plain
 tests/webtbs/tw11312.pp svneol=native#text/plain
 tests/webtbs/tw1132.pp svneol=native#text/plain
 tests/webtbs/tw1133.pp svneol=native#text/plain
+tests/webtbs/tw11349.pp svneol=native#text/plain
 tests/webtbs/tw1152.pp svneol=native#text/plain
 tests/webtbs/tw1157.pp svneol=native#text/plain
 tests/webtbs/tw1157b.pp svneol=native#text/plain

+ 17 - 0
tests/webtbs/tw11349.pp

@@ -0,0 +1,17 @@
+{ %norun }
+
+program bug11349;
+
+{$R+,Q+}
+
+const
+  WS_BORDER = DWORD($800000);
+
+var
+  Style: Cardinal;
+
+begin
+  Style := 0;
+  Style := Style and not WS_BORDER;
+end.
+