Changeset 257 for Generics


Ignore:
Timestamp:
Jul 20, 2011, 11:44:41 PM (13 years ago)
Author:
george
Message:
Location:
Generics/TemplateGenerics
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • Generics/TemplateGenerics/Demo/UMainForm.lfm

    r111 r257  
    107107      item
    108108        Caption = 'Value'
    109         Width = 316
     109        Width = 321
    110110      end>
    111111    ReadOnly = True
    … …  
    125125    Height = 14
    126126    Top = 408
    127     Width = 62
     127    Width = 72
    128128    Anchors = [akLeft, akBottom]
    129129    Caption = 'Benchmarks:'

  • Generics/TemplateGenerics/Generic/GenericListObject.inc

    r221 r257  
    1818    OwnsObjects: Boolean;
    1919    function AddNew(NewObject: TGListItem = nil): TGListItem;
    20     function AddInsertNew(Index: TGListIndex; NewObject: TGListItem = nil): TGListItem;
     20    function InsertNew(Index: TGListIndex; NewObject: TGListItem = nil): TGListItem;
    2121    procedure Delete(Index: TGListObjectIndex); override;
    2222    procedure Clear; override;
    … …  
    5858end;
    5959
    60 function TGListObject.AddInsertNew(Index: TGListIndex;
     60function TGListObject.InsertNew(Index: TGListIndex;
    6161  NewObject: TGListItem = nil): TGListItem;
    6262begin

  • Generics/TemplateGenerics/Specialized/SpecializedBitmap.pas

    r196 r257  
    66
    77uses
    8   Classes, SysUtils, Graphics;
     8  Classes, SysUtils,
     9  Graphics, FPImage;
    910
    1011type
    … …  
    2627{$I 'GenericBitmap.inc'}
    2728
     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'}
    2843
    2944implementation
    … …  
    4762{$I 'GenericBitmap.inc'}
    4863
     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
    4979end.
    5080
Note: See TracChangeset for help on using the changeset viewer.