mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 18:47:56 +02:00
18 lines
164 B
ObjectPascal
18 lines
164 B
ObjectPascal
{ %norun }
|
|
|
|
program bug11349;
|
|
|
|
{$R+,Q+}
|
|
|
|
const
|
|
WS_BORDER = DWORD($800000);
|
|
|
|
var
|
|
Style: Cardinal;
|
|
|
|
begin
|
|
Style := 0;
|
|
Style := Style and not WS_BORDER;
|
|
end.
|
|
|