GitHub-Mirror/G940LEDControl
1
0
Fork 0
mirror of synced 2024-11-22 10:03:51 +00:00
Code Issues Projects Releases Wiki Activity
77cf10ddf6
G940LEDControl/DirectX/Direct3D.pas

5588 lines
213 KiB
ObjectPascal
Raw Blame History

{******************************************************************************}
{* *}
{* Copyright (C) Microsoft Corporation. All Rights Reserved. *}
{* *}
{* Files: d3dtypes.h d3dcaps.h d3d.h *}
{* Content: Direct3D8 include files *}
{* *}
{* DirectX 9.0 Delphi / FreePascal adaptation by Alexey Barkovoy *}
{* E-Mail: directx@clootie.ru *}
{* *}
{* Modified: 19-Jan-2004 *}
{* *}
{* Partly based upon : *}
{* DirectX 7.0 Object Pascal adaptation by *}
{* Erik Unger, e-Mail: DelphiDirectX@next-reality.com *}
{* *}
{* Latest version can be downloaded from: *}
{* http://clootie.ru *}
{* http://sourceforge.net/projects/delphi-dx9sdk *}
{* *}
{******************************************************************************}
{ }
{ Obtained through: Joint Endeavour of Delphi Innovators (Project JEDI) }
{ }
{ The contents of this file are used with permission, subject to the Mozilla }
{ Public License Version 1.1 (the "License"); you may not use this file except }
{ in compliance with the License. You may obtain a copy of the License at }
{ http://www.mozilla.org/MPL/MPL-1.1.html }
{ }
{ Software distributed under the License is distributed on an "AS IS" basis, }
{ WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for }
{ the specific language governing rights and limitations under the License. }
{ }
{ Alternatively, the contents of this file may be used under the terms of the }
{ GNU Lesser General Public License (the "LGPL License"), in which case the }
{ provisions of the LGPL License are applicable instead of those above. }
{ If you wish to allow use of your version of this file only under the terms }
{ of the LGPL License and not to allow others to use your version of this file }
{ under the MPL, indicate your decision by deleting the provisions above and }
{ replace them with the notice and other provisions required by the LGPL }
{ License. If you do not delete the provisions above, a recipient may use }
{ your version of this file under either the MPL or the LGPL License. }
{ }
{ For more information about the LGPL: http://www.gnu.org/copyleft/lesser.html }
{ }
{******************************************************************************}
///////////////////////////////////////////////////////////////////////////////
// Notes:
//----------------------------------------------------------------------------
// Possible input defines for this file, mapped to original C values:
// DIRECT3D_VERSION_8 : DIRECT3D_VERSION = 0x0800,
// DIRECT3D_VERSION_7 : DIRECT3D_VERSION = 0x0700,
// DIRECT3D_VERSION_6 : DIRECT3D_VERSION = 0x0600,
// DIRECT3D_VERSION_5 : DIRECT3D_VERSION = 0x0500,
// DIRECT3D_VERSION_LESS_5 : DIRECT3D_VERSION < 0x0500,
//
// By default DIRECT3D_VERSION_7 (DIRECT3D_VERSION = 0x0700) is assumed
///////////////////////////////////////////////////////////////////////////////
unit Direct3D;
{$I DirectX.inc}
// Remove "dots" below to exclude DXFile interfaces - these interfaces
// are included for compatibility with original Erik Unger translation
{$DEFINE EXCLUDE_DXFILE_FROM_DIRECT3D}
// Assume for what Direct3D version we will compile headers
{$IFNDEF DIRECT3D_VERSION_8}
{$IFNDEF DIRECT3D_VERSION_7}
{$IFNDEF DIRECT3D_VERSION_6}
{$IFNDEF DIRECT3D_VERSION_5}
{$IFNDEF DIRECT3D_VERSION_LESS_5}
{$DEFINE DIRECT3D_VERSION_7} // Compiling for Direct3D7 by default
{$ENDIF}
{$ENDIF}
{$ENDIF}
{$ENDIF}
{$ENDIF}
// Emit conditionals to C++Builder compiler
{$IFDEF DIRECT3D_VERSION_8}
{$HPPEMIT '#define DIRECT3D_VERSION 0x0800'}
{$ENDIF}
{$IFDEF DIRECT3D_VERSION_7}
{$HPPEMIT '#define DIRECT3D_VERSION 0x0700'}
{$ENDIF}
{$IFDEF DIRECT3D_VERSION_6}
{$HPPEMIT '#define DIRECT3D_VERSION 0x0600'}
{$ENDIF}
{$IFDEF DIRECT3D_VERSION_5}
{$HPPEMIT '#define DIRECT3D_VERSION 0x0500'}
{$ENDIF}
{$IFDEF DIRECT3D_VERSION_LESS_5}
{$HPPEMIT '#define DIRECT3D_VERSION 0x0300'}
{$ENDIF}
// Define symbols for '>=' comparision
{$IFDEF DIRECT3D_VERSION_8}
{$DEFINE DIRECT3D_VERSION_7}
{$ENDIF}
{$IFDEF DIRECT3D_VERSION_7}
{$DEFINE DIRECT3D_VERSION_6}
{$ENDIF}
{$IFDEF DIRECT3D_VERSION_6}
{$DEFINE DIRECT3D_VERSION_5}
{$ENDIF}
// Define symbols for '<' comparision
{$IFNDEF DIRECT3D_VERSION_8}
{$DEFINE DIRECT3D_VERSION_LESS_8}
{$ENDIF}
{$IFNDEF DIRECT3D_VERSION_7}
{$DEFINE DIRECT3D_VERSION_LESS_7}
{$ENDIF}
{$IFNDEF DIRECT3D_VERSION_6}
{$DEFINE DIRECT3D_VERSION_LESS_6}
{$ENDIF}
{$IFNDEF DIRECT3D_VERSION_5}
{$DEFINE DIRECT3D_VERSION_LESS_5}
{$ENDIF}
interface
uses
Windows, DXTypes, DirectDraw{$IFDEF DIRECT3D_VERSION_8}, Direct3D8{$ENDIF};
{$NOINCLUDE Windows}
{$NOINCLUDE DirectDraw}
{$IFDEF DIRECT3D_VERSION_8}
{$NOINCLUDE Direct3D8}
{$ENDIF}
{$HPPEMIT '#include "d3d.h"'}
{$HPPEMIT '#include "d3dtypes.h"'}
{$HPPEMIT '#include "d3dcaps.h"'}
(* TD3DValue is the fundamental Direct3D fractional data type *)
type
TRefClsID = TGUID;
type
D3DVALUE = DXTypes.D3DVALUE;
{$EXTERNALSYM D3DVALUE}
TD3DValue = DXTypes.TD3DValue;
PD3DValue = DXTypes.PD3DValue;
D3DFIXED = Longint;
{$EXTERNALSYM D3DFIXED}
TD3DFixed = D3DFIXED;
float = TD3DValue;
{$EXTERNALSYM float}
D3DCOLOR = DXTypes.D3DCOLOR;
{$EXTERNALSYM D3DCOLOR}
TD3DColor = DXTypes.TD3DColor;
PD3DColor = DXTypes.PD3DColor;
function D3DVal(val: Variant): Single;
{$EXTERNALSYM D3DVal}
function D3DDivide(a, b: Double): Single;
{$EXTERNALSYM D3DDivide}
function D3DMultiply(a, b: Double): Single;
{$EXTERNALSYM D3DMultiply}
(*
* Format of CI colors is
* +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
* | alpha | color index | fraction |
* +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
*)
// #define CI_GETALPHA(ci) ((ci) >> 24)
function CI_GETALPHA(ci: DWORD): DWORD;
{$EXTERNALSYM CI_GETALPHA}
// #define CI_GETINDEX(ci) (((ci) >> 8) & 0xffff)
function CI_GETINDEX(ci: DWORD): DWORD;
{$EXTERNALSYM CI_GETINDEX}
// #define CI_GETFRACTION(ci) ((ci) & 0xff)
function CI_GETFRACTION(ci: DWORD): DWORD;
{$EXTERNALSYM CI_GETFRACTION}
// #define CI_ROUNDINDEX(ci) CI_GETINDEX((ci) + 0x80)
function CI_ROUNDINDEX(ci: DWORD): DWORD;
{$EXTERNALSYM CI_ROUNDINDEX}
// #define CI_MASKALPHA(ci) ((ci) & 0xffffff)
function CI_MASKALPHA(ci: DWORD): DWORD;
{$EXTERNALSYM CI_MASKALPHA}
// #define CI_MAKE(a, i, f) (((a) << 24) | ((i) << 8) | (f))
function CI_MAKE(a,i,f: DWORD): DWORD;
{$EXTERNALSYM CI_MAKE}
(*
* Format of RGBA colors is
* +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
* | alpha | red | green | blue |
* +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
*)
// #define RGBA_GETALPHA(rgb) ((rgb) >> 24)
function RGBA_GETALPHA(rgb: TD3DColor): DWORD;
{$EXTERNALSYM RGBA_GETALPHA}
// #define RGBA_GETRED(rgb) (((rgb) >> 16) & 0xff)
function RGBA_GETRED(rgb: TD3DColor): DWORD;
{$EXTERNALSYM RGBA_GETRED}
// #define RGBA_GETGREEN(rgb) (((rgb) >> 8) & 0xff)
function RGBA_GETGREEN(rgb: TD3DColor): DWORD;
{$EXTERNALSYM RGBA_GETGREEN}
// #define RGBA_GETBLUE(rgb) ((rgb) & 0xff)
function RGBA_GETBLUE(rgb: TD3DColor): DWORD;
{$EXTERNALSYM RGBA_GETBLUE}
// #define RGBA_MAKE(r, g, b, a) ((TD3DColor) (((a) << 24) | ((r) << 16) | ((g) << 8) | (b)))
function RGBA_MAKE(r, g, b, a: DWORD): TD3DColor;
{$EXTERNALSYM RGBA_MAKE}
(* D3DRGB and D3DRGBA may be used as initialisers for D3DCOLORs
* The float values must be in the range 0..1
*)
// #define D3DRGB(r, g, b) \
// (0xff000000L | (((long)((r) * 255)) << 16) | (((long)((g) * 255)) << 8) | (long)((b) * 255))
function D3DRGB(r, g, b: Single): TD3DColor;
{$EXTERNALSYM D3DRGB}
// #define D3DRGBA(r, g, b, a) \
// ( (((long)((a) * 255)) << 24) | (((long)((r) * 255)) << 16) \
// | (((long)((g) * 255)) << 8) | (long)((b) * 255) \
// )
function D3DRGBA(r, g, b, a: Single): TD3DColor;
{$EXTERNALSYM D3DRGBA}
(*
* Format of RGB colors is
* +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
* | ignored | red | green | blue |
* +-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+-+
*)
// #define RGB_GETRED(rgb) (((rgb) >> 16) & 0xff)
function RGB_GETRED(rgb: TD3DColor): DWORD;
{$EXTERNALSYM RGB_GETRED}
// #define RGB_GETGREEN(rgb) (((rgb) >> 8) & 0xff)
function RGB_GETGREEN(rgb: TD3DColor): DWORD;
{$EXTERNALSYM RGB_GETGREEN}
// #define RGB_GETBLUE(rgb) ((rgb) & 0xff)
function RGB_GETBLUE(rgb: TD3DColor): DWORD;
{$EXTERNALSYM RGB_GETBLUE}
// #define RGBA_SETALPHA(rgba, x) (((x) << 24) | ((rgba) & 0x00ffffff))
function RGBA_SETALPHA(rgba: TD3DColor; x: DWORD): TD3DColor;
{$EXTERNALSYM RGBA_SETALPHA}
// #define RGB_MAKE(r, g, b) ((TD3DColor) (((r) << 16) | ((g) << 8) | (b)))
function RGB_MAKE(r, g, b: DWORD): TD3DColor;
{$EXTERNALSYM RGB_MAKE}
// #define RGBA_TORGB(rgba) ((TD3DColor) ((rgba) & 0xffffff))
function RGBA_TORGB(rgba: TD3DColor): TD3DColor;
{$EXTERNALSYM RGBA_TORGB}
// #define RGB_TORGBA(rgb) ((TD3DColor) ((rgb) | 0xff000000))
function RGB_TORGBA(rgb: TD3DColor): TD3DColor;
{$EXTERNALSYM RGB_TORGBA}
(*
* Flags for Enumerate functions
*)
const
(*
* Stop the enumeration
*)
D3DENUMRET_CANCEL = DDENUMRET_CANCEL;
{$EXTERNALSYM D3DENUMRET_CANCEL}
(*
* Continue the enumeration
*)
D3DENUMRET_OK = DDENUMRET_OK;
{$EXTERNALSYM D3DENUMRET_OK}
type
TD3DValidateCallback = function (lpUserArg: Pointer;
dwOffset: DWORD): HResult; stdcall;
{$NODEFINE TD3DValidateCallback}
{$HPPEMIT 'typedef LPD3DVALIDATECALLBACK TD3DValidateCallback;'}
TD3DEnumTextureFormatsCallback = function (var lpDdsd: TDDSurfaceDesc;
lpContext: Pointer): HResult; stdcall;
{$NODEFINE TD3DEnumTextureFormatsCallback}
{$HPPEMIT 'typedef LPD3DENUMTEXTUREFORMATSCALLBACK TD3DEnumTextureFormatsCallback;'}
TD3DEnumPixelFormatsCallback = function (var lpDDPixFmt: TDDPixelFormat;
lpContext: Pointer): HResult; stdcall;
{$NODEFINE TD3DEnumPixelFormatsCallback}
{$HPPEMIT 'typedef LPD3DENUMPIXELFORMATSCALLBACK TD3DEnumPixelFormatsCallback;'}
PD3DMaterialHandle = ^TD3DMaterialHandle;
TD3DMaterialHandle = DWORD;
PD3DTextureHandle = ^TD3DTextureHandle;
TD3DTextureHandle = DWORD;
PD3DMatrixHandle = ^TD3DMatrixHandle;
TD3DMatrixHandle = DWORD;
PD3DColorValue = ^TD3DColorValue;
_D3DCOLORVALUE = packed record
case Integer of
0: (
r: TD3DValue;
g: TD3DValue;
b: TD3DValue;
a: TD3DValue;
);
1: (
dvR: TD3DValue;
dvG: TD3DValue;
dvB: TD3DValue;
dvA: TD3DValue;
);
end {_D3DCOLORVALUE};
{$EXTERNALSYM _D3DCOLORVALUE}
D3DCOLORVALUE = _D3DCOLORVALUE;
{$EXTERNALSYM D3DCOLORVALUE}
TD3DColorValue = _D3DCOLORVALUE;
PD3DRect = ^TD3DRect;
_D3DRECT = packed record
case Integer of
0: (
x1: LongInt;
y1: LongInt;
x2: LongInt;
y2: LongInt;
);
1: (
lX1: LongInt;
lY1: LongInt;
lX2: LongInt;
lY2: LongInt;
);
2: (
a: array[0..3] of LongInt;
);
end {_D3DRECT};
{$EXTERNALSYM _D3DRECT}
D3DRECT = _D3DRECT;
{$EXTERNALSYM D3DRECT}
TD3DRect = _D3DRECT;
PD3DVector = ^TD3DVector;
_D3DVECTOR = packed record
case Integer of
0: (
x: TD3DValue;
y: TD3DValue;
z: TD3DValue;
);
1: (
dvX: TD3DValue;
dvY: TD3DValue;
dvZ: TD3DValue;
);
end {_D3DVECTOR};
{$EXTERNALSYM _D3DVECTOR}
D3DVECTOR = _D3DVECTOR;
{$EXTERNALSYM D3DVECTOR}
TD3DVector = _D3DVECTOR;
(******************************************************************
* *
* D3DVec.inl *
* *
* float-valued 3D vector class for Direct3D. *
* *
* Copyright (c) 1996-1998 Microsoft Corp. All rights reserved. *
* *
******************************************************************)
// Addition and subtraction
function VectorAdd(const v1, v2: TD3DVector): TD3DVector;
function VectorSub(const v1, v2: TD3DVector): TD3DVector;
// Scalar multiplication and division
function VectorMulS(const v: TD3DVector; s: TD3DValue): TD3DVector;
function VectorDivS(const v: TD3DVector; s: TD3DValue): TD3DVector;
// Memberwise multiplication and division
function VectorMul(const v1, v2: TD3DVector): TD3DVector;
function VectorDiv(const v1, v2: TD3DVector): TD3DVector;
// Vector dominance
function VectorSmaller(v1, v2: TD3DVector): Boolean;
function VectorSmallerEqual(v1, v2: TD3DVector): Boolean;
// Bitwise equality
function VectorEqual(v1, v2: TD3DVector): Boolean;
// Length-related functions
function VectorSquareMagnitude(v: TD3DVector): TD3DValue;
function VectorMagnitude(v: TD3DVector): TD3DValue;
// Returns vector with same direction and unit length
function VectorNormalize(const v: TD3DVector): TD3DVector;
// Return min/max component of the input vector
function VectorMin(v: TD3DVector): TD3DValue;
function VectorMax(v: TD3DVector): TD3DValue;
// Return memberwise min/max of input vectors
function VectorMinimize(const v1, v2: TD3DVector): TD3DVector;
function VectorMaximize(const v1, v2: TD3DVector): TD3DVector;
// Dot and cross product
function VectorDotProduct(v1, v2: TD3DVector): TD3DValue;
function VectorCrossProduct(const v1, v2: TD3DVector): TD3DVector;
type
(*
* Vertex data types supported in an ExecuteBuffer.
*)
(*
* Homogeneous vertices
*)
PD3DHVertex = ^TD3DHVertex;
_D3DHVERTEX = packed record
dwFlags: DWORD; (* Homogeneous clipping flags *)
case Integer of
0: (
hx: TD3DValue;
hy: TD3DValue;
hz: TD3DValue;
);
1: (
dvHX: TD3DValue;
dvHY: TD3DValue;
dvHZ: TD3DValue;
);
end;
{$EXTERNALSYM _D3DHVERTEX}
D3DHVERTEX = _D3DHVERTEX;
{$EXTERNALSYM D3DHVERTEX}
TD3DHVertex = _D3DHVERTEX;
(*
* Transformed/lit vertices
*)
PD3DTLVertex = ^TD3DTLVertex;
_D3DTLVERTEX = packed record
case Integer of
0: (
sx: TD3DValue; (* Screen coordinates *)
sy: TD3DValue;
sz: TD3DValue;
rhw: TD3DValue; (* Reciprocal of homogeneous w *)
color: TD3DColor; (* Vertex color *)
specular: TD3DColor; (* Specular component of vertex *)
tu: TD3DValue; (* Texture coordinates *)
tv: TD3DValue;
);
1: (
dvSX: TD3DValue;
dvSY: TD3DValue;
dvSZ: TD3DValue;
dvRHW: TD3DValue;
dcColor: TD3DColor;
dcSpecular: TD3DColor;
dvTU: TD3DValue;
dvTV: TD3DValue;
);
end;
{$EXTERNALSYM _D3DTLVERTEX}
D3DTLVERTEX = _D3DTLVERTEX;
{$EXTERNALSYM D3DTLVERTEX}
TD3DTLVertex = _D3DTLVERTEX;
(*
* Untransformed/lit vertices
*)
PD3DLVertex = ^TD3DLVertex;
_D3DLVERTEX = packed record
case Integer of
0: (
x: TD3DValue; (* Homogeneous coordinates *)
y: TD3DValue;
z: TD3DValue;
dwReserved: DWORD;
color: TD3DColor; (* Vertex color *)
specular: TD3DColor; (* Specular component of vertex *)
tu: TD3DValue; (* Texture coordinates *)
tv: TD3DValue;
);
1: (
dvX: TD3DValue;
dvY: TD3DValue;
dvZ: TD3DValue;
UNIONFILLER1d: DWORD;
dcColor: TD3DColor;
dcSpecular: TD3DColor;
dvTU: TD3DValue;
dvTV: TD3DValue;
);
end;
{$EXTERNALSYM _D3DLVERTEX}
D3DLVERTEX = _D3DLVERTEX;
{$EXTERNALSYM D3DLVERTEX}
TD3DLVertex = _D3DLVERTEX;
(*
* Untransformed/unlit vertices
*)
PD3DVertex = ^TD3DVertex;
_D3DVERTEX = packed record
case Integer of
0: (
x: TD3DValue; (* Homogeneous coordinates *)
y: TD3DValue;
z: TD3DValue;
nx: TD3DValue; (* Normal *)
ny: TD3DValue;
nz: TD3DValue;
tu: TD3DValue; (* Texture coordinates *)
tv: TD3DValue;
);
1: (
dvX: TD3DValue;
dvY: TD3DValue;
dvZ: TD3DValue;
dvNX: TD3DValue;
dvNY: TD3DValue;
dvNZ: TD3DValue;
dvTU: TD3DValue;
dvTV: TD3DValue;
);
end;
{$EXTERNALSYM _D3DVERTEX}
D3DVERTEX = _D3DVERTEX;
{$EXTERNALSYM D3DVERTEX}
TD3DVertex = _D3DVERTEX;
(*
* Matrix, viewport, and tranformation structures and definitions.
*)
PD3DMatrix = ^TD3DMatrix;
_D3DMATRIX = packed record
case integer of
0 : (_11, _12, _13, _14: TD3DValue;
_21, _22, _23, _24: TD3DValue;
_31, _32, _33, _34: TD3DValue;
_41, _42, _43, _44: TD3DValue);
1 : (m : array [0..3, 0..3] of TD3DValue);
end {_D3DMATRIX};
{$EXTERNALSYM _D3DMATRIX}
D3DMATRIX = _D3DMATRIX;
{$EXTERNALSYM D3DMATRIX}
TD3DMatrix = _D3DMATRIX;
PD3DViewport = ^TD3DViewport;
_D3DVIEWPORT = packed record
dwSize: DWORD;
dwX: DWORD;
dwY: DWORD; (* Top left *)
dwWidth: DWORD;
dwHeight: DWORD; (* Dimensions *)
dvScaleX: TD3DValue; (* Scale homogeneous to screen *)
dvScaleY: TD3DValue; (* Scale homogeneous to screen *)
dvMaxX: TD3DValue; (* Min/max homogeneous x coord *)
dvMaxY: TD3DValue; (* Min/max homogeneous y coord *)
dvMinZ: TD3DValue;
dvMaxZ: TD3DValue; (* Min/max homogeneous z coord *)
end {_D3DVIEWPORT};
{$EXTERNALSYM _D3DVIEWPORT}
D3DVIEWPORT = _D3DVIEWPORT;
{$EXTERNALSYM D3DVIEWPORT}
TD3DViewport = _D3DVIEWPORT;
{$IFDEF DIRECT3D_VERSION_5}
PD3DViewport2 = ^TD3DViewport2;
_D3DVIEWPORT2 = packed record
dwSize: DWORD;
dwX: DWORD;
dwY: DWORD; (* Viewport Top left *)
dwWidth: DWORD;
dwHeight: DWORD; (* Viewport Dimensions *)
dvClipX: TD3DValue; (* Top left of clip volume *)
dvClipY: TD3DValue;
dvClipWidth: TD3DValue; (* Clip Volume Dimensions *)
dvClipHeight: TD3DValue;
dvMinZ: TD3DValue; (* Min/max of clip Volume *)
dvMaxZ: TD3DValue;
end;
{$EXTERNALSYM _D3DVIEWPORT2}
D3DVIEWPORT2 = _D3DVIEWPORT2;
{$EXTERNALSYM D3DVIEWPORT2}
TD3DViewport2 = _D3DVIEWPORT2;
{$ENDIF} // DIRECT3D_VERSION_5
{$IFDEF DIRECT3D_VERSION_7}
PD3DViewport7 = ^TD3DViewport7;
_D3DVIEWPORT7 = packed record
dwX: DWORD;
dwY: DWORD; (* Viewport Top left *)
dwWidth: DWORD;
dwHeight: DWORD; (* Viewport Dimensions *)
dvMinZ: TD3DValue; (* Min/max of clip Volume *)
dvMaxZ: TD3DValue;
end;
{$EXTERNALSYM _D3DVIEWPORT7}
D3DVIEWPORT7 = _D3DVIEWPORT7;
{$EXTERNALSYM D3DVIEWPORT7}
TD3DViewport7 = _D3DVIEWPORT7;
{$ENDIF} // DIRECT3D_VERSION_7
(*
* Values for clip fields.
*)
{$IFDEF DIRECT3D_VERSION_7}
const
// Max number of user clipping planes, supported in D3D.
D3DMAXUSERCLIPPLANES = 32;
{$EXTERNALSYM D3DMAXUSERCLIPPLANES}
// These bits could be ORed together to use with D3DRENDERSTATE_CLIPPLANEENABLE
//
D3DCLIPPLANE0 = (1 shl 0);
{$EXTERNALSYM D3DCLIPPLANE0}
D3DCLIPPLANE1 = (1 shl 1);
{$EXTERNALSYM D3DCLIPPLANE1}
D3DCLIPPLANE2 = (1 shl 2);
{$EXTERNALSYM D3DCLIPPLANE2}
D3DCLIPPLANE3 = (1 shl 3);
{$EXTERNALSYM D3DCLIPPLANE3}
D3DCLIPPLANE4 = (1 shl 4);
{$EXTERNALSYM D3DCLIPPLANE4}
D3DCLIPPLANE5 = (1 shl 5);
{$EXTERNALSYM D3DCLIPPLANE5}
{$ENDIF} // DIRECT3D_VERSION_7
const
D3DCLIP_LEFT = $00000001;
{$EXTERNALSYM D3DCLIP_LEFT}
D3DCLIP_RIGHT = $00000002;
{$EXTERNALSYM D3DCLIP_RIGHT}
D3DCLIP_TOP = $00000004;
{$EXTERNALSYM D3DCLIP_TOP}
D3DCLIP_BOTTOM = $00000008;
{$EXTERNALSYM D3DCLIP_BOTTOM}
D3DCLIP_FRONT = $00000010;
{$EXTERNALSYM D3DCLIP_FRONT}
D3DCLIP_BACK = $00000020;
{$EXTERNALSYM D3DCLIP_BACK}
D3DCLIP_GEN0 = $00000040;
{$EXTERNALSYM D3DCLIP_GEN0}
D3DCLIP_GEN1 = $00000080;
{$EXTERNALSYM D3DCLIP_GEN1}
D3DCLIP_GEN2 = $00000100;
{$EXTERNALSYM D3DCLIP_GEN2}
D3DCLIP_GEN3 = $00000200;
{$EXTERNALSYM D3DCLIP_GEN3}
D3DCLIP_GEN4 = $00000400;
{$EXTERNALSYM D3DCLIP_GEN4}
D3DCLIP_GEN5 = $00000800;
{$EXTERNALSYM D3DCLIP_GEN5}
(*
* Values for d3d status.
*)
D3DSTATUS_CLIPUNIONLEFT = D3DCLIP_LEFT;
{$EXTERNALSYM D3DSTATUS_CLIPUNIONLEFT}
D3DSTATUS_CLIPUNIONRIGHT = D3DCLIP_RIGHT;
{$EXTERNALSYM D3DSTATUS_CLIPUNIONRIGHT}
D3DSTATUS_CLIPUNIONTOP = D3DCLIP_TOP;
{$EXTERNALSYM D3DSTATUS_CLIPUNIONTOP}
D3DSTATUS_CLIPUNIONBOTTOM = D3DCLIP_BOTTOM;
{$EXTERNALSYM D3DSTATUS_CLIPUNIONBOTTOM}
D3DSTATUS_CLIPUNIONFRONT = D3DCLIP_FRONT;
{$EXTERNALSYM D3DSTATUS_CLIPUNIONFRONT}
D3DSTATUS_CLIPUNIONBACK = D3DCLIP_BACK;
{$EXTERNALSYM D3DSTATUS_CLIPUNIONBACK}
D3DSTATUS_CLIPUNIONGEN0 = D3DCLIP_GEN0;
{$EXTERNALSYM D3DSTATUS_CLIPUNIONGEN0}
D3DSTATUS_CLIPUNIONGEN1 = D3DCLIP_GEN1;
{$EXTERNALSYM D3DSTATUS_CLIPUNIONGEN1}
D3DSTATUS_CLIPUNIONGEN2 = D3DCLIP_GEN2;
{$EXTERNALSYM D3DSTATUS_CLIPUNIONGEN2}
D3DSTATUS_CLIPUNIONGEN3 = D3DCLIP_GEN3;
{$EXTERNALSYM D3DSTATUS_CLIPUNIONGEN3}
D3DSTATUS_CLIPUNIONGEN4 = D3DCLIP_GEN4;
{$EXTERNALSYM D3DSTATUS_CLIPUNIONGEN4}
D3DSTATUS_CLIPUNIONGEN5 = D3DCLIP_GEN5;
{$EXTERNALSYM D3DSTATUS_CLIPUNIONGEN5}
D3DSTATUS_CLIPINTERSECTIONLEFT = $00001000;
{$EXTERNALSYM D3DSTATUS_CLIPINTERSECTIONLEFT}
D3DSTATUS_CLIPINTERSECTIONRIGHT = $00002000;
{$EXTERNALSYM D3DSTATUS_CLIPINTERSECTIONRIGHT}
D3DSTATUS_CLIPINTERSECTIONTOP = $00004000;
{$EXTERNALSYM D3DSTATUS_CLIPINTERSECTIONTOP}
D3DSTATUS_CLIPINTERSECTIONBOTTOM = $00008000;
{$EXTERNALSYM D3DSTATUS_CLIPINTERSECTIONBOTTOM}
D3DSTATUS_CLIPINTERSECTIONFRONT = $00010000;
{$EXTERNALSYM D3DSTATUS_CLIPINTERSECTIONFRONT}
D3DSTATUS_CLIPINTERSECTIONBACK = $00020000;
{$EXTERNALSYM D3DSTATUS_CLIPINTERSECTIONBACK}
D3DSTATUS_CLIPINTERSECTIONGEN0 = $00040000;
{$EXTERNALSYM D3DSTATUS_CLIPINTERSECTIONGEN0}
D3DSTATUS_CLIPINTERSECTIONGEN1 = $00080000;
{$EXTERNALSYM D3DSTATUS_CLIPINTERSECTIONGEN1}
D3DSTATUS_CLIPINTERSECTIONGEN2 = $00100000;
{$EXTERNALSYM D3DSTATUS_CLIPINTERSECTIONGEN2}
D3DSTATUS_CLIPINTERSECTIONGEN3 = $00200000;
{$EXTERNALSYM D3DSTATUS_CLIPINTERSECTIONGEN3}
D3DSTATUS_CLIPINTERSECTIONGEN4 = $00400000;
{$EXTERNALSYM D3DSTATUS_CLIPINTERSECTIONGEN4}
D3DSTATUS_CLIPINTERSECTIONGEN5 = $00800000;
{$EXTERNALSYM D3DSTATUS_CLIPINTERSECTIONGEN5}
D3DSTATUS_ZNOTVISIBLE = $01000000;
{$EXTERNALSYM D3DSTATUS_ZNOTVISIBLE}
(* Do not use 0x80000000 for any status flags in future as it is reserved *)
D3DSTATUS_CLIPUNIONALL = (
D3DSTATUS_CLIPUNIONLEFT or
D3DSTATUS_CLIPUNIONRIGHT or
D3DSTATUS_CLIPUNIONTOP or
D3DSTATUS_CLIPUNIONBOTTOM or
D3DSTATUS_CLIPUNIONFRONT or
D3DSTATUS_CLIPUNIONBACK or
D3DSTATUS_CLIPUNIONGEN0 or
D3DSTATUS_CLIPUNIONGEN1 or
D3DSTATUS_CLIPUNIONGEN2 or
D3DSTATUS_CLIPUNIONGEN3 or
D3DSTATUS_CLIPUNIONGEN4 or
D3DSTATUS_CLIPUNIONGEN5);
{$EXTERNALSYM D3DSTATUS_CLIPUNIONALL}
D3DSTATUS_CLIPINTERSECTIONALL = (
D3DSTATUS_CLIPINTERSECTIONLEFT or
D3DSTATUS_CLIPINTERSECTIONRIGHT or
D3DSTATUS_CLIPINTERSECTIONTOP or
D3DSTATUS_CLIPINTERSECTIONBOTTOM or
D3DSTATUS_CLIPINTERSECTIONFRONT or
D3DSTATUS_CLIPINTERSECTIONBACK or
D3DSTATUS_CLIPINTERSECTIONGEN0 or
D3DSTATUS_CLIPINTERSECTIONGEN1 or
D3DSTATUS_CLIPINTERSECTIONGEN2 or
D3DSTATUS_CLIPINTERSECTIONGEN3 or
D3DSTATUS_CLIPINTERSECTIONGEN4 or
D3DSTATUS_CLIPINTERSECTIONGEN5);
{$EXTERNALSYM D3DSTATUS_CLIPINTERSECTIONALL}
D3DSTATUS_DEFAULT = (
D3DSTATUS_CLIPINTERSECTIONALL or
D3DSTATUS_ZNOTVISIBLE);
{$EXTERNALSYM D3DSTATUS_DEFAULT}
(*
* Options for direct transform calls
*)
D3DTRANSFORM_CLIPPED = $00000001;
{$EXTERNALSYM D3DTRANSFORM_CLIPPED}
D3DTRANSFORM_UNCLIPPED = $00000002;
{$EXTERNALSYM D3DTRANSFORM_UNCLIPPED}
type
PD3DTransformData = ^TD3DTransformData;
_D3DTRANSFORMDATA = packed record
dwSize: DWORD;
lpIn: Pointer; (* Input vertices *)
dwInSize: DWORD; (* Stride of input vertices *)
lpOut: Pointer; (* Output vertices *)
dwOutSize: DWORD; (* Stride of output vertices *)
lpHOut: ^TD3DHVertex; (* Output homogeneous vertices *)
dwClip: DWORD; (* Clipping hint *)
dwClipIntersection: DWORD;
dwClipUnion: DWORD; (* Union of all clip flags *)
drExtent: TD3DRect; (* Extent of transformed vertices *)
end;
{$EXTERNALSYM _D3DTRANSFORMDATA}
D3DTRANSFORMDATA = _D3DTRANSFORMDATA;
{$EXTERNALSYM D3DTRANSFORMDATA}
TD3DTransformData = _D3DTRANSFORMDATA;
(*
* Structure defining position and direction properties for lighting.
*)
PD3DLightingElement = ^TD3DLightingElement;
_D3DLIGHTINGELEMENT = packed record
dvPosition: TD3DVector; (* Lightable point in model space *)
dvNormal: TD3DVector; (* Normalised unit vector *)
end;
{$EXTERNALSYM _D3DLIGHTINGELEMENT}
D3DLIGHTINGELEMENT = _D3DLIGHTINGELEMENT;
{$EXTERNALSYM D3DLIGHTINGELEMENT}
TD3DLightingElement = _D3DLIGHTINGELEMENT;
(*
* Structure defining material properties for lighting.
*)
PD3DMaterial = ^TD3DMaterial;
_D3DMATERIAL = packed record
dwSize: DWORD;
case Integer of
0: (
diffuse: TD3DColorValue; (* Diffuse color RGBA *)
ambient: TD3DColorValue; (* Ambient color RGB *)
specular: TD3DColorValue; (* Specular 'shininess' *)
emissive: TD3DColorValue; (* Emissive color RGB *)
power: TD3DValue; (* Sharpness if specular highlight *)
hTexture: TD3DTextureHandle; (* Handle to texture map *)
dwRampSize: DWORD;
);
1: (
dcvDiffuse: TD3DColorValue;
dcvAmbient: TD3DColorValue;
dcvSpecular: TD3DColorValue;
dcvEmissive: TD3DColorValue;
dvPower: TD3DValue;
);
end;
{$EXTERNALSYM _D3DMATERIAL}
D3DMATERIAL = _D3DMATERIAL;
{$EXTERNALSYM D3DMATERIAL}
TD3DMaterial = _D3DMATERIAL;
{$IFDEF DIRECT3D_VERSION_7}
PD3DMaterial7 = ^TD3DMaterial7;
_D3DMATERIAL7 = packed record
case Integer of
0: (
diffuse: TD3DColorValue; (* Diffuse color RGBA *)
ambient: TD3DColorValue; (* Ambient color RGB *)
specular: TD3DColorValue; (* Specular 'shininess' *)
emissive: TD3DColorValue; (* Emissive color RGB *)
power: TD3DValue; (* Sharpness if specular highlight *)
);
1: (
dcvDiffuse: TD3DColorValue;
dcvAmbient: TD3DColorValue;
dcvSpecular: TD3DColorValue;
dcvEmissive: TD3DColorValue;
dvPower: TD3DValue;
);
end;
{$EXTERNALSYM _D3DMATERIAL7}
D3DMATERIAL7 = _D3DMATERIAL7;
{$EXTERNALSYM D3DMATERIAL7}
TD3DMaterial7 = _D3DMATERIAL7;
{$ENDIF} // DIRECT3D_VERSION_7
{$IFDEF DIRECT3D_VERSION_LESS_8}
PD3DLightType = ^TD3DLightType;
_D3DLIGHTTYPE = (
D3DLIGHT_INVALID_0,
D3DLIGHT_POINT,
D3DLIGHT_SPOT,
D3DLIGHT_DIRECTIONAL,
// Note: The following light type (D3DLIGHT_PARALLELPOINT)
// is no longer supported from D3D for DX7 onwards.
D3DLIGHT_PARALLELPOINT
{$IFDEF DIRECT3D_VERSION_LESS_5}, // For backward compatible headers
D3DLIGHT_GLSPOT
{$ENDIF} // DIRECT3D_VERSION_LESS_5
);
{$EXTERNALSYM _D3DLIGHTTYPE}
D3DLIGHTTYPE = _D3DLIGHTTYPE;
{$EXTERNALSYM D3DLIGHTTYPE}
TD3DLightType = _D3DLIGHTTYPE;
{$ELSE}
const
D3DLIGHT_PARALLELPOINT = TD3DLightType(4);
{$EXTERNALSYM D3DLIGHT_PARALLELPOINT}
D3DLIGHT_GLSPOT = TD3DLightType(5);
{$EXTERNALSYM D3DLIGHT_GLSPOT}
type
{$ENDIF} //(DIRECT3D_VERSION < 0x0800)
(*
* Structure defining a light source and its properties.
*)
PD3DLight = ^TD3DLight;
_D3DLIGHT = packed record
dwSize: DWORD;
dltType: TD3DLightType; (* Type of light source *)
dcvColor: TD3DColorValue; (* Color of light *)
dvPosition: TD3DVector; (* Position in world space *)
dvDirection: TD3DVector; (* Direction in world space *)
dvRange: TD3DValue; (* Cutoff range *)
dvFalloff: TD3DValue; (* Falloff *)
dvAttenuation0: TD3DValue; (* Constant attenuation *)
dvAttenuation1: TD3DValue; (* Linear attenuation *)
dvAttenuation2: TD3DValue; (* Quadratic attenuation *)
dvTheta: TD3DValue; (* Inner angle of spotlight cone *)
dvPhi: TD3DValue; (* Outer angle of spotlight cone *)
end;
{$EXTERNALSYM _D3DLIGHT}
D3DLIGHT = _D3DLIGHT;
{$EXTERNALSYM D3DLIGHT}
TD3DLight = _D3DLIGHT;
{$IFDEF DIRECT3D_VERSION_7}
PD3DLight7 = ^TD3DLight7;
_D3DLIGHT7 = packed record
dltType: TD3DLightType; (* Type of light source *)
dcvDiffuse: TD3DColorValue; (* Diffuse color of light *)
dcvSpecular: TD3DColorValue;(* Specular color of light *)
dcvAmbient: TD3DColorValue; (* Ambient color of light *)
dvPosition: TD3DVector; (* Position in world space *)
dvDirection: TD3DVector; (* Direction in world space *)
dvRange: TD3DValue; (* Cutoff range *)
dvFalloff: TD3DValue; (* Falloff *)
dvAttenuation0: TD3DValue; (* Constant attenuation *)
dvAttenuation1: TD3DValue; (* Linear attenuation *)
dvAttenuation2: TD3DValue; (* Quadratic attenuation *)
dvTheta: TD3DValue; (* Inner angle of spotlight cone *)
dvPhi: TD3DValue; (* Outer angle of spotlight cone *)
end;
{$EXTERNALSYM _D3DLIGHT7}
D3DLIGHT7 = _D3DLIGHT7;
{$EXTERNALSYM D3DLIGHT7}
TD3DLight7 = _D3DLIGHT7;
{$ENDIF} // DIRECT3D_VERSION_7
{$IFDEF DIRECT3D_VERSION_5}
(*
* Structure defining a light source and its properties.
*)
(* flags bits *)
const
D3DLIGHT_ACTIVE = $00000001;
{$EXTERNALSYM D3DLIGHT_ACTIVE}
D3DLIGHT_NO_SPECULAR = $00000002;
{$EXTERNALSYM D3DLIGHT_NO_SPECULAR}
D3DLIGHT_ALL = D3DLIGHT_ACTIVE or D3DLIGHT_ACTIVE;
{$EXTERNALSYM D3DLIGHT_ALL}
(* maximum valid light range *)
D3DLIGHT_RANGE_MAX = 1.8439088915e+18; //sqrt(FLT_MAX);
{$EXTERNALSYM D3DLIGHT_RANGE_MAX}
type
PD3DLight2 = ^TD3DLight2;
_D3DLIGHT2 = packed record
dwSize: DWORD;
dltType: TD3DLightType; (* Type of light source *)
dcvColor: TD3DColorValue; (* Color of light *)
dvPosition: TD3DVector; (* Position in world space *)
dvDirection: TD3DVector; (* Direction in world space *)
dvRange: TD3DValue; (* Cutoff range *)
dvFalloff: TD3DValue; (* Falloff *)
dvAttenuation0: TD3DValue; (* Constant attenuation *)
dvAttenuation1: TD3DValue; (* Linear attenuation *)
dvAttenuation2: TD3DValue; (* Quadratic attenuation *)
dvTheta: TD3DValue; (* Inner angle of spotlight cone *)
dvPhi: TD3DValue; (* Outer angle of spotlight cone *)
dwFlags: DWORD;
end;
{$EXTERNALSYM _D3DLIGHT2}
D3DLIGHT2 = _D3DLIGHT2;
{$EXTERNALSYM D3DLIGHT2}
TD3DLight2 = _D3DLIGHT2;
{$ELSE}
PD3DLight2 = PD3DLight;
TD3DLight2 = TD3DLight;
{$ENDIF} // DIRECT3D_VERSION_5
PD3DLightData = ^TD3DLightData;
_D3DLIGHTDATA = packed record
dwSize: DWORD;
lpIn: ^TD3DLightingElement; (* Input positions and normals *)
dwInSize: DWORD; (* Stride of input elements *)
lpOut: ^TD3DTLVertex; (* Output colors *)
dwOutSize: DWORD; (* Stride of output colors *)
end;
{$EXTERNALSYM _D3DLIGHTDATA}
D3DLIGHTDATA = _D3DLIGHTDATA;
{$EXTERNALSYM D3DLIGHTDATA}
TD3DLightData = _D3DLIGHTDATA;
(*
* Before DX5, these values were in an enum called
* TD3DColorModel. This was not correct, since they are
* bit flags. A driver can surface either or both flags
* in the dcmColorModel member of D3DDEVICEDESC.
*)
type
TD3DColorModel = DWORD;
const
D3DCOLOR_MONO = 1;
{$EXTERNALSYM D3DCOLOR_MONO}
D3DCOLOR_RGB = 2;
{$EXTERNALSYM D3DCOLOR_RGB}
(*
* Options for clearing
*)
const
D3DCLEAR_TARGET = $00000001; (* Clear target surface *)
{$EXTERNALSYM D3DCLEAR_TARGET}
D3DCLEAR_ZBUFFER = $00000002; (* Clear target z buffer *)
{$EXTERNALSYM D3DCLEAR_ZBUFFER}
{$IFDEF DIRECT3D_VERSION_6}
D3DCLEAR_STENCIL = $00000004; (* Clear stencil planes *)
{$EXTERNALSYM D3DCLEAR_STENCIL}
{$ENDIF} // DIRECT3D_VERSION_6
(*
* Execute buffers are allocated via Direct3D. These buffers may then
* be filled by the application with instructions to execute along with
* vertex data.
*)
(*
* Supported op codes for execute instructions.
*)
type
PD3DOpcode = ^TD3DOpcode;
_D3DOPCODE = (
D3DOP_INVALID_0,
D3DOP_POINT,
D3DOP_LINE,
D3DOP_TRIANGLE,
D3DOP_MATRIXLOAD,
D3DOP_MATRIXMULTIPLY,
D3DOP_STATETRANSFORM,
D3DOP_STATELIGHT,
D3DOP_STATERENDER,
D3DOP_PROCESSVERTICES,
D3DOP_TEXTURELOAD,
D3DOP_EXIT,
D3DOP_BRANCHFORWARD,
D3DOP_SPAN,
D3DOP_SETSTATUS);
{$EXTERNALSYM _D3DOPCODE}
D3DOPCODE = _D3DOPCODE;
{$EXTERNALSYM D3DOPCODE}
TD3DOpcode = _D3DOPCODE;
PD3DInstruction = ^TD3DInstruction;
_D3DINSTRUCTION = packed record
bOpcode: Byte; (* Instruction opcode *)
bSize: Byte; (* Size of each instruction data unit *)
wCount: Word; (* Count of instruction data units to follow *)
end;
{$EXTERNALSYM _D3DINSTRUCTION}
D3DINSTRUCTION = _D3DINSTRUCTION;
{$EXTERNALSYM D3DINSTRUCTION}
TD3DInstruction = _D3DINSTRUCTION;
(*
* Structure for texture loads
*)
PD3DTextureLoad = ^TD3DTextureLoad;
_D3DTEXTURELOAD = packed record
hDestTexture: TD3DTextureHandle;
hSrcTexture: TD3DTextureHandle;
end;
{$EXTERNALSYM _D3DTEXTURELOAD}
D3DTEXTURELOAD = _D3DTEXTURELOAD;
{$EXTERNALSYM D3DTEXTURELOAD}
TD3DTextureLoad = _D3DTEXTURELOAD;
(*
* Structure for picking
*)
PD3DPickRecord = ^TD3DPickRecord;
_D3DPICKRECORD = packed record
bOpcode: Byte;
bPad: Byte;
dwOffset: DWORD;
dvZ: TD3DValue;
end;
{$EXTERNALSYM _D3DPICKRECORD}
D3DPICKRECORD = _D3DPICKRECORD;
{$EXTERNALSYM D3DPICKRECORD}
TD3DPickRecord = _D3DPICKRECORD;
(*
* The following defines the rendering states which can be set in the
* execute buffer.
*)
{$IFDEF DIRECT3D_VERSION_LESS_8}
PD3DShadeMode = ^TD3DShadeMode;
_D3DSHADEMODE = (
D3DSHADE_INVALID_0,
D3DSHADE_FLAT,
D3DSHADE_GOURAUD,
D3DSHADE_PHONG);
{$EXTERNALSYM _D3DSHADEMODE}
D3DSHADEMODE = _D3DSHADEMODE;
{$EXTERNALSYM D3DSHADEMODE}
TD3DShadeMode = _D3DSHADEMODE;
PD3DFillMode = ^TD3DFillMode;
_D3DFILLMODE = (
D3DFILL_INVALID_0,
D3DFILL_POINT,
D3DFILL_WIREFRAME,
D3DFILL_SOLID);
{$EXTERNALSYM _D3DFILLMODE}
D3DFILLMODE = _D3DFILLMODE;
{$EXTERNALSYM D3DFILLMODE}
TD3DFillMode = _D3DFILLMODE;
PD3DLinePattern = ^TD3DLinePattern;
_D3DLINEPATTERN = packed record
wRepeatFactor: WORD;
wLinePattern: WORD;
end;
{$EXTERNALSYM _D3DLINEPATTERN}
D3DLINEPATTERN = _D3DLINEPATTERN;
{$EXTERNALSYM D3DLINEPATTERN}
TD3DLinePattern = _D3DLINEPATTERN;
{$ENDIF} // DIRECT3D_VERSION_LESS_8
PD3DTextureFilter = ^TD3DTextureFilter;
_D3DTEXTUREFILTER = (
D3DFILTER_INVALID_0,
D3DFILTER_NEAREST,
D3DFILTER_LINEAR,
D3DFILTER_MIPNEAREST,
D3DFILTER_MIPLINEAR,
D3DFILTER_LINEARMIPNEAREST,
D3DFILTER_LINEARMIPLINEAR);
{$EXTERNALSYM _D3DTEXTUREFILTER}
D3DTEXTUREFILTER = _D3DTEXTUREFILTER;
{$EXTERNALSYM D3DTEXTUREFILTER}
TD3DTextureFilter = _D3DTEXTUREFILTER;
{$IFDEF DIRECT3D_VERSION_LESS_8}
PD3DBlend = ^TD3DBlend;
_D3DBLEND = (
D3DBLEND_INVALID_0,
D3DBLEND_ZERO,
D3DBLEND_ONE,
D3DBLEND_SRCCOLOR,
D3DBLEND_INVSRCCOLOR,
D3DBLEND_SRCALPHA,
D3DBLEND_INVSRCALPHA,
D3DBLEND_DESTALPHA,
D3DBLEND_INVDESTALPHA,
D3DBLEND_DESTCOLOR,
D3DBLEND_INVDESTCOLOR,
D3DBLEND_SRCALPHASAT,
D3DBLEND_BOTHSRCALPHA,
D3DBLEND_BOTHINVSRCALPHA);
{$EXTERNALSYM _D3DBLEND}
D3DBLEND = _D3DBLEND;
{$EXTERNALSYM D3DBLEND}
TD3DBlend = _D3DBLEND;
{$ENDIF} // DIRECT3D_VERSION_LESS_8
PD3DTextureBlend = ^TD3DTextureBlend;
_D3DTEXTUREBLEND = (
D3DTBLEND_INVALID_0,
D3DTBLEND_DECAL,
D3DTBLEND_MODULATE,
D3DTBLEND_DECALALPHA,
D3DTBLEND_MODULATEALPHA,
D3DTBLEND_DECALMASK,
D3DTBLEND_MODULATEMASK,
D3DTBLEND_COPY
{$IFDEF DIRECT3D_VERSION_5},
D3DTBLEND_ADD
{$ENDIF} // DIRECT3D_VERSION_5
);
{$EXTERNALSYM _D3DTEXTUREBLEND}
D3DTEXTUREBLEND = _D3DTEXTUREBLEND;
{$EXTERNALSYM D3DTEXTUREBLEND}
TD3DTextureBlend = _D3DTEXTUREBLEND;
{$IFDEF DIRECT3D_VERSION_LESS_8}
PD3DTextureAddress = ^TD3DTextureAddress;
_D3DTEXTUREADDRESS = (
D3DTADDRESS_INVALID_0,
D3DTADDRESS_WRAP,
D3DTADDRESS_MIRROR,
D3DTADDRESS_CLAMP
{$IFDEF DIRECT3D_VERSION_5},
D3DTADDRESS_BORDER
{$ENDIF} // DIRECT3D_VERSION_5
);
{$EXTERNALSYM _D3DTEXTUREADDRESS}
D3DTEXTUREADDRESS = _D3DTEXTUREADDRESS;
{$EXTERNALSYM D3DTEXTUREADDRESS}
TD3DTextureAddress = _D3DTEXTUREADDRESS;
PD3DCull = ^TD3DCull;
_D3DCULL = (
D3DCULL_INVALID_0,
D3DCULL_NONE,
D3DCULL_CW,
D3DCULL_CCW);
{$EXTERNALSYM _D3DCULL}
D3DCULL = _D3DCULL;
{$EXTERNALSYM D3DCULL}
TD3DCull = _D3DCULL;
PD3DCmpFunc = ^TD3DCmpFunc;
_D3DCMPFUNC = (
D3DCMP_INVALID_0,
D3DCMP_NEVER,
D3DCMP_LESS,
D3DCMP_EQUAL,
D3DCMP_LESSEQUAL,
D3DCMP_GREATER,
D3DCMP_NOTEQUAL,
D3DCMP_GREATEREQUAL,
D3DCMP_ALWAYS);
{$EXTERNALSYM _D3DCMPFUNC}
D3DCMPFUNC = _D3DCMPFUNC;
{$EXTERNALSYM D3DCMPFUNC}
TD3DCmpFunc = _D3DCMPFUNC;
{$IFDEF DIRECT3D_VERSION_6}
PD3DStencilOp = ^TD3DStencilOp;
_D3DSTENCILOP = (
D3DSTENCILOP_INVALID_0,
D3DSTENCILOP_KEEP,
D3DSTENCILOP_ZERO,
D3DSTENCILOP_REPLACE,
D3DSTENCILOP_INCRSAT,
D3DSTENCILOP_DECRSAT,
D3DSTENCILOP_INVERT,
D3DSTENCILOP_INCR,
D3DSTENCILOP_DECR);
{$EXTERNALSYM _D3DSTENCILOP}
D3DSTENCILOP = _D3DSTENCILOP;
{$EXTERNALSYM D3DSTENCILOP}
TD3DStencilOp = _D3DSTENCILOP;
{$ENDIF} // DIRECT3D_VERSION_6
PD3DFogMode = ^TD3DFogMode;
_D3DFOGMODE = (
D3DFOG_NONE,
D3DFOG_EXP,
D3DFOG_EXP2
{$IFDEF DIRECT3D_VERSION_5},
D3DFOG_LINEAR
{$ENDIF} // DIRECT3D_VERSION_5
);
{$EXTERNALSYM _D3DFOGMODE}
D3DFOGMODE = _D3DFOGMODE;
{$EXTERNALSYM D3DFOGMODE}
TD3DFogMode = _D3DFOGMODE;
{$IFDEF DIRECT3D_VERSION_6}
PD3DZBufferType = ^TD3DZBufferType;
_D3DZBUFFERTYPE = (
D3DZB_FALSE,
D3DZB_TRUE, // Z buffering
D3DZB_USEW); // W buffering
{$EXTERNALSYM _D3DZBUFFERTYPE}
D3DZBUFFERTYPE = _D3DZBUFFERTYPE;
{$EXTERNALSYM D3DZBUFFERTYPE}
TD3DZBufferType = _D3DZBUFFERTYPE;
{$ENDIF} // DIRECT3D_VERSION_6
{$ENDIF} // DIRECT3D_VERSION_LESS_8
{$IFDEF DIRECT3D_VERSION_5}
PD3DAntialiasMode = ^TD3DAntialiasMode;
_D3DANTIALIASMODE = (
D3DANTIALIAS_NONE,
D3DANTIALIAS_SORTDEPENDENT,
D3DANTIALIAS_SORTINDEPENDENT);
{$EXTERNALSYM _D3DANTIALIASMODE}
D3DANTIALIASMODE = _D3DANTIALIASMODE;
{$EXTERNALSYM D3DANTIALIASMODE}
TD3DAntialiasMode = _D3DANTIALIASMODE;
// Vertex types supported by Direct3D
PD3DVertexType = ^TD3DVertexType;
_D3DVERTEXTYPE = (
D3DVT_INVALID_0,
D3DVT_VERTEX,
D3DVT_LVERTEX,
D3DVT_TLVERTEX);
{$EXTERNALSYM _D3DVERTEXTYPE}
D3DVERTEXTYPE = _D3DVERTEXTYPE;
{$EXTERNALSYM D3DVERTEXTYPE}
TD3DVertexType = _D3DVERTEXTYPE;
{$IFDEF DIRECT3D_VERSION_LESS_8}
// Primitives supported by draw-primitive API
PD3DPrimitiveType = ^TD3DPrimitiveType;
_D3DPRIMITIVETYPE = (
D3DPT_INVALID_0,
D3DPT_POINTLIST,
D3DPT_LINELIST,
D3DPT_LINESTRIP,
D3DPT_TRIANGLELIST,
D3DPT_TRIANGLESTRIP,
D3DPT_TRIANGLEFAN);
{$EXTERNALSYM _D3DPRIMITIVETYPE}
D3DPRIMITIVETYPE = _D3DPRIMITIVETYPE;
{$EXTERNALSYM D3DPRIMITIVETYPE}
TD3DPrimitiveType = _D3DPRIMITIVETYPE;
{$ENDIF} // DIRECT3D_VERSION_LESS_8
{$ENDIF} // DIRECT3D_VERSION_5
(*
* Amount to add to a state to generate the override for that state.
*)
const
D3DSTATE_OVERRIDE_BIAS = 256;
{$EXTERNALSYM D3DSTATE_OVERRIDE_BIAS}
(*
* A state which sets the override flag for the specified state type.
*)
function D3DSTATE_OVERRIDE(StateType: DWORD): DWORD;
{$EXTERNALSYM D3DSTATE_OVERRIDE}
{$IFDEF DIRECT3D_VERSION_8}
//
// legacy transform state names
//
{$ENDIF} // DIRECT3D_VERSION_8
type
PD3DTransformStateType = ^TD3DTransformStateType;
TD3DTransformStateType = DWORD;
const
D3DTRANSFORMSTATE_WORLD = TD3DTransformStateType(1);
{$EXTERNALSYM D3DTRANSFORMSTATE_WORLD}
D3DTRANSFORMSTATE_VIEW = TD3DTransformStateType(2);
{$EXTERNALSYM D3DTRANSFORMSTATE_VIEW}
D3DTRANSFORMSTATE_PROJECTION = TD3DTransformStateType(3);
{$EXTERNALSYM D3DTRANSFORMSTATE_PROJECTION}
{$IFDEF DIRECT3D_VERSION_7}
D3DTRANSFORMSTATE_WORLD1 = TD3DTransformStateType(4); // 2nd matrix to blend
{$EXTERNALSYM D3DTRANSFORMSTATE_WORLD1}
D3DTRANSFORMSTATE_WORLD2 = TD3DTransformStateType(5); // 3rd matrix to blend
{$EXTERNALSYM D3DTRANSFORMSTATE_WORLD2}
D3DTRANSFORMSTATE_WORLD3 = TD3DTransformStateType(6); // 4th matrix to blend
{$EXTERNALSYM D3DTRANSFORMSTATE_WORLD3}
D3DTRANSFORMSTATE_TEXTURE0 = TD3DTransformStateType(16);
{$EXTERNALSYM D3DTRANSFORMSTATE_TEXTURE0}
D3DTRANSFORMSTATE_TEXTURE1 = TD3DTransformStateType(17);
{$EXTERNALSYM D3DTRANSFORMSTATE_TEXTURE1}
D3DTRANSFORMSTATE_TEXTURE2 = TD3DTransformStateType(18);
{$EXTERNALSYM D3DTRANSFORMSTATE_TEXTURE2}
D3DTRANSFORMSTATE_TEXTURE3 = TD3DTransformStateType(19);
{$EXTERNALSYM D3DTRANSFORMSTATE_TEXTURE3}
D3DTRANSFORMSTATE_TEXTURE4 = TD3DTransformStateType(20);
{$EXTERNALSYM D3DTRANSFORMSTATE_TEXTURE4}
D3DTRANSFORMSTATE_TEXTURE5 = TD3DTransformStateType(21);
{$EXTERNALSYM D3DTRANSFORMSTATE_TEXTURE5}
D3DTRANSFORMSTATE_TEXTURE6 = TD3DTransformStateType(22);
{$EXTERNALSYM D3DTRANSFORMSTATE_TEXTURE6}
D3DTRANSFORMSTATE_TEXTURE7 = TD3DTransformStateType(23);
{$EXTERNALSYM D3DTRANSFORMSTATE_TEXTURE7}
{$ENDIF} // DIRECT3D_VERSION_7
type
PD3DLightStateType = ^TD3DLightStateType;
_D3DLIGHTSTATETYPE = (
D3DLIGHTSTATE_INVALID_0,
D3DLIGHTSTATE_MATERIAL,
D3DLIGHTSTATE_AMBIENT,
D3DLIGHTSTATE_COLORMODEL,
D3DLIGHTSTATE_FOGMODE,
D3DLIGHTSTATE_FOGSTART,
D3DLIGHTSTATE_FOGEND,
D3DLIGHTSTATE_FOGDENSITY
{$IFDEF DIRECT3D_VERSION_6},
D3DLIGHTSTATE_COLORVERTEX
{$EXTERNALSYM _D3DLIGHTSTATETYPE}
{$ENDIF} // DIRECT3D_VERSION_6
);
D3DLIGHTSTATETYPE = _D3DLIGHTSTATETYPE;
{$EXTERNALSYM D3DLIGHTSTATETYPE}
TD3DLightStateType = _D3DLIGHTSTATETYPE;
type
PD3DRenderStateType = ^TD3DRenderStateType;
TD3DRenderStateType = DWORD;
const
D3DRENDERSTATE_ANTIALIAS = 2; (* D3DANTIALIASMODE *)
{$EXTERNALSYM D3DRENDERSTATE_ANTIALIAS}
D3DRENDERSTATE_TEXTUREPERSPECTIVE = 4; (* TRUE for perspective correction *)
{$EXTERNALSYM D3DRENDERSTATE_TEXTUREPERSPECTIVE}
D3DRENDERSTATE_ZENABLE = 7; (* D3DZBUFFERTYPE (or TRUE/FALSE for legacy) *)
{$EXTERNALSYM D3DRENDERSTATE_ZENABLE}
D3DRENDERSTATE_FILLMODE = 8; (* D3DFILL_MODE *)
{$EXTERNALSYM D3DRENDERSTATE_FILLMODE}
D3DRENDERSTATE_SHADEMODE = 9; (* D3DSHADEMODE *)
{$EXTERNALSYM D3DRENDERSTATE_SHADEMODE}
D3DRENDERSTATE_LINEPATTERN = 10; (* D3DLINEPATTERN *)
{$EXTERNALSYM D3DRENDERSTATE_LINEPATTERN}
D3DRENDERSTATE_ZWRITEENABLE = 14; (* TRUE to enable z writes *)
{$EXTERNALSYM D3DRENDERSTATE_ZWRITEENABLE}
D3DRENDERSTATE_ALPHATESTENABLE = 15; (* TRUE to enable alpha tests *)
{$EXTERNALSYM D3DRENDERSTATE_ALPHATESTENABLE}
D3DRENDERSTATE_LASTPIXEL = 16; (* TRUE for last-pixel on lines *)
{$EXTERNALSYM D3DRENDERSTATE_LASTPIXEL}
D3DRENDERSTATE_SRCBLEND = 19; (* D3DBLEND *)
{$EXTERNALSYM D3DRENDERSTATE_SRCBLEND}
D3DRENDERSTATE_DESTBLEND = 20; (* D3DBLEND *)
{$EXTERNALSYM D3DRENDERSTATE_DESTBLEND}
D3DRENDERSTATE_CULLMODE = 22; (* D3DCULL *)
{$EXTERNALSYM D3DRENDERSTATE_CULLMODE}
D3DRENDERSTATE_ZFUNC = 23; (* D3DCMPFUNC *)
{$EXTERNALSYM D3DRENDERSTATE_ZFUNC}
D3DRENDERSTATE_ALPHAREF = 24; (* D3DFIXED *)
{$EXTERNALSYM D3DRENDERSTATE_ALPHAREF}
D3DRENDERSTATE_ALPHAFUNC = 25; (* D3DCMPFUNC *)
{$EXTERNALSYM D3DRENDERSTATE_ALPHAFUNC}
D3DRENDERSTATE_DITHERENABLE = 26; (* TRUE to enable dithering *)
{$EXTERNALSYM D3DRENDERSTATE_DITHERENABLE}
{$IFDEF DIRECT3D_VERSION_5}
D3DRENDERSTATE_ALPHABLENDENABLE = 27; (* TRUE to enable alpha blending *)
{$EXTERNALSYM D3DRENDERSTATE_ALPHABLENDENABLE}
{$ENDIF} // DIRECT3D_VERSION_5
D3DRENDERSTATE_FOGENABLE = 28; (* TRUE to enable fog blending *)
{$EXTERNALSYM D3DRENDERSTATE_FOGENABLE}
D3DRENDERSTATE_SPECULARENABLE = 29; (* TRUE to enable specular *)
{$EXTERNALSYM D3DRENDERSTATE_SPECULARENABLE}
D3DRENDERSTATE_ZVISIBLE = 30; (* TRUE to enable z checking *)
{$EXTERNALSYM D3DRENDERSTATE_ZVISIBLE}
D3DRENDERSTATE_STIPPLEDALPHA = 33; (* TRUE to enable stippled alpha (RGB device only) *)
{$EXTERNALSYM D3DRENDERSTATE_STIPPLEDALPHA}
D3DRENDERSTATE_FOGCOLOR = 34; (* D3DCOLOR *)
{$EXTERNALSYM D3DRENDERSTATE_FOGCOLOR}
D3DRENDERSTATE_FOGTABLEMODE = 35; (* D3DFOGMODE *)
{$EXTERNALSYM D3DRENDERSTATE_FOGTABLEMODE}
{$IFDEF DIRECT3D_VERSION_7}
D3DRENDERSTATE_FOGSTART = 36; (* Fog start (for both vertex and pixel fog) *)
{$EXTERNALSYM D3DRENDERSTATE_FOGSTART}
D3DRENDERSTATE_FOGEND = 37; (* Fog end *)
{$EXTERNALSYM D3DRENDERSTATE_FOGEND}
D3DRENDERSTATE_FOGDENSITY = 38; (* Fog density *)
{$EXTERNALSYM D3DRENDERSTATE_FOGDENSITY}
{$ENDIF} // DIRECT3D_VERSION_7
{$IFDEF DIRECT3D_VERSION_5}
D3DRENDERSTATE_EDGEANTIALIAS = 40; (* TRUE to enable edge antialiasing *)
{$EXTERNALSYM D3DRENDERSTATE_EDGEANTIALIAS}
D3DRENDERSTATE_COLORKEYENABLE = 41; (* TRUE to enable source colorkeyed textures *)
{$EXTERNALSYM D3DRENDERSTATE_COLORKEYENABLE}
D3DRENDERSTATE_ZBIAS = 47; (* LONG Z bias *)
{$EXTERNALSYM D3DRENDERSTATE_ZBIAS}
D3DRENDERSTATE_RANGEFOGENABLE = 48; (* Enables range-based fog *)
{$EXTERNALSYM D3DRENDERSTATE_RANGEFOGENABLE}
{$ENDIF} // DIRECT3D_VERSION_5
{$IFDEF DIRECT3D_VERSION_6}
D3DRENDERSTATE_STENCILENABLE = 52; (* BOOL enable/disable stenciling *)
{$EXTERNALSYM D3DRENDERSTATE_STENCILENABLE}
D3DRENDERSTATE_STENCILFAIL = 53; (* D3DSTENCILOP to do if stencil test fails *)
{$EXTERNALSYM D3DRENDERSTATE_STENCILFAIL}
D3DRENDERSTATE_STENCILZFAIL = 54; (* D3DSTENCILOP to do if stencil test passes and Z test fails *)
{$EXTERNALSYM D3DRENDERSTATE_STENCILZFAIL}
D3DRENDERSTATE_STENCILPASS = 55; (* D3DSTENCILOP to do if both stencil and Z tests pass *)
{$EXTERNALSYM D3DRENDERSTATE_STENCILPASS}
D3DRENDERSTATE_STENCILFUNC = 56; (* D3DCMPFUNC fn. Stencil Test passes if ((ref & mask) stencilfn (stencil & mask)) is true *)
{$EXTERNALSYM D3DRENDERSTATE_STENCILFUNC}
D3DRENDERSTATE_STENCILREF = 57; (* Reference value used in stencil test *)
{$EXTERNALSYM D3DRENDERSTATE_STENCILREF}
D3DRENDERSTATE_STENCILMASK = 58; (* Mask value used in stencil test *)
{$EXTERNALSYM D3DRENDERSTATE_STENCILMASK}
D3DRENDERSTATE_STENCILWRITEMASK = 59; (* Write mask applied to values written to stencil buffer *)
{$EXTERNALSYM D3DRENDERSTATE_STENCILWRITEMASK}
D3DRENDERSTATE_TEXTUREFACTOR = 60; (* D3DCOLOR used for multi-texture blend *)
{$EXTERNALSYM D3DRENDERSTATE_TEXTUREFACTOR}
{$ENDIF} // DIRECT3D_VERSION_6
{$IFDEF DIRECT3D_VERSION_6}
(*
* 128 values [128; 255] are reserved for texture coordinate wrap flags.
* These are constructed with the D3DWRAP_U and D3DWRAP_V macros. Using
* a flags word preserves forward compatibility with texture coordinates
* that are >2D.
*)
D3DRENDERSTATE_WRAP0 = 128; (* wrap for 1st texture coord. set *)
{$EXTERNALSYM D3DRENDERSTATE_WRAP0}
D3DRENDERSTATE_WRAP1 = 129; (* wrap for 2nd texture coord. set *)
{$EXTERNALSYM D3DRENDERSTATE_WRAP1}
D3DRENDERSTATE_WRAP2 = 130; (* wrap for 3rd texture coord. set *)
{$EXTERNALSYM D3DRENDERSTATE_WRAP2}
D3DRENDERSTATE_WRAP3 = 131; (* wrap for 4th texture coord. set *)
{$EXTERNALSYM D3DRENDERSTATE_WRAP3}
D3DRENDERSTATE_WRAP4 = 132; (* wrap for 5th texture coord. set *)
{$EXTERNALSYM D3DRENDERSTATE_WRAP4}
D3DRENDERSTATE_WRAP5 = 133; (* wrap for 6th texture coord. set *)
{$EXTERNALSYM D3DRENDERSTATE_WRAP5}
D3DRENDERSTATE_WRAP6 = 134; (* wrap for 7th texture coord. set *)
{$EXTERNALSYM D3DRENDERSTATE_WRAP6}
D3DRENDERSTATE_WRAP7 = 135; (* wrap for 8th texture coord. set *)
{$EXTERNALSYM D3DRENDERSTATE_WRAP7}
{$ENDIF} // DIRECT3D_VERSION_6
{$IFDEF DIRECT3D_VERSION_7}
D3DRENDERSTATE_CLIPPING = 136;
{$EXTERNALSYM D3DRENDERSTATE_CLIPPING}
D3DRENDERSTATE_LIGHTING = 137;
{$EXTERNALSYM D3DRENDERSTATE_LIGHTING}
D3DRENDERSTATE_EXTENTS = 138;
{$EXTERNALSYM D3DRENDERSTATE_EXTENTS}
D3DRENDERSTATE_AMBIENT = 139;
{$EXTERNALSYM D3DRENDERSTATE_AMBIENT}
D3DRENDERSTATE_FOGVERTEXMODE = 140;
{$EXTERNALSYM D3DRENDERSTATE_FOGVERTEXMODE}
D3DRENDERSTATE_COLORVERTEX = 141;
{$EXTERNALSYM D3DRENDERSTATE_COLORVERTEX}
D3DRENDERSTATE_LOCALVIEWER = 142;
{$EXTERNALSYM D3DRENDERSTATE_LOCALVIEWER}
D3DRENDERSTATE_NORMALIZENORMALS = 143;
{$EXTERNALSYM D3DRENDERSTATE_NORMALIZENORMALS}
D3DRENDERSTATE_COLORKEYBLENDENABLE = 144;
{$EXTERNALSYM D3DRENDERSTATE_COLORKEYBLENDENABLE}
D3DRENDERSTATE_DIFFUSEMATERIALSOURCE = 145;
{$EXTERNALSYM D3DRENDERSTATE_DIFFUSEMATERIALSOURCE}
D3DRENDERSTATE_SPECULARMATERIALSOURCE = 146;
{$EXTERNALSYM D3DRENDERSTATE_SPECULARMATERIALSOURCE}
D3DRENDERSTATE_AMBIENTMATERIALSOURCE = 147;
{$EXTERNALSYM D3DRENDERSTATE_AMBIENTMATERIALSOURCE}
D3DRENDERSTATE_EMISSIVEMATERIALSOURCE = 148;
{$EXTERNALSYM D3DRENDERSTATE_EMISSIVEMATERIALSOURCE}
D3DRENDERSTATE_VERTEXBLEND = 151;
{$EXTERNALSYM D3DRENDERSTATE_VERTEXBLEND}
D3DRENDERSTATE_CLIPPLANEENABLE = 152;
{$EXTERNALSYM D3DRENDERSTATE_CLIPPLANEENABLE}
{$ENDIF} // DIRECT3D_VERSION_7
//
// retired renderstates - not supported for DX7 interfaces
//
D3DRENDERSTATE_TEXTUREHANDLE = 1; (* Texture handle for legacy interfaces (Texture;Texture2) *)
{$EXTERNALSYM D3DRENDERSTATE_TEXTUREHANDLE}
D3DRENDERSTATE_TEXTUREADDRESS = 3; (* D3DTEXTUREADDRESS *)
{$EXTERNALSYM D3DRENDERSTATE_TEXTUREADDRESS}
D3DRENDERSTATE_WRAPU = 5; (* TRUE for wrapping in u *)
{$EXTERNALSYM D3DRENDERSTATE_WRAPU}
D3DRENDERSTATE_WRAPV = 6; (* TRUE for wrapping in v *)
{$EXTERNALSYM D3DRENDERSTATE_WRAPV}
D3DRENDERSTATE_MONOENABLE = 11; (* TRUE to enable mono rasterization *)
{$EXTERNALSYM D3DRENDERSTATE_MONOENABLE}
D3DRENDERSTATE_ROP2 = 12; (* ROP2 *)
{$EXTERNALSYM D3DRENDERSTATE_ROP2}
D3DRENDERSTATE_PLANEMASK = 13; (* DWORD physical plane mask *)
{$EXTERNALSYM D3DRENDERSTATE_PLANEMASK}
D3DRENDERSTATE_TEXTUREMAG = 17; (* D3DTEXTUREFILTER *)
{$EXTERNALSYM D3DRENDERSTATE_TEXTUREMAG}
D3DRENDERSTATE_TEXTUREMIN = 18; (* D3DTEXTUREFILTER *)
{$EXTERNALSYM D3DRENDERSTATE_TEXTUREMIN}
D3DRENDERSTATE_TEXTUREMAPBLEND = 21; (* D3DTEXTUREBLEND *)
{$EXTERNALSYM D3DRENDERSTATE_TEXTUREMAPBLEND}
D3DRENDERSTATE_SUBPIXEL = 31; (* TRUE to enable subpixel correction *)
{$EXTERNALSYM D3DRENDERSTATE_SUBPIXEL}
D3DRENDERSTATE_SUBPIXELX = 32; (* TRUE to enable correction in X only *)
{$EXTERNALSYM D3DRENDERSTATE_SUBPIXELX}
D3DRENDERSTATE_STIPPLEENABLE = 39; (* TRUE to enable stippling *)
{$EXTERNALSYM D3DRENDERSTATE_STIPPLEENABLE}
{$IFDEF DIRECT3D_VERSION_5}
D3DRENDERSTATE_BORDERCOLOR = 43; (* Border color for texturing w/border *)
{$EXTERNALSYM D3DRENDERSTATE_BORDERCOLOR}
D3DRENDERSTATE_TEXTUREADDRESSU = 44; (* Texture addressing mode for U coordinate *)
{$EXTERNALSYM D3DRENDERSTATE_TEXTUREADDRESSU}
D3DRENDERSTATE_TEXTUREADDRESSV = 45; (* Texture addressing mode for V coordinate *)
{$EXTERNALSYM D3DRENDERSTATE_TEXTUREADDRESSV}
D3DRENDERSTATE_MIPMAPLODBIAS = 46; (* D3DVALUE Mipmap LOD bias *)
{$EXTERNALSYM D3DRENDERSTATE_MIPMAPLODBIAS}
D3DRENDERSTATE_ANISOTROPY = 49; (* Max. anisotropy. 1 = no anisotropy *)
{$EXTERNALSYM D3DRENDERSTATE_ANISOTROPY}
{$ENDIF} // DIRECT3D_VERSION_5
D3DRENDERSTATE_FLUSHBATCH = 50; (* Explicit flush for DP batching (DX5 Only) *)
{$EXTERNALSYM D3DRENDERSTATE_FLUSHBATCH}
{$IFDEF DIRECT3D_VERSION_6}
D3DRENDERSTATE_TRANSLUCENTSORTINDEPENDENT=51; (* BOOL enable sort-independent transparency *)
{$EXTERNALSYM D3DRENDERSTATE_TRANSLUCENTSORTINDEPENDENT}
{$ENDIF} // DIRECT3D_VERSION_6
D3DRENDERSTATE_STIPPLEPATTERN00 = 64; (* Stipple pattern 01... *)
{$EXTERNALSYM D3DRENDERSTATE_STIPPLEPATTERN00}
D3DRENDERSTATE_STIPPLEPATTERN01 = 65;
{$EXTERNALSYM D3DRENDERSTATE_STIPPLEPATTERN01}
D3DRENDERSTATE_STIPPLEPATTERN02 = 66;
{$EXTERNALSYM D3DRENDERSTATE_STIPPLEPATTERN02}
D3DRENDERSTATE_STIPPLEPATTERN03 = 67;
{$EXTERNALSYM D3DRENDERSTATE_STIPPLEPATTERN03}
D3DRENDERSTATE_STIPPLEPATTERN04 = 68;
{$EXTERNALSYM D3DRENDERSTATE_STIPPLEPATTERN04}
D3DRENDERSTATE_STIPPLEPATTERN05 = 69;
{$EXTERNALSYM D3DRENDERSTATE_STIPPLEPATTERN05}
D3DRENDERSTATE_STIPPLEPATTERN06 = 70;
{$EXTERNALSYM D3DRENDERSTATE_STIPPLEPATTERN06}
D3DRENDERSTATE_STIPPLEPATTERN07 = 71;
{$EXTERNALSYM D3DRENDERSTATE_STIPPLEPATTERN07}
D3DRENDERSTATE_STIPPLEPATTERN08 = 72;
{$EXTERNALSYM D3DRENDERSTATE_STIPPLEPATTERN08}
D3DRENDERSTATE_STIPPLEPATTERN09 = 73;
{$EXTERNALSYM D3DRENDERSTATE_STIPPLEPATTERN09}
D3DRENDERSTATE_STIPPLEPATTERN10 = 74;
{$EXTERNALSYM D3DRENDERSTATE_STIPPLEPATTERN10}
D3DRENDERSTATE_STIPPLEPATTERN11 = 75;
{$EXTERNALSYM D3DRENDERSTATE_STIPPLEPATTERN11}
D3DRENDERSTATE_STIPPLEPATTERN12 = 76;
{$EXTERNALSYM D3DRENDERSTATE_STIPPLEPATTERN12}
D3DRENDERSTATE_STIPPLEPATTERN13 = 77;
{$EXTERNALSYM D3DRENDERSTATE_STIPPLEPATTERN13}
D3DRENDERSTATE_STIPPLEPATTERN14 = 78;
{$EXTERNALSYM D3DRENDERSTATE_STIPPLEPATTERN14}
D3DRENDERSTATE_STIPPLEPATTERN15 = 79;
{$EXTERNALSYM D3DRENDERSTATE_STIPPLEPATTERN15}
D3DRENDERSTATE_STIPPLEPATTERN16 = 80;
{$EXTERNALSYM D3DRENDERSTATE_STIPPLEPATTERN16}
D3DRENDERSTATE_STIPPLEPATTERN17 = 81;
{$EXTERNALSYM D3DRENDERSTATE_STIPPLEPATTERN17}
D3DRENDERSTATE_STIPPLEPATTERN18 = 82;
{$EXTERNALSYM D3DRENDERSTATE_STIPPLEPATTERN18}
D3DRENDERSTATE_STIPPLEPATTERN19 = 83;
{$EXTERNALSYM D3DRENDERSTATE_STIPPLEPATTERN19}
D3DRENDERSTATE_STIPPLEPATTERN20 = 84;
{$EXTERNALSYM D3DRENDERSTATE_STIPPLEPATTERN20}
D3DRENDERSTATE_STIPPLEPATTERN21 = 85;
{$EXTERNALSYM D3DRENDERSTATE_STIPPLEPATTERN21}
D3DRENDERSTATE_STIPPLEPATTERN22 = 86;
{$EXTERNALSYM D3DRENDERSTATE_STIPPLEPATTERN22}
D3DRENDERSTATE_STIPPLEPATTERN23 = 87;
{$EXTERNALSYM D3DRENDERSTATE_STIPPLEPATTERN23}
D3DRENDERSTATE_STIPPLEPATTERN24 = 88;
{$EXTERNALSYM D3DRENDERSTATE_STIPPLEPATTERN24}
D3DRENDERSTATE_STIPPLEPATTERN25 = 89;
{$EXTERNALSYM D3DRENDERSTATE_STIPPLEPATTERN25}
D3DRENDERSTATE_STIPPLEPATTERN26 = 90;
{$EXTERNALSYM D3DRENDERSTATE_STIPPLEPATTERN26}
D3DRENDERSTATE_STIPPLEPATTERN27 = 91;
{$EXTERNALSYM D3DRENDERSTATE_STIPPLEPATTERN27}
D3DRENDERSTATE_STIPPLEPATTERN28 = 92;
{$EXTERNALSYM D3DRENDERSTATE_STIPPLEPATTERN28}
D3DRENDERSTATE_STIPPLEPATTERN29 = 93;
{$EXTERNALSYM D3DRENDERSTATE_STIPPLEPATTERN29}
D3DRENDERSTATE_STIPPLEPATTERN30 = 94;
{$EXTERNALSYM D3DRENDERSTATE_STIPPLEPATTERN30}
D3DRENDERSTATE_STIPPLEPATTERN31 = 95;
{$EXTERNALSYM D3DRENDERSTATE_STIPPLEPATTERN31}
//
// retired renderstate names - the values are still used under new naming conventions
//
D3DRENDERSTATE_FOGTABLESTART = 36; (* Fog table start *)
{$EXTERNALSYM D3DRENDERSTATE_FOGTABLESTART}
D3DRENDERSTATE_FOGTABLEEND = 37; (* Fog table end *)
{$EXTERNALSYM D3DRENDERSTATE_FOGTABLEEND}
D3DRENDERSTATE_FOGTABLEDENSITY = 38; (* Fog table density *)
{$EXTERNALSYM D3DRENDERSTATE_FOGTABLEDENSITY}
{$IFDEF DIRECT3D_VERSION_LESS_8}
type
// Values for material source
PD3DMateralColorSource = ^TD3DMateralColorSource;
_D3DMATERIALCOLORSOURCE = (
D3DMCS_MATERIAL, // Color from material is used
D3DMCS_COLOR1, // Diffuse vertex color is used
D3DMCS_COLOR2 // Specular vertex color is used
);
{$EXTERNALSYM _D3DMATERIALCOLORSOURCE}
D3DMATERIALCOLORSOURCE = _D3DMATERIALCOLORSOURCE;
{$EXTERNALSYM D3DMATERIALCOLORSOURCE}
TD3DMateralColorSource = _D3DMATERIALCOLORSOURCE;
{$IFDEF DIRECT3D_VERSION_5}
const
// For back-compatibility with legacy compilations
D3DRENDERSTATE_BLENDENABLE = D3DRENDERSTATE_ALPHABLENDENABLE;
{$EXTERNALSYM D3DRENDERSTATE_BLENDENABLE}
{$ENDIF} // DIRECT3D_VERSION_5
{$IFDEF DIRECT3D_VERSION_6}
// Bias to apply to the texture coordinate set to apply a wrap to.
D3DRENDERSTATE_WRAPBIAS = 128;
{$EXTERNALSYM D3DRENDERSTATE_WRAPBIAS}
(* Flags to construct the WRAP render states *)
D3DWRAP_U = $00000001;
{$EXTERNALSYM D3DWRAP_U}
D3DWRAP_V = $00000002;
{$EXTERNALSYM D3DWRAP_V}
{$ENDIF} // DIRECT3D_VERSION_6
{$IFDEF DIRECT3D_VERSION_7}
(* Flags to construct the WRAP render states for 1D thru 4D texture coordinates *)
D3DWRAPCOORD_0 = $00000001; // same as D3DWRAP_U
{$EXTERNALSYM D3DWRAPCOORD_0}
D3DWRAPCOORD_1 = $00000002; // same as D3DWRAP_V
{$EXTERNALSYM D3DWRAPCOORD_1}
D3DWRAPCOORD_2 = $00000004;
{$EXTERNALSYM D3DWRAPCOORD_2}
D3DWRAPCOORD_3 = $00000008;
{$EXTERNALSYM D3DWRAPCOORD_3}
{$ENDIF} // DIRECT3D_VERSION_7
{$ENDIF} // DIRECT3D_VERSION_LESS_8
function D3DRENDERSTATE_STIPPLEPATTERN(y: Integer): TD3DRenderStateType;
{$EXTERNALSYM D3DRENDERSTATE_STIPPLEPATTERN}
type
PD3DState = ^TD3DState;
_D3DSTATE = packed record
case Integer of
{$IFDEF DIRECT3D_VERSION_LESS_8}
0: (
dtstTransformStateType: TD3DTransformStateType;
);
{$ENDIF} // DIRECT3D_VERSION_LESS_8
1: (
dlstLightStateType: TD3DLightStateType;
dwArg: array [0..0] of DWORD;
);
2: (
drstRenderStateType: TD3DRenderStateType;
dvArg: array [0..0] of TD3DValue;
);
end;
{$EXTERNALSYM _D3DSTATE}
D3DSTATE = _D3DSTATE;
{$EXTERNALSYM D3DSTATE}
TD3DState = _D3DSTATE;
(*
* Operation used to load matrices
* hDstMat = hSrcMat
*)
PD3DMatrixLoad = ^TD3DMatrixLoad;
_D3DMATRIXLOAD = packed record
hDestMatrix: TD3DMatrixHandle; (* Destination matrix *)
hSrcMatrix: TD3DMatrixHandle; (* Source matrix *)
end;
{$EXTERNALSYM _D3DMATRIXLOAD}
D3DMATRIXLOAD = _D3DMATRIXLOAD;
{$EXTERNALSYM D3DMATRIXLOAD}
TD3DMatrixLoad = _D3DMATRIXLOAD;
(*
* Operation used to multiply matrices
* hDstMat = hSrcMat1 * hSrcMat2
*)
PD3DMatrixMultiply = ^TD3DMatrixMultiply;
_D3DMATRIXMULTIPLY = packed record
hDestMatrix: TD3DMatrixHandle; (* Destination matrix *)
hSrcMatrix1: TD3DMatrixHandle; (* First source matrix *)
hSrcMatrix2: TD3DMatrixHandle; (* Second source matrix *)
end;
{$EXTERNALSYM _D3DMATRIXMULTIPLY}
D3DMATRIXMULTIPLY = _D3DMATRIXMULTIPLY;
{$EXTERNALSYM D3DMATRIXMULTIPLY}
TD3DMatrixMultiply = _D3DMATRIXMULTIPLY;
(*
* Operation used to transform and light vertices.
*)
PD3DProcessVertices = ^TD3DProcessVertices;
_D3DPROCESSVERTICES = packed record
dwFlags: DWORD; (* Do we transform or light or just copy? *)
wStart: WORD; (* Index to first vertex in source *)
wDest: WORD; (* Index to first vertex in local buffer *)
dwCount: DWORD; (* Number of vertices to be processed *)
dwReserved: DWORD; (* Must be zero *)
end;
{$EXTERNALSYM _D3DPROCESSVERTICES}
D3DPROCESSVERTICES = _D3DPROCESSVERTICES;
{$EXTERNALSYM D3DPROCESSVERTICES}
TD3DProcessVertices = _D3DPROCESSVERTICES;
const
D3DPROCESSVERTICES_TRANSFORMLIGHT = $00000000;
{$EXTERNALSYM D3DPROCESSVERTICES_TRANSFORMLIGHT}
D3DPROCESSVERTICES_TRANSFORM = $00000001;
{$EXTERNALSYM D3DPROCESSVERTICES_TRANSFORM}
D3DPROCESSVERTICES_COPY = $00000002;
{$EXTERNALSYM D3DPROCESSVERTICES_COPY}
D3DPROCESSVERTICES_OPMASK = $00000007;
{$EXTERNALSYM D3DPROCESSVERTICES_OPMASK}
D3DPROCESSVERTICES_UPDATEEXTENTS = $00000008;
{$EXTERNALSYM D3DPROCESSVERTICES_UPDATEEXTENTS}
D3DPROCESSVERTICES_NOCOLOR = $00000010;
{$EXTERNALSYM D3DPROCESSVERTICES_NOCOLOR}
{$IFDEF DIRECT3D_VERSION_6}
{$IFDEF DIRECT3D_VERSION_LESS_8}
(*
* State enumerants for per-stage texture processing.
*)
type
PD3DTextureStageStateType = ^TD3DTextureStageStateType;
TD3DTextureStageStateType = DWORD;
const
D3DTSS_COLOROP = 1; (* D3DTEXTUREOP - per-stage blending controls for color channels *)
{$EXTERNALSYM D3DTSS_COLOROP}
D3DTSS_COLORARG1 = 2; (* D3DTA_* (texture arg) *)
{$EXTERNALSYM D3DTSS_COLORARG1}
D3DTSS_COLORARG2 = 3; (* D3DTA_* (texture arg) *)
{$EXTERNALSYM D3DTSS_COLORARG2}
D3DTSS_ALPHAOP = 4; (* D3DTEXTUREOP - per-stage blending controls for alpha channel *)
{$EXTERNALSYM D3DTSS_ALPHAOP}
D3DTSS_ALPHAARG1 = 5; (* D3DTA_* (texture arg) *)
{$EXTERNALSYM D3DTSS_ALPHAARG1}
D3DTSS_ALPHAARG2 = 6; (* D3DTA_* (texture arg) *)
{$EXTERNALSYM D3DTSS_ALPHAARG2}
D3DTSS_BUMPENVMAT00 = 7; (* D3DVALUE (bump mapping matrix) *)
{$EXTERNALSYM D3DTSS_BUMPENVMAT00}
D3DTSS_BUMPENVMAT01 = 8; (* D3DVALUE (bump mapping matrix) *)
{$EXTERNALSYM D3DTSS_BUMPENVMAT01}
D3DTSS_BUMPENVMAT10 = 9; (* D3DVALUE (bump mapping matrix) *)
{$EXTERNALSYM D3DTSS_BUMPENVMAT10}
D3DTSS_BUMPENVMAT11 = 10; (* D3DVALUE (bump mapping matrix) *)
{$EXTERNALSYM D3DTSS_BUMPENVMAT11}
D3DTSS_TEXCOORDINDEX = 11; (* identifies which set of texture coordinates index this texture *)
{$EXTERNALSYM D3DTSS_TEXCOORDINDEX}
D3DTSS_ADDRESS = 12; (* D3DTEXTUREADDRESS for both coordinates *)
{$EXTERNALSYM D3DTSS_ADDRESS}
D3DTSS_ADDRESSU = 13; (* D3DTEXTUREADDRESS for U coordinate *)
{$EXTERNALSYM D3DTSS_ADDRESSU}
D3DTSS_ADDRESSV = 14; (* D3DTEXTUREADDRESS for V coordinate *)
{$EXTERNALSYM D3DTSS_ADDRESSV}
D3DTSS_BORDERCOLOR = 15; (* D3DCOLOR *)
{$EXTERNALSYM D3DTSS_BORDERCOLOR}
D3DTSS_MAGFILTER = 16; (* D3DTEXTUREMAGFILTER filter to use for magnification *)
{$EXTERNALSYM D3DTSS_MAGFILTER}
D3DTSS_MINFILTER = 17; (* D3DTEXTUREMINFILTER filter to use for minification *)
{$EXTERNALSYM D3DTSS_MINFILTER}
D3DTSS_MIPFILTER = 18; (* D3DTEXTUREMIPFILTER filter to use between mipmaps during minification *)
{$EXTERNALSYM D3DTSS_MIPFILTER}
D3DTSS_MIPMAPLODBIAS = 19; (* D3DVALUE Mipmap LOD bias *)
{$EXTERNALSYM D3DTSS_MIPMAPLODBIAS}
D3DTSS_MAXMIPLEVEL = 20; (* DWORD 0..(n-1) LOD index of largest map to use (0 == largest) *)
{$EXTERNALSYM D3DTSS_MAXMIPLEVEL}
D3DTSS_MAXANISOTROPY = 21; (* DWORD maximum anisotropy *)
{$EXTERNALSYM D3DTSS_MAXANISOTROPY}
D3DTSS_BUMPENVLSCALE = 22; (* D3DVALUE scale for bump map luminance *)
{$EXTERNALSYM D3DTSS_BUMPENVLSCALE}
D3DTSS_BUMPENVLOFFSET = 23; (* D3DVALUE offset for bump map luminance *)
{$EXTERNALSYM D3DTSS_BUMPENVLOFFSET}
{$IFDEF DIRECT3D_VERSION_7}
D3DTSS_TEXTURETRANSFORMFLAGS = 24; (* D3DTEXTURETRANSFORMFLAGS controls texture transform *)
{$EXTERNALSYM D3DTSS_TEXTURETRANSFORMFLAGS}
{$ENDIF}
{$IFDEF DIRECT3D_VERSION_7}
// Values, used with D3DTSS_TEXCOORDINDEX, to specify that the vertex data(position
// and normal in the camera space) should be taken as texture coordinates
// Low 16 bits are used to specify texture coordinate index, to take the WRAP mode from
//
D3DTSS_TCI_PASSTHRU = $00000000;
{$EXTERNALSYM D3DTSS_TCI_PASSTHRU}
D3DTSS_TCI_CAMERASPACENORMAL = $00010000;
{$EXTERNALSYM D3DTSS_TCI_CAMERASPACENORMAL}
D3DTSS_TCI_CAMERASPACEPOSITION = $00020000;
{$EXTERNALSYM D3DTSS_TCI_CAMERASPACEPOSITION}
D3DTSS_TCI_CAMERASPACEREFLECTIONVECTOR = $00030000;
{$EXTERNALSYM D3DTSS_TCI_CAMERASPACEREFLECTIONVECTOR}
{$ENDIF}
type
(*
* Enumerations for COLOROP and ALPHAOP texture blending operations set in
* texture processing stage controls in D3DRENDERSTATE.
*)
PD3DTextureOp = ^TD3DTextureOp;
_D3DTEXTUREOP = (
D3DTOP_INVALID_0,
// Control
D3DTOP_DISABLE , // disables stage
D3DTOP_SELECTARG1, // the default
D3DTOP_SELECTARG2,
// Modulate
D3DTOP_MODULATE , // multiply args together
D3DTOP_MODULATE2X, // multiply and 1 bit
D3DTOP_MODULATE4X, // multiply and 2 bits
// Add
D3DTOP_ADD , // add arguments together
D3DTOP_ADDSIGNED , // add with -0.5 bias
D3DTOP_ADDSIGNED2X, // as above but left 1 bit
D3DTOP_SUBTRACT , // Arg1 - Arg2, with no saturation
D3DTOP_ADDSMOOTH , // add 2 args, subtract product
// Arg1 + Arg2 - Arg1*Arg2
// = Arg1 + (1-Arg1)*Arg2
// Linear alpha blend: Arg1*(Alpha) + Arg2*(1-Alpha)
D3DTOP_BLENDDIFFUSEALPHA , // iterated alpha
D3DTOP_BLENDTEXTUREALPHA , // texture alpha
D3DTOP_BLENDFACTORALPHA , // alpha from D3DRENDERSTATE_TEXTUREFACTOR
// Linear alpha blend with pre-multiplied arg1 input: Arg1 + Arg2*(1-Alpha)
D3DTOP_BLENDTEXTUREALPHAPM, // texture alpha
D3DTOP_BLENDCURRENTALPHA , // by alpha of current color
// Specular mapping
D3DTOP_PREMODULATE , // modulate with next texture before use
D3DTOP_MODULATEALPHA_ADDCOLOR, // Arg1.RGB + Arg1.A*Arg2.RGB
// COLOROP only
D3DTOP_MODULATECOLOR_ADDALPHA, // Arg1.RGB*Arg2.RGB + Arg1.A
// COLOROP only
D3DTOP_MODULATEINVALPHA_ADDCOLOR, // (1-Arg1.A)*Arg2.RGB + Arg1.RGB
// COLOROP only
D3DTOP_MODULATEINVCOLOR_ADDALPHA, // (1-Arg1.RGB)*Arg2.RGB + Arg1.A
// COLOROP only
// Bump mapping
D3DTOP_BUMPENVMAP , // per pixel env map perturbation
D3DTOP_BUMPENVMAPLUMINANCE, // with luminance channel
// This can do either diffuse or specular bump mapping with correct input.
// Performs the function (Arg1.R*Arg2.R + Arg1.G*Arg2.G + Arg1.B*Arg2.B)
// where each component has been scaled and offset to make it signed.
// The result is replicated into all four (including alpha) channels.
// This is a valid COLOROP only.
D3DTOP_DOTPRODUCT3
);
{$EXTERNALSYM _D3DTEXTUREOP}
D3DTEXTUREOP = _D3DTEXTUREOP;
{$EXTERNALSYM D3DTEXTUREOP}
TD3DTextureOp = _D3DTEXTUREOP;
(*
* Values for COLORARG1,2 and ALPHAARG1,2 texture blending operations
* set in texture processing stage controls in D3DRENDERSTATE.
*)
const
D3DTA_SELECTMASK = $0000000f; // mask for arg selector
{$EXTERNALSYM D3DTA_SELECTMASK}
D3DTA_DIFFUSE = $00000000; // select diffuse color
{$EXTERNALSYM D3DTA_DIFFUSE}
D3DTA_CURRENT = $00000001; // select result of previous stage
{$EXTERNALSYM D3DTA_CURRENT}
D3DTA_TEXTURE = $00000002; // select texture color
{$EXTERNALSYM D3DTA_TEXTURE}
D3DTA_TFACTOR = $00000003; // select RENDERSTATE_TEXTUREFACTOR
{$EXTERNALSYM D3DTA_TFACTOR}
{$IFDEF DIRECT3D_VERSION_7}
D3DTA_SPECULAR = $00000004; // select specular color
{$EXTERNALSYM D3DTA_SPECULAR}
{$ENDIF}
D3DTA_COMPLEMENT = $00000010; // take 1.0 - x
{$EXTERNALSYM D3DTA_COMPLEMENT}
D3DTA_ALPHAREPLICATE = $00000020; // replicate alpha to color components
{$EXTERNALSYM D3DTA_ALPHAREPLICATE}
{$ENDIF} // DIRECT3D_VERSION_LESS_8
(*
* IDirect3DTexture2 State Filter Types
*)
type
PD3DTextureMagFilter = ^TD3DTextureMagFilter;
_D3DTEXTUREMAGFILTER = (
D3DTFG_INVALID_0,
D3DTFG_POINT , // nearest
D3DTFG_LINEAR , // linear interpolation
D3DTFG_FLATCUBIC , // cubic
D3DTFG_GAUSSIANCUBIC, // different cubic kernel
D3DTFG_ANISOTROPIC
);
{$EXTERNALSYM _D3DTEXTUREMAGFILTER}
D3DTEXTUREMAGFILTER = _D3DTEXTUREMAGFILTER;
{$EXTERNALSYM D3DTEXTUREMAGFILTER}
TD3DTextureMagFilter = _D3DTEXTUREMAGFILTER;
PD3DTextureMinFilter = ^TD3DTextureMinFilter;
_D3DTEXTUREMINFILTER = (
D3DTFN_INVALID_0,
D3DTFN_POINT , // nearest
D3DTFN_LINEAR , // linear interpolation
D3DTFN_ANISOTROPIC
);
{$EXTERNALSYM _D3DTEXTUREMINFILTER}
D3DTEXTUREMINFILTER = _D3DTEXTUREMINFILTER;
{$EXTERNALSYM D3DTEXTUREMINFILTER}
TD3DTextureMinFilter = _D3DTEXTUREMINFILTER;
PD3DTextureMipFilter = ^TD3DTextureMipFilter;
_D3DTEXTUREMIPFILTER = (
D3DTFP_INVALID_0,
D3DTFP_NONE , // mipmapping disabled (use MAG filter)
D3DTFP_POINT , // nearest
D3DTFP_LINEAR // linear interpolation
);
{$EXTERNALSYM _D3DTEXTUREMIPFILTER}
D3DTEXTUREMIPFILTER = _D3DTEXTUREMIPFILTER;
{$EXTERNALSYM D3DTEXTUREMIPFILTER}
TD3DTextureMipFilter = _D3DTEXTUREMIPFILTER;
{$ENDIF} // DIRECT3D_VERSION_6
(*
* Triangle flags
*)
(*
* Tri strip and fan flags.
* START loads all three vertices
* EVEN and ODD load just v3 with even or odd culling
* START_FLAT contains a count from 0 to 29 that allows the
* whole strip or fan to be culled in one hit.
* e.g. for a quad len = 1
*)
const
D3DTRIFLAG_START = $00000000;
{$EXTERNALSYM D3DTRIFLAG_START}
// #define D3DTRIFLAG_STARTFLAT(len) (len) (* 0 < len < 30 *)
function D3DTRIFLAG_STARTFLAT(len: DWORD): DWORD;
{$EXTERNALSYM D3DTRIFLAG_STARTFLAT}
const
D3DTRIFLAG_ODD = $0000001e;
{$EXTERNALSYM D3DTRIFLAG_ODD}
D3DTRIFLAG_EVEN = $0000001f;
{$EXTERNALSYM D3DTRIFLAG_EVEN}
(*
* Triangle edge flags
* enable edges for wireframe or antialiasing
*)
D3DTRIFLAG_EDGEENABLE1 = $00000100; (* v0-v1 edge *)
{$EXTERNALSYM D3DTRIFLAG_EDGEENABLE1}
D3DTRIFLAG_EDGEENABLE2 = $00000200; (* v1-v2 edge *)
{$EXTERNALSYM D3DTRIFLAG_EDGEENABLE2}
D3DTRIFLAG_EDGEENABLE3 = $00000400; (* v2-v0 edge *)
{$EXTERNALSYM D3DTRIFLAG_EDGEENABLE3}
D3DTRIFLAG_EDGEENABLETRIANGLE = (
D3DTRIFLAG_EDGEENABLE1 or D3DTRIFLAG_EDGEENABLE2 or D3DTRIFLAG_EDGEENABLE3);
{$EXTERNALSYM D3DTRIFLAG_EDGEENABLETRIANGLE}
(*
* Primitive structures and related defines. Vertex offsets are to types
* TD3DVertex, TD3DLVertex, or TD3DTLVertex.
*)
(*
* Triangle list primitive structure
*)
type
PD3DTriangle = ^TD3DTriangle;
_D3DTRIANGLE = packed record
case Integer of
0: (
v1: WORD; (* Vertex indices *)
v2: WORD;
v3: WORD;
wFlags: WORD; (* Edge (and other) flags *)
);
1: (
wV1: WORD;
wV2: WORD;
wV3: WORD;
);
end;
{$EXTERNALSYM _D3DTRIANGLE}
D3DTRIANGLE = _D3DTRIANGLE;
{$EXTERNALSYM D3DTRIANGLE}
TD3DTriangle = _D3DTRIANGLE;
(*
* Line strip structure.
* The instruction count - 1 defines the number of line segments.
*)
PD3DLine = ^TD3DLine;
_D3DLINE = packed record
case Integer of
0: (
v1: WORD; (* Vertex indices *)
v2: WORD;
);
1: (
wV1: WORD;
wV2: WORD;
);
end;
{$EXTERNALSYM _D3DLINE}
D3DLINE = _D3DLINE;
{$EXTERNALSYM D3DLINE}
TD3DLine = _D3DLINE;
(*
* Span structure
* Spans join a list of points with the same y value.
* If the y value changes, a new span is started.
*)
PD3DSpan = ^TD3DSpan;
_D3DSPAN = packed record
wCount: WORD; (* Number of spans *)
wFirst: WORD; (* Index to first vertex *)
end;
{$EXTERNALSYM _D3DSPAN}
D3DSPAN = _D3DSPAN;
{$EXTERNALSYM D3DSPAN}
TD3DSpan = _D3DSPAN;
(*
* Point structure
*)
PD3DPoint = ^TD3DPoint;
_D3DPOINT = packed record
wCount: WORD; (* number of points *)
wFirst: WORD; (* index to first vertex *)
end;
{$EXTERNALSYM _D3DPOINT}
D3DPOINT = _D3DPOINT;
{$EXTERNALSYM D3DPOINT}
TD3DPoint = _D3DPOINT;
(*
* Forward branch structure.
* Mask is logically anded with the driver status mask
* if the result equals 'value', the branch is taken.
*)
PD3DBranch = ^TD3DBranch;
_D3DBRANCH = packed record
dwMask: DWORD; (* Bitmask against D3D status *)
dwValue: DWORD;
bNegate: BOOL; (* TRUE to negate comparison *)
dwOffset: DWORD; (* How far to branch forward (0 for exit)*)
end;
{$EXTERNALSYM _D3DBRANCH}
D3DBRANCH = _D3DBRANCH;
{$EXTERNALSYM D3DBRANCH}
TD3DBranch = _D3DBRANCH;
(*
* Status used for set status instruction.
* The D3D status is initialised on device creation
* and is modified by all execute calls.
*)
PD3DStatus = ^TD3DStatus;
_D3DSTATUS = packed record
dwFlags: DWORD; (* Do we set extents or status *)
dwStatus: DWORD; (* D3D status *)
drExtent: TD3DRect;
end;
{$EXTERNALSYM _D3DSTATUS}
D3DSTATUS = _D3DSTATUS;
{$EXTERNALSYM D3DSTATUS}
TD3DStatus = _D3DSTATUS;
const
D3DSETSTATUS_STATUS = $00000001;
{$EXTERNALSYM D3DSETSTATUS_STATUS}
D3DSETSTATUS_EXTENTS = $00000002;
{$EXTERNALSYM D3DSETSTATUS_EXTENTS}
D3DSETSTATUS_ALL = (D3DSETSTATUS_STATUS or D3DSETSTATUS_EXTENTS);
{$EXTERNALSYM D3DSETSTATUS_ALL}
{$IFDEF DIRECT3D_VERSION_5}
type
PD3DClipStatus = ^TD3DClipStatus;
_D3DCLIPSTATUS = packed record
dwFlags : DWORD; (* Do we set 2d extents, 3D extents or status *)
dwStatus : DWORD; (* Clip status *)
minx, maxx : Single; (* X extents *)
miny, maxy : Single; (* Y extents *)
minz, maxz : Single; (* Z extents *)
end;
{$EXTERNALSYM _D3DCLIPSTATUS}
D3DCLIPSTATUS = _D3DCLIPSTATUS;
{$EXTERNALSYM D3DCLIPSTATUS}
TD3DClipStatus = _D3DCLIPSTATUS;
const
D3DCLIPSTATUS_STATUS = $00000001;
{$EXTERNALSYM D3DCLIPSTATUS_STATUS}
D3DCLIPSTATUS_EXTENTS2 = $00000002;
{$EXTERNALSYM D3DCLIPSTATUS_EXTENTS2}
D3DCLIPSTATUS_EXTENTS3 = $00000004;
{$EXTERNALSYM D3DCLIPSTATUS_EXTENTS3}
{$ENDIF} // DIRECT3D_VERSION_5
(*
* Statistics structure
*)
type
PD3DStats = ^TD3DStats;
_D3DSTATS = packed record
dwSize: DWORD;
dwTrianglesDrawn: DWORD;
dwLinesDrawn: DWORD;
dwPointsDrawn: DWORD;
dwSpansDrawn: DWORD;
dwVerticesProcessed: DWORD;
end;
{$EXTERNALSYM _D3DSTATS}
D3DSTATS = _D3DSTATS;
{$EXTERNALSYM D3DSTATS}
TD3DStats = _D3DSTATS;
(*
* Execute options.
* When calling using D3DEXECUTE_UNCLIPPED all the primitives
* inside the buffer must be contained within the viewport.
*)
const
D3DEXECUTE_CLIPPED = $00000001;
{$EXTERNALSYM D3DEXECUTE_CLIPPED}
D3DEXECUTE_UNCLIPPED = $00000002;
{$EXTERNALSYM D3DEXECUTE_UNCLIPPED}
type
PD3DExecuteData = ^TD3DExecuteData;
_D3DEXECUTEDATA = packed record
dwSize: DWORD;
dwVertexOffset: DWORD;
dwVertexCount: DWORD;
dwInstructionOffset: DWORD;
dwInstructionLength: DWORD;
dwHVertexOffset: DWORD;
dsStatus: TD3DStatus; (* Status after execute *)
end;
{$EXTERNALSYM _D3DEXECUTEDATA}
D3DEXECUTEDATA = _D3DEXECUTEDATA;
{$EXTERNALSYM D3DEXECUTEDATA}
TD3DExecuteData = _D3DEXECUTEDATA;
(*
* Palette flags.
* This are or'ed with the peFlags in the PALETTEENTRYs passed to DirectDraw.
*)
const
D3DPAL_FREE = $00; (* Renderer may use this entry freely *)
{$EXTERNALSYM D3DPAL_FREE}
D3DPAL_READONLY = $40; (* Renderer may not set this entry *)
{$EXTERNALSYM D3DPAL_READONLY}
D3DPAL_RESERVED = $80; (* Renderer may not use this entry *)
{$EXTERNALSYM D3DPAL_RESERVED}
{$IFDEF DIRECT3D_VERSION_6}
type
PD3DVertexBufferDesc = ^TD3DVertexBufferDesc;
_D3DVERTEXBUFFERDESC = packed record
dwSize : DWORD;
dwCaps : DWORD;
dwFVF : DWORD;
dwNumVertices : DWORD;
end;
{$EXTERNALSYM _D3DVERTEXBUFFERDESC}
D3DVERTEXBUFFERDESC = _D3DVERTEXBUFFERDESC;
{$EXTERNALSYM D3DVERTEXBUFFERDESC}
TD3DVertexBufferDesc = _D3DVERTEXBUFFERDESC;
const
(* These correspond to DDSCAPS_* flags *)
D3DVBCAPS_SYSTEMMEMORY = $00000800;
{$EXTERNALSYM D3DVBCAPS_SYSTEMMEMORY}
D3DVBCAPS_WRITEONLY = $00010000;
{$EXTERNALSYM D3DVBCAPS_WRITEONLY}
D3DVBCAPS_OPTIMIZED = $80000000;
{$EXTERNALSYM D3DVBCAPS_OPTIMIZED}
D3DVBCAPS_DONOTCLIP = $00000001;
{$EXTERNALSYM D3DVBCAPS_DONOTCLIP}
(* Vertex Operations for ProcessVertices *)
D3DVOP_LIGHT = (1 shl 10);
{$EXTERNALSYM D3DVOP_LIGHT}
D3DVOP_TRANSFORM = (1 shl 0);
{$EXTERNALSYM D3DVOP_TRANSFORM}
D3DVOP_CLIP = (1 shl 2);
{$EXTERNALSYM D3DVOP_CLIP}
D3DVOP_EXTENTS = (1 shl 3);
{$EXTERNALSYM D3DVOP_EXTENTS}
{$IFDEF DIRECT3D_VERSION_LESS_8}
(* The maximum number of vertices user can pass to any d3d
drawing function or to create vertex buffer with
*)
D3DMAXNUMVERTICES = ((1 shl 16) - 1);
{$EXTERNALSYM D3DMAXNUMVERTICES}
(* The maximum number of primitives user can pass to any d3d
drawing function.
*)
D3DMAXNUMPRIMITIVES = ((1 shl 16) - 1);
{$EXTERNALSYM D3DMAXNUMPRIMITIVES}
{$IFDEF DIRECT3D_VERSION_7}
(* Bits for dwFlags in ProcessVertices call *)
D3DPV_DONOTCOPYDATA = (1 shl 0);
{$EXTERNALSYM D3DPV_DONOTCOPYDATA}
{$ENDIF} // DIRECT3D_VERSION_7
{$ENDIF} // DIRECT3D_VERSION_LESS_8
//-------------------------------------------------------------------
{$IFDEF DIRECT3D_VERSION_LESS_8}
// Flexible vertex format bits
//
D3DFVF_RESERVED0 = $001;
{$EXTERNALSYM D3DFVF_RESERVED0}
D3DFVF_POSITION_MASK = $00E;
{$EXTERNALSYM D3DFVF_POSITION_MASK}
D3DFVF_XYZ = $002;
{$EXTERNALSYM D3DFVF_XYZ}
D3DFVF_XYZRHW = $004;
{$EXTERNALSYM D3DFVF_XYZRHW}
{$IFDEF DIRECT3D_VERSION_7}
D3DFVF_XYZB1 = $006;
{$EXTERNALSYM D3DFVF_XYZB1}
D3DFVF_XYZB2 = $008;
{$EXTERNALSYM D3DFVF_XYZB2}
D3DFVF_XYZB3 = $00a;
{$EXTERNALSYM D3DFVF_XYZB3}
D3DFVF_XYZB4 = $00c;
{$EXTERNALSYM D3DFVF_XYZB4}
D3DFVF_XYZB5 = $00e;
{$EXTERNALSYM D3DFVF_XYZB5}
{$ENDIF} // DIRECT3D_VERSION_7
D3DFVF_NORMAL = $010;
{$EXTERNALSYM D3DFVF_NORMAL}
D3DFVF_RESERVED1 = $020;
{$EXTERNALSYM D3DFVF_RESERVED1}
D3DFVF_DIFFUSE = $040;
{$EXTERNALSYM D3DFVF_DIFFUSE}
D3DFVF_SPECULAR = $080;
{$EXTERNALSYM D3DFVF_SPECULAR}
D3DFVF_TEXCOUNT_MASK = $f00;
{$EXTERNALSYM D3DFVF_TEXCOUNT_MASK}
D3DFVF_TEXCOUNT_SHIFT = 8;
{$EXTERNALSYM D3DFVF_TEXCOUNT_SHIFT}
D3DFVF_TEX0 = $000;
{$EXTERNALSYM D3DFVF_TEX0}
D3DFVF_TEX1 = $100;
{$EXTERNALSYM D3DFVF_TEX1}
D3DFVF_TEX2 = $200;
{$EXTERNALSYM D3DFVF_TEX2}
D3DFVF_TEX3 = $300;
{$EXTERNALSYM D3DFVF_TEX3}
D3DFVF_TEX4 = $400;
{$EXTERNALSYM D3DFVF_TEX4}
D3DFVF_TEX5 = $500;
{$EXTERNALSYM D3DFVF_TEX5}
D3DFVF_TEX6 = $600;
{$EXTERNALSYM D3DFVF_TEX6}
D3DFVF_TEX7 = $700;
{$EXTERNALSYM D3DFVF_TEX7}
D3DFVF_TEX8 = $800;
{$EXTERNALSYM D3DFVF_TEX8}
D3DFVF_RESERVED2 = $f000; // 4 reserved bits
{$EXTERNALSYM D3DFVF_RESERVED2}
{$ELSE}
D3DFVF_RESERVED1 = $020;
{$EXTERNALSYM D3DFVF_RESERVED1}
{$ENDIF} // DIRECT3D_VERSION_LESS_8
D3DFVF_VERTEX = ( D3DFVF_XYZ or D3DFVF_NORMAL or D3DFVF_TEX1 );
{$EXTERNALSYM D3DFVF_VERTEX}
D3DFVF_LVERTEX = ( D3DFVF_XYZ or D3DFVF_RESERVED1 or D3DFVF_DIFFUSE or
D3DFVF_SPECULAR or D3DFVF_TEX1 );
{$EXTERNALSYM D3DFVF_LVERTEX}
D3DFVF_TLVERTEX = ( D3DFVF_XYZRHW or D3DFVF_DIFFUSE or D3DFVF_SPECULAR or
D3DFVF_TEX1 );
{$EXTERNALSYM D3DFVF_TLVERTEX}
type
PD3DDP_PtrStride = ^TD3DDP_PtrStride;
_D3DDP_PTRSTRIDE = packed record
lpvData : pointer;
dwStride : DWORD;
end;
{$EXTERNALSYM _D3DDP_PTRSTRIDE}
D3DDP_PTRSTRIDE = _D3DDP_PTRSTRIDE;
{$EXTERNALSYM D3DDP_PTRSTRIDE}
TD3DDP_PtrStride = _D3DDP_PTRSTRIDE;
TD3DDPPtrStride = _D3DDP_PTRSTRIDE;
PD3DDPPtrStride = ^TD3DDPPtrStride;
const
D3DDP_MAXTEXCOORD = 8;
{$EXTERNALSYM D3DDP_MAXTEXCOORD}
type
PD3DDrawPrimitiveStridedData = ^TD3DDrawPrimitiveStridedData;
_D3DDRAWPRIMITIVESTRIDEDDATA = packed record
position : TD3DDP_PtrStride;
normal : TD3DDP_PtrStride;
diffuse : TD3DDP_PtrStride;
specular : TD3DDP_PtrStride;
textureCoords : array [0..D3DDP_MAXTEXCOORD-1] of TD3DDP_PtrStride;
end;
{$EXTERNALSYM _D3DDRAWPRIMITIVESTRIDEDDATA}
D3DDRAWPRIMITIVESTRIDEDDATA = _D3DDRAWPRIMITIVESTRIDEDDATA;
{$EXTERNALSYM D3DDRAWPRIMITIVESTRIDEDDATA}
TD3DDrawPrimitiveStridedData = _D3DDRAWPRIMITIVESTRIDEDDATA;
//---------------------------------------------------------------------
// ComputeSphereVisibility return values
//
const
D3DVIS_INSIDE_FRUSTUM = 0;
{$EXTERNALSYM D3DVIS_INSIDE_FRUSTUM}
D3DVIS_INTERSECT_FRUSTUM = 1;
{$EXTERNALSYM D3DVIS_INTERSECT_FRUSTUM}
D3DVIS_OUTSIDE_FRUSTUM = 2;
{$EXTERNALSYM D3DVIS_OUTSIDE_FRUSTUM}
D3DVIS_INSIDE_LEFT = 0;
{$EXTERNALSYM D3DVIS_INSIDE_LEFT}
D3DVIS_INTERSECT_LEFT = (1 shl 2);
{$EXTERNALSYM D3DVIS_INTERSECT_LEFT}
D3DVIS_OUTSIDE_LEFT = (2 shl 2);
{$EXTERNALSYM D3DVIS_OUTSIDE_LEFT}
D3DVIS_INSIDE_RIGHT = 0;
{$EXTERNALSYM D3DVIS_INSIDE_RIGHT}
D3DVIS_INTERSECT_RIGHT = (1 shl 4);
{$EXTERNALSYM D3DVIS_INTERSECT_RIGHT}
D3DVIS_OUTSIDE_RIGHT = (2 shl 4);
{$EXTERNALSYM D3DVIS_OUTSIDE_RIGHT}
D3DVIS_INSIDE_TOP = 0;
{$EXTERNALSYM D3DVIS_INSIDE_TOP}
D3DVIS_INTERSECT_TOP = (1 shl 6);
{$EXTERNALSYM D3DVIS_INTERSECT_TOP}
D3DVIS_OUTSIDE_TOP = (2 shl 6);
{$EXTERNALSYM D3DVIS_OUTSIDE_TOP}
D3DVIS_INSIDE_BOTTOM = 0;
{$EXTERNALSYM D3DVIS_INSIDE_BOTTOM}
D3DVIS_INTERSECT_BOTTOM = (1 shl 8);
{$EXTERNALSYM D3DVIS_INTERSECT_BOTTOM}
D3DVIS_OUTSIDE_BOTTOM = (2 shl 8);
{$EXTERNALSYM D3DVIS_OUTSIDE_BOTTOM}
D3DVIS_INSIDE_NEAR = 0;
{$EXTERNALSYM D3DVIS_INSIDE_NEAR}
D3DVIS_INTERSECT_NEAR = (1 shl 10);
{$EXTERNALSYM D3DVIS_INTERSECT_NEAR}
D3DVIS_OUTSIDE_NEAR = (2 shl 10);
{$EXTERNALSYM D3DVIS_OUTSIDE_NEAR}
D3DVIS_INSIDE_FAR = 0;
{$EXTERNALSYM D3DVIS_INSIDE_FAR}
D3DVIS_INTERSECT_FAR = (1 shl 12);
{$EXTERNALSYM D3DVIS_INTERSECT_FAR}
D3DVIS_OUTSIDE_FAR = (2 shl 12);
{$EXTERNALSYM D3DVIS_OUTSIDE_FAR}
D3DVIS_MASK_FRUSTUM = (3 shl 0);
{$EXTERNALSYM D3DVIS_MASK_FRUSTUM}
D3DVIS_MASK_LEFT = (3 shl 2);
{$EXTERNALSYM D3DVIS_MASK_LEFT}
D3DVIS_MASK_RIGHT = (3 shl 4);
{$EXTERNALSYM D3DVIS_MASK_RIGHT}
D3DVIS_MASK_TOP = (3 shl 6);
{$EXTERNALSYM D3DVIS_MASK_TOP}
D3DVIS_MASK_BOTTOM = (3 shl 8);
{$EXTERNALSYM D3DVIS_MASK_BOTTOM}
D3DVIS_MASK_NEAR = (3 shl 10);
{$EXTERNALSYM D3DVIS_MASK_NEAR}
D3DVIS_MASK_FAR = (3 shl 12);
{$EXTERNALSYM D3DVIS_MASK_FAR}
{$ENDIF} // DIRECT3D_VERSION_6
{$IFDEF DIRECT3D_VERSION_LESS_8}
{$IFDEF DIRECT3D_VERSION_7}
// To be used with GetInfo()
D3DDEVINFOID_TEXTUREMANAGER = 1;
{$EXTERNALSYM D3DDEVINFOID_TEXTUREMANAGER}
D3DDEVINFOID_D3DTEXTUREMANAGER = 2;
{$EXTERNALSYM D3DDEVINFOID_D3DTEXTUREMANAGER}
D3DDEVINFOID_TEXTURING = 3;
{$EXTERNALSYM D3DDEVINFOID_TEXTURING}
type
PD3DStateBlockType = ^TD3DStateBlockType;
_D3DSTATEBLOCKTYPE = (
D3DSBT_INVALID_0 ,
D3DSBT_ALL , // capture all state
D3DSBT_PIXELSTATE , // capture pixel state
D3DSBT_VERTEXSTATE // capture vertex state
);
{$EXTERNALSYM _D3DSTATEBLOCKTYPE}
D3DSTATEBLOCKTYPE = _D3DSTATEBLOCKTYPE;
{$EXTERNALSYM D3DSTATEBLOCKTYPE}
TD3DStateBlockType = _D3DSTATEBLOCKTYPE;
// The D3DVERTEXBLENDFLAGS type is used with D3DRENDERSTATE_VERTEXBLEND state.
//
PD3DVertexBlendFlags = ^TD3DVertexBlendFlags;
_D3DVERTEXBLENDFLAGS = (
D3DVBLEND_DISABLE , // Disable vertex blending
D3DVBLEND_1WEIGHT , // blend between 2 matrices
D3DVBLEND_2WEIGHTS, // blend between 3 matrices
D3DVBLEND_3WEIGHTS // blend between 4 matrices
);
{$EXTERNALSYM _D3DVERTEXBLENDFLAGS}
D3DVERTEXBLENDFLAGS = _D3DVERTEXBLENDFLAGS;
{$EXTERNALSYM D3DVERTEXBLENDFLAGS}
TD3DVertexBlendFlags = _D3DVERTEXBLENDFLAGS;
PD3DTextureTransformFlags = ^TD3DTextureTransformFlags;
_D3DTEXTURETRANSFORMFLAGS = (
D3DTTFF_DISABLE , // texture coordinates are passed directly
D3DTTFF_COUNT1 , // rasterizer should expect 1-D texture coords
D3DTTFF_COUNT2 , // rasterizer should expect 2-D texture coords
D3DTTFF_COUNT3 , // rasterizer should expect 3-D texture coords
D3DTTFF_COUNT4 // rasterizer should expect 4-D texture coords
);
{$EXTERNALSYM _D3DTEXTURETRANSFORMFLAGS}
D3DTEXTURETRANSFORMFLAGS = _D3DTEXTURETRANSFORMFLAGS;
{$EXTERNALSYM D3DTEXTURETRANSFORMFLAGS}
TD3DTextureTransformFlags = _D3DTEXTURETRANSFORMFLAGS;
const
D3DTTFF_PROJECTED = TD3DTextureTransformFlags(256); // texcoords to be divided by COUNTth element
{$EXTERNALSYM D3DTTFF_PROJECTED}
// Macros to set texture coordinate format bits in the FVF id
D3DFVF_TEXTUREFORMAT2 = 0; // Two floating point values
{$EXTERNALSYM D3DFVF_TEXTUREFORMAT2}
D3DFVF_TEXTUREFORMAT1 = 3; // One floating point value
{$EXTERNALSYM D3DFVF_TEXTUREFORMAT1}
D3DFVF_TEXTUREFORMAT3 = 1; // Three floating point values
{$EXTERNALSYM D3DFVF_TEXTUREFORMAT3}
D3DFVF_TEXTUREFORMAT4 = 2; // Four floating point values
{$EXTERNALSYM D3DFVF_TEXTUREFORMAT4}
function D3DFVF_TEXCOORDSIZE3(CoordIndex: DWORD): DWORD;
{$EXTERNALSYM D3DFVF_TEXCOORDSIZE3}
function D3DFVF_TEXCOORDSIZE2(CoordIndex: DWORD): DWORD;
{$EXTERNALSYM D3DFVF_TEXCOORDSIZE2}
function D3DFVF_TEXCOORDSIZE4(CoordIndex: DWORD): DWORD;
{$EXTERNALSYM D3DFVF_TEXCOORDSIZE4}
function D3DFVF_TEXCOORDSIZE1(CoordIndex: DWORD): DWORD;
{$EXTERNALSYM D3DFVF_TEXCOORDSIZE1}
{$ENDIF} // DIRECT3D_VERSION_7
{$ELSE}
//
// legacy vertex blend names
//
type
PD3DVertexBlendFlags = ^TD3DVertexBlendFlags;
TD3DVertexBlendFlags = Direct3D8.TD3DVertexBlendFlags;
D3DVERTEXBLENDFLAGS = Direct3D8.D3DVERTEXBLENDFLAGS;
_D3DVERTEXBLENDFLAGS = Direct3D8._D3DVERTEXBLENDFLAGS;
{$ENDIF} // DIRECT3D_VERSION_LESS_8
(*==========================================================================;
*
*
* File: d3dcaps.h
* Content: Direct3D capabilities include file
*
***************************************************************************)
(* Description of capabilities of transform *)
type
PD3DTransformCaps = ^TD3DTransformCaps;
_D3DTRANSFORMCAPS = packed record
dwSize: DWORD;
dwCaps: DWORD;
end;
{$EXTERNALSYM _D3DTRANSFORMCAPS}
D3DTRANSFORMCAPS = _D3DTRANSFORMCAPS;
{$EXTERNALSYM D3DTRANSFORMCAPS}
TD3DTransformCaps = _D3DTRANSFORMCAPS;
const
D3DTRANSFORMCAPS_CLIP = $00000001; (* Will clip whilst transforming *)
{$EXTERNALSYM D3DTRANSFORMCAPS_CLIP}
(* Description of capabilities of lighting *)
type
PD3DLightingCaps = ^TD3DLightingCaps;
_D3DLIGHTINGCAPS = packed record
dwSize: DWORD;
dwCaps: DWORD; (* Lighting caps *)
dwLightingModel: DWORD; (* Lighting model - RGB or mono *)
dwNumLights: DWORD; (* Number of lights that can be handled *)
end;
{$EXTERNALSYM _D3DLIGHTINGCAPS}
D3DLIGHTINGCAPS = _D3DLIGHTINGCAPS;
{$EXTERNALSYM D3DLIGHTINGCAPS}
TD3DLightingCaps = _D3DLIGHTINGCAPS;
const
D3DLIGHTINGMODEL_RGB = $00000001;
{$EXTERNALSYM D3DLIGHTINGMODEL_RGB}
D3DLIGHTINGMODEL_MONO = $00000002;
{$EXTERNALSYM D3DLIGHTINGMODEL_MONO}
D3DLIGHTCAPS_POINT = $00000001; (* Point lights supported *)
{$EXTERNALSYM D3DLIGHTCAPS_POINT}
D3DLIGHTCAPS_SPOT = $00000002; (* Spot lights supported *)
{$EXTERNALSYM D3DLIGHTCAPS_SPOT}
D3DLIGHTCAPS_DIRECTIONAL = $00000004; (* Directional lights supported *)
{$EXTERNALSYM D3DLIGHTCAPS_DIRECTIONAL}
{$IFDEF DIRECT3D_VERSION_LESS_7}
D3DLIGHTCAPS_PARALLELPOINT = $00000008; (* Parallel point lights supported *)
{$EXTERNALSYM D3DLIGHTCAPS_PARALLELPOINT}
{$ENDIF} // DIRECT3D_VERSION_LESS_7
{$IFDEF DIRECT3D_VERSION_LESS_5}
D3DLIGHTCAPS_GLSPOT = $00000010; (* GL syle spot lights supported *)
{$EXTERNALSYM D3DLIGHTCAPS_GLSPOT}
{$ENDIF} // DIRECT3D_VERSION_LESS_5
(* Description of capabilities for each primitive type *)
type
PD3DPrimCaps = ^TD3DPrimCaps;
_D3DPrimCaps = packed record
dwSize: DWORD;
dwMiscCaps: DWORD; (* Capability flags *)
dwRasterCaps: DWORD;
dwZCmpCaps: DWORD;
dwSrcBlendCaps: DWORD;
dwDestBlendCaps: DWORD;
dwAlphaCmpCaps: DWORD;
dwShadeCaps: DWORD;
dwTextureCaps: DWORD;
dwTextureFilterCaps: DWORD;
dwTextureBlendCaps: DWORD;
dwTextureAddressCaps: DWORD;
dwStippleWidth: DWORD; (* maximum width and height of *)
dwStippleHeight: DWORD; (* of supported stipple (up to 32x32) *)
end;
{$EXTERNALSYM _D3DPrimCaps}
D3DPrimCaps = _D3DPrimCaps;
{$EXTERNALSYM D3DPrimCaps}
TD3DPrimCaps = _D3DPrimCaps;
const
(* TD3DPrimCaps dwMiscCaps *)
D3DPMISCCAPS_MASKPLANES = $00000001;
{$EXTERNALSYM D3DPMISCCAPS_MASKPLANES}
D3DPMISCCAPS_MASKZ = $00000002;
{$EXTERNALSYM D3DPMISCCAPS_MASKZ}
D3DPMISCCAPS_LINEPATTERNREP = $00000004;
{$EXTERNALSYM D3DPMISCCAPS_LINEPATTERNREP}
D3DPMISCCAPS_CONFORMANT = $00000008;
{$EXTERNALSYM D3DPMISCCAPS_CONFORMANT}
D3DPMISCCAPS_CULLNONE = $00000010;
{$EXTERNALSYM D3DPMISCCAPS_CULLNONE}
D3DPMISCCAPS_CULLCW = $00000020;
{$EXTERNALSYM D3DPMISCCAPS_CULLCW}
D3DPMISCCAPS_CULLCCW = $00000040;
{$EXTERNALSYM D3DPMISCCAPS_CULLCCW}
(* TD3DPrimCaps dwRasterCaps *)
D3DPRASTERCAPS_DITHER = $00000001;
{$EXTERNALSYM D3DPRASTERCAPS_DITHER}
D3DPRASTERCAPS_ROP2 = $00000002;
{$EXTERNALSYM D3DPRASTERCAPS_ROP2}
D3DPRASTERCAPS_XOR = $00000004;
{$EXTERNALSYM D3DPRASTERCAPS_XOR}
D3DPRASTERCAPS_PAT = $00000008;
{$EXTERNALSYM D3DPRASTERCAPS_PAT}
D3DPRASTERCAPS_ZTEST = $00000010;
{$EXTERNALSYM D3DPRASTERCAPS_ZTEST}
D3DPRASTERCAPS_SUBPIXEL = $00000020;
{$EXTERNALSYM D3DPRASTERCAPS_SUBPIXEL}
D3DPRASTERCAPS_SUBPIXELX = $00000040;
{$EXTERNALSYM D3DPRASTERCAPS_SUBPIXELX}
D3DPRASTERCAPS_FOGVERTEX = $00000080;
{$EXTERNALSYM D3DPRASTERCAPS_FOGVERTEX}
D3DPRASTERCAPS_FOGTABLE = $00000100;
{$EXTERNALSYM D3DPRASTERCAPS_FOGTABLE}
D3DPRASTERCAPS_STIPPLE = $00000200;
{$EXTERNALSYM D3DPRASTERCAPS_STIPPLE}
{$IFDEF DIRECT3D_VERSION_5}
D3DPRASTERCAPS_ANTIALIASSORTDEPENDENT = $00000400;
{$EXTERNALSYM D3DPRASTERCAPS_ANTIALIASSORTDEPENDENT}
D3DPRASTERCAPS_ANTIALIASSORTINDEPENDENT = $00000800;
{$EXTERNALSYM D3DPRASTERCAPS_ANTIALIASSORTINDEPENDENT}
D3DPRASTERCAPS_ANTIALIASEDGES = $00001000;
{$EXTERNALSYM D3DPRASTERCAPS_ANTIALIASEDGES}
D3DPRASTERCAPS_MIPMAPLODBIAS = $00002000;
{$EXTERNALSYM D3DPRASTERCAPS_MIPMAPLODBIAS}
D3DPRASTERCAPS_ZBIAS = $00004000;
{$EXTERNALSYM D3DPRASTERCAPS_ZBIAS}
D3DPRASTERCAPS_ZBUFFERLESSHSR = $00008000;
{$EXTERNALSYM D3DPRASTERCAPS_ZBUFFERLESSHSR}
D3DPRASTERCAPS_FOGRANGE = $00010000;
{$EXTERNALSYM D3DPRASTERCAPS_FOGRANGE}
D3DPRASTERCAPS_ANISOTROPY = $00020000;
{$EXTERNALSYM D3DPRASTERCAPS_ANISOTROPY}
{$ENDIF} // DIRECT3D_VERSION_5
{$IFDEF DIRECT3D_VERSION_6}
D3DPRASTERCAPS_WBUFFER = $00040000;
{$EXTERNALSYM D3DPRASTERCAPS_WBUFFER}
D3DPRASTERCAPS_TRANSLUCENTSORTINDEPENDENT = $00080000;
{$EXTERNALSYM D3DPRASTERCAPS_TRANSLUCENTSORTINDEPENDENT}
D3DPRASTERCAPS_WFOG = $00100000;
{$EXTERNALSYM D3DPRASTERCAPS_WFOG}
D3DPRASTERCAPS_ZFOG = $00200000;
{$EXTERNALSYM D3DPRASTERCAPS_ZFOG}
{$ENDIF} // DIRECT3D_VERSION_6
(* TD3DPrimCaps dwZCmpCaps, dwAlphaCmpCaps *)
const
D3DPCMPCAPS_NEVER = $00000001;
{$EXTERNALSYM D3DPCMPCAPS_NEVER}
D3DPCMPCAPS_LESS = $00000002;
{$EXTERNALSYM D3DPCMPCAPS_LESS}
D3DPCMPCAPS_EQUAL = $00000004;
{$EXTERNALSYM D3DPCMPCAPS_EQUAL}
D3DPCMPCAPS_LESSEQUAL = $00000008;
{$EXTERNALSYM D3DPCMPCAPS_LESSEQUAL}
D3DPCMPCAPS_GREATER = $00000010;
{$EXTERNALSYM D3DPCMPCAPS_GREATER}
D3DPCMPCAPS_NOTEQUAL = $00000020;
{$EXTERNALSYM D3DPCMPCAPS_NOTEQUAL}
D3DPCMPCAPS_GREATEREQUAL = $00000040;
{$EXTERNALSYM D3DPCMPCAPS_GREATEREQUAL}
D3DPCMPCAPS_ALWAYS = $00000080;
{$EXTERNALSYM D3DPCMPCAPS_ALWAYS}
(* TD3DPrimCaps dwSourceBlendCaps, dwDestBlendCaps *)
D3DPBLENDCAPS_ZERO = $00000001;
{$EXTERNALSYM D3DPBLENDCAPS_ZERO}
D3DPBLENDCAPS_ONE = $00000002;
{$EXTERNALSYM D3DPBLENDCAPS_ONE}
D3DPBLENDCAPS_SRCCOLOR = $00000004;
{$EXTERNALSYM D3DPBLENDCAPS_SRCCOLOR}
D3DPBLENDCAPS_INVSRCCOLOR = $00000008;
{$EXTERNALSYM D3DPBLENDCAPS_INVSRCCOLOR}
D3DPBLENDCAPS_SRCALPHA = $00000010;
{$EXTERNALSYM D3DPBLENDCAPS_SRCALPHA}
D3DPBLENDCAPS_INVSRCALPHA = $00000020;
{$EXTERNALSYM D3DPBLENDCAPS_INVSRCALPHA}
D3DPBLENDCAPS_DESTALPHA = $00000040;
{$EXTERNALSYM D3DPBLENDCAPS_DESTALPHA}
D3DPBLENDCAPS_INVDESTALPHA = $00000080;
{$EXTERNALSYM D3DPBLENDCAPS_INVDESTALPHA}
D3DPBLENDCAPS_DESTCOLOR = $00000100;
{$EXTERNALSYM D3DPBLENDCAPS_DESTCOLOR}
D3DPBLENDCAPS_INVDESTCOLOR = $00000200;
{$EXTERNALSYM D3DPBLENDCAPS_INVDESTCOLOR}
D3DPBLENDCAPS_SRCALPHASAT = $00000400;
{$EXTERNALSYM D3DPBLENDCAPS_SRCALPHASAT}
D3DPBLENDCAPS_BOTHSRCALPHA = $00000800;
{$EXTERNALSYM D3DPBLENDCAPS_BOTHSRCALPHA}
D3DPBLENDCAPS_BOTHINVSRCALPHA = $00001000;
{$EXTERNALSYM D3DPBLENDCAPS_BOTHINVSRCALPHA}
(* TD3DPrimCaps dwShadeCaps *)
D3DPSHADECAPS_COLORFLATMONO = $00000001;
{$EXTERNALSYM D3DPSHADECAPS_COLORFLATMONO}
D3DPSHADECAPS_COLORFLATRGB = $00000002;
{$EXTERNALSYM D3DPSHADECAPS_COLORFLATRGB}
D3DPSHADECAPS_COLORGOURAUDMONO = $00000004;
{$EXTERNALSYM D3DPSHADECAPS_COLORGOURAUDMONO}
D3DPSHADECAPS_COLORGOURAUDRGB = $00000008;
{$EXTERNALSYM D3DPSHADECAPS_COLORGOURAUDRGB}
D3DPSHADECAPS_COLORPHONGMONO = $00000010;
{$EXTERNALSYM D3DPSHADECAPS_COLORPHONGMONO}
D3DPSHADECAPS_COLORPHONGRGB = $00000020;
{$EXTERNALSYM D3DPSHADECAPS_COLORPHONGRGB}
D3DPSHADECAPS_SPECULARFLATMONO = $00000040;
{$EXTERNALSYM D3DPSHADECAPS_SPECULARFLATMONO}
D3DPSHADECAPS_SPECULARFLATRGB = $00000080;
{$EXTERNALSYM D3DPSHADECAPS_SPECULARFLATRGB}
D3DPSHADECAPS_SPECULARGOURAUDMONO = $00000100;
{$EXTERNALSYM D3DPSHADECAPS_SPECULARGOURAUDMONO}
D3DPSHADECAPS_SPECULARGOURAUDRGB = $00000200;
{$EXTERNALSYM D3DPSHADECAPS_SPECULARGOURAUDRGB}
D3DPSHADECAPS_SPECULARPHONGMONO = $00000400;
{$EXTERNALSYM D3DPSHADECAPS_SPECULARPHONGMONO}
D3DPSHADECAPS_SPECULARPHONGRGB = $00000800;
{$EXTERNALSYM D3DPSHADECAPS_SPECULARPHONGRGB}
D3DPSHADECAPS_ALPHAFLATBLEND = $00001000;
{$EXTERNALSYM D3DPSHADECAPS_ALPHAFLATBLEND}
D3DPSHADECAPS_ALPHAFLATSTIPPLED = $00002000;
{$EXTERNALSYM D3DPSHADECAPS_ALPHAFLATSTIPPLED}
D3DPSHADECAPS_ALPHAGOURAUDBLEND = $00004000;
{$EXTERNALSYM D3DPSHADECAPS_ALPHAGOURAUDBLEND}
D3DPSHADECAPS_ALPHAGOURAUDSTIPPLED = $00008000;
{$EXTERNALSYM D3DPSHADECAPS_ALPHAGOURAUDSTIPPLED}
D3DPSHADECAPS_ALPHAPHONGBLEND = $00010000;
{$EXTERNALSYM D3DPSHADECAPS_ALPHAPHONGBLEND}
D3DPSHADECAPS_ALPHAPHONGSTIPPLED = $00020000;
{$EXTERNALSYM D3DPSHADECAPS_ALPHAPHONGSTIPPLED}
D3DPSHADECAPS_FOGFLAT = $00040000;
{$EXTERNALSYM D3DPSHADECAPS_FOGFLAT}
D3DPSHADECAPS_FOGGOURAUD = $00080000;
{$EXTERNALSYM D3DPSHADECAPS_FOGGOURAUD}
D3DPSHADECAPS_FOGPHONG = $00100000;
{$EXTERNALSYM D3DPSHADECAPS_FOGPHONG}
(* TD3DPrimCaps dwTextureCaps *)
(*
* Perspective-correct texturing is supported
*)
D3DPTEXTURECAPS_PERSPECTIVE = $00000001;
{$EXTERNALSYM D3DPTEXTURECAPS_PERSPECTIVE}
(*
* Power-of-2 texture dimensions are required
*)
D3DPTEXTURECAPS_POW2 = $00000002;
{$EXTERNALSYM D3DPTEXTURECAPS_POW2}
(*
* Alpha in texture pixels is supported
*)
D3DPTEXTURECAPS_ALPHA = $00000004;
{$EXTERNALSYM D3DPTEXTURECAPS_ALPHA}
(*
* Color-keyed textures are supported
*)
D3DPTEXTURECAPS_TRANSPARENCY = $00000008;
{$EXTERNALSYM D3DPTEXTURECAPS_TRANSPARENCY}
(*
* obsolete, see D3DPTADDRESSCAPS_BORDER
*)
D3DPTEXTURECAPS_BORDER = $00000010;
{$EXTERNALSYM D3DPTEXTURECAPS_BORDER}
(*
* Only square textures are supported
*)
D3DPTEXTURECAPS_SQUAREONLY = $00000020;
{$EXTERNALSYM D3DPTEXTURECAPS_SQUAREONLY}
{$IFDEF DIRECT3D_VERSION_6}
(*
* Texture indices are not scaled by the texture size prior
* to interpolation.
*)
D3DPTEXTURECAPS_TEXREPEATNOTSCALEDBYSIZE = $00000040;
{$EXTERNALSYM D3DPTEXTURECAPS_TEXREPEATNOTSCALEDBYSIZE}
(*
* Device can draw alpha from texture palettes
*)
D3DPTEXTURECAPS_ALPHAPALETTE = $00000080;
{$EXTERNALSYM D3DPTEXTURECAPS_ALPHAPALETTE}
(*
* Device can use non-POW2 textures if:
* 1) D3DTEXTURE_ADDRESS is set to CLAMP for this texture's stage
* 2) D3DRS_WRAP(N) is zero for this texture's coordinates
* 3) mip mapping is not enabled (use magnification filter only)
*)
D3DPTEXTURECAPS_NONPOW2CONDITIONAL = $00000100;
{$EXTERNALSYM D3DPTEXTURECAPS_NONPOW2CONDITIONAL}
{$ENDIF} // DIRECT3D_VERSION_6
{$IFDEF DIRECT3D_VERSION_7}
// 0x00000200L unused
(*
* Device can divide transformed texture coordinates by the
* COUNTth texture coordinate (can do D3DTTFF_PROJECTED)
*)
D3DPTEXTURECAPS_PROJECTED = $00000400;
{$EXTERNALSYM D3DPTEXTURECAPS_PROJECTED}
(*
* Device can do cubemap textures
*)
D3DPTEXTURECAPS_CUBEMAP = $00000800;
{$EXTERNALSYM D3DPTEXTURECAPS_CUBEMAP}
D3DPTEXTURECAPS_COLORKEYBLEND = $00001000;
{$EXTERNALSYM D3DPTEXTURECAPS_COLORKEYBLEND}
{$ENDIF} // DIRECT3D_VERSION_7
(* TD3DPrimCaps dwTextureFilterCaps *)
D3DPTFILTERCAPS_NEAREST = $00000001;
{$EXTERNALSYM D3DPTFILTERCAPS_NEAREST}
D3DPTFILTERCAPS_LINEAR = $00000002;
{$EXTERNALSYM D3DPTFILTERCAPS_LINEAR}
D3DPTFILTERCAPS_MIPNEAREST = $00000004;
{$EXTERNALSYM D3DPTFILTERCAPS_MIPNEAREST}
D3DPTFILTERCAPS_MIPLINEAR = $00000008;
{$EXTERNALSYM D3DPTFILTERCAPS_MIPLINEAR}
D3DPTFILTERCAPS_LINEARMIPNEAREST = $00000010;
{$EXTERNALSYM D3DPTFILTERCAPS_LINEARMIPNEAREST}
D3DPTFILTERCAPS_LINEARMIPLINEAR = $00000020;
{$EXTERNALSYM D3DPTFILTERCAPS_LINEARMIPLINEAR}
{$IFDEF DIRECT3D_VERSION_6}
(* Device3 Min Filter *)
D3DPTFILTERCAPS_MINFPOINT = $00000100;
{$EXTERNALSYM D3DPTFILTERCAPS_MINFPOINT}
D3DPTFILTERCAPS_MINFLINEAR = $00000200;
{$EXTERNALSYM D3DPTFILTERCAPS_MINFLINEAR}
D3DPTFILTERCAPS_MINFANISOTROPIC = $00000400;
{$EXTERNALSYM D3DPTFILTERCAPS_MINFANISOTROPIC}
(* Device3 Mip Filter *)
D3DPTFILTERCAPS_MIPFPOINT = $00010000;
{$EXTERNALSYM D3DPTFILTERCAPS_MIPFPOINT}
D3DPTFILTERCAPS_MIPFLINEAR = $00020000;
{$EXTERNALSYM D3DPTFILTERCAPS_MIPFLINEAR}
(* Device3 Mag Filter *)
D3DPTFILTERCAPS_MAGFPOINT = $01000000;
{$EXTERNALSYM D3DPTFILTERCAPS_MAGFPOINT}
D3DPTFILTERCAPS_MAGFLINEAR = $02000000;
{$EXTERNALSYM D3DPTFILTERCAPS_MAGFLINEAR}
D3DPTFILTERCAPS_MAGFANISOTROPIC = $04000000;
{$EXTERNALSYM D3DPTFILTERCAPS_MAGFANISOTROPIC}
D3DPTFILTERCAPS_MAGFAFLATCUBIC = $08000000;
{$EXTERNALSYM D3DPTFILTERCAPS_MAGFAFLATCUBIC}
D3DPTFILTERCAPS_MAGFGAUSSIANCUBIC = $10000000;
{$EXTERNALSYM D3DPTFILTERCAPS_MAGFGAUSSIANCUBIC}
{$ENDIF} // DIRECT3D_VERSION_6
(* TD3DPrimCaps dwTextureBlendCaps *)
D3DPTBLENDCAPS_DECAL = $00000001;
{$EXTERNALSYM D3DPTBLENDCAPS_DECAL}
D3DPTBLENDCAPS_MODULATE = $00000002;
{$EXTERNALSYM D3DPTBLENDCAPS_MODULATE}
D3DPTBLENDCAPS_DECALALPHA = $00000004;
{$EXTERNALSYM D3DPTBLENDCAPS_DECALALPHA}
D3DPTBLENDCAPS_MODULATEALPHA = $00000008;
{$EXTERNALSYM D3DPTBLENDCAPS_MODULATEALPHA}
D3DPTBLENDCAPS_DECALMASK = $00000010;
{$EXTERNALSYM D3DPTBLENDCAPS_DECALMASK}
D3DPTBLENDCAPS_MODULATEMASK = $00000020;
{$EXTERNALSYM D3DPTBLENDCAPS_MODULATEMASK}
D3DPTBLENDCAPS_COPY = $00000040;
{$EXTERNALSYM D3DPTBLENDCAPS_COPY}
{$IFDEF DIRECT3D_VERSION_5}
D3DPTBLENDCAPS_ADD = $00000080;
{$EXTERNALSYM D3DPTBLENDCAPS_ADD}
{$ENDIF} // DIRECT3D_VERSION_5
(* TD3DPrimCaps dwTextureAddressCaps *)
D3DPTADDRESSCAPS_WRAP = $00000001;
{$EXTERNALSYM D3DPTADDRESSCAPS_WRAP}
D3DPTADDRESSCAPS_MIRROR = $00000002;
{$EXTERNALSYM D3DPTADDRESSCAPS_MIRROR}
D3DPTADDRESSCAPS_CLAMP = $00000004;
{$EXTERNALSYM D3DPTADDRESSCAPS_CLAMP}
{$IFDEF DIRECT3D_VERSION_5}
D3DPTADDRESSCAPS_BORDER = $00000008;
{$EXTERNALSYM D3DPTADDRESSCAPS_BORDER}
D3DPTADDRESSCAPS_INDEPENDENTUV = $00000010;
{$EXTERNALSYM D3DPTADDRESSCAPS_INDEPENDENTUV}
{$ENDIF} // DIRECT3D_VERSION_5
{$IFDEF DIRECT3D_VERSION_6}
(* D3DDEVICEDESC dwStencilCaps *)
D3DSTENCILCAPS_KEEP = $00000001;
{$EXTERNALSYM D3DSTENCILCAPS_KEEP}
D3DSTENCILCAPS_ZERO = $00000002;
{$EXTERNALSYM D3DSTENCILCAPS_ZERO}
D3DSTENCILCAPS_REPLACE = $00000004;
{$EXTERNALSYM D3DSTENCILCAPS_REPLACE}
D3DSTENCILCAPS_INCRSAT = $00000008;
{$EXTERNALSYM D3DSTENCILCAPS_INCRSAT}
D3DSTENCILCAPS_DECRSAT = $00000010;
{$EXTERNALSYM D3DSTENCILCAPS_DECRSAT}
D3DSTENCILCAPS_INVERT = $00000020;
{$EXTERNALSYM D3DSTENCILCAPS_INVERT}
D3DSTENCILCAPS_INCR = $00000040;
{$EXTERNALSYM D3DSTENCILCAPS_INCR}
D3DSTENCILCAPS_DECR = $00000080;
{$EXTERNALSYM D3DSTENCILCAPS_DECR}
(* D3DDEVICEDESC dwTextureOpCaps *)
D3DTEXOPCAPS_DISABLE = $00000001;
{$EXTERNALSYM D3DTEXOPCAPS_DISABLE}
D3DTEXOPCAPS_SELECTARG1 = $00000002;
{$EXTERNALSYM D3DTEXOPCAPS_SELECTARG1}
D3DTEXOPCAPS_SELECTARG2 = $00000004;
{$EXTERNALSYM D3DTEXOPCAPS_SELECTARG2}
D3DTEXOPCAPS_MODULATE = $00000008;
{$EXTERNALSYM D3DTEXOPCAPS_MODULATE}
D3DTEXOPCAPS_MODULATE2X = $00000010;
{$EXTERNALSYM D3DTEXOPCAPS_MODULATE2X}
D3DTEXOPCAPS_MODULATE4X = $00000020;
{$EXTERNALSYM D3DTEXOPCAPS_MODULATE4X}
D3DTEXOPCAPS_ADD = $00000040;
{$EXTERNALSYM D3DTEXOPCAPS_ADD}
D3DTEXOPCAPS_ADDSIGNED = $00000080;
{$EXTERNALSYM D3DTEXOPCAPS_ADDSIGNED}
D3DTEXOPCAPS_ADDSIGNED2X = $00000100;
{$EXTERNALSYM D3DTEXOPCAPS_ADDSIGNED2X}
D3DTEXOPCAPS_SUBTRACT = $00000200;
{$EXTERNALSYM D3DTEXOPCAPS_SUBTRACT}
D3DTEXOPCAPS_ADDSMOOTH = $00000400;
{$EXTERNALSYM D3DTEXOPCAPS_ADDSMOOTH}
D3DTEXOPCAPS_BLENDDIFFUSEALPHA = $00000800;
{$EXTERNALSYM D3DTEXOPCAPS_BLENDDIFFUSEALPHA}
D3DTEXOPCAPS_BLENDTEXTUREALPHA = $00001000;
{$EXTERNALSYM D3DTEXOPCAPS_BLENDTEXTUREALPHA}
D3DTEXOPCAPS_BLENDFACTORALPHA = $00002000;
{$EXTERNALSYM D3DTEXOPCAPS_BLENDFACTORALPHA}
D3DTEXOPCAPS_BLENDTEXTUREALPHAPM = $00004000;
{$EXTERNALSYM D3DTEXOPCAPS_BLENDTEXTUREALPHAPM}
D3DTEXOPCAPS_BLENDCURRENTALPHA = $00008000;
{$EXTERNALSYM D3DTEXOPCAPS_BLENDCURRENTALPHA}
D3DTEXOPCAPS_PREMODULATE = $00010000;
{$EXTERNALSYM D3DTEXOPCAPS_PREMODULATE}
D3DTEXOPCAPS_MODULATEALPHA_ADDCOLOR = $00020000;
{$EXTERNALSYM D3DTEXOPCAPS_MODULATEALPHA_ADDCOLOR}
D3DTEXOPCAPS_MODULATECOLOR_ADDALPHA = $00040000;
{$EXTERNALSYM D3DTEXOPCAPS_MODULATECOLOR_ADDALPHA}
D3DTEXOPCAPS_MODULATEINVALPHA_ADDCOLOR = $00080000;
{$EXTERNALSYM D3DTEXOPCAPS_MODULATEINVALPHA_ADDCOLOR}
D3DTEXOPCAPS_MODULATEINVCOLOR_ADDALPHA = $00100000;
{$EXTERNALSYM D3DTEXOPCAPS_MODULATEINVCOLOR_ADDALPHA}
D3DTEXOPCAPS_BUMPENVMAP = $00200000;
{$EXTERNALSYM D3DTEXOPCAPS_BUMPENVMAP}
D3DTEXOPCAPS_BUMPENVMAPLUMINANCE = $00400000;
{$EXTERNALSYM D3DTEXOPCAPS_BUMPENVMAPLUMINANCE}
D3DTEXOPCAPS_DOTPRODUCT3 = $00800000;
{$EXTERNALSYM D3DTEXOPCAPS_DOTPRODUCT3}
(* D3DDEVICEDESC dwFVFCaps flags *)
D3DFVFCAPS_TEXCOORDCOUNTMASK = $0000ffff; (* mask for texture coordinate count field *)
{$EXTERNALSYM D3DFVFCAPS_TEXCOORDCOUNTMASK}
D3DFVFCAPS_DONOTSTRIPELEMENTS = $00080000; (* Device prefers that vertex elements not be stripped *)
{$EXTERNALSYM D3DFVFCAPS_DONOTSTRIPELEMENTS}
{$ENDIF} // DIRECT3D_VERSION_6
(*
* Description for a device.
* This is used to describe a device that is to be created or to query
* the current device.
*)
type
PD3DDeviceDesc = ^TD3DDeviceDesc;
_D3DDeviceDesc = packed record
dwSize: DWORD; (* Size of TD3DDeviceDesc structure *)
dwFlags: DWORD; (* Indicates which fields have valid data *)
dcmColorModel: TD3DColorModel; (* Color model of device *)
dwDevCaps: DWORD; (* Capabilities of device *)
dtcTransformCaps: TD3DTransformCaps; (* Capabilities of transform *)
bClipping: BOOL; (* Device can do 3D clipping *)
dlcLightingCaps: TD3DLightingCaps; (* Capabilities of lighting *)
dpcLineCaps: TD3DPrimCaps;
dpcTriCaps: TD3DPrimCaps;
dwDeviceRenderBitDepth: DWORD; (* One of DDBB_8, 16, etc.. *)
dwDeviceZBufferBitDepth: DWORD; (* One of DDBD_16, 32, etc.. *)
dwMaxBufferSize: DWORD; (* Maximum execute buffer size *)
dwMaxVertexCount: DWORD; (* Maximum vertex count *)
{$IFDEF DIRECT3D_VERSION_5}
// *** New fields for DX5 *** //
// Width and height caps are 0 for legacy HALs.
dwMinTextureWidth, dwMinTextureHeight : DWORD;
dwMaxTextureWidth, dwMaxTextureHeight : DWORD;
dwMinStippleWidth, dwMaxStippleWidth : DWORD;
dwMinStippleHeight, dwMaxStippleHeight : DWORD;
{$ENDIF} // DIRECT3D_VERSION_5
{$IFDEF DIRECT3D_VERSION_6}
// New fields for DX6
dwMaxTextureRepeat : DWORD;
dwMaxTextureAspectRatio : DWORD;
dwMaxAnisotropy : DWORD;
// Guard band that the rasterizer can accommodate
// Screen-space vertices inside this space but outside the viewport
// will get clipped properly.
dvGuardBandLeft : TD3DValue;
dvGuardBandTop : TD3DValue;
dvGuardBandRight : TD3DValue;
dvGuardBandBottom : TD3DValue;
dvExtentsAdjust : TD3DValue;
dwStencilCaps : DWORD;
dwFVFCaps : DWORD; (* low 4 bits: 0 implies TLVERTEX only, 1..8 imply FVF aware *)
dwTextureOpCaps : DWORD;
wMaxTextureBlendStages : WORD;
wMaxSimultaneousTextures : WORD;
{$ENDIF} // DIRECT3D_VERSION_6
end;
{$EXTERNALSYM _D3DDeviceDesc}
D3DDeviceDesc = _D3DDeviceDesc;
{$EXTERNALSYM D3DDeviceDesc}
TD3DDeviceDesc = _D3DDeviceDesc;
{$IFDEF DIRECT3D_VERSION_7}
PD3DDeviceDesc7 = ^TD3DDeviceDesc7;
_D3DDeviceDesc7 = packed record
dwDevCaps: DWORD; (* Capabilities of device *)
dpcLineCaps: TD3DPrimCaps;
dpcTriCaps: TD3DPrimCaps;
dwDeviceRenderBitDepth: DWORD; (* One of DDBB_8, 16, etc.. *)
dwDeviceZBufferBitDepth: DWORD; (* One of DDBD_16, 32, etc.. *)
dwMinTextureWidth, dwMinTextureHeight: DWORD;
dwMaxTextureWidth, dwMaxTextureHeight: DWORD;
dwMaxTextureRepeat: DWORD;
dwMaxTextureAspectRatio: DWORD;
dwMaxAnisotropy: DWORD;
dvGuardBandLeft: TD3DValue;
dvGuardBandTop: TD3DValue;
dvGuardBandRight: TD3DValue;
dvGuardBandBottom: TD3DValue;
dvExtentsAdjust: TD3DValue;
dwStencilCaps: DWORD;
dwFVFCaps: DWORD;
dwTextureOpCaps: DWORD;
wMaxTextureBlendStages: WORD;
wMaxSimultaneousTextures: WORD;
dwMaxActiveLights: DWORD;
dvMaxVertexW: TD3DValue;
deviceGUID: TGUID;
wMaxUserClipPlanes: WORD;
wMaxVertexBlendMatrices: WORD;
dwVertexProcessingCaps: DWORD;
dwReserved1: DWORD;
dwReserved2: DWORD;
dwReserved3: DWORD;
dwReserved4: DWORD;
end;
{$EXTERNALSYM _D3DDeviceDesc7}
D3DDeviceDesc7 = _D3DDeviceDesc7;
{$EXTERNALSYM D3DDeviceDesc7}
TD3DDeviceDesc7 = _D3DDeviceDesc7;
{$ENDIF} // DIRECT3D_VERSION_7
const
D3DDEVICEDESCSIZE = SizeOf(TD3DDeviceDesc);
{$EXTERNALSYM D3DDEVICEDESCSIZE}
{$IFDEF DIRECT3D_VERSION_7} // There is the BUG in C++Headers
D3DDEVICEDESC7SIZE = SizeOf(TD3DDeviceDesc7);
{$EXTERNALSYM D3DDEVICEDESC7SIZE}
{$ENDIF} // DIRECT3D_VERSION_7
type
TD3DEnumDevicesCallbackA = function (lpGuid: PGUID; // nil for the default device
lpDeviceDescription: PAnsiChar; lpDeviceName: PAnsiChar;
var lpD3DHWDeviceDesc: TD3DDeviceDesc;
var lpD3DHELDeviceDesc: TD3DDeviceDesc;
lpContext: Pointer): HResult; stdcall;
TD3DEnumDevicesCallback = TD3DEnumDevicesCallbackA;
{$NODEFINE TD3DEnumDevicesCallbackA}
{$NODEFINE TD3DEnumDevicesCallback}
{$IFDEF DIRECT3D_VERSION_7}
TD3DEnumDevicesCallback7A = function (
lpDeviceDescription: PAnsiChar; lpDeviceName: PAnsiChar;
const lpD3DDeviceDesc: TD3DDeviceDesc7; lpContext: Pointer): HResult; stdcall;
TD3DEnumDevicesCallback7 = TD3DEnumDevicesCallback7A;
{$NODEFINE TD3DEnumDevicesCallback7A}
{$NODEFINE TD3DEnumDevicesCallback7}
{$ENDIF} // DIRECT3D_VERSION_7
(* TD3DDeviceDesc dwFlags indicating valid fields *)
const
D3DDD_COLORMODEL = $00000001; (* dcmColorModel is valid *)
{$EXTERNALSYM D3DDD_COLORMODEL}
D3DDD_DEVCAPS = $00000002; (* dwDevCaps is valid *)
{$EXTERNALSYM D3DDD_DEVCAPS}
D3DDD_TRANSFORMCAPS = $00000004; (* dtcTransformCaps is valid *)
{$EXTERNALSYM D3DDD_TRANSFORMCAPS}
D3DDD_LIGHTINGCAPS = $00000008; (* dlcLightingCaps is valid *)
{$EXTERNALSYM D3DDD_LIGHTINGCAPS}
D3DDD_BCLIPPING = $00000010; (* bClipping is valid *)
{$EXTERNALSYM D3DDD_BCLIPPING}
D3DDD_LINECAPS = $00000020; (* dpcLineCaps is valid *)
{$EXTERNALSYM D3DDD_LINECAPS}
D3DDD_TRICAPS = $00000040; (* dpcTriCaps is valid *)
{$EXTERNALSYM D3DDD_TRICAPS}
D3DDD_DEVICERENDERBITDEPTH = $00000080; (* dwDeviceRenderBitDepth is valid *)
{$EXTERNALSYM D3DDD_DEVICERENDERBITDEPTH}
D3DDD_DEVICEZBUFFERBITDEPTH = $00000100; (* dwDeviceZBufferBitDepth is valid *)
{$EXTERNALSYM D3DDD_DEVICEZBUFFERBITDEPTH}
D3DDD_MAXBUFFERSIZE = $00000200; (* dwMaxBufferSize is valid *)
{$EXTERNALSYM D3DDD_MAXBUFFERSIZE}
D3DDD_MAXVERTEXCOUNT = $00000400; (* dwMaxVertexCount is valid *)
{$EXTERNALSYM D3DDD_MAXVERTEXCOUNT}
(* TD3DDeviceDesc dwDevCaps flags *)
D3DDEVCAPS_FLOATTLVERTEX = $00000001; (* Device accepts floating point *)
(* for post-transform vertex data *)
{$EXTERNALSYM D3DDEVCAPS_FLOATTLVERTEX}
D3DDEVCAPS_SORTINCREASINGZ = $00000002; (* Device needs data sorted for increasing Z*)
{$EXTERNALSYM D3DDEVCAPS_SORTINCREASINGZ}
D3DDEVCAPS_SORTDECREASINGZ = $00000004; (* Device needs data sorted for decreasing Z*)
{$EXTERNALSYM D3DDEVCAPS_SORTDECREASINGZ}
D3DDEVCAPS_SORTEXACT = $00000008; (* Device needs data sorted exactly *)
{$EXTERNALSYM D3DDEVCAPS_SORTEXACT}
D3DDEVCAPS_EXECUTESYSTEMMEMORY = $00000010; (* Device can use execute buffers from system memory *)
{$EXTERNALSYM D3DDEVCAPS_EXECUTESYSTEMMEMORY}
D3DDEVCAPS_EXECUTEVIDEOMEMORY = $00000020; (* Device can use execute buffers from video memory *)
{$EXTERNALSYM D3DDEVCAPS_EXECUTEVIDEOMEMORY}
D3DDEVCAPS_TLVERTEXSYSTEMMEMORY = $00000040; (* Device can use TL buffers from system memory *)
{$EXTERNALSYM D3DDEVCAPS_TLVERTEXSYSTEMMEMORY}
D3DDEVCAPS_TLVERTEXVIDEOMEMORY = $00000080; (* Device can use TL buffers from video memory *)
{$EXTERNALSYM D3DDEVCAPS_TLVERTEXVIDEOMEMORY}
D3DDEVCAPS_TEXTURESYSTEMMEMORY = $00000100; (* Device can texture from system memory *)
{$EXTERNALSYM D3DDEVCAPS_TEXTURESYSTEMMEMORY}
D3DDEVCAPS_TEXTUREVIDEOMEMORY = $00000200; (* Device can texture from device memory *)
{$EXTERNALSYM D3DDEVCAPS_TEXTUREVIDEOMEMORY}
{$IFDEF DIRECT3D_VERSION_5}
D3DDEVCAPS_DRAWPRIMTLVERTEX = $00000400; (* Device can draw TLVERTEX primitives *)
{$EXTERNALSYM D3DDEVCAPS_DRAWPRIMTLVERTEX}
D3DDEVCAPS_CANRENDERAFTERFLIP = $00000800; (* Device can render without waiting for flip to complete *)
{$EXTERNALSYM D3DDEVCAPS_CANRENDERAFTERFLIP}
D3DDEVCAPS_TEXTURENONLOCALVIDMEM = $00001000; (* Device can texture from nonlocal video memory *)
{$EXTERNALSYM D3DDEVCAPS_TEXTURENONLOCALVIDMEM}
{$ENDIF} // DIRECT3D_VERSION_5
{$IFDEF DIRECT3D_VERSION_6}
D3DDEVCAPS_DRAWPRIMITIVES2 = $00002000; (* Device can support DrawPrimitives2 *)
{$EXTERNALSYM D3DDEVCAPS_DRAWPRIMITIVES2}
D3DDEVCAPS_SEPARATETEXTUREMEMORIES = $00004000; (* Device is texturing from separate memory pools *)
{$EXTERNALSYM D3DDEVCAPS_SEPARATETEXTUREMEMORIES}
D3DDEVCAPS_DRAWPRIMITIVES2EX = $00008000; (* Device can support Extended DrawPrimitives2 i.e. DX7 compliant driver*)
{$EXTERNALSYM D3DDEVCAPS_DRAWPRIMITIVES2EX}
{$ENDIF} // DIRECT3D_VERSION_6
{$IFDEF DIRECT3D_VERSION_7}
D3DDEVCAPS_HWTRANSFORMANDLIGHT = $00010000; (* Device can support transformation and lighting in hardware and DRAWPRIMITIVES2EX must be also *)
{$EXTERNALSYM D3DDEVCAPS_HWTRANSFORMANDLIGHT}
D3DDEVCAPS_CANBLTSYSTONONLOCAL = $00020000; (* Device supports a Tex Blt from system memory to non-local vidmem *)
{$EXTERNALSYM D3DDEVCAPS_CANBLTSYSTONONLOCAL}
D3DDEVCAPS_HWRASTERIZATION = $00080000; (* Device has HW acceleration for rasterization *)
{$EXTERNALSYM D3DDEVCAPS_HWRASTERIZATION}
(*
* These are the flags in the D3DDEVICEDESC7.dwVertexProcessingCaps field
*)
(* device can do texgen *)
D3DVTXPCAPS_TEXGEN = $00000001;
{$EXTERNALSYM D3DVTXPCAPS_TEXGEN}
(* device can do IDirect3DDevice7 colormaterialsource ops *)
D3DVTXPCAPS_MATERIALSOURCE7 = $00000002;
{$EXTERNALSYM D3DVTXPCAPS_MATERIALSOURCE7}
(* device can do vertex fog *)
D3DVTXPCAPS_VERTEXFOG = $00000004;
{$EXTERNALSYM D3DVTXPCAPS_VERTEXFOG}
(* device can do directional lights *)
D3DVTXPCAPS_DIRECTIONALLIGHTS = $00000008;
{$EXTERNALSYM D3DVTXPCAPS_DIRECTIONALLIGHTS}
(* device can do positional lights (includes point and spot) *)
D3DVTXPCAPS_POSITIONALLIGHTS = $00000010;
{$EXTERNALSYM D3DVTXPCAPS_POSITIONALLIGHTS}
(* device can do local viewer *)
D3DVTXPCAPS_LOCALVIEWER = $00000020;
{$EXTERNALSYM D3DVTXPCAPS_LOCALVIEWER}
{$ENDIF} // DIRECT3D_VERSION_7
D3DFDS_COLORMODEL = $00000001; (* Match color model *)
{$EXTERNALSYM D3DFDS_COLORMODEL}
D3DFDS_GUID = $00000002; (* Match guid *)
{$EXTERNALSYM D3DFDS_GUID}
D3DFDS_HARDWARE = $00000004; (* Match hardware/software *)
{$EXTERNALSYM D3DFDS_HARDWARE}
D3DFDS_TRIANGLES = $00000008; (* Match in triCaps *)
{$EXTERNALSYM D3DFDS_TRIANGLES}
D3DFDS_LINES = $00000010; (* Match in lineCaps *)
{$EXTERNALSYM D3DFDS_LINES}
D3DFDS_MISCCAPS = $00000020; (* Match primCaps.dwMiscCaps *)
{$EXTERNALSYM D3DFDS_MISCCAPS}
D3DFDS_RASTERCAPS = $00000040; (* Match primCaps.dwRasterCaps *)
{$EXTERNALSYM D3DFDS_RASTERCAPS}
D3DFDS_ZCMPCAPS = $00000080; (* Match primCaps.dwZCmpCaps *)
{$EXTERNALSYM D3DFDS_ZCMPCAPS}
D3DFDS_ALPHACMPCAPS = $00000100; (* Match primCaps.dwAlphaCmpCaps *)
{$EXTERNALSYM D3DFDS_ALPHACMPCAPS}
D3DFDS_SRCBLENDCAPS = $00000200; (* Match primCaps.dwSourceBlendCaps *)
{$EXTERNALSYM D3DFDS_SRCBLENDCAPS}
D3DFDS_DSTBLENDCAPS = $00000400; (* Match primCaps.dwDestBlendCaps *)
{$EXTERNALSYM D3DFDS_DSTBLENDCAPS}
D3DFDS_SHADECAPS = $00000800; (* Match primCaps.dwShadeCaps *)
{$EXTERNALSYM D3DFDS_SHADECAPS}
D3DFDS_TEXTURECAPS = $00001000; (* Match primCaps.dwTextureCaps *)
{$EXTERNALSYM D3DFDS_TEXTURECAPS}
D3DFDS_TEXTUREFILTERCAPS = $00002000; (* Match primCaps.dwTextureFilterCaps *)
{$EXTERNALSYM D3DFDS_TEXTUREFILTERCAPS}
D3DFDS_TEXTUREBLENDCAPS = $00004000; (* Match primCaps.dwTextureBlendCaps *)
{$EXTERNALSYM D3DFDS_TEXTUREBLENDCAPS}
D3DFDS_TEXTUREADDRESSCAPS = $00008000; (* Match primCaps.dwTextureBlendCaps *)
{$EXTERNALSYM D3DFDS_TEXTUREADDRESSCAPS}
(*
* FindDevice arguments
*)
type
PD3DFindDeviceSearch = ^TD3DFindDeviceSearch;
_D3DFINDDEVICESEARCH = packed record
dwSize: DWORD;
dwFlags: DWORD;
bHardware: BOOL;
dcmColorModel: TD3DColorModel;
guid: TGUID;
dwCaps: DWORD;
dpcPrimCaps: TD3DPrimCaps;
end;
{$EXTERNALSYM _D3DFINDDEVICESEARCH}
D3DFINDDEVICESEARCH = _D3DFINDDEVICESEARCH;
{$EXTERNALSYM D3DFINDDEVICESEARCH}
TD3DFindDeviceSearch = _D3DFINDDEVICESEARCH;
PD3DFindDeviceResult = ^TD3DFindDeviceResult;
_D3DFINDDEVICERESULT = packed record
dwSize: DWORD;
guid: TGUID; (* guid which matched *)
ddHwDesc: TD3DDeviceDesc; (* hardware TD3DDeviceDesc *)
ddSwDesc: TD3DDeviceDesc; (* software TD3DDeviceDesc *)
end;
{$EXTERNALSYM _D3DFINDDEVICERESULT}
D3DFINDDEVICERESULT = _D3DFINDDEVICERESULT;
{$EXTERNALSYM D3DFINDDEVICERESULT}
TD3DFindDeviceResult = _D3DFINDDEVICERESULT;
(*
* Description of execute buffer.
*)
PD3DExecuteBufferDesc = ^TD3DExecuteBufferDesc;
_D3DExecuteBufferDesc = packed record
dwSize: DWORD; (* size of this structure *)
dwFlags: DWORD; (* flags indicating which fields are valid *)
dwCaps: DWORD; (* capabilities of execute buffer *)
dwBufferSize: DWORD; (* size of execute buffer data *)
lpData: Pointer; (* pointer to actual data *)
end;
{$EXTERNALSYM _D3DExecuteBufferDesc}
D3DExecuteBufferDesc = _D3DExecuteBufferDesc;
{$EXTERNALSYM D3DExecuteBufferDesc}
TD3DExecuteBufferDesc = _D3DExecuteBufferDesc;
(* D3DEXECUTEBUFFER dwFlags indicating valid fields *)
const
D3DDEB_BUFSIZE = $00000001; (* buffer size valid *)
{$EXTERNALSYM D3DDEB_BUFSIZE}
D3DDEB_CAPS = $00000002; (* caps valid *)
{$EXTERNALSYM D3DDEB_CAPS}
D3DDEB_LPDATA = $00000004; (* lpData valid *)
{$EXTERNALSYM D3DDEB_LPDATA}
(* D3DEXECUTEBUFFER dwCaps *)
D3DDEBCAPS_SYSTEMMEMORY = $00000001; (* buffer in system memory *)
{$EXTERNALSYM D3DDEBCAPS_SYSTEMMEMORY}
D3DDEBCAPS_VIDEOMEMORY = $00000002; (* buffer in device memory *)
{$EXTERNALSYM D3DDEBCAPS_VIDEOMEMORY}
D3DDEBCAPS_MEM = (D3DDEBCAPS_SYSTEMMEMORY or D3DDEBCAPS_VIDEOMEMORY);
{$EXTERNALSYM D3DDEBCAPS_MEM}
{$IFDEF DIRECT3D_VERSION_LESS_8}
{$IFDEF DIRECT3D_VERSION_7}
type
PD3DDevInfo_TextureManager = ^TD3DDevInfo_TextureManager;
_D3DDEVINFO_TEXTUREMANAGER = packed record
bThrashing: BOOL; (* indicates if thrashing *)
dwApproxBytesDownloaded: DWORD; (* Approximate number of bytes downloaded by texture manager *)
dwNumEvicts: DWORD; (* number of textures evicted *)
dwNumVidCreates: DWORD; (* number of textures created in video memory *)
dwNumTexturesUsed: DWORD; (* number of textures used *)
dwNumUsedTexInVid: DWORD; (* number of used textures present in video memory *)
dwWorkingSet: DWORD; (* number of textures in video memory *)
dwWorkingSetBytes: DWORD; (* number of bytes in video memory *)
dwTotalManaged: DWORD; (* total number of managed textures *)
dwTotalBytes: DWORD; (* total number of bytes of managed textures *)
dwLastPri: DWORD; (* priority of last texture evicted *)
end;
{$EXTERNALSYM _D3DDEVINFO_TEXTUREMANAGER}
D3DDEVINFO_TEXTUREMANAGER = _D3DDEVINFO_TEXTUREMANAGER;
{$EXTERNALSYM D3DDEVINFO_TEXTUREMANAGER}
TD3DDevInfo_TextureManager = _D3DDEVINFO_TEXTUREMANAGER;
PD3DDevInfoTextureManager = PD3DDevInfo_TextureManager;
TD3DDevInfoTextureManager = _D3DDEVINFO_TEXTUREMANAGER;
PD3DDevInfo_Texturing = ^TD3DDevInfo_Texturing;
_D3DDEVINFO_TEXTURING = packed record
dwNumLoads: DWORD; (* counts Load() API calls *)
dwApproxBytesLoaded: DWORD; (* Approximate number bytes loaded via Load() *)
dwNumPreLoads: DWORD; (* counts PreLoad() API calls *)
dwNumSet: DWORD; (* counts SetTexture() API calls *)
dwNumCreates: DWORD; (* counts texture creates *)
dwNumDestroys: DWORD; (* counts texture destroys *)
dwNumSetPriorities: DWORD; (* counts SetPriority() API calls *)
dwNumSetLODs: DWORD; (* counts SetLOD() API calls *)
dwNumLocks: DWORD; (* counts number of texture locks *)
dwNumGetDCs: DWORD; (* counts number of GetDCs to textures *)
end;
{$EXTERNALSYM _D3DDEVINFO_TEXTURING}
D3DDEVINFO_TEXTURING = _D3DDEVINFO_TEXTURING;
{$EXTERNALSYM D3DDEVINFO_TEXTURING}
TD3DDevInfo_Texturing = _D3DDEVINFO_TEXTURING;
PD3DDevInfoTexturing = PD3DDevInfo_Texturing;
TD3DDevInfoTexturing = TD3DDevInfo_Texturing;
{$ENDIF} // DIRECT3D_VERSION_7
{$ENDIF} // DIRECT3D_VERSION_LESS_8
(*==========================================================================;
*
*
* File: d3d.h
* Content: Direct3D include file
*
****************************************************************************)
// include this file content only if compiling for <=DX7 interfaces
{$IFDEF DIRECT3D_VERSION_LESS_8}
function D3DErrorString(Value: HResult): String;
{$IFDEF DIRECT3D_VERSION_5}
const
IID_IDirect3DRampDevice: TGUID =
(D1:$F2086B20;D2:$259F;D3:$11CF;D4:($A3,$1A,$00,$AA,$00,$B9,$33,$56));
{$EXTERNALSYM IID_IDirect3DRampDevice}
IID_IDirect3DRGBDevice: TGUID =
(D1:$A4665C60;D2:$2673;D3:$11CF;D4:($A3,$1A,$00,$AA,$00,$B9,$33,$56));
{$EXTERNALSYM IID_IDirect3DRGBDevice}
IID_IDirect3DHALDevice: TGUID =
(D1:$84E63dE0;D2:$46AA;D3:$11CF;D4:($81,$6F,$00,$00,$C0,$20,$15,$6E));
{$EXTERNALSYM IID_IDirect3DHALDevice}
IID_IDirect3DMMXDevice: TGUID =
(D1:$881949a1;D2:$d6f3;D3:$11d0;D4:($89,$ab,$00,$a0,$c9,$05,$41,$29));
{$EXTERNALSYM IID_IDirect3DMMXDevice}
{$ENDIF} // DIRECT3D_VERSION_5
{$IFDEF DIRECT3D_VERSION_6}
IID_IDirect3DRefDevice: TGUID =
(D1:$50936643;D2:$13e9;D3:$11d1;D4:($89,$aa,$00,$a0,$c9,$05,$41,$29));
{$EXTERNALSYM IID_IDirect3DRefDevice}
IID_IDirect3DNullDevice: TGUID =
(D1:$8767df22;D2:$bacc;D3:$11d1;D4:($89,$69,$00,$a0,$c9,$06,$29,$a8));
{$EXTERNALSYM IID_IDirect3DNullDevice}
{$ENDIF} // DIRECT3D_VERSION_6
{$IFDEF DIRECT3D_VERSION_7}
IID_IDirect3DTnLHalDevice: TGUID = '{f5049e78-4861-11d2-a407-00a0c90629a8}';
{$EXTERNALSYM IID_IDirect3DTnLHalDevice}
{$ENDIF} // DIRECT3D_VERSION_7
type
IDirect3D = interface;
{$EXTERNALSYM IDirect3D}
{$IFDEF DIRECT3D_VERSION_5}
IDirect3D2 = interface;
{$ENDIF} // DIRECT3D_VERSION_5
{$IFDEF DIRECT3D_VERSION_6}
IDirect3D3 = interface;
{$ENDIF} // DIRECT3D_VERSION_5
{$IFDEF DIRECT3D_VERSION_7}
IDirect3D7 = interface;
{$ENDIF} // DIRECT3D_VERSION_5
IDirect3DDevice = interface;
{$IFDEF DIRECT3D_VERSION_5}
IDirect3DDevice2 = interface;
{$ENDIF} // DIRECT3D_VERSION_5
{$IFDEF DIRECT3D_VERSION_6}
IDirect3DDevice3 = interface;
{$ENDIF} // DIRECT3D_VERSION_6
{$IFDEF DIRECT3D_VERSION_7}
IDirect3DDevice7 = interface;
{$ENDIF} // DIRECT3D_VERSION_7
IDirect3DExecuteBuffer = interface;
IDirect3DLight = interface;
IDirect3DMaterial = interface;
{$IFDEF DIRECT3D_VERSION_5}
IDirect3DMaterial2 = interface;
{$ENDIF} // DIRECT3D_VERSION_5
{$IFDEF DIRECT3D_VERSION_6}
IDirect3DMaterial3 = interface;
{$ENDIF} // DIRECT3D_VERSION_6
IDirect3DTexture = interface;
{$IFDEF DIRECT3D_VERSION_5}
IDirect3DTexture2 = interface;
{$ENDIF} // DIRECT3D_VERSION_5
IDirect3DViewport = interface;
{$IFDEF DIRECT3D_VERSION_5}
IDirect3DViewport2 = interface;
{$ENDIF} // DIRECT3D_VERSION_5
{$IFDEF DIRECT3D_VERSION_6}
IDirect3DViewport3 = interface;
IDirect3DVertexBuffer = interface;
{$ENDIF} // DIRECT3D_VERSION_6
{$IFDEF DIRECT3D_VERSION_7}
IDirect3DVertexBuffer7 = interface;
{$ENDIF} // DIRECT3D_VERSION_7
(*
* Interface IID's
*)
IID_IDirect3D = IDirect3D;
{$EXTERNALSYM IID_IDirect3D}
{$IFDEF DIRECT3D_VERSION_5}
IID_IDirect3D2 = IDirect3D2;
{$EXTERNALSYM IID_IDirect3D2}
{$ENDIF} // DIRECT3D_VERSION_5
{$IFDEF DIRECT3D_VERSION_6}
IID_IDirect3D3 = IDirect3D3;
{$EXTERNALSYM IID_IDirect3D3}
{$ENDIF} // DIRECT3D_VERSION_6
{$IFDEF DIRECT3D_VERSION_7}
IID_IDirect3D7 = IDirect3D7;
{$EXTERNALSYM IID_IDirect3D7}
{$ENDIF} // DIRECT3D_VERSION_7
(*
* Internal Guid to distinguish requested MMX from MMX being used as an RGB rasterizer
*)
IID_IDirect3DDevice = IDirect3DDevice;
{$EXTERNALSYM IID_IDirect3DDevice}
{$IFDEF DIRECT3D_VERSION_5}
IID_IDirect3DDevice2 = IDirect3DDevice2;
{$EXTERNALSYM IID_IDirect3DDevice2}
{$ENDIF}
{$IFDEF DIRECT3D_VERSION_6}
IID_IDirect3DDevice3 = IDirect3DDevice3;
{$EXTERNALSYM IID_IDirect3DDevice3}
{$ENDIF}
{$IFDEF DIRECT3D_VERSION_7}
IID_IDirect3DDevice7 = IDirect3DDevice7;
{$EXTERNALSYM IID_IDirect3DDevice7}
{$ENDIF}
IID_IDirect3DTexture = IDirect3DTexture;
{$EXTERNALSYM IID_IDirect3DTexture}
{$IFDEF DIRECT3D_VERSION_5}
IID_IDirect3DTexture2 = IDirect3DTexture2;
{$EXTERNALSYM IID_IDirect3DTexture2}
{$ENDIF}
IID_IDirect3DLight = IDirect3DLight;
{$EXTERNALSYM IID_IDirect3DLight}
IID_IDirect3DMaterial = IDirect3DMaterial;
{$EXTERNALSYM IID_IDirect3DMaterial}
{$IFDEF DIRECT3D_VERSION_5}
IID_IDirect3DMaterial2 = IDirect3DMaterial2;
{$EXTERNALSYM IID_IDirect3DMaterial2}
{$ENDIF}
{$IFDEF DIRECT3D_VERSION_6}
IID_IDirect3DMaterial3 = IDirect3DMaterial3;
{$EXTERNALSYM IID_IDirect3DMaterial3}
{$ENDIF}
IID_IDirect3DExecuteBuffer = IDirect3DExecuteBuffer;
{$EXTERNALSYM IID_IDirect3DExecuteBuffer}
IID_IDirect3DViewport = IDirect3DViewport;
{$EXTERNALSYM IID_IDirect3DViewport}
{$IFDEF DIRECT3D_VERSION_5}
IID_IDirect3DViewport2 = IDirect3DViewport2;
{$EXTERNALSYM IID_IDirect3DViewport2}
{$ENDIF}
{$IFDEF DIRECT3D_VERSION_6}
IID_IDirect3DViewport3 = IDirect3DViewport3;
{$EXTERNALSYM IID_IDirect3DViewport3}
{$ENDIF}
{$IFDEF DIRECT3D_VERSION_6}
IID_IDirect3DVertexBuffer = IDirect3DVertexBuffer;
{$EXTERNALSYM IID_IDirect3DVertexBuffer}
{$ENDIF}
{$IFDEF DIRECT3D_VERSION_7}
IID_IDirect3DVertexBuffer7 = IDirect3DVertexBuffer7;
{$EXTERNALSYM IID_IDirect3DVertexBuffer7}
{$ENDIF}
(*
* Direct3D interfaces
*)
{$HPPEMIT 'DECLARE_DINTERFACE_TYPE(IDirect3D);'}
IDirect3D = interface(IUnknown)
['{3BBA0080-2421-11CF-A31A-00AA00B93356}']
(*** IDirect3D methods ***)
function Initialize(lpREFIID: {REFIID} PGUID): HResult; stdcall;
function EnumDevices(lpEnumDevicesCallback: TD3DEnumDevicesCallback;
lpUserArg: Pointer): HResult; stdcall;
function CreateLight(var lplpDirect3Dlight: IDirect3DLight;
pUnkOuter: IUnknown): HResult; stdcall;
function CreateMaterial(var lplpDirect3DMaterial: IDirect3DMaterial;
pUnkOuter: IUnknown): HResult; stdcall;
function CreateViewport(var lplpD3DViewport: IDirect3DViewport;
pUnkOuter: IUnknown): HResult; stdcall;
function FindDevice(var lpD3DFDS: TD3DFindDeviceSearch;
var lpD3DFDR: TD3DFindDeviceResult): HResult; stdcall;
end;
{$IFDEF DIRECT3D_VERSION_5}
{$HPPEMIT 'DECLARE_DINTERFACE_TYPE(IDirect3D2);'}
{$EXTERNALSYM IDirect3D2}
IDirect3D2 = interface(IUnknown)
['{6aae1ec1-662a-11d0-889d-00aa00bbb76a}']
(*** IDirect3D2 methods ***)
function EnumDevices(lpEnumDevicesCallback: TD3DEnumDevicesCallback;
lpUserArg: Pointer): HResult; stdcall;
function CreateLight(var lplpDirect3Dlight: IDirect3DLight;
pUnkOuter: IUnknown): HResult; stdcall;
function CreateMaterial(var lplpDirect3DMaterial2: IDirect3DMaterial2;
pUnkOuter: IUnknown): HResult; stdcall;
function CreateViewport(var lplpD3DViewport2: IDirect3DViewport2;
pUnkOuter: IUnknown): HResult; stdcall;
function FindDevice(var lpD3DFDS: TD3DFindDeviceSearch;
var lpD3DFDR: TD3DFindDeviceResult): HResult; stdcall;
function CreateDevice(const rclsid: TRefClsID; lpDDS: IDirectDrawSurface;
out lplpD3DDevice2: IDirect3DDevice2): HResult; stdcall;
end;
{$ENDIF} // DIRECT3D_VERSION_5
{$IFDEF DIRECT3D_VERSION_6}
{$HPPEMIT 'DECLARE_DINTERFACE_TYPE(IDirect3D3);'}
{$EXTERNALSYM IDirect3D3}
IDirect3D3 = interface(IUnknown)
['{bb223240-e72b-11d0-a9b4-00aa00c0993e}']
(*** IDirect3D3 methods ***)
function EnumDevices(lpEnumDevicesCallback: TD3DEnumDevicesCallback;
lpUserArg: pointer): HResult; stdcall;
function CreateLight(var lplpDirect3Dlight: IDirect3DLight;
pUnkOuter: IUnknown): HResult; stdcall;
function CreateMaterial(var lplpDirect3DMaterial3: IDirect3DMaterial3;
pUnkOuter: IUnknown): HResult; stdcall;
function CreateViewport(var lplpD3DViewport3: IDirect3DViewport3;
pUnkOuter: IUnknown): HResult; stdcall;
function FindDevice(var lpD3DFDS: TD3DFindDeviceSearch;
var lpD3DFDR: TD3DFindDeviceResult): HResult; stdcall;
function CreateDevice(const rclsid: TRefClsID; lpDDS: IDirectDrawSurface4;
out lplpD3DDevice: IDirect3DDevice3; pUnkOuter: IUnknown): HResult; stdcall;
function CreateVertexBuffer(var lpVBDesc: TD3DVertexBufferDesc;
var lpD3DVertexBuffer: IDirect3DVertexBuffer;
dwFlags: DWORD; pUnkOuter: IUnknown): HResult; stdcall;
function EnumZBufferFormats(const riidDevice: TRefClsID; lpEnumCallback:
TD3DEnumPixelFormatsCallback; lpContext: Pointer): HResult; stdcall;
function EvictManagedTextures : HResult; stdcall;
end;
{$ENDIF} // DIRECT3D_VERSION_6
{$IFDEF DIRECT3D_VERSION_7}
{$HPPEMIT 'DECLARE_DINTERFACE_TYPE(IDirect3D7);'}
{$EXTERNALSYM IDirect3D7}
IDirect3D7 = interface(IUnknown)
['{f5049e77-4861-11d2-a407-00a0c90629a8}']
(*** IDirect3D7 methods ***)
function EnumDevices(lpEnumDevicesCallback: TD3DEnumDevicesCallback7;
lpUserArg: pointer): HResult; stdcall;
function CreateDevice(const rclsid: TGUID; lpDDS: IDirectDrawSurface7;
out lplpD3DDevice: IDirect3DDevice7): HResult; stdcall;
function CreateVertexBuffer(const lpVBDesc: TD3DVertexBufferDesc;
out lplpD3DVertexBuffer: IDirect3DVertexBuffer7;
dwFlags: DWORD): HResult; stdcall;
function EnumZBufferFormats(const riidDevice: TGUID; lpEnumCallback:
TD3DEnumPixelFormatsCallback; lpContext: pointer): HResult; stdcall;
function EvictManagedTextures : HResult; stdcall;
end;
{$ENDIF} // DIRECT3D_VERSION_7
(*
* Direct3D Device interfaces
*)
{$HPPEMIT 'DECLARE_DINTERFACE_TYPE(IDirect3DDevice);'}
{$EXTERNALSYM IDirect3DDevice}
IDirect3DDevice = interface(IUnknown)
['{64108800-957d-11d0-89ab-00a0c9054129}']
(*** IDirect3DDevice methods ***)
function Initialize(lpd3d: IDirect3D; lpGUID: PGUID;
var lpd3ddvdesc: TD3DDeviceDesc): HResult; stdcall;
function GetCaps(var lpD3DHWDevDesc: TD3DDeviceDesc;
var lpD3DHELDevDesc: TD3DDeviceDesc): HResult; stdcall;
function SwapTextureHandles(lpD3DTex1: IDirect3DTexture;
lpD3DTex2: IDirect3DTexture): HResult; stdcall;
function CreateExecuteBuffer(var lpDesc: TD3DExecuteBufferDesc ;
var lplpDirect3DExecuteBuffer: IDirect3DExecuteBuffer;
pUnkOuter: IUnknown): HResult; stdcall;
function GetStats(var lpD3DStats: TD3DStats): HResult; stdcall;
function Execute(lpDirect3DExecuteBuffer: IDirect3DExecuteBuffer;
lpDirect3DViewport: IDirect3DViewport; dwFlags: DWORD): HResult; stdcall;
function AddViewport(lpDirect3DViewport: IDirect3DViewport): HResult; stdcall;
function DeleteViewport(lpDirect3DViewport: IDirect3DViewport): HResult; stdcall;
function NextViewport(lpDirect3DViewport: IDirect3DViewport;
var lplpDirect3DViewport: IDirect3DViewport; dwFlags: DWORD): HResult; stdcall;
function Pick(lpDirect3DExecuteBuffer: IDirect3DExecuteBuffer;
lpDirect3DViewport: IDirect3DViewport; dwFlags: DWORD;
var lpRect: TD3DRect): HResult; stdcall;
function GetPickRecords(var lpCount: DWORD;
var lpD3DPickRec: TD3DPickRecord): HResult; stdcall;
function EnumTextureFormats(lpd3dEnumTextureProc:
TD3DEnumTextureFormatsCallback; lpArg: Pointer):
HResult; stdcall;
function CreateMatrix(var lpD3DMatHandle: TD3DMatrixHandle): HResult; stdcall;
function SetMatrix(d3dMatHandle: TD3DMatrixHandle;
var lpD3DMatrix: TD3DMatrix): HResult; stdcall;
function GetMatrix(var lpD3DMatHandle: TD3DMatrixHandle;
var lpD3DMatrix: TD3DMatrix): HResult; stdcall;
function DeleteMatrix(d3dMatHandle: TD3DMatrixHandle): HResult; stdcall;
function BeginScene: HResult; stdcall;
function EndScene: HResult; stdcall;
function GetDirect3D(var lpD3D: IDirect3D): HResult; stdcall;
end;
{$IFDEF DIRECT3D_VERSION_5}
{$HPPEMIT 'DECLARE_DINTERFACE_TYPE(IDirect3DDevice2);'}
{$EXTERNALSYM IDirect3DDevice2}
IDirect3DDevice2 = interface(IUnknown)
['{93281501-8cf8-11d0-89ab-00a0c9054129}']
(*** IDirect3DDevice2 methods ***)
function GetCaps(var lpD3DHWDevDesc: TD3DDeviceDesc;
var lpD3DHELDevDesc: TD3DDeviceDesc): HResult; stdcall;
function SwapTextureHandles(lpD3DTex1: IDirect3DTexture2;
lpD3DTex2: IDirect3DTexture2): HResult; stdcall;
function GetStats(var lpD3DStats: TD3DStats): HResult; stdcall;
function AddViewport(lpDirect3DViewport2: IDirect3DViewport2): HResult; stdcall;
function DeleteViewport(lpDirect3DViewport: IDirect3DViewport2): HResult; stdcall;
function NextViewport(lpDirect3DViewport: IDirect3DViewport2;
var lplpDirect3DViewport: IDirect3DViewport2; dwFlags: DWORD):
HResult; stdcall;
function EnumTextureFormats(
lpd3dEnumTextureProc: TD3DEnumTextureFormatsCallback; lpArg: Pointer):
HResult; stdcall;
function BeginScene: HResult; stdcall;
function EndScene: HResult; stdcall;
function GetDirect3D(var lpD3D: IDirect3D2): HResult; stdcall;
(*** DrawPrimitive API ***)
function SetCurrentViewport(lpd3dViewport2: IDirect3DViewport2)
: HResult; stdcall;
function GetCurrentViewport(var lplpd3dViewport2: IDirect3DViewport2)
: HResult; stdcall;
function SetRenderTarget(lpNewRenderTarget: IDirectDrawSurface)
: HResult; stdcall;
function GetRenderTarget(var lplpNewRenderTarget: IDirectDrawSurface)
: HResult; stdcall;
function Begin_(d3dpt: TD3DPrimitiveType; d3dvt: TD3DVertexType;
dwFlags: DWORD): HResult; stdcall;
function BeginIndexed(dptPrimitiveType: TD3DPrimitiveType; dvtVertexType:
TD3DVertexType; lpvVertices: pointer; dwNumVertices: DWORD;
dwFlags: DWORD): HResult; stdcall;
function Vertex(lpVertexType: pointer): HResult; stdcall;
function Index(wVertexIndex: WORD): HResult; stdcall;
function End_(dwFlags: DWORD): HResult; stdcall;
function GetRenderState(dwRenderStateType: TD3DRenderStateType;
var lpdwRenderState): HResult; stdcall;
function SetRenderState(dwRenderStateType: TD3DRenderStateType;
dwRenderState: DWORD): HResult; stdcall;
function GetLightState(dwLightStateType: TD3DLightStateType;
var lpdwLightState): HResult; stdcall;
function SetLightState(dwLightStateType: TD3DLightStateType;
dwLightState: DWORD): HResult; stdcall;
function SetTransform(dtstTransformStateType: TD3DTransformStateType;
var lpD3DMatrix: TD3DMatrix): HResult; stdcall;
function GetTransform(dtstTransformStateType: TD3DTransformStateType;
var lpD3DMatrix: TD3DMatrix): HResult; stdcall;
function MultiplyTransform(dtstTransformStateType: TD3DTransformStateType;
var lpD3DMatrix: TD3DMatrix): HResult; stdcall;
function DrawPrimitive(dptPrimitiveType: TD3DPrimitiveType;
dvtVertexType: TD3DVertexType; var lpvVertices; dwVertexCount,
dwFlags: DWORD): HResult; stdcall;
function DrawIndexedPrimitive(dptPrimitiveType: TD3DPrimitiveType;
dwVertexTypeDesc: DWORD; lpvVertices: pointer; dwVertexCount: DWORD;
var lpwIndices: WORD; dwIndexCount, dwFlags: DWORD): HResult; stdcall;
function SetClipStatus(var lpD3DClipStatus: TD3DClipStatus): HResult; stdcall;
function GetClipStatus(var lpD3DClipStatus: TD3DClipStatus): HResult; stdcall;
end;
{$ENDIF} // DIRECT3D_VERSION_5
{$IFDEF DIRECT3D_VERSION_6}
{$HPPEMIT 'DECLARE_DINTERFACE_TYPE(IDirect3DDevice3);'}
{$EXTERNALSYM IDirect3DDevice3}
IDirect3DDevice3 = interface(IUnknown)
['{b0ab3b60-33d7-11d1-a981-00c04fd7b174}']
(*** IDirect3DDevice2 methods ***)
function GetCaps(var lpD3DHWDevDesc: TD3DDeviceDesc;
var lpD3DHELDevDesc: TD3DDeviceDesc): HResult; stdcall;
function GetStats(var lpD3DStats: TD3DStats): HResult; stdcall;
function AddViewport(lpDirect3DViewport: IDirect3DViewport3): HResult; stdcall;
function DeleteViewport(lpDirect3DViewport: IDirect3DViewport3): HResult; stdcall;
function NextViewport(lpDirect3DViewport: IDirect3DViewport3;
var lplpAnotherViewport: IDirect3DViewport3; dwFlags: DWORD): HResult; stdcall;
function EnumTextureFormats(
lpd3dEnumPixelProc: TD3DEnumPixelFormatsCallback; lpArg: Pointer):
HResult; stdcall;
function BeginScene: HResult; stdcall;
function EndScene: HResult; stdcall;
function GetDirect3D(var lpD3D: IDirect3D3): HResult; stdcall;
function SetCurrentViewport(lpd3dViewport: IDirect3DViewport3)
: HResult; stdcall;
function GetCurrentViewport(var lplpd3dViewport: IDirect3DViewport3)
: HResult; stdcall;
function SetRenderTarget(lpNewRenderTarget: IDirectDrawSurface4)
: HResult; stdcall;
function GetRenderTarget(var lplpNewRenderTarget: IDirectDrawSurface4)
: HResult; stdcall;
function Begin_(d3dpt: TD3DPrimitiveType; dwVertexTypeDesc: DWORD;
dwFlags: DWORD): HResult; stdcall;
function BeginIndexed(dptPrimitiveType: TD3DPrimitiveType;
dwVertexTypeDesc: DWORD; lpvVertices: pointer; dwNumVertices: DWORD;
dwFlags: DWORD): HResult; stdcall;
function Vertex(lpVertex: pointer): HResult; stdcall;
function Index(wVertexIndex: WORD): HResult; stdcall;
function End_(dwFlags: DWORD): HResult; stdcall;
function GetRenderState(dwRenderStateType: TD3DRenderStateType;
var lpdwRenderState): HResult; stdcall;
function SetRenderState(dwRenderStateType: TD3DRenderStateType;
dwRenderState: DWORD): HResult; stdcall;
function GetLightState(dwLightStateType: TD3DLightStateType;
var lpdwLightState): HResult; stdcall;
function SetLightState(dwLightStateType: TD3DLightStateType;
dwLightState: DWORD): HResult; stdcall;
function SetTransform(dtstTransformStateType: TD3DTransformStateType;
var lpD3DMatrix: TD3DMatrix): HResult; stdcall;
function GetTransform(dtstTransformStateType: TD3DTransformStateType;
var lpD3DMatrix: TD3DMatrix): HResult; stdcall;
function MultiplyTransform(dtstTransformStateType: TD3DTransformStateType;
var lpD3DMatrix: TD3DMatrix): HResult; stdcall;
function DrawPrimitive(dptPrimitiveType: TD3DPrimitiveType;
dwVertexTypeDesc: DWORD; const lpvVertices;
dwVertexCount, dwFlags: DWORD): HResult; stdcall;
function DrawIndexedPrimitive(dptPrimitiveType: TD3DPrimitiveType;
dwVertexTypeDesc: DWORD; const lpvVertices; dwVertexCount: DWORD;
var lpwIndices: WORD; dwIndexCount, dwFlags: DWORD): HResult; stdcall;
function SetClipStatus(var lpD3DClipStatus: TD3DClipStatus): HResult; stdcall;
function GetClipStatus(var lpD3DClipStatus: TD3DClipStatus): HResult; stdcall;
function DrawPrimitiveStrided(dptPrimitiveType: TD3DPrimitiveType;
dwVertexTypeDesc : DWORD;
var lpVertexArray: TD3DDrawPrimitiveStridedData;
dwVertexCount, dwFlags: DWORD): HResult; stdcall;
function DrawIndexedPrimitiveStrided(dptPrimitiveType: TD3DPrimitiveType;
dwVertexTypeDesc : DWORD;
var lpVertexArray: TD3DDrawPrimitiveStridedData; dwVertexCount: DWORD;
var lpwIndices: WORD; dwIndexCount, dwFlags: DWORD): HResult; stdcall;
function DrawPrimitiveVB(dptPrimitiveType: TD3DPrimitiveType;
lpd3dVertexBuffer: IDirect3DVertexBuffer;
dwStartVertex, dwNumVertices, dwFlags: DWORD): HResult; stdcall;
function DrawIndexedPrimitiveVB(dptPrimitiveType: TD3DPrimitiveType;
lpd3dVertexBuffer: IDirect3DVertexBuffer; var lpwIndices: WORD;
dwIndexCount, dwFlags: DWORD): HResult; stdcall;
function ComputeSphereVisibility(var lpCenters: TD3DVector;
var lpRadii: TD3DValue; dwNumSpheres, dwFlags: DWORD;
var lpdwReturnValues: DWORD): HResult; stdcall;
function GetTexture(dwStage: DWORD; var lplpTexture: IDirect3DTexture2)
: HResult; stdcall;
function SetTexture(dwStage: DWORD; lplpTexture: IDirect3DTexture2)
: HResult; stdcall;
function GetTextureStageState(dwStage: DWORD;
dwState: TD3DTextureStageStateType; var lpdwValue: DWORD): HResult; stdcall;
function SetTextureStageState(dwStage: DWORD;
dwState: TD3DTextureStageStateType; lpdwValue: DWORD): HResult; stdcall;
function ValidateDevice(var lpdwExtraPasses: DWORD): HResult; stdcall;
end;
{$ENDIF} // DIRECT3D_VERSION_6
{$IFDEF DIRECT3D_VERSION_7}
{$HPPEMIT 'DECLARE_DINTERFACE_TYPE(IDirect3DDevice7);'}
{$EXTERNALSYM IDirect3DDevice7}
IDirect3DDevice7 = interface(IUnknown)
['{f5049e79-4861-11d2-a407-00a0c90629a8}']
(*** IDirect3DDevice7 methods ***)
function GetCaps(out lpD3DDevDesc: TD3DDeviceDesc7): HResult; stdcall;
function EnumTextureFormats(lpd3dEnumPixelProc: TD3DEnumPixelFormatsCallback; lpArg: Pointer): HResult; stdcall;
function BeginScene: HResult; stdcall;
function EndScene: HResult; stdcall;
function GetDirect3D(out lpD3D: IDirect3D7): HResult; stdcall;
function SetRenderTarget(lpNewRenderTarget: IDirectDrawSurface7; dwFlags: DWORD): HResult; stdcall;
function GetRenderTarget(out lplpRenderTarget: IDirectDrawSurface7): HResult; stdcall;
function Clear(dwCount: DWORD; lpRects: PD3DRect; dwFlags, dwColor: DWORD; dvZ: TD3DValue; dwStencil: DWORD): HResult; stdcall;
function SetTransform(dtstTransformStateType: TD3DTransformStateType;
const lpD3DMatrix: TD3DMatrix): HResult; stdcall;
function GetTransform(dtstTransformStateType: TD3DTransformStateType;
out lpD3DMatrix: TD3DMatrix): HResult; stdcall;
function SetViewport(const lpViewport: TD3DViewport7): HResult; stdcall;
function MultiplyTransform(dtstTransformStateType: TD3DTransformStateType;
const lpD3DMatrix: TD3DMatrix): HResult; stdcall;
function GetViewport(out lpViewport: TD3DViewport7): HResult; stdcall;
function SetMaterial(const lpMaterial: TD3DMaterial7): HResult; stdcall;
function GetMaterial(out lpMaterial: TD3DMaterial7): HResult; stdcall;
function SetLight(dwLightIndex: DWORD; const lpLight: TD3DLight7): HResult; stdcall;
function GetLight(dwLightIndex: DWORD; out lpLight: TD3DLight7): HResult; stdcall;
function SetRenderState(dwRenderStateType: TD3DRenderStateType; dwRenderState: DWORD): HResult; stdcall;
function GetRenderState(dwRenderStateType: TD3DRenderStateType; out dwRenderState: DWORD): HResult; stdcall;
function BeginStateBlock : HResult; stdcall;
function EndStateBlock(out lpdwBlockHandle: DWORD): HResult; stdcall;
function PreLoad(lpddsTexture: IDirectDrawSurface7): HResult; stdcall;
function DrawPrimitive(dptPrimitiveType: TD3DPrimitiveType;
dwVertexTypeDesc: DWORD; const lpvVertices;
dwVertexCount, dwFlags: DWORD): HResult; stdcall;
function DrawIndexedPrimitive(dptPrimitiveType: TD3DPrimitiveType;
dwVertexTypeDesc: DWORD; const lpvVertices; dwVertexCount: DWORD;
const lpwIndices; dwIndexCount, dwFlags: DWORD): HResult; stdcall;
function SetClipStatus(const lpD3DClipStatus: TD3DClipStatus): HResult; stdcall;
function GetClipStatus(out lpD3DClipStatus: TD3DClipStatus): HResult; stdcall;
function DrawPrimitiveStrided(dptPrimitiveType: TD3DPrimitiveType;
dwVertexTypeDesc : DWORD;
const lpVertexArray: TD3DDrawPrimitiveStridedData;
dwVertexCount, dwFlags: DWORD): HResult; stdcall;
function DrawIndexedPrimitiveStrided(dptPrimitiveType: TD3DPrimitiveType;
dwVertexTypeDesc : DWORD;
const lpVertexArray: TD3DDrawPrimitiveStridedData; dwVertexCount: DWORD;
var lpwIndices: WORD; dwIndexCount, dwFlags: DWORD): HResult; stdcall;
function DrawPrimitiveVB(dptPrimitiveType: TD3DPrimitiveType;
lpd3dVertexBuffer: IDirect3DVertexBuffer7;
dwStartVertex, dwNumVertices, dwFlags: DWORD): HResult; stdcall;
function DrawIndexedPrimitiveVB(dptPrimitiveType: TD3DPrimitiveType;
lpd3dVertexBuffer: IDirect3DVertexBuffer7; dwStartVertex, dwNumVertices: DWORD;
var lpwIndices: WORD; dwIndexCount, dwFlags: DWORD): HResult; stdcall;
function ComputeSphereVisibility(const lpCenters: TD3DVector;
var lpRadii: TD3DValue; dwNumSpheres, dwFlags: DWORD;
var lpdwReturnValues: DWORD): HResult; stdcall;
function GetTexture(dwStage: DWORD; out lplpTexture: IDirectDrawSurface7): HResult; stdcall;
function SetTexture(dwStage: DWORD; lpTexture: IDirectDrawSurface7): HResult; stdcall;
function GetTextureStageState(dwStage: DWORD;
dwState: TD3DTextureStageStateType; out lpdwValue: DWORD): HResult; stdcall;
function SetTextureStageState(dwStage: DWORD;
dwState: TD3DTextureStageStateType; lpdwValue: DWORD): HResult; stdcall;
function ValidateDevice(out lpdwExtraPasses: DWORD): HResult; stdcall;
function ApplyStateBlock(dwBlockHandle: DWORD): HResult; stdcall;
function CaptureStateBlock(dwBlockHandle: DWORD): HResult; stdcall;
function DeleteStateBlock(dwBlockHandle: DWORD): HResult; stdcall;
function CreateStateBlock(d3dsbType: TD3DStateBlockType; out lpdwBlockHandle: DWORD): HResult; stdcall;
function Load(lpDestTex: IDirectDrawSurface7; lpDestPoint: PPoint;
lpSrcTex: IDirectDrawSurface7; lprcSrcRect: PRect; dwFlags: DWORD): HResult; stdcall;
function LightEnable(dwLightIndex: DWORD; bEnable: BOOL): HResult; stdcall;
function GetLightEnable(dwLightIndex: DWORD; out bEnable: BOOL): HResult; stdcall;
function SetClipPlane(dwIndex: DWORD; pPlaneEquation: PD3DValue): HResult; stdcall;
function GetClipPlane(dwIndex: DWORD; pPlaneEquation: PD3DValue): HResult; stdcall;
function GetInfo(dwDevInfoID: DWORD; pDevInfoStruct: Pointer; dwSize: DWORD): HResult; stdcall;
end;
{$ENDIF} // DIRECT3D_VERSION_7
(*
* Execute Buffer interface
*)
{$HPPEMIT 'DECLARE_DINTERFACE_TYPE(IDirect3DExecuteBuffer);'}
{$EXTERNALSYM IDirect3DExecuteBuffer}
IDirect3DExecuteBuffer = interface(IUnknown)
['{4417C145-33AD-11CF-816F-0000C020156E}']
(*** IDirect3DExecuteBuffer methods ***)
function Initialize(lpDirect3DDevice: IDirect3DDevice;
var lpDesc: TD3DExecuteBufferDesc): HResult; stdcall;
function Lock(var lpDesc: TD3DExecuteBufferDesc): HResult; stdcall;
function Unlock: HResult; stdcall;
function SetExecuteData(var lpData: TD3DExecuteData): HResult; stdcall;
function GetExecuteData(var lpData: TD3DExecuteData): HResult; stdcall;
function Validate(var lpdwOffset: DWORD; lpFunc: TD3DValidateCallback;
lpUserArg: Pointer; dwReserved: DWORD): HResult; stdcall;
(*** Warning! Optimize is defined differently in the header files
and the online documentation ***)
function Optimize(dwFlags: DWORD): HResult; stdcall;
end;
(*
* Light interfaces
*)
{$HPPEMIT 'DECLARE_DINTERFACE_TYPE(IDirect3DLight);'}
{$EXTERNALSYM IDirect3DLight}
IDirect3DLight = interface(IUnknown)
['{4417C142-33AD-11CF-816F-0000C020156E}']
(*** IDirect3DLight methods ***)
function Initialize(lpDirect3D: IDirect3D): HResult; stdcall;
function SetLight(var lpLight: TD3DLight2): HResult; stdcall;
function GetLight(var lpLight: TD3DLight2): HResult; stdcall;
end;
(*
* Material interfaces
*)
{$HPPEMIT 'DECLARE_DINTERFACE_TYPE(IDirect3DMaterial);'}
{$EXTERNALSYM IDirect3DMaterial}
IDirect3DMaterial = interface(IUnknown)
['{4417C144-33AD-11CF-816F-0000C020156E}']
(*** IDirect3DMaterial methods ***)
function Initialize(lpDirect3D: IDirect3D): HResult; stdcall;
function SetMaterial(var lpMat: TD3DMaterial): HResult; stdcall;
function GetMaterial(var lpMat: TD3DMaterial): HResult; stdcall;
function GetHandle(lpDirect3DDevice: IDirect3DDevice;
var lpHandle: TD3DMaterialHandle): HResult; stdcall;
function Reserve: HResult; stdcall;
function Unreserve: HResult; stdcall;
end;
{$IFDEF DIRECT3D_VERSION_5}
{$HPPEMIT 'DECLARE_DINTERFACE_TYPE(IDirect3DMaterial2);'}
{$EXTERNALSYM IDirect3DMaterial2}
IDirect3DMaterial2 = interface(IUnknown)
['{93281503-8cf8-11d0-89ab-00a0c9054129}']
(*** IDirect3DMaterial2 methods ***)
function SetMaterial(var lpMat: TD3DMaterial): HResult; stdcall;
function GetMaterial(var lpMat: TD3DMaterial): HResult; stdcall;
function GetHandle(lpDirect3DDevice: IDirect3DDevice2;
var lpHandle: TD3DMaterialHandle): HResult; stdcall;
end;
{$ENDIF} // DIRECT3D_VERSION_5
{$IFDEF DIRECT3D_VERSION_6}
{$HPPEMIT 'DECLARE_DINTERFACE_TYPE(IDirect3DMaterial3);'}
{$EXTERNALSYM IDirect3DMaterial3}
IDirect3DMaterial3 = interface(IUnknown)
['{ca9c46f4-d3c5-11d1-b75a-00600852b312}']
(*** IDirect3DMaterial2 methods ***)
function SetMaterial(var lpMat: TD3DMaterial): HResult; stdcall;
function GetMaterial(var lpMat: TD3DMaterial): HResult; stdcall;
function GetHandle(lpDirect3DDevice: IDirect3DDevice3;
var lpHandle: TD3DMaterialHandle): HResult; stdcall;
end;
{$ENDIF} // DIRECT3D_VERSION_6
(*
* Texture interfaces
*)
{$HPPEMIT 'DECLARE_DINTERFACE_TYPE(IDirect3DTexture);'}
{$EXTERNALSYM IDirect3DTexture}
IDirect3DTexture = interface(IUnknown)
['{2CDCD9E0-25A0-11CF-A31A-00AA00B93356}']
(*** IDirect3DTexture methods ***)
function Initialize(lpD3DDevice: IDirect3DDevice;
lpDDSurface: IDirectDrawSurface): HResult; stdcall;
function GetHandle(lpDirect3DDevice: IDirect3DDevice;
var lpHandle: TD3DTextureHandle): HResult; stdcall;
function PaletteChanged(dwStart: DWORD; dwCount: DWORD): HResult; stdcall;
function Load(lpD3DTexture: IDirect3DTexture): HResult; stdcall;
function Unload: HResult; stdcall;
end;
{$IFDEF DIRECT3D_VERSION_5}
{$HPPEMIT 'DECLARE_DINTERFACE_TYPE(IDirect3DTexture2);'}
{$EXTERNALSYM IDirect3DTexture2}
IDirect3DTexture2 = interface(IUnknown)
['{93281502-8cf8-11d0-89ab-00a0c9054129}']
(*** IDirect3DTexture2 methods ***)
function GetHandle(lpDirect3DDevice: IDirect3DDevice2;
var lpHandle: TD3DTextureHandle): HResult; stdcall;
function PaletteChanged(dwStart: DWORD; dwCount: DWORD): HResult; stdcall;
function Load(lpD3DTexture: IDirect3DTexture2): HResult; stdcall;
end;
{$ENDIF} // DIRECT3D_VERSION_5
(*
* Viewport interfaces
*)
{$HPPEMIT 'DECLARE_DINTERFACE_TYPE(IDirect3DViewport);'}
{$EXTERNALSYM IDirect3DViewport}
IDirect3DViewport = interface(IUnknown)
['{4417C146-33AD-11CF-816F-0000C020156E}']
(*** IDirect3DViewport methods ***)
function Initialize(lpDirect3D: IDirect3D): HResult; stdcall;
function GetViewport(out lpData: TD3DViewport): HResult; stdcall;
function SetViewport(const lpData: TD3DViewport): HResult; stdcall;
function TransformVertices(dwVertexCount: DWORD;
const lpData: TD3DTransformData; dwFlags: DWORD;
out lpOffscreen: DWORD): HResult; stdcall;
function LightElements(dwElementCount: DWORD;
var lpData: TD3DLightData): HResult; stdcall;
function SetBackground(hMat: TD3DMaterialHandle): HResult; stdcall;
function GetBackground(out hMat: TD3DMaterialHandle): HResult; stdcall;
function SetBackgroundDepth(lpDDSurface: IDirectDrawSurface):
HResult; stdcall;
function GetBackgroundDepth(out lplpDDSurface: IDirectDrawSurface;
out lpValid: BOOL): HResult; stdcall;
function Clear(dwCount: DWORD; const lpRects: TD3DRect; dwFlags: DWORD):
HResult; stdcall;
function AddLight(lpDirect3DLight: IDirect3DLight): HResult; stdcall;
function DeleteLight(lpDirect3DLight: IDirect3DLight): HResult; stdcall;
function NextLight(lpDirect3DLight: IDirect3DLight;
out lplpDirect3DLight: IDirect3DLight; dwFlags: DWORD): HResult; stdcall;
end;
{$IFDEF DIRECT3D_VERSION_5}
{$HPPEMIT 'DECLARE_DINTERFACE_TYPE(IDirect3DViewport2);'}
{$EXTERNALSYM IDirect3DViewport2}
IDirect3DViewport2 = interface(IUnknown)
['{93281500-8cf8-11d0-89ab-00a0c9054129}']
(*** IDirect3DViewport2 methods ***)
function Initialize(lpDirect3D: IDirect3D): HResult; stdcall;
function GetViewport(out lpData: TD3DViewport): HResult; stdcall;
function SetViewport(const lpData: TD3DViewport): HResult; stdcall;
function TransformVertices(dwVertexCount: DWORD;
const lpData: TD3DTransformData; dwFlags: DWORD;
out lpOffscreen: DWORD): HResult; stdcall;
function LightElements(dwElementCount: DWORD;
var lpData: TD3DLightData): HResult; stdcall;
function SetBackground(hMat: TD3DMaterialHandle): HResult; stdcall;
function GetBackground(out hMat: TD3DMaterialHandle): HResult; stdcall;
function SetBackgroundDepth(lpDDSurface: IDirectDrawSurface):
HResult; stdcall;
function GetBackgroundDepth(out lplpDDSurface: IDirectDrawSurface;
out lpValid: BOOL): HResult; stdcall;
function Clear(dwCount: DWORD; const lpRects: TD3DRect; dwFlags: DWORD):
HResult; stdcall;
function AddLight(lpDirect3DLight: IDirect3DLight): HResult; stdcall;
function DeleteLight(lpDirect3DLight: IDirect3DLight): HResult; stdcall;
function NextLight(lpDirect3DLight: IDirect3DLight;
out lplpDirect3DLight: IDirect3DLight; dwFlags: DWORD): HResult; stdcall;
(*** IDirect3DViewport2 methods ***)
function GetViewport2(out lpData: TD3DViewport2): HResult; stdcall;
function SetViewport2(const lpData: TD3DViewport2): HResult; stdcall;
end;
{$ENDIF} // DIRECT3D_VERSION_5
{$IFDEF DIRECT3D_VERSION_6}
{$HPPEMIT 'DECLARE_DINTERFACE_TYPE(IDirect3DViewport3);'}
{$EXTERNALSYM IDirect3DViewport3}
IDirect3DViewport3 = interface(IUnknown)
['{b0ab3b61-33d7-11d1-a981-00c04fd7b174}']
(*** IDirect3DViewport3 methods ***)
function Initialize(lpDirect3D: IDirect3D): HResult; stdcall;
function GetViewport(out lpData: TD3DViewport): HResult; stdcall;
function SetViewport(const lpData: TD3DViewport): HResult; stdcall;
function TransformVertices(dwVertexCount: DWORD;
const lpData: TD3DTransformData; dwFlags: DWORD;
out lpOffscreen: DWORD): HResult; stdcall;
function LightElements(dwElementCount: DWORD;
var lpData: TD3DLightData): HResult; stdcall;
function SetBackground(hMat: TD3DMaterialHandle): HResult; stdcall;
function GetBackground(var hMat: TD3DMaterialHandle): HResult; stdcall;
function SetBackgroundDepth(
lpDDSurface: IDirectDrawSurface): HResult; stdcall;
function GetBackgroundDepth(out lplpDDSurface: IDirectDrawSurface;
out lpValid: BOOL): HResult; stdcall;
function Clear(dwCount: DWORD; const lpRects: TD3DRect; dwFlags: DWORD):
HResult; stdcall;
function AddLight(lpDirect3DLight: IDirect3DLight): HResult; stdcall;
function DeleteLight(lpDirect3DLight: IDirect3DLight): HResult; stdcall;
function NextLight(lpDirect3DLight: IDirect3DLight;
out lplpDirect3DLight: IDirect3DLight; dwFlags: DWORD): HResult; stdcall;
function GetViewport2(out lpData: TD3DViewport2): HResult; stdcall;
function SetViewport2(const lpData: TD3DViewport2): HResult; stdcall;
function SetBackgroundDepth2(
lpDDSurface: IDirectDrawSurface4): HResult; stdcall;
function GetBackgroundDepth2(out lplpDDSurface: IDirectDrawSurface4;
out lpValid: BOOL): HResult; stdcall;
function Clear2(dwCount: DWORD; const lpRects: TD3DRect; dwFlags: DWORD;
dwColor: DWORD; dvZ: TD3DValue; dwStencil: DWORD): HResult; stdcall;
end;
{$ENDIF} // DIRECT3D_VERSION_6
{$IFDEF DIRECT3D_VERSION_6}
{$HPPEMIT 'DECLARE_DINTERFACE_TYPE(IDirect3DVertexBuffer);'}
{$EXTERNALSYM IDirect3DVertexBuffer}
IDirect3DVertexBuffer = interface(IUnknown)
['{7a503555-4a83-11d1-a5db-00a0c90367f8}']
(*** IDirect3DVertexBuffer methods ***)
function Lock(dwFlags: DWORD; var lplpData: pointer; var lpdwSize: DWORD)
: HResult; stdcall;
function Unlock : HResult; stdcall;
function ProcessVertices(dwVertexOp, dwDestIndex, dwCount: DWORD;
lpSrcBuffer: IDirect3DVertexBuffer; dwSrcIndex: DWORD;
lpD3DDevice: IDirect3DDevice3; dwFlags: DWORD): HResult; stdcall;
function GetVertexBufferDesc(var lpVBDesc: TD3DVertexBufferDesc): HResult; stdcall;
function Optimize(lpD3DDevice: IDirect3DDevice3; dwFlags: DWORD): HResult; stdcall;
end;
{$ENDIF} // DIRECT3D_VERSION_6
{$IFDEF DIRECT3D_VERSION_7}
{$HPPEMIT 'DECLARE_DINTERFACE_TYPE(IDirect3DVertexBuffer7);'}
{$EXTERNALSYM IDirect3DVertexBuffer7}
IDirect3DVertexBuffer7 = interface(IUnknown)
['{f5049e7d-4861-11d2-a407-00a0c90629a8}']
(*** IDirect3DVertexBuffer methods ***)
function Lock(dwFlags: DWORD; out lplpData: Pointer; out lpdwSize: DWORD): HResult; stdcall;
function Unlock : HResult; stdcall;
function ProcessVertices(dwVertexOp, dwDestIndex, dwCount: DWORD;
lpSrcBuffer: IDirect3DVertexBuffer7; dwSrcIndex: DWORD;
lpD3DDevice: IDirect3DDevice7; dwFlags: DWORD): HResult; stdcall;
function GetVertexBufferDesc(out lpVBDesc: TD3DVertexBufferDesc): HResult; stdcall;
function Optimize(lpD3DDevice: IDirect3DDevice7; dwFlags: DWORD): HResult; stdcall;
function ProcessVerticesStrided(dwVertexOp, dwDestIndex, dwCount: DWORD;
lpVertexArray: TD3DDrawPrimitiveStridedData; dwVertexTypeDesc: DWORD;
lpD3DDevice: IDirect3DDevice7; dwFlags: DWORD): HResult; stdcall;
end;
{$ENDIF} // DIRECT3D_VERSION_7
{$IFDEF DIRECT3D_VERSION_5}
const
(****************************************************************************
*
* Flags for IDirect3DDevice::NextViewport
*
****************************************************************************)
(*
* Return the next viewport
*)
D3DNEXT_NEXT = $00000001;
{$EXTERNALSYM D3DNEXT_NEXT}
(*
* Return the first viewport
*)
D3DNEXT_HEAD = $00000002;
{$EXTERNALSYM D3DNEXT_HEAD}
(*
* Return the last viewport
*)
D3DNEXT_TAIL = $00000004;
{$EXTERNALSYM D3DNEXT_TAIL}
(****************************************************************************
*
* Flags for DrawPrimitive/DrawIndexedPrimitive
* Also valid for Begin/BeginIndexed
* Also valid for VertexBuffer::CreateVertexBuffer
****************************************************************************)
(*
* Wait until the device is ready to draw the primitive
* This will cause DP to not return DDERR_WASSTILLDRAWING
*)
D3DDP_WAIT = $00000001;
{$EXTERNALSYM D3DDP_WAIT}
{$IFDEF DIRECT3D_VERSION_LESS_6}
(*
* Hint that it is acceptable to render the primitive out of order.
*)
D3DDP_OUTOFORDER = $00000002;
{$EXTERNALSYM D3DDP_OUTOFORDER}
{$ENDIF} // DIRECT3D_VERSION_LESS_6
(*
* Hint that the primitives have been clipped by the application.
*)
D3DDP_DONOTCLIP = $00000004;
{$EXTERNALSYM D3DDP_DONOTCLIP}
(*
* Hint that the extents need not be updated.
*)
D3DDP_DONOTUPDATEEXTENTS = $00000008;
{$EXTERNALSYM D3DDP_DONOTUPDATEEXTENTS}
{$ENDIF} // DIRECT3D_VERSION_5
{$IFDEF DIRECT3D_VERSION_6}
(*
* Hint that the lighting should not be applied on vertices.
*)
D3DDP_DONOTLIGHT = $00000010;
{$EXTERNALSYM D3DDP_DONOTLIGHT}
{$ENDIF} // DIRECT3D_VERSION_6
(*
* Direct3D Errors
* DirectDraw error codes are used when errors not specified here.
*)
const
MAKE_DDHRESULT = HResult($88760000);
{$EXTERNALSYM MAKE_DDHRESULT}
D3D_OK = DD_OK;
{$EXTERNALSYM D3D_OK}
D3DERR_BADMAJORVERSION = MAKE_DDHRESULT + 700;
{$EXTERNALSYM D3DERR_BADMAJORVERSION}
D3DERR_BADMINORVERSION = MAKE_DDHRESULT + 701;
{$EXTERNALSYM D3DERR_BADMINORVERSION}
{$IFDEF DIRECT3D_VERSION_5}
(*
* An invalid device was requested by the application.
*)
D3DERR_INVALID_DEVICE = MAKE_DDHRESULT + 705;
{$EXTERNALSYM D3DERR_INVALID_DEVICE}
D3DERR_INITFAILED = MAKE_DDHRESULT + 706;
{$EXTERNALSYM D3DERR_INITFAILED}
(*
* SetRenderTarget attempted on a device that was
* QI'd off the render target.
*)
D3DERR_DEVICEAGGREGATED = MAKE_DDHRESULT + 707;
{$EXTERNALSYM D3DERR_DEVICEAGGREGATED}
{$ENDIF} // DIRECT3D_VERSION_5
D3DERR_EXECUTE_CREATE_FAILED = MAKE_DDHRESULT + 710;
{$EXTERNALSYM D3DERR_EXECUTE_CREATE_FAILED}
D3DERR_EXECUTE_DESTROY_FAILED = MAKE_DDHRESULT + 711;
{$EXTERNALSYM D3DERR_EXECUTE_DESTROY_FAILED}
D3DERR_EXECUTE_LOCK_FAILED = MAKE_DDHRESULT + 712;
{$EXTERNALSYM D3DERR_EXECUTE_LOCK_FAILED}
D3DERR_EXECUTE_UNLOCK_FAILED = MAKE_DDHRESULT + 713;
{$EXTERNALSYM D3DERR_EXECUTE_UNLOCK_FAILED}
D3DERR_EXECUTE_LOCKED = MAKE_DDHRESULT + 714;
{$EXTERNALSYM D3DERR_EXECUTE_LOCKED}
D3DERR_EXECUTE_NOT_LOCKED = MAKE_DDHRESULT + 715;
{$EXTERNALSYM D3DERR_EXECUTE_NOT_LOCKED}
D3DERR_EXECUTE_FAILED = MAKE_DDHRESULT + 716;
{$EXTERNALSYM D3DERR_EXECUTE_FAILED}
D3DERR_EXECUTE_CLIPPED_FAILED = MAKE_DDHRESULT + 717;
{$EXTERNALSYM D3DERR_EXECUTE_CLIPPED_FAILED}
D3DERR_TEXTURE_NO_SUPPORT = MAKE_DDHRESULT + 720;
{$EXTERNALSYM D3DERR_TEXTURE_NO_SUPPORT}
D3DERR_TEXTURE_CREATE_FAILED = MAKE_DDHRESULT + 721;
{$EXTERNALSYM D3DERR_TEXTURE_CREATE_FAILED}
D3DERR_TEXTURE_DESTROY_FAILED = MAKE_DDHRESULT + 722;
{$EXTERNALSYM D3DERR_TEXTURE_DESTROY_FAILED}
D3DERR_TEXTURE_LOCK_FAILED = MAKE_DDHRESULT + 723;
{$EXTERNALSYM D3DERR_TEXTURE_LOCK_FAILED}
D3DERR_TEXTURE_UNLOCK_FAILED = MAKE_DDHRESULT + 724;
{$EXTERNALSYM D3DERR_TEXTURE_UNLOCK_FAILED}
D3DERR_TEXTURE_LOAD_FAILED = MAKE_DDHRESULT + 725;
{$EXTERNALSYM D3DERR_TEXTURE_LOAD_FAILED}
D3DERR_TEXTURE_SWAP_FAILED = MAKE_DDHRESULT + 726;
{$EXTERNALSYM D3DERR_TEXTURE_SWAP_FAILED}
D3DERR_TEXTURE_LOCKED = MAKE_DDHRESULT + 727;
{$EXTERNALSYM D3DERR_TEXTURE_LOCKED}
D3DERR_TEXTURE_NOT_LOCKED = MAKE_DDHRESULT + 728;
{$EXTERNALSYM D3DERR_TEXTURE_NOT_LOCKED}
D3DERR_TEXTURE_GETSURF_FAILED = MAKE_DDHRESULT + 729;
{$EXTERNALSYM D3DERR_TEXTURE_GETSURF_FAILED}
D3DERR_MATRIX_CREATE_FAILED = MAKE_DDHRESULT + 730;
{$EXTERNALSYM D3DERR_MATRIX_CREATE_FAILED}
D3DERR_MATRIX_DESTROY_FAILED = MAKE_DDHRESULT + 731;
{$EXTERNALSYM D3DERR_MATRIX_DESTROY_FAILED}
D3DERR_MATRIX_SETDATA_FAILED = MAKE_DDHRESULT + 732;
{$EXTERNALSYM D3DERR_MATRIX_SETDATA_FAILED}
D3DERR_MATRIX_GETDATA_FAILED = MAKE_DDHRESULT + 733;
{$EXTERNALSYM D3DERR_MATRIX_GETDATA_FAILED}
D3DERR_SETVIEWPORTDATA_FAILED = MAKE_DDHRESULT + 734;
{$EXTERNALSYM D3DERR_SETVIEWPORTDATA_FAILED}
{$IFDEF DIRECT3D_VERSION_5}
D3DERR_INVALIDCURRENTVIEWPORT = MAKE_DDHRESULT + 735;
{$EXTERNALSYM D3DERR_INVALIDCURRENTVIEWPORT}
D3DERR_INVALIDPRIMITIVETYPE = MAKE_DDHRESULT + 736;
{$EXTERNALSYM D3DERR_INVALIDPRIMITIVETYPE}
D3DERR_INVALIDVERTEXTYPE = MAKE_DDHRESULT + 737;
{$EXTERNALSYM D3DERR_INVALIDVERTEXTYPE}
D3DERR_TEXTURE_BADSIZE = MAKE_DDHRESULT + 738;
{$EXTERNALSYM D3DERR_TEXTURE_BADSIZE}
D3DERR_INVALIDRAMPTEXTURE = MAKE_DDHRESULT + 739;
{$EXTERNALSYM D3DERR_INVALIDRAMPTEXTURE}
{$ENDIF} // DIRECT3D_VERSION_5
D3DERR_MATERIAL_CREATE_FAILED = MAKE_DDHRESULT + 740;
{$EXTERNALSYM D3DERR_MATERIAL_CREATE_FAILED}
D3DERR_MATERIAL_DESTROY_FAILED = MAKE_DDHRESULT + 741;
{$EXTERNALSYM D3DERR_MATERIAL_DESTROY_FAILED}
D3DERR_MATERIAL_SETDATA_FAILED = MAKE_DDHRESULT + 742;
{$EXTERNALSYM D3DERR_MATERIAL_SETDATA_FAILED}
D3DERR_MATERIAL_GETDATA_FAILED = MAKE_DDHRESULT + 743;
{$EXTERNALSYM D3DERR_MATERIAL_GETDATA_FAILED}
{$IFDEF DIRECT3D_VERSION_5}
D3DERR_INVALIDPALETTE = MAKE_DDHRESULT + 744;
{$EXTERNALSYM D3DERR_INVALIDPALETTE}
D3DERR_ZBUFF_NEEDS_SYSTEMMEMORY = MAKE_DDHRESULT + 745;
{$EXTERNALSYM D3DERR_ZBUFF_NEEDS_SYSTEMMEMORY}
D3DERR_ZBUFF_NEEDS_VIDEOMEMORY = MAKE_DDHRESULT + 746;
{$EXTERNALSYM D3DERR_ZBUFF_NEEDS_VIDEOMEMORY}
D3DERR_SURFACENOTINVIDMEM = MAKE_DDHRESULT + 747;
{$EXTERNALSYM D3DERR_SURFACENOTINVIDMEM}
{$ENDIF} // DIRECT3D_VERSION_5
D3DERR_LIGHT_SET_FAILED = MAKE_DDHRESULT + 750;
{$EXTERNALSYM D3DERR_LIGHT_SET_FAILED}
{$IFDEF DIRECT3D_VERSION_5}
D3DERR_LIGHTHASVIEWPORT = MAKE_DDHRESULT + 751;
{$EXTERNALSYM D3DERR_LIGHTHASVIEWPORT}
D3DERR_LIGHTNOTINTHISVIEWPORT = MAKE_DDHRESULT + 752;
{$EXTERNALSYM D3DERR_LIGHTNOTINTHISVIEWPORT}
{$ENDIF} // DIRECT3D_VERSION_5
D3DERR_SCENE_IN_SCENE = MAKE_DDHRESULT + 760;
{$EXTERNALSYM D3DERR_SCENE_IN_SCENE}
D3DERR_SCENE_NOT_IN_SCENE = MAKE_DDHRESULT + 761;
{$EXTERNALSYM D3DERR_SCENE_NOT_IN_SCENE}
D3DERR_SCENE_BEGIN_FAILED = MAKE_DDHRESULT + 762;
{$EXTERNALSYM D3DERR_SCENE_BEGIN_FAILED}
D3DERR_SCENE_END_FAILED = MAKE_DDHRESULT + 763;
{$EXTERNALSYM D3DERR_SCENE_END_FAILED}
{$IFDEF DIRECT3D_VERSION_5}
D3DERR_INBEGIN = MAKE_DDHRESULT + 770;
{$EXTERNALSYM D3DERR_INBEGIN}
D3DERR_NOTINBEGIN = MAKE_DDHRESULT + 771;
{$EXTERNALSYM D3DERR_NOTINBEGIN}
D3DERR_NOVIEWPORTS = MAKE_DDHRESULT + 772;
{$EXTERNALSYM D3DERR_NOVIEWPORTS}
D3DERR_VIEWPORTDATANOTSET = MAKE_DDHRESULT + 773;
{$EXTERNALSYM D3DERR_VIEWPORTDATANOTSET}
D3DERR_VIEWPORTHASNODEVICE = MAKE_DDHRESULT + 774;
{$EXTERNALSYM D3DERR_VIEWPORTHASNODEVICE}
D3DERR_NOCURRENTVIEWPORT = MAKE_DDHRESULT + 775;
{$EXTERNALSYM D3DERR_NOCURRENTVIEWPORT}
{$ENDIF} // DIRECT3D_VERSION_5
{$IFDEF DIRECT3D_VERSION_6}
D3DERR_INVALIDVERTEXFORMAT = MAKE_DDHRESULT + 2048;
{$EXTERNALSYM D3DERR_INVALIDVERTEXFORMAT}
(*
* Attempted to CreateTexture on a surface that had a color key
*)
D3DERR_COLORKEYATTACHED = MAKE_DDHRESULT + 2050;
{$EXTERNALSYM D3DERR_COLORKEYATTACHED}
D3DERR_VERTEXBUFFEROPTIMIZED = MAKE_DDHRESULT + 2060;
{$EXTERNALSYM D3DERR_VERTEXBUFFEROPTIMIZED}
D3DERR_VBUF_CREATE_FAILED = MAKE_DDHRESULT + 2061;
{$EXTERNALSYM D3DERR_VBUF_CREATE_FAILED}
D3DERR_VERTEXBUFFERLOCKED = MAKE_DDHRESULT + 2062;
{$EXTERNALSYM D3DERR_VERTEXBUFFERLOCKED}
D3DERR_ZBUFFER_NOTPRESENT = MAKE_DDHRESULT + 2070;
{$EXTERNALSYM D3DERR_ZBUFFER_NOTPRESENT}
D3DERR_STENCILBUFFER_NOTPRESENT = MAKE_DDHRESULT + 2071;
{$EXTERNALSYM D3DERR_STENCILBUFFER_NOTPRESENT}
D3DERR_WRONGTEXTUREFORMAT = MAKE_DDHRESULT + 2072;
{$EXTERNALSYM D3DERR_WRONGTEXTUREFORMAT}
D3DERR_UNSUPPORTEDCOLOROPERATION = MAKE_DDHRESULT + 2073;
{$EXTERNALSYM D3DERR_UNSUPPORTEDCOLOROPERATION}
D3DERR_UNSUPPORTEDCOLORARG = MAKE_DDHRESULT + 2074;
{$EXTERNALSYM D3DERR_UNSUPPORTEDCOLORARG}
D3DERR_UNSUPPORTEDALPHAOPERATION = MAKE_DDHRESULT + 2075;
{$EXTERNALSYM D3DERR_UNSUPPORTEDALPHAOPERATION}
D3DERR_UNSUPPORTEDALPHAARG = MAKE_DDHRESULT + 2076;
{$EXTERNALSYM D3DERR_UNSUPPORTEDALPHAARG}
D3DERR_TOOMANYOPERATIONS = MAKE_DDHRESULT + 2077;
{$EXTERNALSYM D3DERR_TOOMANYOPERATIONS}
D3DERR_CONFLICTINGTEXTUREFILTER = MAKE_DDHRESULT + 2078;
{$EXTERNALSYM D3DERR_CONFLICTINGTEXTUREFILTER}
D3DERR_UNSUPPORTEDFACTORVALUE = MAKE_DDHRESULT + 2079;
{$EXTERNALSYM D3DERR_UNSUPPORTEDFACTORVALUE}
D3DERR_CONFLICTINGRENDERSTATE = MAKE_DDHRESULT + 2081;
{$EXTERNALSYM D3DERR_CONFLICTINGRENDERSTATE}
D3DERR_UNSUPPORTEDTEXTUREFILTER = MAKE_DDHRESULT + 2082;
{$EXTERNALSYM D3DERR_UNSUPPORTEDTEXTUREFILTER}
D3DERR_TOOMANYPRIMITIVES = MAKE_DDHRESULT + 2083;
{$EXTERNALSYM D3DERR_TOOMANYPRIMITIVES}
D3DERR_INVALIDMATRIX = MAKE_DDHRESULT + 2084;
{$EXTERNALSYM D3DERR_INVALIDMATRIX}
D3DERR_TOOMANYVERTICES = MAKE_DDHRESULT + 2085;
{$EXTERNALSYM D3DERR_TOOMANYVERTICES}
D3DERR_CONFLICTINGTEXTUREPALETTE = MAKE_DDHRESULT + 2086;
{$EXTERNALSYM D3DERR_CONFLICTINGTEXTUREPALETTE}
{$ENDIF} // DIRECT3D_VERSION_6
{$IFDEF DIRECT3D_VERSION_7}
D3DERR_INVALIDSTATEBLOCK = MAKE_DDHRESULT + 2100;
{$EXTERNALSYM D3DERR_INVALIDSTATEBLOCK}
D3DERR_INBEGINSTATEBLOCK = MAKE_DDHRESULT + 2101;
{$EXTERNALSYM D3DERR_INBEGINSTATEBLOCK}
D3DERR_NOTINBEGINSTATEBLOCK = MAKE_DDHRESULT + 2102;
{$EXTERNALSYM D3DERR_NOTINBEGINSTATEBLOCK}
{$ENDIF} // DIRECT3D_VERSION_7
{$ENDIF} // DIRECT3D_VERSION_LESS_8
procedure DisableFPUExceptions;
procedure EnableFPUExceptions;
{$IFNDEF EXCLUDE_DXFILE_FROM_DIRECT3D}
(***************************************************************************
*
* Copyright (C) 1998-1999 Microsoft Corporation. All Rights Reserved.
*
* File: dxfile.h
*
* Content: DirectX File public header file
*
***************************************************************************)
var
DXFileDLL : HMODULE;
function DXFileErrorString(Value: HResult): string;
type
TDXFileFormat = (
DXFILEFORMAT_BINARY,
DXFILEFORMAT_TEXT,
DXFILEFORMAT_COMPRESSED
);
TDXFileLoadOptions = (
DXFILELOAD_FROMFILE,
DXFILELOAD_FROMRESOURCE,
DXFILELOAD_FROMMEMORY,
DXFILELOAD_INVALID_3,
DXFILELOAD_FROMSTREAM,
DXFILELOAD_INVALID_5,
DXFILELOAD_INVALID_6,
DXFILELOAD_INVALID_7,
DXFILELOAD_FROMURL
);
PDXFileLoadResource = ^TDXFileLoadResource;
TDXFileLoadResource = packed record
hModule: HModule;
lpName: PAnsiChar;
lpType: PAnsiChar;
end;
PDXFileLoadMemory = ^TDXFileLoadMemory;
TDXFileLoadMemory = packed record
lpMemory: Pointer;
dSize: DWORD;
end;
(*
* DirectX File object types.
*)
IDirectXFile = interface;
IDirectXFileEnumObject = interface;
IDirectXFileSaveObject = interface;
IDirectXFileObject = interface;
IDirectXFileData = interface;
IDirectXFileDataReference = interface;
IDirectXFileBinary = interface;
(*
* DirectX File interfaces.
*)
IDirectXFile = interface(IUnknown)
['{3d82ab40-62da-11cf-ab39-0020af71e433}']
function CreateEnumObject(pvSource: Pointer;
dwLoadOptions: TDXFileLoadOptions;
var ppEnumObj: IDirectXFileEnumObject): HResult; stdcall;
function CreateSaveObject(szFileName: PChar; dwFileFormat: TDXFileFormat;
var ppSaveObj: IDirectXFileSaveObject): HResult; stdcall;
function RegisterTemplates(pvData: Pointer; cbSize: DWORD): HResult; stdcall;
end;
IDirectXFileEnumObject = interface(IUnknown)
['{3d82ab41-62da-11cf-ab39-0020af71e433}']
function GetNextDataObject(var ppDataObj: IDirectXFileData): HResult; stdcall;
function GetDataObjectById
(const rguid: TGUID; var ppDataObj: IDirectXFileData): HResult; stdcall;
function GetDataObjectByName
(szName: PChar; var ppDataObj: IDirectXFileData): HResult; stdcall;
end;
IDirectXFileSaveObject = interface(IUnknown)
['{3d82ab42-62da-11cf-ab39-0020af71e433}']
function SaveTemplates
(cTemplates: DWORD; var ppguidTemplates: PGUID): HResult; stdcall;
function CreateDataObject(const rguidTemplate: TGUID; szName: PChar;
pguid: PGUID; cbSize: DWORD; pvData: Pointer;
var ppDataObj: IDirectXFileData): HResult; stdcall;
function SaveData(pDataObj: IDirectXFileData): HResult; stdcall;
end;
IDirectXFileObject = interface(IUnknown)
['{3d82ab43-62da-11cf-ab39-0020af71e433}']
function GetName(pstrNameBuf: PChar; var dwBufLen: DWORD): HResult; stdcall;
function GetId(var pGuidBuf: TGUID): HResult; stdcall;
end;
IDirectXFileData = interface(IDirectXFileObject)
['{3d82ab44-62da-11cf-ab39-0020af71e433}']
function GetData
(szMember: PChar; var pcbSize: DWORD; var ppvData: Pointer): HResult; stdcall;
function GetType(var ppguid: PGUID): HResult; stdcall;
function GetNextObject(var ppChildObj: IDirectXFileObject): HResult; stdcall;
function AddDataObject(pDataObj: IDirectXFileData): HResult; stdcall;
function AddDataReference(szRef: PChar; pguidRef: PGUID): HResult; stdcall;
function AddBinaryObject(szName: PChar; pguid: PGUID; szMimeType: PChar;
pvData: Pointer; cbSize: DWORD): HResult; stdcall;
end;
IDirectXFileDataReference = interface(IDirectXFileObject)
['{3d82ab45-62da-11cf-ab39-0020af71e433}']
function Resolve(var ppDataObj: IDirectXFileData): HResult; stdcall;
end;
IDirectXFileBinary = interface(IDirectXFileObject)
['{3d82ab46-62da-11cf-ab39-0020af71e433}']
function GetSize(var pcbSize: DWORD): HResult; stdcall;
function GetMimeType(var pszMimeType: PChar): HResult; stdcall;
function Read(pvData: Pointer; cbSize: DWORD; pcbRead: PDWORD{?}): HResult; stdcall;
end;
const
(*
* DirectXFile Object Class Id (for CoCreateInstance())
*)
CLSID_CDirectXFile: TGUID =
(D1:$4516ec43;D2:$8f20;D3:$11d0;D4:($9b,$6d,$00,$00,$c0,$78,$1b,$c3));
(*
* DirectX File Interface GUIDs.
*)
type
IID_IDirectXFile = IDirectXFile;
IID_IDirectXFileEnumObject = IDirectXFileEnumObject;
IID_IDirectXFileSaveObject = IDirectXFileSaveObject;
IID_IDirectXFileObject = IDirectXFileObject;
IID_IDirectXFileData = IDirectXFileData;
IID_IDirectXFileDataReference = IDirectXFileDataReference;
IID_IDirectXFileBinary = IDirectXFileBinary;
(*
* DirectX File Header template's GUID.
*)
const
TID_DXFILEHeader: TGUID =
(D1:$3d82ab43;D2:$62da;D3:$11cf;D4:($ab,$39,$00,$20,$af,$71,$e4,$33));
(*
* DirectX File errors.
*)
const
DXFILE_OK = 0;
DXFILEERR_BADOBJECT = MAKE_DDHRESULT or 850;
DXFILEERR_BADVALUE = MAKE_DDHRESULT or 851;
DXFILEERR_BADTYPE = MAKE_DDHRESULT or 852;
DXFILEERR_BADSTREAMHANDLE = MAKE_DDHRESULT or 853;
DXFILEERR_BADALLOC = MAKE_DDHRESULT or 854;
DXFILEERR_NOTFOUND = MAKE_DDHRESULT or 855;
DXFILEERR_NOTDONEYET = MAKE_DDHRESULT or 856;
DXFILEERR_FILENOTFOUND = MAKE_DDHRESULT or 857;
DXFILEERR_RESOURCENOTFOUND = MAKE_DDHRESULT or 858;
DXFILEERR_URLNOTFOUND = MAKE_DDHRESULT or 859;
DXFILEERR_BADRESOURCE = MAKE_DDHRESULT or 860;
DXFILEERR_BADFILETYPE = MAKE_DDHRESULT or 861;
DXFILEERR_BADFILEVERSION = MAKE_DDHRESULT or 862;
DXFILEERR_BADFILEFLOATSIZE = MAKE_DDHRESULT or 863;
DXFILEERR_BADFILECOMPRESSIONTYPE = MAKE_DDHRESULT or 864;
DXFILEERR_BADFILE = MAKE_DDHRESULT or 865;
DXFILEERR_PARSEERROR = MAKE_DDHRESULT or 866;
DXFILEERR_NOTEMPLATE = MAKE_DDHRESULT or 867;
DXFILEERR_BADARRAYSIZE = MAKE_DDHRESULT or 868;
DXFILEERR_BADDATAREFERENCE = MAKE_DDHRESULT or 869;
DXFILEERR_INTERNALERROR = MAKE_DDHRESULT or 870;
DXFILEERR_NOMOREOBJECTS = MAKE_DDHRESULT or 871;
DXFILEERR_BADINTRINSICS = MAKE_DDHRESULT or 872;
DXFILEERR_NOMORESTREAMHANDLES = MAKE_DDHRESULT or 873;
DXFILEERR_NOMOREDATA = MAKE_DDHRESULT or 874;
DXFILEERR_BADCACHEFILE = MAKE_DDHRESULT or 875;
DXFILEERR_NOINTERNET = MAKE_DDHRESULT or 876;
(*
* API for creating IDirectXFile interface.
*)
var
DirectXFileCreate : function
(out lplpDirectXFile: IDirectXFile): HResult; stdcall;
(* D3DRM XFile templates in binary form *)
const
D3DRM_XTEMPLATES: array [0..3214] of Byte = (
$78, $6f, $66, $20, $30, $33, $30, $32, $62,
$69, $6e, $20, $30, $30, $36, $34, $1f, 0, $1,
0, $6, 0, 0, 0, $48, $65, $61, $64, $65,
$72, $a, 0, $5, 0, $43, $ab, $82, $3d, $da,
$62, $cf, $11, $ab, $39, 0, $20, $af, $71, $e4,
$33, $28, 0, $1, 0, $5, 0, 0, 0, $6d,
$61, $6a, $6f, $72, $14, 0, $28, 0, $1, 0,
$5, 0, 0, 0, $6d, $69, $6e, $6f, $72, $14,
0, $29, 0, $1, 0, $5, 0, 0, 0, $66,
$6c, $61, $67, $73, $14, 0, $b, 0, $1f, 0,
$1, 0, $6, 0, 0, 0, $56, $65, $63, $74,
$6f, $72, $a, 0, $5, 0, $5e, $ab, $82, $3d,
$da, $62, $cf, $11, $ab, $39, 0, $20, $af, $71,
$e4, $33, $2a, 0, $1, 0, $1, 0, 0, 0,
$78, $14, 0, $2a, 0, $1, 0, $1, 0, 0,
0, $79, $14, 0, $2a, 0, $1, 0, $1, 0,
0, 0, $7a, $14, 0, $b, 0, $1f, 0, $1,
0, $8, 0, 0, 0, $43, $6f, $6f, $72, $64,
$73, $32, $64, $a, 0, $5, 0, $44, $3f, $f2,
$f6, $86, $76, $cf, $11, $8f, $52, 0, $40, $33,
$35, $94, $a3, $2a, 0, $1, 0, $1, 0, 0,
0, $75, $14, 0, $2a, 0, $1, 0, $1, 0,
0, 0, $76, $14, 0, $b, 0, $1f, 0, $1,
0, $9, 0, 0, 0, $4d, $61, $74, $72, $69,
$78, $34, $78, $34, $a, 0, $5, 0, $45, $3f,
$f2, $f6, $86, $76, $cf, $11, $8f, $52, 0, $40,
$33, $35, $94, $a3, $34, 0, $2a, 0, $1, 0,
$6, 0, 0, 0, $6d, $61, $74, $72, $69, $78,
$e, 0, $3, 0, $10, 0, 0, 0, $f, 0,
$14, 0, $b, 0, $1f, 0, $1, 0, $9, 0,
0, 0, $43, $6f, $6c, $6f, $72, $52, $47, $42,
$41, $a, 0, $5, 0, $e0, $44, $ff, $35, $7c,
$6c, $cf, $11, $8f, $52, 0, $40, $33, $35, $94,
$a3, $2a, 0, $1, 0, $3, 0, 0, 0, $72,
$65, $64, $14, 0, $2a, 0, $1, 0, $5, 0,
0, 0, $67, $72, $65, $65, $6e, $14, 0, $2a,
0, $1, 0, $4, 0, 0, 0, $62, $6c, $75,
$65, $14, 0, $2a, 0, $1, 0, $5, 0, 0,
0, $61, $6c, $70, $68, $61, $14, 0, $b, 0,
$1f, 0, $1, 0, $8, 0, 0, 0, $43, $6f,
$6c, $6f, $72, $52, $47, $42, $a, 0, $5, 0,
$81, $6e, $e1, $d3, $35, $78, $cf, $11, $8f, $52,
0, $40, $33, $35, $94, $a3, $2a, 0, $1, 0,
$3, 0, 0, 0, $72, $65, $64, $14, 0, $2a,
0, $1, 0, $5, 0, 0, 0, $67, $72, $65,
$65, $6e, $14, 0, $2a, 0, $1, 0, $4, 0,
0, 0, $62, $6c, $75, $65, $14, 0, $b, 0,
$1f, 0, $1, 0, $c, 0, 0, 0, $49, $6e,
$64, $65, $78, $65, $64, $43, $6f, $6c, $6f, $72,
$a, 0, $5, 0, $20, $b8, $30, $16, $42, $78,
$cf, $11, $8f, $52, 0, $40, $33, $35, $94, $a3,
$29, 0, $1, 0, $5, 0, 0, 0, $69, $6e,
$64, $65, $78, $14, 0, $1, 0, $9, 0, 0,
0, $43, $6f, $6c, $6f, $72, $52, $47, $42, $41,
$1, 0, $a, 0, 0, 0, $69, $6e, $64, $65,
$78, $43, $6f, $6c, $6f, $72, $14, 0, $b, 0,
$1f, 0, $1, 0, $7, 0, 0, 0, $42, $6f,
$6f, $6c, $65, $61, $6e, $a, 0, $5, 0, $a0,
$a6, $7d, $53, $37, $ca, $d0, $11, $94, $1c, 0,
$80, $c8, $c, $fa, $7b, $29, 0, $1, 0, $9,
0, 0, 0, $74, $72, $75, $65, $66, $61, $6c,
$73, $65, $14, 0, $b, 0, $1f, 0, $1, 0,
$9, 0, 0, 0, $42, $6f, $6f, $6c, $65, $61,
$6e, $32, $64, $a, 0, $5, 0, $63, $ae, $85,
$48, $e8, $78, $cf, $11, $8f, $52, 0, $40, $33,
$35, $94, $a3, $1, 0, $7, 0, 0, 0, $42,
$6f, $6f, $6c, $65, $61, $6e, $1, 0, $1, 0,
0, 0, $75, $14, 0, $1, 0, $7, 0, 0,
0, $42, $6f, $6f, $6c, $65, $61, $6e, $1, 0,
$1, 0, 0, 0, $76, $14, 0, $b, 0, $1f,
0, $1, 0, $c, 0, 0, 0, $4d, $61, $74,
$65, $72, $69, $61, $6c, $57, $72, $61, $70, $a,
0, $5, 0, $60, $ae, $85, $48, $e8, $78, $cf,
$11, $8f, $52, 0, $40, $33, $35, $94, $a3, $1,
0, $7, 0, 0, 0, $42, $6f, $6f, $6c, $65,
$61, $6e, $1, 0, $1, 0, 0, 0, $75, $14,
0, $1, 0, $7, 0, 0, 0, $42, $6f, $6f,
$6c, $65, $61, $6e, $1, 0, $1, 0, 0, 0,
$76, $14, 0, $b, 0, $1f, 0, $1, 0, $f,
0, 0, 0, $54, $65, $78, $74, $75, $72, $65,
$46, $69, $6c, $65, $6e, $61, $6d, $65, $a, 0,
$5, 0, $e1, $90, $27, $a4, $10, $78, $cf, $11,
$8f, $52, 0, $40, $33, $35, $94, $a3, $31, 0,
$1, 0, $8, 0, 0, 0, $66, $69, $6c, $65,
$6e, $61, $6d, $65, $14, 0, $b, 0, $1f, 0,
$1, 0, $8, 0, 0, 0, $4d, $61, $74, $65,
$72, $69, $61, $6c, $a, 0, $5, 0, $4d, $ab,
$82, $3d, $da, $62, $cf, $11, $ab, $39, 0, $20,
$af, $71, $e4, $33, $1, 0, $9, 0, 0, 0,
$43, $6f, $6c, $6f, $72, $52, $47, $42, $41, $1,
0, $9, 0, 0, 0, $66, $61, $63, $65, $43,
$6f, $6c, $6f, $72, $14, 0, $2a, 0, $1, 0,
$5, 0, 0, 0, $70, $6f, $77, $65, $72, $14,
0, $1, 0, $8, 0, 0, 0, $43, $6f, $6c,
$6f, $72, $52, $47, $42, $1, 0, $d, 0, 0,
0, $73, $70, $65, $63, $75, $6c, $61, $72, $43,
$6f, $6c, $6f, $72, $14, 0, $1, 0, $8, 0,
0, 0, $43, $6f, $6c, $6f, $72, $52, $47, $42,
$1, 0, $d, 0, 0, 0, $65, $6d, $69, $73,
$73, $69, $76, $65, $43, $6f, $6c, $6f, $72, $14,
0, $e, 0, $12, 0, $12, 0, $12, 0, $f,
0, $b, 0, $1f, 0, $1, 0, $8, 0, 0,
0, $4d, $65, $73, $68, $46, $61, $63, $65, $a,
0, $5, 0, $5f, $ab, $82, $3d, $da, $62, $cf,
$11, $ab, $39, 0, $20, $af, $71, $e4, $33, $29,
0, $1, 0, $12, 0, 0, 0, $6e, $46, $61,
$63, $65, $56, $65, $72, $74, $65, $78, $49, $6e,
$64, $69, $63, $65, $73, $14, 0, $34, 0, $29,
0, $1, 0, $11, 0, 0, 0, $66, $61, $63,
$65, $56, $65, $72, $74, $65, $78, $49, $6e, $64,
$69, $63, $65, $73, $e, 0, $1, 0, $12, 0,
0, 0, $6e, $46, $61, $63, $65, $56, $65, $72,
$74, $65, $78, $49, $6e, $64, $69, $63, $65, $73,
$f, 0, $14, 0, $b, 0, $1f, 0, $1, 0,
$d, 0, 0, 0, $4d, $65, $73, $68, $46, $61,
$63, $65, $57, $72, $61, $70, $73, $a, 0, $5,
0, $c0, $c5, $1e, $ed, $a8, $c0, $d0, $11, $94,
$1c, 0, $80, $c8, $c, $fa, $7b, $29, 0, $1,
0, $f, 0, 0, 0, $6e, $46, $61, $63, $65,
$57, $72, $61, $70, $56, $61, $6c, $75, $65, $73,
$14, 0, $34, 0, $1, 0, $9, 0, 0, 0,
$42, $6f, $6f, $6c, $65, $61, $6e, $32, $64, $1,
0, $e, 0, 0, 0, $66, $61, $63, $65, $57,
$72, $61, $70, $56, $61, $6c, $75, $65, $73, $e,
0, $1, 0, $f, 0, 0, 0, $6e, $46, $61,
$63, $65, $57, $72, $61, $70, $56, $61, $6c, $75,
$65, $73, $f, 0, $14, 0, $b, 0, $1f, 0,
$1, 0, $11, 0, 0, 0, $4d, $65, $73, $68,
$54, $65, $78, $74, $75, $72, $65, $43, $6f, $6f,
$72, $64, $73, $a, 0, $5, 0, $40, $3f, $f2,
$f6, $86, $76, $cf, $11, $8f, $52, 0, $40, $33,
$35, $94, $a3, $29, 0, $1, 0, $e, 0, 0,
0, $6e, $54, $65, $78, $74, $75, $72, $65, $43,
$6f, $6f, $72, $64, $73, $14, 0, $34, 0, $1,
0, $8, 0, 0, 0, $43, $6f, $6f, $72, $64,
$73, $32, $64, $1, 0, $d, 0, 0, 0, $74,
$65, $78, $74, $75, $72, $65, $43, $6f, $6f, $72,
$64, $73, $e, 0, $1, 0, $e, 0, 0, 0,
$6e, $54, $65, $78, $74, $75, $72, $65, $43, $6f,
$6f, $72, $64, $73, $f, 0, $14, 0, $b, 0,
$1f, 0, $1, 0, $10, 0, 0, 0, $4d, $65,
$73, $68, $4d, $61, $74, $65, $72, $69, $61, $6c,
$4c, $69, $73, $74, $a, 0, $5, 0, $42, $3f,
$f2, $f6, $86, $76, $cf, $11, $8f, $52, 0, $40,
$33, $35, $94, $a3, $29, 0, $1, 0, $a, 0,
0, 0, $6e, $4d, $61, $74, $65, $72, $69, $61,
$6c, $73, $14, 0, $29, 0, $1, 0, $c, 0,
0, 0, $6e, $46, $61, $63, $65, $49, $6e, $64,
$65, $78, $65, $73, $14, 0, $34, 0, $29, 0,
$1, 0, $b, 0, 0, 0, $66, $61, $63, $65,
$49, $6e, $64, $65, $78, $65, $73, $e, 0, $1,
0, $c, 0, 0, 0, $6e, $46, $61, $63, $65,
$49, $6e, $64, $65, $78, $65, $73, $f, 0, $14,
0, $e, 0, $1, 0, $8, 0, 0, 0, $4d,
$61, $74, $65, $72, $69, $61, $6c, $f, 0, $b,
0, $1f, 0, $1, 0, $b, 0, 0, 0, $4d,
$65, $73, $68, $4e, $6f, $72, $6d, $61, $6c, $73,
$a, 0, $5, 0, $43, $3f, $f2, $f6, $86, $76,
$cf, $11, $8f, $52, 0, $40, $33, $35, $94, $a3,
$29, 0, $1, 0, $8, 0, 0, 0, $6e, $4e,
$6f, $72, $6d, $61, $6c, $73, $14, 0, $34, 0,
$1, 0, $6, 0, 0, 0, $56, $65, $63, $74,
$6f, $72, $1, 0, $7, 0, 0, 0, $6e, $6f,
$72, $6d, $61, $6c, $73, $e, 0, $1, 0, $8,
0, 0, 0, $6e, $4e, $6f, $72, $6d, $61, $6c,
$73, $f, 0, $14, 0, $29, 0, $1, 0, $c,
0, 0, 0, $6e, $46, $61, $63, $65, $4e, $6f,
$72, $6d, $61, $6c, $73, $14, 0, $34, 0, $1,
0, $8, 0, 0, 0, $4d, $65, $73, $68, $46,
$61, $63, $65, $1, 0, $b, 0, 0, 0, $66,
$61, $63, $65, $4e, $6f, $72, $6d, $61, $6c, $73,
$e, 0, $1, 0, $c, 0, 0, 0, $6e, $46,
$61, $63, $65, $4e, $6f, $72, $6d, $61, $6c, $73,
$f, 0, $14, 0, $b, 0, $1f, 0, $1, 0,
$10, 0, 0, 0, $4d, $65, $73, $68, $56, $65,
$72, $74, $65, $78, $43, $6f, $6c, $6f, $72, $73,
$a, 0, $5, 0, $21, $b8, $30, $16, $42, $78,
$cf, $11, $8f, $52, 0, $40, $33, $35, $94, $a3,
$29, 0, $1, 0, $d, 0, 0, 0, $6e, $56,
$65, $72, $74, $65, $78, $43, $6f, $6c, $6f, $72,
$73, $14, 0, $34, 0, $1, 0, $c, 0, 0,
0, $49, $6e, $64, $65, $78, $65, $64, $43, $6f,
$6c, $6f, $72, $1, 0, $c, 0, 0, 0, $76,
$65, $72, $74, $65, $78, $43, $6f, $6c, $6f, $72,
$73, $e, 0, $1, 0, $d, 0, 0, 0, $6e,
$56, $65, $72, $74, $65, $78, $43, $6f, $6c, $6f,
$72, $73, $f, 0, $14, 0, $b, 0, $1f, 0,
$1, 0, $4, 0, 0, 0, $4d, $65, $73, $68,
$a, 0, $5, 0, $44, $ab, $82, $3d, $da, $62,
$cf, $11, $ab, $39, 0, $20, $af, $71, $e4, $33,
$29, 0, $1, 0, $9, 0, 0, 0, $6e, $56,
$65, $72, $74, $69, $63, $65, $73, $14, 0, $34,
0, $1, 0, $6, 0, 0, 0, $56, $65, $63,
$74, $6f, $72, $1, 0, $8, 0, 0, 0, $76,
$65, $72, $74, $69, $63, $65, $73, $e, 0, $1,
0, $9, 0, 0, 0, $6e, $56, $65, $72, $74,
$69, $63, $65, $73, $f, 0, $14, 0, $29, 0,
$1, 0, $6, 0, 0, 0, $6e, $46, $61, $63,
$65, $73, $14, 0, $34, 0, $1, 0, $8, 0,
0, 0, $4d, $65, $73, $68, $46, $61, $63, $65,
$1, 0, $5, 0, 0, 0, $66, $61, $63, $65,
$73, $e, 0, $1, 0, $6, 0, 0, 0, $6e,
$46, $61, $63, $65, $73, $f, 0, $14, 0, $e,
0, $12, 0, $12, 0, $12, 0, $f, 0, $b,
0, $1f, 0, $1, 0, $14, 0, 0, 0, $46,
$72, $61, $6d, $65, $54, $72, $61, $6e, $73, $66,
$6f, $72, $6d, $4d, $61, $74, $72, $69, $78, $a,
0, $5, 0, $41, $3f, $f2, $f6, $86, $76, $cf,
$11, $8f, $52, 0, $40, $33, $35, $94, $a3, $1,
0, $9, 0, 0, 0, $4d, $61, $74, $72, $69,
$78, $34, $78, $34, $1, 0, $b, 0, 0, 0,
$66, $72, $61, $6d, $65, $4d, $61, $74, $72, $69,
$78, $14, 0, $b, 0, $1f, 0, $1, 0, $5,
0, 0, 0, $46, $72, $61, $6d, $65, $a, 0,
$5, 0, $46, $ab, $82, $3d, $da, $62, $cf, $11,
$ab, $39, 0, $20, $af, $71, $e4, $33, $e, 0,
$12, 0, $12, 0, $12, 0, $f, 0, $b, 0,
$1f, 0, $1, 0, $9, 0, 0, 0, $46, $6c,
$6f, $61, $74, $4b, $65, $79, $73, $a, 0, $5,
0, $a9, $46, $dd, $10, $5b, $77, $cf, $11, $8f,
$52, 0, $40, $33, $35, $94, $a3, $29, 0, $1,
0, $7, 0, 0, 0, $6e, $56, $61, $6c, $75,
$65, $73, $14, 0, $34, 0, $2a, 0, $1, 0,
$6, 0, 0, 0, $76, $61, $6c, $75, $65, $73,
$e, 0, $1, 0, $7, 0, 0, 0, $6e, $56,
$61, $6c, $75, $65, $73, $f, 0, $14, 0, $b,
0, $1f, 0, $1, 0, $e, 0, 0, 0, $54,
$69, $6d, $65, $64, $46, $6c, $6f, $61, $74, $4b,
$65, $79, $73, $a, 0, $5, 0, $80, $b1, $6,
$f4, $3b, $7b, $cf, $11, $8f, $52, 0, $40, $33,
$35, $94, $a3, $29, 0, $1, 0, $4, 0, 0,
0, $74, $69, $6d, $65, $14, 0, $1, 0, $9,
0, 0, 0, $46, $6c, $6f, $61, $74, $4b, $65,
$79, $73, $1, 0, $6, 0, 0, 0, $74, $66,
$6b, $65, $79, $73, $14, 0, $b, 0, $1f, 0,
$1, 0, $c, 0, 0, 0, $41, $6e, $69, $6d,
$61, $74, $69, $6f, $6e, $4b, $65, $79, $a, 0,
$5, 0, $a8, $46, $dd, $10, $5b, $77, $cf, $11,
$8f, $52, 0, $40, $33, $35, $94, $a3, $29, 0,
$1, 0, $7, 0, 0, 0, $6b, $65, $79, $54,
$79, $70, $65, $14, 0, $29, 0, $1, 0, $5,
0, 0, 0, $6e, $4b, $65, $79, $73, $14, 0,
$34, 0, $1, 0, $e, 0, 0, 0, $54, $69,
$6d, $65, $64, $46, $6c, $6f, $61, $74, $4b, $65,
$79, $73, $1, 0, $4, 0, 0, 0, $6b, $65,
$79, $73, $e, 0, $1, 0, $5, 0, 0, 0,
$6e, $4b, $65, $79, $73, $f, 0, $14, 0, $b,
0, $1f, 0, $1, 0, $10, 0, 0, 0, $41,
$6e, $69, $6d, $61, $74, $69, $6f, $6e, $4f, $70,
$74, $69, $6f, $6e, $73, $a, 0, $5, 0, $c0,
$56, $bf, $e2, $f, $84, $cf, $11, $8f, $52, 0,
$40, $33, $35, $94, $a3, $29, 0, $1, 0, $a,
0, 0, 0, $6f, $70, $65, $6e, $63, $6c, $6f,
$73, $65, $64, $14, 0, $29, 0, $1, 0, $f,
0, 0, 0, $70, $6f, $73, $69, $74, $69, $6f,
$6e, $71, $75, $61, $6c, $69, $74, $79, $14, 0,
$b, 0, $1f, 0, $1, 0, $9, 0, 0, 0,
$41, $6e, $69, $6d, $61, $74, $69, $6f, $6e, $a,
0, $5, 0, $4f, $ab, $82, $3d, $da, $62, $cf,
$11, $ab, $39, 0, $20, $af, $71, $e4, $33, $e,
0, $12, 0, $12, 0, $12, 0, $f, 0, $b,
0, $1f, 0, $1, 0, $c, 0, 0, 0, $41,
$6e, $69, $6d, $61, $74, $69, $6f, $6e, $53, $65,
$74, $a, 0, $5, 0, $50, $ab, $82, $3d, $da,
$62, $cf, $11, $ab, $39, 0, $20, $af, $71, $e4,
$33, $e, 0, $1, 0, $9, 0, 0, 0, $41,
$6e, $69, $6d, $61, $74, $69, $6f, $6e, $f, 0,
$b, 0, $1f, 0, $1, 0, $a, 0, 0, 0,
$49, $6e, $6c, $69, $6e, $65, $44, $61, $74, $61,
$a, 0, $5, 0, $a0, $ee, $23, $3a, $b1, $94,
$d0, $11, $ab, $39, 0, $20, $af, $71, $e4, $33,
$e, 0, $1, 0, $6, 0, 0, 0, $42, $49,
$4e, $41, $52, $59, $f, 0, $b, 0, $1f, 0,
$1, 0, $3, 0, 0, 0, $55, $72, $6c, $a,
0, $5, 0, $a1, $ee, $23, $3a, $b1, $94, $d0,
$11, $ab, $39, 0, $20, $af, $71, $e4, $33, $29,
0, $1, 0, $5, 0, 0, 0, $6e, $55, $72,
$6c, $73, $14, 0, $34, 0, $31, 0, $1, 0,
$4, 0, 0, 0, $75, $72, $6c, $73, $e, 0,
$1, 0, $5, 0, 0, 0, $6e, $55, $72, $6c,
$73, $f, 0, $14, 0, $b, 0, $1f, 0, $1,
0, $f, 0, 0, 0, $50, $72, $6f, $67, $72,
$65, $73, $73, $69, $76, $65, $4d, $65, $73, $68,
$a, 0, $5, 0, $60, $c3, $63, $8a, $7d, $99,
$d0, $11, $94, $1c, 0, $80, $c8, $c, $fa, $7b,
$e, 0, $1, 0, $3, 0, 0, 0, $55, $72,
$6c, $13, 0, $1, 0, $a, 0, 0, 0, $49,
$6e, $6c, $69, $6e, $65, $44, $61, $74, $61, $f,
0, $b, 0, $1f, 0, $1, 0, $4, 0, 0,
0, $47, $75, $69, $64, $a, 0, $5, 0, $e0,
$90, $27, $a4, $10, $78, $cf, $11, $8f, $52, 0,
$40, $33, $35, $94, $a3, $29, 0, $1, 0, $5,
0, 0, 0, $64, $61, $74, $61, $31, $14, 0,
$28, 0, $1, 0, $5, 0, 0, 0, $64, $61,
$74, $61, $32, $14, 0, $28, 0, $1, 0, $5,
0, 0, 0, $64, $61, $74, $61, $33, $14, 0,
$34, 0, $2d, 0, $1, 0, $5, 0, 0, 0,
$64, $61, $74, $61, $34, $e, 0, $3, 0, $8,
0, 0, 0, $f, 0, $14, 0, $b, 0, $1f,
0, $1, 0, $e, 0, 0, 0, $53, $74, $72,
$69, $6e, $67, $50, $72, $6f, $70, $65, $72, $74,
$79, $a, 0, $5, 0, $e0, $21, $f, $7f, $e1,
$bf, $d1, $11, $82, $c0, 0, $a0, $c9, $69, $72,
$71, $31, 0, $1, 0, $3, 0, 0, 0, $6b,
$65, $79, $14, 0, $31, 0, $1, 0, $5, 0,
0, 0, $76, $61, $6c, $75, $65, $14, 0, $b,
0, $1f, 0, $1, 0, $b, 0, 0, 0, $50,
$72, $6f, $70, $65, $72, $74, $79, $42, $61, $67,
$a, 0, $5, 0, $e1, $21, $f, $7f, $e1, $bf,
$d1, $11, $82, $c0, 0, $a0, $c9, $69, $72, $71,
$e, 0, $1, 0, $e, 0, 0, 0, $53, $74,
$72, $69, $6e, $67, $50, $72, $6f, $70, $65, $72,
$74, $79, $f, 0, $b, 0, $1f, 0, $1, 0,
$e, 0, 0, 0, $45, $78, $74, $65, $72, $6e,
$61, $6c, $56, $69, $73, $75, $61, $6c, $a, 0,
$5, 0, $a0, $6a, $11, $98, $ba, $bd, $d1, $11,
$82, $c0, 0, $a0, $c9, $69, $72, $71, $1, 0,
$4, 0, 0, 0, $47, $75, $69, $64, $1, 0,
$12, 0, 0, 0, $67, $75, $69, $64, $45, $78,
$74, $65, $72, $6e, $61, $6c, $56, $69, $73, $75,
$61, $6c, $14, 0, $e, 0, $12, 0, $12, 0,
$12, 0, $f, 0, $b, 0);
{$ENDIF}
implementation
{$IFDEF DIRECT3D_VERSION_LESS_8}
{$IFDEF DIRECT3D_VERSION_7}
function D3DFVF_TEXCOORDSIZE3(CoordIndex: DWORD): DWORD;
begin
Result := (D3DFVF_TEXTUREFORMAT3 shl (CoordIndex*2 + 16));
end;
function D3DFVF_TEXCOORDSIZE2(CoordIndex: DWORD): DWORD;
begin
Result := (D3DFVF_TEXTUREFORMAT2);
end;
function D3DFVF_TEXCOORDSIZE4(CoordIndex: DWORD): DWORD;
begin
Result := (D3DFVF_TEXTUREFORMAT4 shl (CoordIndex*2 + 16));
end;
function D3DFVF_TEXCOORDSIZE1(CoordIndex: DWORD): DWORD;
begin
Result := (D3DFVF_TEXTUREFORMAT1 shl (CoordIndex*2 + 16));
end;
{$ENDIF} // DIRECT3D_VERSION_7
{$ENDIF} // DIRECT3D_VERSION_LESS_8
function D3DVal(val: variant): Single;
begin
Result := val;
end;
function D3DDivide(a, b: double): Single;
begin
Result := a / b;
end;
function D3DMultiply(a, b: double): Single;
begin
Result := a * b;
end;
// #define CI_GETALPHA(ci) ((ci) >> 24)
function CI_GETALPHA(ci: DWORD): DWORD;
begin
Result := ci shr 24;
end;
// #define CI_GETINDEX(ci) (((ci) >> 8) & 0xffff)
function CI_GETINDEX(ci: DWORD): DWORD;
begin
Result := (ci shr 8) and $ffff;
end;
// #define CI_GETFRACTION(ci) ((ci) & 0xff)
function CI_GETFRACTION(ci: DWORD): DWORD;
begin
Result := ci and $ff;
end;
// #define CI_ROUNDINDEX(ci) CI_GETINDEX((ci) + 0x80)
function CI_ROUNDINDEX(ci: DWORD): DWORD;
begin
Result := CI_GETINDEX(ci + $80);
end;
// #define CI_MASKALPHA(ci) ((ci) & 0xffffff)
function CI_MASKALPHA(ci: DWORD): DWORD;
begin
Result := ci and $ffffff;
end;
// #define CI_MAKE(a, i, f) (((a) << 24) | ((i) << 8) | (f))
function CI_MAKE(a,i,f: DWORD): DWORD;
begin
Result := (a shl 24) or (i shl 8) or f;
end;
// #define RGBA_GETALPHA(rgb) ((rgb) >> 24)
function RGBA_GETALPHA(rgb: TD3DColor): DWORD;
begin
Result := rgb shr 24;
end;
// #define RGBA_GETRED(rgb) (((rgb) >> 16) & 0xff)
function RGBA_GETRED(rgb: TD3DColor): DWORD;
begin
Result := (rgb shr 16) and $ff;
end;
// #define RGBA_GETGREEN(rgb) (((rgb) >> 8) & 0xff)
function RGBA_GETGREEN(rgb: TD3DColor): DWORD;
begin
Result := (rgb shr 8) and $ff;
end;
// #define RGBA_GETBLUE(rgb) ((rgb) & 0xff)
function RGBA_GETBLUE(rgb: TD3DColor): DWORD;
begin
Result := rgb and $ff;
end;
// #define RGBA_MAKE(r, g, b, a) ((TD3DColor) (((a) << 24) | ((r) << 16) | ((g) << 8) | (b)))
function RGBA_MAKE(r, g, b, a: DWORD): TD3DColor;
begin
Result := (a shl 24) or (r shl 16) or (g shl 8) or b;
end;
// #define D3DRGB(r, g, b) \
// (0xff000000L | (((long)((r) * 255)) << 16) | (((long)((g) * 255)) << 8) | (long)((b) * 255))
function D3DRGB(r, g, b: Single): TD3DColor;
begin
Result := $ff000000 or DWORD(Round(r * 255) shl 16)
or DWORD(Round(g * 255) shl 8)
or DWORD(Round(b * 255));
end;
// #define D3DRGBA(r, g, b, a) \
// ( (((long)((a) * 255)) << 24) | (((long)((r) * 255)) << 16) \
// | (((long)((g) * 255)) << 8) | (long)((b) * 255) \
// )
function D3DRGBA(r, g, b, a: Single): TD3DColor;
begin
Result := DWORD(Round(a * 255) shl 24) or DWORD(Round(r * 255) shl 16)
or DWORD(Round(g * 255) shl 8)
or DWORD(Round(b * 255));
end;
// #define RGB_GETRED(rgb) (((rgb) >> 16) & 0xff)
function RGB_GETRED(rgb: TD3DColor): DWORD;
begin
Result := (rgb shr 16) and $ff;
end;
// #define RGB_GETGREEN(rgb) (((rgb) >> 8) & 0xff)
function RGB_GETGREEN(rgb: TD3DColor): DWORD;
begin
Result := (rgb shr 8) and $ff;
end;
// #define RGB_GETBLUE(rgb) ((rgb) & 0xff)
function RGB_GETBLUE(rgb: TD3DColor): DWORD;
begin
Result := rgb and $ff;
end;
// #define RGBA_SETALPHA(rgba, x) (((x) << 24) | ((rgba) & 0x00ffffff))
function RGBA_SETALPHA(rgba: TD3DColor; x: DWORD): TD3DColor;
begin
Result := (x shl 24) or (rgba and $00ffffff);
end;
// #define RGB_MAKE(r, g, b) ((TD3DColor) (((r) << 16) | ((g) << 8) | (b)))
function RGB_MAKE(r, g, b: DWORD): TD3DColor;
begin
Result := (r shl 16) or (g shl 8) or b;
end;
// #define RGBA_TORGB(rgba) ((TD3DColor) ((rgba) & 0xffffff))
function RGBA_TORGB(rgba: TD3DColor): TD3DColor;
begin
Result := rgba and $00ffffff;
end;
// #define RGB_TORGBA(rgb) ((TD3DColor) ((rgb) | 0xff000000))
function RGB_TORGBA(rgb: TD3DColor): TD3DColor;
begin
Result := rgb or $ff000000;
end;
function D3DSTATE_OVERRIDE(StateType: DWORD): DWORD;
begin
Result := StateType + D3DSTATE_OVERRIDE_BIAS;
end;
function D3DTRIFLAG_STARTFLAT(len: DWORD): DWORD;
begin
if not (len in [1..29]) then len := 0;
Result := len;
end;
// #define D3DRENDERSTATE_STIPPLEPATTERN(y) (D3DRENDERSTATE_STIPPLEPATTERN00 + (y))
function D3DRENDERSTATE_STIPPLEPATTERN(y: Integer): TD3DRenderStateType;
begin
Result := TD3DRenderStateType(Ord(D3DRENDERSTATE_STIPPLEPATTERN00) + y);
end;
// Addition and subtraction
function VectorAdd(const v1, v2: TD3DVector): TD3DVector;
begin
Result.x := v1.x+v2.x;
Result.y := v1.y+v2.y;
Result.z := v1.z+v2.z;
end;
function VectorSub(const v1, v2: TD3DVector): TD3DVector;
begin
Result.x := v1.x-v2.x;
Result.y := v1.y-v2.y;
Result.z := v1.z-v2.z;
end;
// Scalar multiplication and division
function VectorMulS(const v: TD3DVector; s: TD3DValue): TD3DVector;
begin
Result.x := v.x*s;
Result.y := v.y*s;
Result.z := v.z*s;
end;
function VectorDivS(const v: TD3DVector; s: TD3DValue): TD3DVector;
begin
Result.x := v.x/s;
Result.y := v.y/s;
Result.z := v.z/s;
end;
// Memberwise multiplication and division
function VectorMul(const v1, v2: TD3DVector): TD3DVector;
begin
Result.x := v1.x*v2.x;
Result.y := v1.y*v2.y;
Result.z := v1.z*v2.z;
end;
function VectorDiv(const v1, v2: TD3DVector): TD3DVector;
begin
Result.x := v1.x/v2.x;
Result.y := v1.y/v2.y;
Result.z := v1.z/v2.z;
end;
// Vector dominance
function VectorSmaller(v1, v2: TD3DVector): boolean;
begin
result := (v1.x < v2.x) and (v1.y < v2.y) and (v1.z < v2.z);
end;
function VectorSmallerEqual(v1, v2: TD3DVector): boolean;
begin
result := (v1.x <= v2.x) and (v1.y <= v2.y) and (v1.z <= v2.z);
end;
// Bitwise equality
function VectorEqual(v1, v2: TD3DVector): boolean;
begin
result := (v1.x = v2.x) and (v1.y = v2.y) and (v1.z = v2.z);
end;
// Length-related functions
function VectorSquareMagnitude(v: TD3DVector): TD3DValue;
begin
result := (v.x*v.x) + (v.y*v.y) + (v.z*v.z);
end;
function VectorMagnitude(v: TD3DVector): TD3DValue;
begin
result := sqrt((v.x*v.x) + (v.y*v.y) + (v.z*v.z));
end;
// Returns vector with same direction and unit length
function VectorNormalize(const v: TD3DVector): TD3DVector;
begin
result := VectorDivS(v,VectorMagnitude(v));
end;
// Return min/max component of the input vector
function VectorMin(v: TD3DVector): TD3DValue;
var
ret : TD3DValue;
begin
ret := v.x;
if (v.y < ret) then ret := v.y;
if (v.z < ret) then ret := v.z;
Result := ret;
end;
function VectorMax(v: TD3DVector): TD3DValue;
var
ret : TD3DValue;
begin
ret := v.x;
if (ret < v.y) then ret := v.y;
if (ret < v.z) then ret := v.z;
Result := ret;
end;
// Return memberwise min/max of input vectors
function VectorMinimize(const v1, v2: TD3DVector): TD3DVector;
begin
if v1.x < v2.x then Result.x := v1.x else Result.x := v2.x;
if v1.y < v2.y then Result.y := v1.y else Result.y := v2.y;
if v1.z < v2.z then Result.z := v1.z else Result.z := v2.z;
end;
function VectorMaximize(const v1, v2: TD3DVector): TD3DVector;
begin
if v1.x > v2.x then Result.x := v1.x else Result.x := v2.x;
if v1.y > v2.y then Result.y := v1.y else Result.y := v2.y;
if v1.z > v2.z then Result.z := v1.z else Result.z := v2.z;
end;
// Dot and cross product
function VectorDotProduct(v1, v2: TD3DVector): TD3DValue;
begin
Result := (v1.x*v2.x) + (v1.y * v2.y) + (v1.z*v2.z);
end;
function VectorCrossProduct(const v1, v2: TD3DVector): TD3DVector;
begin
Result.x := (v1.y*v2.z) - (v1.z*v2.y);
Result.y := (v1.z*v2.x) - (v1.x*v2.z);
Result.z := (v1.x*v2.y) - (v1.y*v2.x);
end;
procedure DisableFPUExceptions;
var
FPUControlWord: Word;
asm
FSTCW FPUControlWord;
OR FPUControlWord, $4 + $1; { Divide by zero + invalid operation }
FLDCW FPUControlWord;
end;
procedure EnableFPUExceptions;
var
FPUControlWord: Word;
asm
FSTCW FPUControlWord;
AND FPUControlWord, $FFFF - $4 - $1; { Divide by zero + invalid operation }
FLDCW FPUControlWord;
end;
{$IFDEF DIRECT3D_VERSION_LESS_8}
function D3DErrorString(Value: HResult): String; //Full description not available yet
begin
case Value of
D3D_OK: Result := 'No error';
D3DERR_BADMAJORVERSION: Result := 'D3DERR_BADMAJORVERSION';
D3DERR_BADMINORVERSION: Result := 'D3DERR_BADMINORVERSION';
{$IFDEF DIRECT3D_VERSION_5}
D3DERR_INVALID_DEVICE: Result := 'D3DERR_INITFAILED';
D3DERR_INITFAILED: Result := 'D3DERR_INITFAILED';
D3DERR_DEVICEAGGREGATED: Result := 'D3DERR_DEVICEAGGREGATED';
{$ENDIF} // DIRECT3D_VERSION_5
D3DERR_EXECUTE_CREATE_FAILED: Result := 'D3DERR_EXECUTE_CREATE_FAILED';
D3DERR_EXECUTE_DESTROY_FAILED: Result := 'D3DERR_EXECUTE_DESTROY_FAILED';
D3DERR_EXECUTE_LOCK_FAILED: Result := 'D3DERR_EXECUTE_LOCK_FAILED';
D3DERR_EXECUTE_UNLOCK_FAILED: Result := 'D3DERR_EXECUTE_UNLOCK_FAILED';
D3DERR_EXECUTE_LOCKED: Result := 'D3DERR_EXECUTE_LOCKED';
D3DERR_EXECUTE_NOT_LOCKED: Result := 'D3DERR_EXECUTE_NOT_LOCKED';
D3DERR_EXECUTE_FAILED: Result := 'D3DERR_EXECUTE_FAILED';
D3DERR_EXECUTE_CLIPPED_FAILED: Result := 'D3DERR_EXECUTE_CLIPPED_FAILED';
D3DERR_TEXTURE_NO_SUPPORT: Result := 'D3DERR_TEXTURE_NO_SUPPORT';
D3DERR_TEXTURE_CREATE_FAILED: Result := 'D3DERR_TEXTURE_CREATE_FAILED';
D3DERR_TEXTURE_DESTROY_FAILED: Result := 'D3DERR_TEXTURE_DESTROY_FAILED';
D3DERR_TEXTURE_LOCK_FAILED: Result := 'D3DERR_TEXTURE_LOCK_FAILED';
D3DERR_TEXTURE_UNLOCK_FAILED: Result := 'D3DERR_TEXTURE_UNLOCK_FAILED';
D3DERR_TEXTURE_LOAD_FAILED: Result := 'D3DERR_TEXTURE_LOAD_FAILED';
D3DERR_TEXTURE_SWAP_FAILED: Result := 'D3DERR_TEXTURE_SWAP_FAILED';
D3DERR_TEXTURE_LOCKED: Result := 'D3DERR_TEXTURELOCKED';
D3DERR_TEXTURE_NOT_LOCKED: Result := 'D3DERR_TEXTURE_NOT_LOCKED';
D3DERR_TEXTURE_GETSURF_FAILED: Result := 'D3DERR_TEXTURE_GETSURF_FAILED';
D3DERR_MATRIX_CREATE_FAILED: Result := 'D3DERR_MATRIX_CREATE_FAILED';
D3DERR_MATRIX_DESTROY_FAILED: Result := 'D3DERR_MATRIX_DESTROY_FAILED';
D3DERR_MATRIX_SETDATA_FAILED: Result := 'D3DERR_MATRIX_SETDATA_FAILED';
D3DERR_MATRIX_GETDATA_FAILED: Result := 'D3DERR_MATRIX_GETDATA_FAILED';
D3DERR_SETVIEWPORTDATA_FAILED: Result := 'D3DERR_SETVIEWPORTDATA_FAILED';
{$IFDEF DIRECT3D_VERSION_5}
D3DERR_INVALIDCURRENTVIEWPORT: Result := 'D3DERR_INVALIDCURRENTVIEWPORT';
D3DERR_INVALIDPRIMITIVETYPE: Result := 'D3DERR_INVALIDPRIMITIVETYPE';
D3DERR_INVALIDVERTEXTYPE: Result := 'D3DERR_INVALIDVERTEXTYPE';
D3DERR_TEXTURE_BADSIZE: Result := 'D3DERR_TEXTURE_BADSIZE';
D3DERR_INVALIDRAMPTEXTURE: Result := 'D3DERR_INVALIDRAMPTEXTURE';
{$ENDIF} // DIRECT3D_VERSION_5
D3DERR_MATERIAL_CREATE_FAILED: Result := 'D3DERR_MATERIAL_CREATE_FAILED';
D3DERR_MATERIAL_DESTROY_FAILED: Result := 'D3DERR_MATERIAL_DESTROY_FAILED';
D3DERR_MATERIAL_SETDATA_FAILED: Result := 'D3DERR_MATERIAL_SETDATA_FAILED';
D3DERR_MATERIAL_GETDATA_FAILED: Result := 'D3DERR_MATERIAL_GETDATA_FAILED';
{$IFDEF DIRECT3D_VERSION_5}
D3DERR_INVALIDPALETTE: Result := 'D3DERR_INVALIDPALETTE';
D3DERR_ZBUFF_NEEDS_SYSTEMMEMORY: Result := 'D3DERR_ZBUFF_NEEDS_SYSTEMMEMORY';
D3DERR_ZBUFF_NEEDS_VIDEOMEMORY: Result := 'D3DERR_ZBUFF_NEEDS_VIDEOMEMORY';
D3DERR_SURFACENOTINVIDMEM: Result := 'D3DERR_SURFACENOTINVIDMEM';
{$ENDIF} // DIRECT3D_VERSION_5
D3DERR_LIGHT_SET_FAILED: Result := 'D3DERR_LIGHT_SET_FAILED';
{$IFDEF DIRECT3D_VERSION_5}
D3DERR_LIGHTHASVIEWPORT: Result := 'D3DERR_LIGHTHASVIEWPORT';
D3DERR_LIGHTNOTINTHISVIEWPORT: Result := 'D3DERR_LIGHTNOTINTHISVIEWPORT';
{$ENDIF} // DIRECT3D_VERSION_5
D3DERR_SCENE_IN_SCENE: Result := 'D3DERR_SCENE_IN_SCENE';
D3DERR_SCENE_NOT_IN_SCENE: Result := 'D3DERR_SCENE_NOT_IN_SCENE';
D3DERR_SCENE_BEGIN_FAILED: Result := 'D3DERR_SCENE_BEGIN_FAILED';
D3DERR_SCENE_END_FAILED: Result := 'D3DERR_SCENE_END_FAILED';
{$IFDEF DIRECT3D_VERSION_5}
D3DERR_INBEGIN: Result := 'D3DERR_INBEGIN';
D3DERR_NOTINBEGIN: Result := 'D3DERR_NOTINBEGIN';
D3DERR_NOVIEWPORTS: Result := 'D3DERR_NOVIEWPORTS';
D3DERR_VIEWPORTDATANOTSET: Result := 'D3DERR_VIEWPORTDATANOTSET';
D3DERR_VIEWPORTHASNODEVICE: Result := 'D3DERR_VIEWPORTHASNODEVICE';
D3DERR_NOCURRENTVIEWPORT: Result := 'D3DERR_NOCURRENTVIEWPORT';
{$ENDIF} // DIRECT3D_VERSION_5
{$IFDEF DIRECT3D_VERSION_6}
D3DERR_INVALIDVERTEXFORMAT: Result := 'D3DERR_INVALIDVERTEXFORMAT';
D3DERR_COLORKEYATTACHED: Result := 'D3DERR_COLORKEYATTACHED';
D3DERR_VERTEXBUFFEROPTIMIZED: Result := 'D3DERR_VERTEXBUFFEROPTIMIZED';
D3DERR_VBUF_CREATE_FAILED: Result := 'D3DERR_VBUF_CREATE_FAILED';
D3DERR_VERTEXBUFFERLOCKED: Result := 'D3DERR_VERTEXBUFFERLOCKED';
D3DERR_ZBUFFER_NOTPRESENT: Result := 'D3DERR_ZBUFFER_NOTPRESENT';
D3DERR_STENCILBUFFER_NOTPRESENT: Result := 'D3DERR_STENCILBUFFER_NOTPRESENT';
D3DERR_WRONGTEXTUREFORMAT: Result := 'D3DERR_WRONGTEXTUREFORMAT';
D3DERR_UNSUPPORTEDCOLOROPERATION: Result := 'D3DERR_UNSUPPORTEDCOLOROPERATION';
D3DERR_UNSUPPORTEDCOLORARG: Result := 'D3DERR_UNSUPPORTEDCOLORARG';
D3DERR_UNSUPPORTEDALPHAOPERATION: Result := 'D3DERR_UNSUPPORTEDALPHAOPERATION';
D3DERR_UNSUPPORTEDALPHAARG: Result := 'D3DERR_UNSUPPORTEDALPHAARG';
D3DERR_TOOMANYOPERATIONS: Result := 'D3DERR_TOOMANYOPERATIONS';
D3DERR_CONFLICTINGTEXTUREFILTER: Result := 'D3DERR_CONFLICTINGTEXTUREFILTER';
D3DERR_UNSUPPORTEDFACTORVALUE: Result := 'D3DERR_UNSUPPORTEDFACTORVALUE';
D3DERR_CONFLICTINGRENDERSTATE: Result := 'D3DERR_CONFLICTINGRENDERSTATE';
D3DERR_UNSUPPORTEDTEXTUREFILTER: Result := 'D3DERR_UNSUPPORTEDTEXTUREFILTER';
D3DERR_TOOMANYPRIMITIVES: Result := 'D3DERR_TOOMANYPRIMITIVES';
D3DERR_INVALIDMATRIX: Result := 'D3DERR_INVALIDMATRIX';
D3DERR_TOOMANYVERTICES: Result := 'D3DERR_TOOMANYVERTICES';
D3DERR_CONFLICTINGTEXTUREPALETTE: Result := 'D3DERR_CONFLICTINGTEXTUREPALETTE';
{$ENDIF} // DIRECT3D_VERSION_6
{$IFDEF DIRECT3D_VERSION_7}
D3DERR_INVALIDSTATEBLOCK: Result := 'D3DERR_INVALIDSTATEBLOCK';
D3DERR_INBEGINSTATEBLOCK: Result := 'D3DERR_INBEGINSTATEBLOCK';
D3DERR_NOTINBEGINSTATEBLOCK: Result := 'D3DERR_NOTINBEGINSTATEBLOCK';
{$ENDIF} // DIRECT3D_VERSION_7
else Result := 'Unrecognized Error';
end;
end;
{$ENDIF} // DIRECT3D_VERSION_LESS_8
{$IFNDEF EXCLUDE_DXFILE_FROM_DIRECT3D}
function DXFileErrorString(Value: HResult): string;
begin
case Value of
DXFILE_OK: Result := 'Command completed successfully. Equivalent to DD_OK.';
DXFILEERR_BADVALUE: Result := 'Parameter is invalid.';
DXFILEERR_BADTYPE: Result := 'Object type is invalid.';
DXFILEERR_BADALLOC: Result := 'Memory allocation failed.';
DXFILEERR_NOTFOUND: Result := 'Object could not be found.';
DXFILEERR_FILENOTFOUND: Result := 'File could not be found.';
DXFILEERR_RESOURCENOTFOUND: Result := 'Resource could not be found.';
DXFILEERR_URLNOTFOUND: Result := 'URL could not be found.';
DXFILEERR_BADRESOURCE: Result := 'Resource is invalid.';
DXFILEERR_BADFILETYPE: Result := 'File is not a DirectX file.';
DXFILEERR_BADFILEVERSION: Result := 'File version is not valid.';
DXFILEERR_BADFILEFLOATSIZE: Result := 'Floating-point size is invalid.';
DXFILEERR_BADFILE: Result := 'File is invalid.';
DXFILEERR_PARSEERROR: Result := 'File could not be parsed.';
DXFILEERR_BADARRAYSIZE: Result := 'Array size is invalid.';
DXFILEERR_BADDATAREFERENCE: Result := 'Data reference is invalid.';
DXFILEERR_NOMOREOBJECTS: Result := 'All objects have been enumerated.';
DXFILEERR_NOMOREDATA: Result := 'No further data is available.';
else Result := 'Unrecognized Error';
end;
end;
initialization
begin
DisableFPUExceptions;
DXFileDLL := LoadLibrary('D3DXOF.DLL');
DirectXFileCreate := GetProcAddress(DXFileDLL,'DirectXFileCreate');
end;
finalization
begin
FreeLibrary(DXFileDLL);
end;
{$ENDIF}
end.
Reference in New Issue View Git Blame Copy Permalink