| Class TPictureCollectionItem (unit DXDraws) |
| Constructors |
constructor Create(Collection: TCollection);| 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);
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;