Context Navigation

SpecializedPoint.pas

Last change on this file was 18, checked in by chronos, 12 years ago
Used external packages are now stored in uncompressed form rather in zipped files. This allow better package version synchronisation.
File size: 1.2 KB

Line
1	unit SpecializedPoint;
2
3	{$mode objfpc}{$H+}
4
5	interface
6
7	uses
8	Classes, SysUtils;
9
10	{$MACRO ON}
11
12	type
13	// TPoint<Integer>
14	{$DEFINE TGPointType := Integer}
15	{$DEFINE TGPoint := TPoint}
16	{$DEFINE INTERFACE}
17	{$I 'GenericPoint.inc'}
18
19	// TSmallPoint<SmallInt>
20	{$DEFINE TGPointType := SmallInt}
21	{$DEFINE TGPoint := TSmallPoint}
22	{$DEFINE INTERFACE}
23	{$I 'GenericPoint.inc'}
24
25	// TPointSingle<Single>
26	{$DEFINE TGPointType := Single}
27	{$DEFINE TGPoint := TPointSingle}
28	{$DEFINE INTERFACE}
29	{$I 'GenericPoint.inc'}
30
31	// TPointDouble<Double>
32	{$DEFINE TGPointType := Double}
33	{$DEFINE TGPoint := TPointDouble}
34	{$DEFINE INTERFACE}
35	{$I 'GenericPoint.inc'}
36
37	implementation
38
39	// TPoint<Integer>
40	{$DEFINE TGPointType := Integer}
41	{$DEFINE TGPoint := TPoint}
42	{$DEFINE IMPLEMENTATION}
43	{$I 'GenericPoint.inc'}
44
45	// TSmallPoint<SmallInt>
46	{$DEFINE TGPointType := SmallInt}
47	{$DEFINE TGPoint := TSmallPoint}
48	{$DEFINE IMPLEMENTATION}
49	{$I 'GenericPoint.inc'}
50
51	// TPointSingle<Single>
52	{$DEFINE TGPointType := Single}
53	{$DEFINE TGPoint := TPointSingle}
54	{$DEFINE IMPLEMENTATION}
55	{$I 'GenericPoint.inc'}
56
57	// TPointDouble<Double>
58	{$DEFINE TGPointType := Double}
59	{$DEFINE TGPoint := TPointDouble}
60	{$DEFINE IMPLEMENTATION}
61	{$I 'GenericPoint.inc'}
62	end.
63

Note: See TracBrowser for help on using the repository browser.