fpcsrc/tests/webtbs/tw11349.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

{ %norun }

program bug11349;

{$R+,Q+}

const
  WS_BORDER = DWORD($800000);

var
  Style: Cardinal;

begin
  Style := 0;
  Style := Style and not WS_BORDER;
end.