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

Last change on this file was 60, checked in by chronos, 12 years ago
File size: 2.7 KB
Line 
1 unit SpecializedBitmap;
2
3{$mode Delphi}{$H+}
4
5interface
6
7uses
8 Classes, SysUtils,
9 Graphics, FPImage;
10
11type
12 {$MACRO ON}
13
14// TBitmapTColor<Integer, Integer, TColor>
15{$DEFINE TGBitmapIndexX := Integer}
16{$DEFINE TGBitmapIndexY := Integer}
17{$DEFINE TGBitmapItem := TColor}
18{$DEFINE TGBitmapIndex := TBitmapTColorIndex}
19{$DEFINE TGBitmapRow := TBitmapTColorRow}
20{$DEFINE TGBitmapMatrix := TBitmapTColorMatrix}
21{$DEFINE TGBitmap := TBitmapTColor}
22{$DEFINE TGBitmapSortCompare := TBitmapTColorSortCompare}
23{$DEFINE TGBitmapToStringConverter := TBitmapTColorToStringConverter}
24{$DEFINE TGBitmapFromStringConverter := TBitmapTColorFromStringConverter}
25{$DEFINE TGBitmapMerge := TBitmapTColorMerge}
26{$DEFINE INTERFACE}
27{$I 'GenericBitmap.inc'}
28
29// TBitmapTFPColor<Integer, Integer, TFPColor>
30{$DEFINE TGBitmapIndexX := Integer}
31{$DEFINE TGBitmapIndexY := Integer}
32{$DEFINE TGBitmapItem := TFPColor}
33{$DEFINE TGBitmapIndex := TBitmapTFPColorIndex}
34{$DEFINE TGBitmapRow := TBitmapTFPColorRow}
35{$DEFINE TGBitmapMatrix := TBitmapTFPColorMatrix}
36{$DEFINE TGBitmap := TBitmapTFPColor}
37{$DEFINE TGBitmapSortCompare := TBitmapTFPColorSortCompare}
38{$DEFINE TGBitmapToStringConverter := TBitmapTFPColorToStringConverter}
39{$DEFINE TGBitmapFromStringConverter := TBitmapTFPColorFromStringConverter}
40{$DEFINE TGBitmapMerge := TBitmapTFPColorMerge}
41{$DEFINE INTERFACE}
42{$I 'GenericBitmap.inc'}
43
44implementation
45
46{$DEFINE IMPLEMENTATION_USES}
47{$I 'GenericBitmap.inc'}
48
49// TBitmapTColor<Integer, Integer, TColor>
50{$DEFINE TGBitmapIndexX := Integer}
51{$DEFINE TGBitmapIndexY := Integer}
52{$DEFINE TGBitmapItem := TColor}
53{$DEFINE TGBitmapIndex := TBitmapTColorIndex}
54{$DEFINE TGBitmapRow := TBitmapTColorRow}
55{$DEFINE TGBitmapMatrix := TBitmapTColorMatrix}
56{$DEFINE TGBitmap := TBitmapTColor}
57{$DEFINE TGBitmapSortCompare := TBitmapTColorSortCompare}
58{$DEFINE TGBitmapToStringConverter := TBitmapTColorToStringConverter}
59{$DEFINE TGBitmapFromStringConverter := TBitmapTColorFromStringConverter}
60{$DEFINE TGBitmapMerge := TBitmapTColorMerge}
61{$DEFINE IMPLEMENTATION}
62{$I 'GenericBitmap.inc'}
63
64// TBitmapTFPColor<Integer, Integer, TFPColor>
65{$DEFINE TGBitmapIndexX := Integer}
66{$DEFINE TGBitmapIndexY := Integer}
67{$DEFINE TGBitmapItem := TFPColor}
68{$DEFINE TGBitmapIndex := TBitmapTFPColorIndex}
69{$DEFINE TGBitmapRow := TBitmapTFPColorRow}
70{$DEFINE TGBitmapMatrix := TBitmapTFPColorMatrix}
71{$DEFINE TGBitmap := TBitmapTFPColor}
72{$DEFINE TGBitmapSortCompare := TBitmapTFPColorSortCompare}
73{$DEFINE TGBitmapToStringConverter := TBitmapTFPColorToStringConverter}
74{$DEFINE TGBitmapFromStringConverter := TBitmapTFPColorFromStringConverter}
75{$DEFINE TGBitmapMerge := TBitmapTFPColorMerge}
76{$DEFINE IMPLEMENTATION}
77{$I 'GenericBitmap.inc'}
78
79end.
80
Note: See TracBrowser for help on using the repository browser.