Changeset 257
- Timestamp:
- Jul 20, 2011, 11:44:41 PM (13 years ago)
- Location:
- Generics/TemplateGenerics
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
Generics/TemplateGenerics/Demo/UMainForm.lfm
r111 r257 107 107 item 108 108 Caption = 'Value' 109 Width = 3 16109 Width = 321 110 110 end> 111 111 ReadOnly = True … … 125 125 Height = 14 126 126 Top = 408 127 Width = 62127 Width = 72 128 128 Anchors = [akLeft, akBottom] 129 129 Caption = 'Benchmarks:' -
Generics/TemplateGenerics/Generic/GenericListObject.inc
r221 r257 18 18 OwnsObjects: Boolean; 19 19 function AddNew(NewObject: TGListItem = nil): TGListItem; 20 function AddInsertNew(Index: TGListIndex; NewObject: TGListItem = nil): TGListItem;20 function InsertNew(Index: TGListIndex; NewObject: TGListItem = nil): TGListItem; 21 21 procedure Delete(Index: TGListObjectIndex); override; 22 22 procedure Clear; override; … … 58 58 end; 59 59 60 function TGListObject. AddInsertNew(Index: TGListIndex;60 function TGListObject.InsertNew(Index: TGListIndex; 61 61 NewObject: TGListItem = nil): TGListItem; 62 62 begin -
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.