Class TPictureCollectionItem (unit DXDraws)

Inherits from

THashCollectionItem

Constructors


constructor Create(Collection: TCollection);

TPictureCollectionItem


Functions

destructor Destroy;


procedure Draw(Dest: TDirectDrawSurface; X, Y, PatternIndex: Integer);


procedure DrawRotateAdd(Dest: TDirectDrawSurface; X, Y, Width, Height, PatternIndex: Integer; CenterX, CenterY: Double; Angle, Alpha: Integer);


procedure DrawRotateAlpha(Dest: TDirectDrawSurface; X, Y, Width, Height, PatternIndex: Integer; CenterX, CenterY: Double; Angle, Alpha: Integer);


procedure Restore;


procedure StretchDraw(Dest: TDirectDrawSurface; Rect: TRect; PatternIndex: Integer);


procedure ClearSurface;


procedure Finalize;


function GetHeight: Integer;


function GetPatternCount: Integer;


function GetPatternRect(Index: Integer): TRect;


function GetPatternSurface(Index: Integer): TDirectDrawSurface;


function GetPictureCollection: TPictureCollection;


function GetWidth: Integer;


procedure Initialize;


procedure SetPicture(Value: TPicture);

Load to a video memory with dividing the image.

procedure SetTransparentColor(Value: TColor);


Properties

property PatternHeight : Integer


property PatternWidth : Integer


property Picture : TPicture


property SkipHeight : Integer


property SkipWidth : Integer


property SystemMemory : Boolean


property Transparent : Boolean


property TransparentColor : TColor


property Height : Integer


property Initialized : Boolean


property PatternCount : Integer


property PatternRects : TRect


property PatternSurfaces : TDirectDrawSurface


property PictureCollection : TPictureCollection


property Width : Integer


Events

Variables

FInitialized : Boolean;


FPatternHeight : Integer;


FPatterns : TCollection;


FPatternWidth : Integer;


FPicture : TPicture;


FSkipHeight : Integer;


FSkipWidth : Integer;


FSurfaceList : TList;


FSystemMemory : Boolean;


FTransparent : Boolean;


FTransparentColor : TColor;



Constructors


constructor Create(Collection: TCollection);

TPictureCollectionItem


Functions


destructor Destroy;


procedure Draw(Dest: TDirectDrawSurface; X, Y, PatternIndex: Integer);


procedure DrawRotateAdd(Dest: TDirectDrawSurface; X, Y, Width, Height, PatternIndex: Integer; CenterX, CenterY: Double; Angle, Alpha: Integer);


procedure DrawRotateAlpha(Dest: TDirectDrawSurface; X, Y, Width, Height, PatternIndex: Integer; CenterX, CenterY: Double; Angle, Alpha: Integer);


procedure Restore;


procedure StretchDraw(Dest: TDirectDrawSurface; Rect: TRect; PatternIndex: Integer);


procedure ClearSurface;


procedure Finalize;


function GetHeight: Integer;


function GetPatternCount: Integer;


function GetPatternRect(Index: Integer): TRect;


function GetPatternSurface(Index: Integer): TDirectDrawSurface;


function GetPictureCollection: TPictureCollection;


function GetWidth: Integer;


procedure Initialize;


procedure SetPicture(Value: TPicture);

Load to a video memory with dividing the image.


procedure SetTransparentColor(Value: TColor);


Properties


property PatternHeight : Integer


property PatternWidth : Integer


property Picture : TPicture


property SkipHeight : Integer


property SkipWidth : Integer


property SystemMemory : Boolean


property Transparent : Boolean


property TransparentColor : TColor


property Height : Integer


property Initialized : Boolean


property PatternCount : Integer


property PatternRects : TRect


property PatternSurfaces : TDirectDrawSurface


property PictureCollection : TPictureCollection


property Width : Integer


Events


Variables


FInitialized : Boolean;


FPatternHeight : Integer;


FPatterns : TCollection;


FPatternWidth : Integer;


FPicture : TPicture;


FSkipHeight : Integer;


FSkipWidth : Integer;


FSurfaceList : TList;


FSystemMemory : Boolean;


FTransparent : Boolean;


FTransparentColor : TColor;