source: trunk/Packages/TemplateGenerics/Specialized/SpecializedMatrix.pas

Last change on this file was 28, checked in by chronos, 9 years ago
  • Added: Remember forms dimensions.
  • Added: Remember recent opened files.
File size: 2.0 KB
Line 
1unit SpecializedMatrix;
2
3{$mode objfpc}{$H+}
4
5interface
6
7uses
8 Classes, SysUtils;
9
10type
11 {$MACRO ON}
12
13// TMatrixInteger<Integer, Integer, Integer>
14{$DEFINE TGMatrixIndexX := Integer}
15{$DEFINE TGMatrixIndexY := Integer}
16{$DEFINE TGMatrixItem := Integer}
17{$DEFINE TGMatrixIndex := TMatrixIntegerIndex}
18{$DEFINE TGMatrixRow := TMatrixIntegerRow}
19{$DEFINE TGMatrix := TMatrixInteger}
20{$DEFINE INTERFACE}
21{$I 'GenericMatrix.inc'}
22
23// TMatrixByte<Integer, Integer, Byte>
24{$DEFINE TGMatrixIndexX := Integer}
25{$DEFINE TGMatrixIndexY := Integer}
26{$DEFINE TGMatrixItem := Byte}
27{$DEFINE TGMatrixIndex := TMatrixByteIndex}
28{$DEFINE TGMatrixRow := TMatrixByteRow}
29{$DEFINE TGMatrix := TMatrixByte}
30{$DEFINE INTERFACE}
31{$I 'GenericMatrix.inc'}
32
33// TMatrixObject<Integer, Integer, TObject>
34{$DEFINE TGMatrixIndexX := Integer}
35{$DEFINE TGMatrixIndexY := Integer}
36{$DEFINE TGMatrixItem := TObject}
37{$DEFINE TGMatrixIndex := TMatrixObjectIndex}
38{$DEFINE TGMatrixRow := TMatrixObjectRow}
39{$DEFINE TGMatrix := TMatrixObject}
40{$DEFINE INTERFACE}
41{$I 'GenericMatrix.inc'}
42
43implementation
44
45{$DEFINE IMPLEMENTATION_USES}
46{$I 'GenericMatrix.inc'}
47
48// TMatrixInteger<Integer, Integer, Integer>
49{$DEFINE TGMatrixIndexX := Integer}
50{$DEFINE TGMatrixIndexY := Integer}
51{$DEFINE TGMatrixItem := Integer}
52{$DEFINE TGMatrixIndex := TMatrixIntegerIndex}
53{$DEFINE TGMatrixRow := TMatrixIntegerRow}
54{$DEFINE TGMatrix := TMatrixInteger}
55{$DEFINE IMPLEMENTATION}
56{$I 'GenericMatrix.inc'}
57
58// TMatrixByte<Integer, Integer, Byte>
59{$DEFINE TGMatrixIndexX := Integer}
60{$DEFINE TGMatrixIndexY := Integer}
61{$DEFINE TGMatrixItem := Byte}
62{$DEFINE TGMatrixIndex := TMatrixByteIndex}
63{$DEFINE TGMatrixRow := TMatrixByteRow}
64{$DEFINE TGMatrix := TMatrixByte}
65{$DEFINE IMPLEMENTATION}
66{$I 'GenericMatrix.inc'}
67
68// TMatrixObject<Integer, Integer, TObject>
69{$DEFINE TGMatrixIndexX := Integer}
70{$DEFINE TGMatrixIndexY := Integer}
71{$DEFINE TGMatrixItem := TObject}
72{$DEFINE TGMatrixIndex := TMatrixObjectIndex}
73{$DEFINE TGMatrixRow := TMatrixObjectRow}
74{$DEFINE TGMatrix := TMatrixObject}
75{$DEFINE IMPLEMENTATION}
76{$I 'GenericMatrix.inc'}
77
78end.
79
Note: See TracBrowser for help on using the repository browser.