source: trunk/Demo/Packages/TemplateGenerics/Specialized/SpecializedPoint.pas

Last change on this file was 60, checked in by chronos, 13 years ago
File size: 1.2 KB
Line 
1unit SpecializedPoint;
2
3{$mode objfpc}{$H+}
4
5interface
6
7uses
8 Classes, SysUtils;
9
10{$MACRO ON}
11
12type
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
37implementation
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'}
62end.
63
Note: See TracBrowser for help on using the repository browser.