Changeset 257 for Generics/TemplateGenerics/Specialized
- Timestamp:
- Jul 20, 2011, 11:44:41 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Generics/TemplateGenerics/Specialized/SpecializedBitmap.pas
r196 r257 6 6 7 7 uses 8 Classes, SysUtils, Graphics; 8 Classes, SysUtils, 9 Graphics, FPImage; 9 10 10 11 type … … 26 27 {$I 'GenericBitmap.inc'} 27 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'} 28 43 29 44 implementation … … 47 62 {$I 'GenericBitmap.inc'} 48 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 49 79 end. 50 80
Note:
See TracChangeset
for help on using the changeset viewer.