blob: f603f7fcb9676ccc2be805b4ee9c36aaaf6e3eae (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
{ Source provided for Free Pascal Bug Report 3353 }
{ Submitted by "Vincent Snijders" on 2004-10-11 }
{ e-mail: vslist@zonnet.nl }
uses uw3353;
{$ifdef fpc}{$mode objfpc}{$endif}
var
gfx: TGPGraphics;
a: integer;
begin
err:=true;
gfx := TGPGraphics.Create(a);
if err then
halt(1);
end.
|
