开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 游戏 > 游戏引擎 > 查看源码
Direct3D8.pas
资源名称：CAST2SDK.rar　[点击查看]
上传用户：yj_qiu
上传日期：2022-08-08
资源大小：23636k
文件大小：173k
源码类别：

游戏引擎

开发平台：

Delphi

Direct3D8.pas：源码内容
  1. {$EXTERNALSYM D3DFVF_TEXCOORDSIZE1}
  4. //---------------------------------------------------------------------
  6. type
  7.   { Direct3D8 Device types }
  8.   _D3DDEVTYPE = (
  9.   {$IFNDEF COMPILER6_UP}
  10.     D3DDEVTYPE_INVALID_0,
  11.     D3DDEVTYPE_HAL         {= 1},
  12.     D3DDEVTYPE_REF         {= 2},
  13.     D3DDEVTYPE_SW          {= 3}
  14.   {$ELSE}
  15.     D3DDEVTYPE_HAL         = 1,
  16.     D3DDEVTYPE_REF         = 2,
  17.     D3DDEVTYPE_SW          = 3
  18.   {$ENDIF}
  19.   );
  20.   {$EXTERNALSYM _D3DDEVTYPE}
  21.   D3DDEVTYPE = _D3DDEVTYPE;
  22.   {$EXTERNALSYM D3DDEVTYPE}
  23.   TD3DDevType = _D3DDEVTYPE;
  25.   { Multi-Sample buffer types }
  26.   _D3DMULTISAMPLE_TYPE = (
  27.   {$IFNDEF COMPILER6_UP}
  28.     D3DMULTISAMPLE_NONE            {=  0},
  29.     D3DMULTISAMPLE_INVALID_1       {=  1},
  30.     D3DMULTISAMPLE_2_SAMPLES       {=  2},
  31.     D3DMULTISAMPLE_3_SAMPLES       {=  3},
  32.     D3DMULTISAMPLE_4_SAMPLES       {=  4},
  33.     D3DMULTISAMPLE_5_SAMPLES       {=  5},
  34.     D3DMULTISAMPLE_6_SAMPLES       {=  6},
  35.     D3DMULTISAMPLE_7_SAMPLES       {=  7},
  36.     D3DMULTISAMPLE_8_SAMPLES       {=  8},
  37.     D3DMULTISAMPLE_9_SAMPLES       {=  9},
  38.     D3DMULTISAMPLE_10_SAMPLES      {= 10},
  39.     D3DMULTISAMPLE_11_SAMPLES      {= 11},
  40.     D3DMULTISAMPLE_12_SAMPLES      {= 12},
  41.     D3DMULTISAMPLE_13_SAMPLES      {= 13},
  42.     D3DMULTISAMPLE_14_SAMPLES      {= 14},
  43.     D3DMULTISAMPLE_15_SAMPLES      {= 15},
  44.     D3DMULTISAMPLE_16_SAMPLES      {= 16}
  45.   {$ELSE}
  46.     D3DMULTISAMPLE_NONE            =  0,
  47.     D3DMULTISAMPLE_2_SAMPLES       =  2,
  48.     D3DMULTISAMPLE_3_SAMPLES       =  3,
  49.     D3DMULTISAMPLE_4_SAMPLES       =  4,
  50.     D3DMULTISAMPLE_5_SAMPLES       =  5,
  51.     D3DMULTISAMPLE_6_SAMPLES       =  6,
  52.     D3DMULTISAMPLE_7_SAMPLES       =  7,
  53.     D3DMULTISAMPLE_8_SAMPLES       =  8,
  54.     D3DMULTISAMPLE_9_SAMPLES       =  9,
  55.     D3DMULTISAMPLE_10_SAMPLES      = 10,
  56.     D3DMULTISAMPLE_11_SAMPLES      = 11,
  57.     D3DMULTISAMPLE_12_SAMPLES      = 12,
  58.     D3DMULTISAMPLE_13_SAMPLES      = 13,
  59.     D3DMULTISAMPLE_14_SAMPLES      = 14,
  60.     D3DMULTISAMPLE_15_SAMPLES      = 15,
  61.     D3DMULTISAMPLE_16_SAMPLES      = 16
  62.   {$ENDIF}
  63.   );
  64.   {$EXTERNALSYM _D3DMULTISAMPLE_TYPE}
  65.   D3DMULTISAMPLE_TYPE = _D3DMULTISAMPLE_TYPE;
  66.   {$EXTERNALSYM D3DMULTISAMPLE_TYPE}
  67.   TD3DMultiSampleType = _D3DMULTISAMPLE_TYPE;
  69. (* Formats
  70.  * Most of these names have the following convention:
  71.  *      A = Alpha
  72.  *      R = Red
  73.  *      G = Green
  74.  *      B = Blue
  75.  *      X = Unused Bits
  76.  *      P = Palette
  77.  *      L = Luminance
  78.  *      U = dU coordinate for BumpMap
  79.  *      V = dV coordinate for BumpMap
  80.  *      S = Stencil
  81.  *      D = Depth (e.g. Z or W buffer)
  82.  *
  83.  *      Further, the order of the pieces are from MSB first; hence
  84.  *      D3DFMT_A8L8 indicates that the high byte of this two byte
  85.  *      format is alpha.
  86.  *
  87.  *      D16 indicates:
  88.  *           - An integer 16-bit value.
  89.  *           - An app-lockable surface.
  90.  *
  91.  *      All Depth/Stencil formats except D3DFMT_D16_LOCKABLE indicate:
  92.  *          - no particular bit ordering per pixel, and
  93.  *          - are not app lockable, and
  94.  *          - the driver is allowed to consume more than the indicated
  95.  *            number of bits per Depth channel (but not Stencil channel).
  96.  *)
  97. //#ifndef MAKEFOURCC
  98. //    #define MAKEFOURCC(ch0, ch1, ch2, ch3)                              
  99. //                ((DWORD)(BYTE)(ch0) | ((DWORD)(BYTE)(ch1) << 8) |       
  100. //                ((DWORD)(BYTE)(ch2) << 16) | ((DWORD)(BYTE)(ch3) << 24 ))
  101. //#endif /* defined(MAKEFOURCC) */
  102. function MAKEFOURCC(ch0, ch1, ch2, ch3: Char): DWord;
  103. {$EXTERNALSYM MAKEFOURCC}
  106. {$IFNDEF COMPILER6_UP}
  107. const
  108.   D3DFMT_UNKNOWN              =  0;
  109.   {$EXTERNALSYM D3DFMT_UNKNOWN}
  111.   D3DFMT_R8G8B8               = 20;
  112.   {$EXTERNALSYM D3DFMT_R8G8B8}
  113.   D3DFMT_A8R8G8B8             = 21;
  114.   {$EXTERNALSYM D3DFMT_A8R8G8B8}
  115.   D3DFMT_X8R8G8B8             = 22;
  116.   {$EXTERNALSYM D3DFMT_X8R8G8B8}
  117.   D3DFMT_R5G6B5               = 23;
  118.   {$EXTERNALSYM D3DFMT_R5G6B5}
  119.   D3DFMT_X1R5G5B5             = 24;
  120.   {$EXTERNALSYM D3DFMT_X1R5G5B5}
  121.   D3DFMT_A1R5G5B5             = 25;
  122.   {$EXTERNALSYM D3DFMT_A1R5G5B5}
  123.   D3DFMT_A4R4G4B4             = 26;
  124.   {$EXTERNALSYM D3DFMT_A4R4G4B4}
  125.   D3DFMT_R3G3B2               = 27;
  126.   {$EXTERNALSYM D3DFMT_R3G3B2}
  127.   D3DFMT_A8                   = 28;
  128.   {$EXTERNALSYM D3DFMT_A8}
  129.   D3DFMT_A8R3G3B2             = 29;
  130.   {$EXTERNALSYM D3DFMT_A8R3G3B2}
  131.   D3DFMT_X4R4G4B4             = 30;
  132.   {$EXTERNALSYM D3DFMT_X4R4G4B4}
  133.   D3DFMT_A2B10G10R10          = 31;
  134.   {$EXTERNALSYM D3DFMT_A2B10G10R10}
  135.   D3DFMT_G16R16               = 34;
  136.   {$EXTERNALSYM D3DFMT_G16R16}
  138.   D3DFMT_A8P8                 = 40;
  139.   {$EXTERNALSYM D3DFMT_A8P8}
  140.   D3DFMT_P8                   = 41;
  141.   {$EXTERNALSYM D3DFMT_P8}
  143.   D3DFMT_L8                   = 50;
  144.   {$EXTERNALSYM D3DFMT_L8}
  145.   D3DFMT_A8L8                 = 51;
  146.   {$EXTERNALSYM D3DFMT_A8L8}
  147.   D3DFMT_A4L4                 = 52;
  148.   {$EXTERNALSYM D3DFMT_A4L4}
  150.   D3DFMT_V8U8                 = 60;
  151.   {$EXTERNALSYM D3DFMT_V8U8}
  152.   D3DFMT_L6V5U5               = 61;
  153.   {$EXTERNALSYM D3DFMT_L6V5U5}
  154.   D3DFMT_X8L8V8U8             = 62;
  155.   {$EXTERNALSYM D3DFMT_X8L8V8U8}
  156.   D3DFMT_Q8W8V8U8             = 63;
  157.   {$EXTERNALSYM D3DFMT_Q8W8V8U8}
  158.   D3DFMT_V16U16               = 64;
  159.   {$EXTERNALSYM D3DFMT_V16U16}
  160.   D3DFMT_W11V11U10            = 65;
  161.   {$EXTERNALSYM D3DFMT_W11V11U10}
  162.   D3DFMT_A2W10V10U10          = 67;
  163.   {$EXTERNALSYM D3DFMT_A2W10V10U10}
  165.   // D3DFMT_UYVY                 = MAKEFOURCC('U', 'Y', 'V', 'Y');
  166.   D3DFMT_UYVY                 = Byte('U') or (Byte('Y') shl 8) or (Byte('V') shl 16) or (Byte('Y') shl 24);
  167.   {$EXTERNALSYM D3DFMT_UYVY}
  168.   // D3DFMT_YUY2                 = MAKEFOURCC('Y', 'U', 'Y', '2'),
  169.   D3DFMT_YUY2                 = Byte('Y') or (Byte('U') shl 8) or (Byte('Y') shl 16) or (Byte('2') shl 24);
  170.   {$EXTERNALSYM D3DFMT_YUY2}
  171.   // D3DFMT_DXT1                 = MAKEFOURCC('D', 'X', 'T', '1'),
  172.   D3DFMT_DXT1                 = Byte('D') or (Byte('X') shl 8) or (Byte('T') shl 16) or (Byte('1') shl 24);
  173.   {$EXTERNALSYM D3DFMT_DXT1}
  174.   // D3DFMT_DXT2                 = MAKEFOURCC('D', 'X', 'T', '2'),
  175.   D3DFMT_DXT2                 = Byte('D') or (Byte('X') shl 8) or (Byte('T') shl 16) or (Byte('2') shl 24);
  176.   {$EXTERNALSYM D3DFMT_DXT2}
  177.   // D3DFMT_DXT3                 = MAKEFOURCC('D', 'X', 'T', '3'),
  178.   D3DFMT_DXT3                 = Byte('D') or (Byte('X') shl 8) or (Byte('T') shl 16) or (Byte('3') shl 24);
  179.   {$EXTERNALSYM D3DFMT_DXT3}
  180.   // D3DFMT_DXT4                 = MAKEFOURCC('D', 'X', 'T', '4'),
  181.   D3DFMT_DXT4                 = Byte('D') or (Byte('X') shl 8) or (Byte('T') shl 16) or (Byte('4') shl 24);
  182.   {$EXTERNALSYM D3DFMT_DXT4}
  183.   // D3DFMT_DXT5                 = MAKEFOURCC('D', 'X', 'T', '5'),
  184.   D3DFMT_DXT5                 = Byte('D') or (Byte('X') shl 8) or (Byte('T') shl 16) or (Byte('5') shl 24);
  185.   {$EXTERNALSYM D3DFMT_DXT5}
  187.   D3DFMT_D16_LOCKABLE         = 70;
  188.   {$EXTERNALSYM D3DFMT_D16_LOCKABLE}
  189.   D3DFMT_D32                  = 71;
  190.   {$EXTERNALSYM D3DFMT_D32}
  191.   D3DFMT_D15S1                = 73;
  192.   {$EXTERNALSYM D3DFMT_D15S1}
  193.   D3DFMT_D24S8                = 75;
  194.   {$EXTERNALSYM D3DFMT_D24S8}
  195.   D3DFMT_D16                  = 80;
  196.   {$EXTERNALSYM D3DFMT_D16}
  197.   D3DFMT_D24X8                = 77;
  198.   {$EXTERNALSYM D3DFMT_D24X8}
  199.   D3DFMT_D24X4S4              = 79;
  200.   {$EXTERNALSYM D3DFMT_D24X4S4}
  203.   D3DFMT_VERTEXDATA           =100;
  204.   {$EXTERNALSYM D3DFMT_VERTEXDATA}
  205.   D3DFMT_INDEX16              =101;
  206.   {$EXTERNALSYM D3DFMT_INDEX16}
  207.   D3DFMT_INDEX32              =102;
  208.   {$EXTERNALSYM D3DFMT_INDEX32}
  210.   D3DFMT_FORCE_DWORD          = $7fffffff;
  211.   {$EXTERNALSYM D3DFMT_FORCE_DWORD}
  213. type
  214.   _D3DFORMAT = {$IFDEF TYPE_IDENTITY}type {$ENDIF}DWord;
  215. {$ELSE}
  216. type
  217.   _D3DFORMAT = (
  218.   {$IFDEF BCB}
  219.     D3DFMT_DUMMY
  220.   {$ELSE}
  221.     D3DFMT_UNKNOWN              =  0,
  223.     D3DFMT_R8G8B8               = 20,
  224.     D3DFMT_A8R8G8B8             = 21,
  225.     D3DFMT_X8R8G8B8             = 22,
  226.     D3DFMT_R5G6B5               = 23,
  227.     D3DFMT_X1R5G5B5             = 24,
  228.     D3DFMT_A1R5G5B5             = 25,
  229.     D3DFMT_A4R4G4B4             = 26,
  230.     D3DFMT_R3G3B2               = 27,
  231.     D3DFMT_A8                   = 28,
  232.     D3DFMT_A8R3G3B2             = 29,
  233.     D3DFMT_X4R4G4B4             = 30,
  234.     D3DFMT_A2B10G10R10          = 31,
  235.     D3DFMT_G16R16               = 34,
  237.     D3DFMT_A8P8                 = 40,
  238.     D3DFMT_P8                   = 41,
  240.     D3DFMT_L8                   = 50,
  241.     D3DFMT_A8L8                 = 51,
  242.     D3DFMT_A4L4                 = 52,
  244.     D3DFMT_V8U8                 = 60,
  245.     D3DFMT_L6V5U5               = 61,
  246.     D3DFMT_X8L8V8U8             = 62,
  247.     D3DFMT_Q8W8V8U8             = 63,
  248.     D3DFMT_V16U16               = 64,
  249.     D3DFMT_W11V11U10            = 65,
  250.     D3DFMT_A2W10V10U10          = 67,
  252.     // D3DFMT_UYVY                 = MAKEFOURCC('U', 'Y', 'V', 'Y'),
  253.     D3DFMT_UYVY                 = Byte('U') or (Byte('Y') shl 8) or (Byte('V') shl 16) or (Byte('Y') shl 24),
  254.     // D3DFMT_YUY2                 = MAKEFOURCC('Y', 'U', 'Y', '2'),
  255.     D3DFMT_YUY2                 = Byte('Y') or (Byte('U') shl 8) or (Byte('Y') shl 16) or (Byte('2') shl 24),
  256.     // D3DFMT_DXT1                 = MAKEFOURCC('D', 'X', 'T', '1'),
  257.     D3DFMT_DXT1                 = Byte('D') or (Byte('X') shl 8) or (Byte('T') shl 16) or (Byte('1') shl 24),
  258.     // D3DFMT_DXT2                 = MAKEFOURCC('D', 'X', 'T', '2'),
  259.     D3DFMT_DXT2                 = Byte('D') or (Byte('X') shl 8) or (Byte('T') shl 16) or (Byte('2') shl 24),
  260.     // D3DFMT_DXT3                 = MAKEFOURCC('D', 'X', 'T', '3'),
  261.     D3DFMT_DXT3                 = Byte('D') or (Byte('X') shl 8) or (Byte('T') shl 16) or (Byte('3') shl 24),
  262.     // D3DFMT_DXT4                 = MAKEFOURCC('D', 'X', 'T', '4'),
  263.     D3DFMT_DXT4                 = Byte('D') or (Byte('X') shl 8) or (Byte('T') shl 16) or (Byte('4') shl 24),
  264.     // D3DFMT_DXT5                 = MAKEFOURCC('D', 'X', 'T', '5'),
  265.     D3DFMT_DXT5                 = Byte('D') or (Byte('X') shl 8) or (Byte('T') shl 16) or (Byte('5') shl 24),
  267.     D3DFMT_D16_LOCKABLE         = 70,
  268.     D3DFMT_D32                  = 71,
  269.     D3DFMT_D15S1                = 73,
  270.     D3DFMT_D24S8                = 75,
  271.     D3DFMT_D16                  = 80,
  272.     D3DFMT_D24X8                = 77,
  273.     D3DFMT_D24X4S4              = 79,
  276.     D3DFMT_VERTEXDATA           =100,
  277.     D3DFMT_INDEX16              =101,
  278.     D3DFMT_INDEX32              =102,
  280.     D3DFMT_FORCE_DWORD          = $7fffffff
  281.   {$ENDIF}
  282.   );
  283. {$ENDIF}
  284.   {$EXTERNALSYM _D3DFORMAT}
  285.   D3DFORMAT = _D3DFORMAT;
  286.   {$EXTERNALSYM D3DFORMAT}
  287.   PD3DFormat = ^TD3DFormat;
  288.   TD3DFormat = _D3DFORMAT;
  290.   { Display Modes }
  291.   PD3DDisplayMode = ^TD3DDisplayMode;
  292.   _D3DDISPLAYMODE = packed record
  293.     Width: LongWord;
  294.     Height: LongWord;
  295.     RefreshRate: LongWord;
  296.     Format: TD3DFormat;
  297.   end {_D3DDISPLAYMODE};
  298.   {$EXTERNALSYM _D3DDISPLAYMODE}
  299.   D3DDISPLAYMODE = _D3DDISPLAYMODE;
  300.   {$EXTERNALSYM D3DDISPLAYMODE}
  301.   TD3DDisplayMode = _D3DDISPLAYMODE;
  303.   { Creation Parameters }
  304.   PD3DDeviceCreationParameters = ^TD3DDeviceCreationParameters;
  305.   _D3DDEVICE_CREATION_PARAMETERS = packed record
  306.     AdapterOrdinal: LongWord;
  307.     DeviceType: TD3DDevType;
  308.     hFocusWindow: HWND;
  309.     BehaviorFlags: LongInt;
  310.   end {_D3DDEVICE_CREATION_PARAMETERS};
  311.   {$EXTERNALSYM _D3DDEVICE_CREATION_PARAMETERS}
  312.   D3DDEVICE_CREATION_PARAMETERS = _D3DDEVICE_CREATION_PARAMETERS;
  313.   {$EXTERNALSYM D3DDEVICE_CREATION_PARAMETERS}
  314.   TD3DDeviceCreationParameters = _D3DDEVICE_CREATION_PARAMETERS;
  317.   { SwapEffects }
  318.   _D3DSWAPEFFECT = (
  319.   {$IFNDEF COMPILER6_UP}
  320.     D3DSWAPEFFECT_INVALID_0     {= 0},
  321.     D3DSWAPEFFECT_DISCARD       {= 1},
  322.     D3DSWAPEFFECT_FLIP          {= 2},
  323.     D3DSWAPEFFECT_COPY          {= 3},
  324.     D3DSWAPEFFECT_COPY_VSYNC    {= 4}
  325.   {$ELSE}
  326.     D3DSWAPEFFECT_DISCARD       = 1,
  327.     D3DSWAPEFFECT_FLIP          = 2,
  328.     D3DSWAPEFFECT_COPY          = 3,
  329.     D3DSWAPEFFECT_COPY_VSYNC    = 4
  330.   {$ENDIF}
  331.   );
  332.   {$EXTERNALSYM _D3DSWAPEFFECT}
  333.   D3DSWAPEFFECT = _D3DSWAPEFFECT;
  334.   {$EXTERNALSYM D3DSWAPEFFECT}
  335.   TD3DSwapEffect = _D3DSWAPEFFECT;
  337.   { Pool types }
  338.   _D3DPOOL = (
  339.     D3DPOOL_DEFAULT     {= 0},
  340.     D3DPOOL_MANAGED     {= 1},
  341.     D3DPOOL_SYSTEMMEM   {= 2},
  342.     D3DPOOL_SCRATCH     {= 3}
  343.   );
  344.   {$EXTERNALSYM _D3DPOOL}
  345.   D3DPOOL = _D3DPOOL;
  346.   {$EXTERNALSYM D3DPOOL}
  347.   TD3DPool = _D3DPOOL;
  350. const
  351.   { RefreshRate pre-defines }
  352.   D3DPRESENT_RATE_DEFAULT         = $00000000;
  353.   {$EXTERNALSYM D3DPRESENT_RATE_DEFAULT}
  354.   D3DPRESENT_RATE_UNLIMITED       = $7fffffff;
  355.   {$EXTERNALSYM D3DPRESENT_RATE_UNLIMITED}
  357. type
  358.   { Resize Optional Parameters }
  359.   PD3DPresentParameters = ^TD3DPresentParameters;
  360.   _D3DPRESENT_PARAMETERS_ = packed record
  361.     BackBufferWidth:                    LongWord;
  362.     BackBufferHeight:                   LongWord;
  363.     BackBufferFormat:                   TD3DFormat;
  364.     BackBufferCount:                    LongWord;
  366.     MultiSampleType:                    TD3DMultiSampleType;
  368.     SwapEffect:                         TD3DSwapEffect;
  369.     hDeviceWindow:                      HWND;
  370.     Windowed:                           Bool;
  371.     EnableAutoDepthStencil:             Bool;
  372.     AutoDepthStencilFormat:             TD3DFormat;
  373.     Flags: LongInt;
  375.     { Following elements must be zero for Windowed mode }
  376.     FullScreen_RefreshRateInHz:         LongWord;
  377.     FullScreen_PresentationInterval:    LongWord;
  378.   end {_D3DPRESENT_PARAMETERS_};
  379.   {$EXTERNALSYM _D3DPRESENT_PARAMETERS_}
  380.   D3DPRESENT_PARAMETERS = _D3DPRESENT_PARAMETERS_;
  381.   {$EXTERNALSYM D3DPRESENT_PARAMETERS}
  382.   TD3DPresentParameters = _D3DPRESENT_PARAMETERS_;
  384.   // Values for D3DPRESENT_PARAMETERS.Flags
  386. const
  387.   D3DPRESENTFLAG_LOCKABLE_BACKBUFFER  = $00000001;
  388.   {$EXTERNALSYM D3DPRESENTFLAG_LOCKABLE_BACKBUFFER}
  391.   { Gamma Ramp: Same as DX7 }
  393. type
  394.   PD3DGammaRamp = ^TD3DGammaRamp;
  395.   _D3DGAMMARAMP = packed record
  396.     red   : array [0..255] of Word;
  397.     green : array [0..255] of Word;
  398.     blue  : array [0..255] of Word;
  399.   end;
  400.   {$EXTERNALSYM _D3DGAMMARAMP}
  401.   D3DGAMMARAMP = _D3DGAMMARAMP;
  402.   {$EXTERNALSYM D3DGAMMARAMP}
  403.   TD3DGammaRamp = _D3DGAMMARAMP;
  405.   { Back buffer types }
  406.   _D3DBACKBUFFER_TYPE = (
  407.     D3DBACKBUFFER_TYPE_MONO         {= 0},
  408.     D3DBACKBUFFER_TYPE_LEFT         {= 1},
  409.     D3DBACKBUFFER_TYPE_RIGHT        {= 2}
  410.   );
  411.   {$EXTERNALSYM _D3DBACKBUFFER_TYPE}
  412.   D3DBACKBUFFER_TYPE = _D3DBACKBUFFER_TYPE;
  413.   {$EXTERNALSYM D3DBACKBUFFER_TYPE}
  414.   TD3DBackbufferType = _D3DBACKBUFFER_TYPE;
  417.   { Types }
  418.   _D3DRESOURCETYPE = (
  419.   {$IFNDEF COMPILER6_UP}
  420.     D3DRTYPE_INVALID_0              {=  0},
  421.     D3DRTYPE_SURFACE                {=  1},
  422.     D3DRTYPE_VOLUME                 {=  2},
  423.     D3DRTYPE_TEXTURE                {=  3},
  424.     D3DRTYPE_VOLUMETEXTURE          {=  4},
  425.     D3DRTYPE_CUBETEXTURE            {=  5},
  426.     D3DRTYPE_VERTEXBUFFER           {=  6},
  427.     D3DRTYPE_INDEXBUFFER            {=  7}
  428.   {$ELSE}
  429.     D3DRTYPE_SURFACE                =  1,
  430.     D3DRTYPE_VOLUME                 =  2,
  431.     D3DRTYPE_TEXTURE                =  3,
  432.     D3DRTYPE_VOLUMETEXTURE          =  4,
  433.     D3DRTYPE_CUBETEXTURE            =  5,
  434.     D3DRTYPE_VERTEXBUFFER           =  6,
  435.     D3DRTYPE_INDEXBUFFER            =  7
  436.   {$ENDIF}
  437.   );
  438.   {$EXTERNALSYM _D3DRESOURCETYPE}
  439.   D3DRESOURCETYPE = _D3DRESOURCETYPE;
  440.   {$EXTERNALSYM D3DRESOURCETYPE}
  441.   TD3DResourceType = _D3DRESOURCETYPE;
  443. const
  444.   { Usages }
  445.   D3DUSAGE_RENDERTARGET       = $00000001;
  446.   {$EXTERNALSYM D3DUSAGE_RENDERTARGET}
  447.   D3DUSAGE_DEPTHSTENCIL       = $00000002;
  448.   {$EXTERNALSYM D3DUSAGE_DEPTHSTENCIL}
  450.   { Usages for Vertex/Index buffers }
  451.   D3DUSAGE_WRITEONLY          = $00000008;
  452.   {$EXTERNALSYM D3DUSAGE_WRITEONLY}
  453.   D3DUSAGE_SOFTWAREPROCESSING = $00000010;
  454.   {$EXTERNALSYM D3DUSAGE_SOFTWAREPROCESSING}
  455.   D3DUSAGE_DONOTCLIP          = $00000020;
  456.   {$EXTERNALSYM D3DUSAGE_DONOTCLIP}
  457.   D3DUSAGE_POINTS             = $00000040;
  458.   {$EXTERNALSYM D3DUSAGE_POINTS}
  459.   D3DUSAGE_RTPATCHES          = $00000080;
  460.   {$EXTERNALSYM D3DUSAGE_RTPATCHES}
  461.   D3DUSAGE_NPATCHES           = $00000100;
  462.   {$EXTERNALSYM D3DUSAGE_NPATCHES}
  463.   D3DUSAGE_DYNAMIC            = $00000200;
  464.   {$EXTERNALSYM D3DUSAGE_DYNAMIC}
  474. type
  475.   { CubeMap Face identifiers }
  476.   _D3DCUBEMAP_FACES = (
  477.     D3DCUBEMAP_FACE_POSITIVE_X     {= 0},
  478.     D3DCUBEMAP_FACE_NEGATIVE_X     {= 1},
  479.     D3DCUBEMAP_FACE_POSITIVE_Y     {= 2},
  480.     D3DCUBEMAP_FACE_NEGATIVE_Y     {= 3},
  481.     D3DCUBEMAP_FACE_POSITIVE_Z     {= 4},
  482.     D3DCUBEMAP_FACE_NEGATIVE_Z     {= 5}
  483.   );
  484.   {$EXTERNALSYM _D3DCUBEMAP_FACES}
  485.   D3DCUBEMAP_FACES = _D3DCUBEMAP_FACES;
  486.   {$EXTERNALSYM D3DCUBEMAP_FACES}
  487.   TD3DCubemapFaces = _D3DCUBEMAP_FACES;
  490. const
  491.   { Lock flags }
  492.   D3DLOCK_READONLY         = $00000010;
  493.   {$EXTERNALSYM D3DLOCK_READONLY}
  494.   D3DLOCK_DISCARD          = $00002000;
  495.   {$EXTERNALSYM D3DLOCK_DISCARD}
  496.   D3DLOCK_NOOVERWRITE      = $00001000;
  497.   {$EXTERNALSYM D3DLOCK_NOOVERWRITE}
  498.   D3DLOCK_NOSYSLOCK        = $00000800;
  499.   {$EXTERNALSYM D3DLOCK_NOSYSLOCK}
  501.   D3DLOCK_NO_DIRTY_UPDATE  = $00008000;
  502.   {$EXTERNALSYM D3DLOCK_NO_DIRTY_UPDATE}
  509. type
  510.   { Vertex Buffer Description }
  511.   PD3DVertexBufferDesc = ^TD3DVertexBufferDesc;
  512.   _D3DVERTEXBUFFER_DESC = packed record
  513.     Format : TD3DFormat;
  514.     _Type  : TD3DResourceType;
  515.     Usage  : DWord;
  516.     Pool   : TD3DPool;
  517.     Size   : LongWord;
  519.     FVF    : DWord;
  520.   end;
  521.   {$EXTERNALSYM _D3DVERTEXBUFFER_DESC}
  522.   D3DVERTEXBUFFER_DESC = _D3DVERTEXBUFFER_DESC;
  523.   {$EXTERNALSYM D3DVERTEXBUFFER_DESC}
  524.   TD3DVertexBufferDesc = _D3DVERTEXBUFFER_DESC;
  526.   { Index Buffer Description }
  527.   PD3DIndexBufferDesc = ^TD3DIndexBufferDesc;
  528.   _D3DINDEXBUFFER_DESC = packed record
  529.     Format : TD3DFormat;
  530.     _Type  : TD3DResourceType;
  531.     Usage  : DWord;
  532.     Pool   : TD3DPool;
  533.     Size   : LongWord;
  534.   end {_D3DINDEXBUFFER_DESC};
  535.   {$EXTERNALSYM _D3DINDEXBUFFER_DESC}
  536.   D3DINDEXBUFFER_DESC = _D3DINDEXBUFFER_DESC;
  537.   {$EXTERNALSYM D3DINDEXBUFFER_DESC}
  538.   TD3DIndexBufferDesc = _D3DINDEXBUFFER_DESC;
  541.  { Surface Description }
  542.   PD3DSurfaceDesc = ^TD3DSurfaceDesc;
  543.   _D3DSURFACE_DESC = packed record
  544.     Format : TD3DFormat;
  545.     _Type  : TD3DResourceType;
  546.     Usage  : DWord;
  547.     Pool   : TD3DPool;
  548.     Size   : LongWord;
  550.     MultiSampleType: TD3DMultiSampleType;
  551.     Width  : LongWord;
  552.     Height : LongWord;
  553.   end {_D3DSURFACE_DESC};
  554.   {$EXTERNALSYM _D3DSURFACE_DESC}
  555.   D3DSURFACE_DESC = _D3DSURFACE_DESC;
  556.   {$EXTERNALSYM D3DSURFACE_DESC}
  557.   TD3DSurfaceDesc = _D3DSURFACE_DESC;
  559.   PD3DVolumeDesc = ^TD3DVolumeDesc;
  560.   _D3DVOLUME_DESC = packed record
  561.     Format : TD3DFormat;
  562.     _Type  : TD3DResourceType;
  563.     Usage  : DWord;
  564.     Pool   : TD3DPool;
  565.     Size   : LongWord;
  567.     Width  : LongWord;
  568.     Height : LongWord;
  569.     Depth  : LongWord;
  570.   end {_D3DVOLUME_DESC};
  571.   {$EXTERNALSYM _D3DVOLUME_DESC}
  572.   D3DVOLUME_DESC = _D3DVOLUME_DESC;
  573.   {$EXTERNALSYM D3DVOLUME_DESC}
  574.   TD3DVolumeDesc = _D3DVOLUME_DESC;
  576.   { Structure for LockRect }
  577.   PD3DLockedRect = ^TD3DLockedRect;
  578.   _D3DLOCKED_RECT = packed record
  579.     Pitch: Integer;
  580.     pBits: Pointer; // void*
  581.   end {_D3DLOCKED_RECT};
  582.   {$EXTERNALSYM _D3DLOCKED_RECT}
  583.   D3DLOCKED_RECT = _D3DLOCKED_RECT;
  584.   {$EXTERNALSYM D3DLOCKED_RECT}
  585.   TD3DLockedRect = _D3DLOCKED_RECT;
  587.   { Structures for LockBox }
  588.   PD3DBox = ^TD3DBox;
  589.   _D3DBOX = packed record
  590.     Left        : LongWord;
  591.     Top         : LongWord;
  592.     Right       : LongWord;
  593.     Bottom      : LongWord;
  594.     Front       : LongWord;
  595.     Back        : LongWord;
  596.   end {_D3DBOX};
  597.   {$EXTERNALSYM _D3DBOX}
  598.   D3DBOX = _D3DBOX;
  599.   {$EXTERNALSYM D3DBOX}
  600.   TD3DBox = _D3DBOX;
  602.   PD3DLockedBox = ^TD3DLockedBox;
  603.   _D3DLOCKED_BOX = packed record
  604.     RowPitch    : Integer;
  605.     SlicePitch  : Integer;
  606.     pBits       : Pointer; // void*
  607.   end {_D3DLOCKED_BOX};
  608.   {$EXTERNALSYM _D3DLOCKED_BOX}
  609.   D3DLOCKED_BOX = _D3DLOCKED_BOX;
  610.   {$EXTERNALSYM D3DLOCKED_BOX}
  611.   TD3DLockedBox = _D3DLOCKED_BOX;
  613.   { Structures for LockRange }
  614.   PD3DRange = ^TD3DRange;
  615.   _D3DRANGE = packed record
  616.     Offset      : LongWord;
  617.     Size        : LongWord;
  618.   end {_D3DRANGE};
  619.   {$EXTERNALSYM _D3DRANGE}
  620.   D3DRANGE = _D3DRANGE;
  621.   {$EXTERNALSYM D3DRANGE}
  622.   TD3DRange = _D3DRANGE;
  624.   { Structures for high order primitives }
  625.   PD3DRectPatchInfo = ^TD3DRectPatchInfo;
  626.   _D3DRECTPATCH_INFO = packed record
  627.     StartVertexOffsetWidth  : LongWord;
  628.     StartVertexOffsetHeight : LongWord;
  629.     Width                   : LongWord;
  630.     Height                  : LongWord;
  631.     Stride                  : LongWord;
  632.     Basis                   : TD3DBasisType;
  633.     Order                   : TD3DOrderType;
  634.   end;
  635.   {$EXTERNALSYM _D3DRECTPATCH_INFO}
  636.   D3DRECTPATCH_INFO = _D3DRECTPATCH_INFO;
  637.   {$EXTERNALSYM D3DRECTPATCH_INFO}
  638.   TD3DRectPatchInfo = _D3DRECTPATCH_INFO;
  640.   PD3DTriPatchInfo = ^TD3DTriPatchInfo;
  641.   _D3DTRIPATCH_INFO = packed record
  642.     StartVertexOffset : LongWord;
  643.     NumVertices       : LongWord;
  644.     Basis             : TD3DBasisType;
  645.     Order             : TD3DOrderType;
  646.   end;
  647.   {$EXTERNALSYM _D3DTRIPATCH_INFO}
  648.   D3DTRIPATCH_INFO = _D3DTRIPATCH_INFO;
  649.   {$EXTERNALSYM D3DTRIPATCH_INFO}
  650.   TD3DTriPatchInfo = _D3DTRIPATCH_INFO;
  652. const
  653.   { Adapter Identifier }
  654.   MAX_DEVICE_IDENTIFIER_STRING  = 512;
  655.   {$EXTERNALSYM MAX_DEVICE_IDENTIFIER_STRING}
  656. type
  657.   PD3DAdapterIdentifier8 = ^TD3DAdapterIdentifier8;
  658.   _D3DADAPTER_IDENTIFIER8 = packed record
  659.     Driver      : array [0..MAX_DEVICE_IDENTIFIER_STRING-1] of Char;
  660.     Description : array [0..MAX_DEVICE_IDENTIFIER_STRING-1] of Char;
  662. {$IFDEF WIN32}
  663.     DriverVersion               : Int64;     { Defined for 32 bit components }
  664. {$ELSE}
  665.     DriverVersionLowPart        : DWord;     { Defined for 16 bit driver components }
  666.     DriverVersionHighPart       : DWord;
  667. {$ENDIF}
  669.     VendorId    : DWord;
  670.     DeviceId    : DWord;
  671.     SubSysId    : DWord;
  672.     Revision    : DWord;
  674.     DeviceIdentifier : TGUID;
  676.     WHQLLevel   : DWord;
  678.   end;
  679.   {$EXTERNALSYM _D3DADAPTER_IDENTIFIER8}
  680.   D3DADAPTER_IDENTIFIER8 = _D3DADAPTER_IDENTIFIER8;
  681.   {$EXTERNALSYM D3DADAPTER_IDENTIFIER8}
  682.   TD3DAdapterIdentifier8 = _D3DADAPTER_IDENTIFIER8;
  685.   { Raster Status structure returned by GetRasterStatus }
  686.   PD3DRasterStatus = ^TD3DRasterStatus;
  687.   _D3DRASTER_STATUS = packed record
  688.     InVBlank : Bool;
  689.     ScanLine : LongWord;
  690.   end;
  691.   {$EXTERNALSYM _D3DRASTER_STATUS}
  692.   D3DRASTER_STATUS = _D3DRASTER_STATUS;
  693.   {$EXTERNALSYM D3DRASTER_STATUS}
  694.   TD3DRasterStatus = _D3DRASTER_STATUS;
  698. { Debug monitor tokens (DEBUG only)
  700.    Note that if D3DRS_DEBUGMONITORTOKEN is set, the call is treated as
  701.    passing a token to the debug monitor.  For example, if, after passing
  702.    D3DDMT_ENABLE/DISABLE to D3DRS_DEBUGMONITORTOKEN other token values
  703.    are passed in, the enabled/disabled state of the debug
  704.    monitor will still persist.
  706.    The debug monitor defaults to enabled.
  708.    Calling GetRenderState on D3DRS_DEBUGMONITORTOKEN is not of any use.
  709. }
  710.   _D3DDEBUGMONITORTOKENS = DWord;
  711.   {$EXTERNALSYM _D3DDEBUGMONITORTOKENS}
  712.   D3DDEBUGMONITORTOKENS = _D3DDEBUGMONITORTOKENS;
  713.   {$EXTERNALSYM D3DDEBUGMONITORTOKENS}
  714.   TD3DDebugMonitorTokens = _D3DDEBUGMONITORTOKENS;
  716. const
  717.   D3DDMT_ENABLE            = 0;    // enable debug monitor
  718.   {$EXTERNALSYM D3DDMT_ENABLE}
  719.   D3DDMT_DISABLE           = 1;    // disable debug monitor
  720.   {$EXTERNALSYM D3DDMT_DISABLE}
  722. const
  723.   // GetInfo IDs
  724.   D3DDEVINFOID_RESOURCEMANAGER  = 5; (* Used with D3DDEVINFO_RESOURCEMANAGER *)
  725.   {$EXTERNALSYM D3DDEVINFOID_RESOURCEMANAGER}
  726.   D3DDEVINFOID_VERTEXSTATS      = 6; (* Used with D3DDEVINFO_D3DVERTEXSTATS *)
  727.   {$EXTERNALSYM D3DDEVINFOID_VERTEXSTATS}
  729. type
  730.   PD3DResourceStats = ^TD3DResourceStats;
  731.   _D3DRESOURCESTATS = packed record
  732.   // Data collected since last Present()
  733.     bThrashing                  : BOOL;  (* indicates if thrashing *)
  734.     ApproxBytesDownloaded       : DWORD; (* Approximate number of bytes downloaded by resource manager *)
  735.     NumEvicts                   : DWORD; (* number of objects evicted *)
  736.     NumVidCreates               : DWORD; (* number of objects created in video memory *)
  737.     LastPri                     : DWORD; (* priority of last object evicted *)
  738.     NumUsed                     : DWORD; (* number of objects set to the device *)
  739.     NumUsedInVidMem             : DWORD; (* number of objects set to the device, which are already in video memory *)
  740.   // Persistent data
  741.     WorkingSet                  : DWORD; (* number of objects in video memory *)
  742.     WorkingSetBytes             : DWORD; (* number of bytes in video memory *)
  743.     TotalManaged                : DWORD; (* total number of managed objects *)
  744.     TotalBytes                  : DWORD; (* total number of bytes of managed objects *)
  745.   end;
  746.   {$EXTERNALSYM _D3DRESOURCESTATS}
  747.   D3DRESOURCESTATS = _D3DRESOURCESTATS;
  748.   {$EXTERNALSYM D3DRESOURCESTATS}
  749.   TD3DResourceStats = _D3DRESOURCESTATS;
  751. const
  752.   D3DRTYPECOUNT = (DWORD(D3DRTYPE_INDEXBUFFER) + 1);
  753.   {$EXTERNALSYM D3DRTYPECOUNT}
  755. type
  756.   PD3DDevInfoResourceManager = ^TD3DDevInfoResourceManager;
  757.   _D3DDEVINFO_RESOURCEMANAGER = packed record
  758.     stats: array [0..D3DRTYPECOUNT-1] of TD3DResourceStats;
  759.   end;
  760.   {$EXTERNALSYM _D3DDEVINFO_RESOURCEMANAGER}
  761.   D3DDEVINFO_RESOURCEMANAGER = _D3DDEVINFO_RESOURCEMANAGER;
  762.   {$EXTERNALSYM D3DDEVINFO_RESOURCEMANAGER}
  763.   TD3DDevInfoResourceManager = _D3DDEVINFO_RESOURCEMANAGER;
  765.   PD3DDevInfoD3DVertexStats = ^TD3DDevInfoD3DVertexStats;
  766.   _D3DDEVINFO_D3DVERTEXSTATS = packed record
  767.     NumRenderedTriangles        : DWORD; (* total number of triangles that are not clipped in this frame *)
  768.     NumExtraClippingTriangles   : DWORD; (* Number of new triangles generated by clipping *)
  769.   end;
  770.   {$EXTERNALSYM _D3DDEVINFO_D3DVERTEXSTATS}
  771.   D3DDEVINFO_D3DVERTEXSTATS = _D3DDEVINFO_D3DVERTEXSTATS;
  772.   {$EXTERNALSYM D3DDEVINFO_D3DVERTEXSTATS}
  773.   TD3DDevInfoD3DVertexStats = _D3DDEVINFO_D3DVERTEXSTATS;
  776. (*==========================================================================;
  777.  *
  778.  *  Copyright (C) Microsoft Corporation.  All Rights Reserved.
  779.  *
  780.  *  File:       d3d8caps.h
  781.  *  Content:    Direct3D capabilities include file
  782.  *
  783.  ***************************************************************************)
  785. type
  786.   PD3DCaps8 = ^TD3DCaps8;
  787.   _D3DCAPS8 = record
  788.     (* Device Info *)
  789.     DeviceType: TD3DDevType;
  790.     AdapterOrdinal: DWord;
  792.     (* Caps from DX7 Draw *)
  793.     Caps: DWord;
  794.     Caps2: DWord;
  795.     Caps3: DWord;
  796.     PresentationIntervals: DWord;
  798.     (* Cursor Caps *)
  799.     CursorCaps: DWORD;
  801.     (* 3D Device Caps *)
  802.     DevCaps: DWord;
  803.     PrimitiveMiscCaps: DWord;
  804.     RasterCaps: DWord;
  805.     ZCmpCaps: DWord;
  806.     SrcBlendCaps: DWord;
  807.     DestBlendCaps: DWord;
  808.     AlphaCmpCaps: DWord;
  809.     ShadeCaps: DWord;
  810.     TextureCaps: DWord;
  811.     TextureFilterCaps: DWord;           // D3DPTFILTERCAPS for IDirect3DTexture8's
  812.     CubeTextureFilterCaps: DWord;       // D3DPTFILTERCAPS for IDirect3DCubeTexture8's
  813.     VolumeTextureFilterCaps: DWord;     // D3DPTFILTERCAPS for IDirect3DVolumeTexture8's
  814.     TextureAddressCaps: DWord;          // D3DPTADDRESSCAPS for IDirect3DTexture8's
  815.     VolumeTextureAddressCaps: DWord;    // D3DPTADDRESSCAPS for IDirect3DVolumeTexture8's
  817.     LineCaps: DWord;                    // D3DLINECAPS
  819.     MaxTextureWidth, MaxTextureHeight: DWord;
  820.     MaxVolumeExtent: DWord;
  822.     MaxTextureRepeat: DWord;
  823.     MaxTextureAspectRatio: DWord;
  824.     MaxAnisotropy: DWord;
  825.     MaxVertexW: Single;
  827.     GuardBandLeft: Single;
  828.     GuardBandTop: Single;
  829.     GuardBandRight: Single;
  830.     GuardBandBottom: Single;
  832.     ExtentsAdjust: Single;
  833.     StencilCaps: DWord;
  835.     FVFCaps: DWord;
  836.     TextureOpCaps: DWord;
  837.     MaxTextureBlendStages: DWord;
  838.     MaxSimultaneousTextures: DWord;
  840.     VertexProcessingCaps: DWord;
  841.     MaxActiveLights: DWord;
  842.     MaxUserClipPlanes: DWord;
  843.     MaxVertexBlendMatrices: DWord;
  844.     MaxVertexBlendMatrixIndex: DWord;
  846.     MaxPointSize: Single;
  848.     MaxPrimitiveCount: DWord;           // max number of primitives per DrawPrimitive call
  849.     MaxVertexIndex: DWord;
  850.     MaxStreams: DWord;
  851.     MaxStreamStride: DWord;             // max stride for SetStreamSource
  853.     VertexShaderVersion: DWord;
  854.     MaxVertexShaderConst: DWord;        // number of vertex shader constant registers
  856.     PixelShaderVersion: DWord;
  857.     MaxPixelShaderValue: Single;        // max value of pixel shader arithmetic component
  858.   end {D3DCAPS8};
  859.   {$EXTERNALSYM _D3DCAPS8}
  860.   D3DCAPS8 = _D3DCAPS8;
  861.   {$EXTERNALSYM D3DCAPS8}
  862.   TD3DCaps8 = _D3DCAPS8;
  864.   //
  865.   // BIT DEFINES FOR D3DCAPS8 DWORD MEMBERS
  866.   //
  868. const
  869.   //
  870.   // Caps
  871.   //
  872.   D3DCAPS_READ_SCANLINE         = $00020000;
  873.   {$EXTERNALSYM D3DCAPS_READ_SCANLINE}
  875.   //
  876.   // Caps2
  877.   //
  878.   D3DCAPS2_NO2DDURING3DSCENE    = $00000002;
  879.   {$EXTERNALSYM D3DCAPS2_NO2DDURING3DSCENE}
  880.   D3DCAPS2_FULLSCREENGAMMA      = $00020000;
  881.   {$EXTERNALSYM D3DCAPS2_FULLSCREENGAMMA}
  882.   D3DCAPS2_CANRENDERWINDOWED    = $00080000;
  883.   {$EXTERNALSYM D3DCAPS2_CANRENDERWINDOWED}
  884.   D3DCAPS2_CANCALIBRATEGAMMA    = $00100000;
  885.   {$EXTERNALSYM D3DCAPS2_CANCALIBRATEGAMMA}
  886.   D3DCAPS2_RESERVED             = $02000000;
  887.   {$EXTERNALSYM D3DCAPS2_RESERVED}
  888.   D3DCAPS2_CANMANAGERESOURCE    = $10000000;
  889.   {$EXTERNALSYM D3DCAPS2_CANMANAGERESOURCE}
  890.   D3DCAPS2_DYNAMICTEXTURES      = $20000000;
  891.   {$EXTERNALSYM D3DCAPS2_DYNAMICTEXTURES}
  893.   //
  894.   // Caps3
  895.   //
  896.   D3DCAPS3_RESERVED             = $8000001F;
  897.   {$EXTERNALSYM D3DCAPS3_RESERVED}
  899.   // Indicates that the device can respect the ALPHABLENDENABLE render state
  900.   // when fullscreen while using the FLIP or DISCARD swap effect.
  901.   // COPY and COPYVSYNC swap effects work whether or not this flag is set.
  902.   D3DCAPS3_ALPHA_FULLSCREEN_FLIP_OR_DISCARD     = $00000020;
  903.   {$EXTERNALSYM D3DCAPS3_ALPHA_FULLSCREEN_FLIP_OR_DISCARD}
  905.   //
  906.   // PresentationIntervals
  907.   //
  908.   D3DPRESENT_INTERVAL_DEFAULT   = $00000000;
  909.   {$EXTERNALSYM D3DPRESENT_INTERVAL_DEFAULT}
  910.   D3DPRESENT_INTERVAL_ONE       = $00000001;
  911.   {$EXTERNALSYM D3DPRESENT_INTERVAL_ONE}
  912.   D3DPRESENT_INTERVAL_TWO       = $00000002;
  913.   {$EXTERNALSYM D3DPRESENT_INTERVAL_TWO}
  914.   D3DPRESENT_INTERVAL_THREE     = $00000004;
  915.   {$EXTERNALSYM D3DPRESENT_INTERVAL_THREE}
  916.   D3DPRESENT_INTERVAL_FOUR      = $00000008;
  917.   {$EXTERNALSYM D3DPRESENT_INTERVAL_FOUR}
  918.   D3DPRESENT_INTERVAL_IMMEDIATE = $80000000;
  919.   {$EXTERNALSYM D3DPRESENT_INTERVAL_IMMEDIATE}
  921.   //
  922.   // CursorCaps
  923.   //
  924.   // Driver supports HW color cursor in at least hi-res modes(height >=400)
  925.   D3DCURSORCAPS_COLOR           = $00000001;
  926.   {$EXTERNALSYM D3DCURSORCAPS_COLOR}
  927.   // Driver supports HW cursor also in low-res modes(height < 400)
  928.   D3DCURSORCAPS_LOWRES          = $00000002;
  929.   {$EXTERNALSYM D3DCURSORCAPS_LOWRES}
  931.   //
  932.   // DevCaps
  933.   //
  934.   D3DDEVCAPS_EXECUTESYSTEMMEMORY        = $00000010; { Device can use execute buffers from system memory }
  935.   {$EXTERNALSYM D3DDEVCAPS_EXECUTESYSTEMMEMORY}
  936.   D3DDEVCAPS_EXECUTEVIDEOMEMORY         = $00000020; { Device can use execute buffers from video memory }
  937.   {$EXTERNALSYM D3DDEVCAPS_EXECUTEVIDEOMEMORY}
  938.   D3DDEVCAPS_TLVERTEXSYSTEMMEMORY       = $00000040; { Device can use TL buffers from system memory }
  939.   {$EXTERNALSYM D3DDEVCAPS_TLVERTEXSYSTEMMEMORY}
  940.   D3DDEVCAPS_TLVERTEXVIDEOMEMORY        = $00000080; { Device can use TL buffers from video memory }
  941.   {$EXTERNALSYM D3DDEVCAPS_TLVERTEXVIDEOMEMORY}
  942.   D3DDEVCAPS_TEXTURESYSTEMMEMORY        = $00000100; { Device can texture from system memory }
  943.   {$EXTERNALSYM D3DDEVCAPS_TEXTURESYSTEMMEMORY}
  944.   D3DDEVCAPS_TEXTUREVIDEOMEMORY         = $00000200; { Device can texture from device memory }
  945.   {$EXTERNALSYM D3DDEVCAPS_TEXTUREVIDEOMEMORY}
  946.   D3DDEVCAPS_DRAWPRIMTLVERTEX           = $00000400; { Device can draw TLVERTEX primitives }
  947.   {$EXTERNALSYM D3DDEVCAPS_DRAWPRIMTLVERTEX}
  948.   D3DDEVCAPS_CANRENDERAFTERFLIP         = $00000800; { Device can render without waiting for flip to complete }
  949.   {$EXTERNALSYM D3DDEVCAPS_CANRENDERAFTERFLIP}
  950.   D3DDEVCAPS_TEXTURENONLOCALVIDMEM      = $00001000; { Device can texture from nonlocal video memory }
  951.   {$EXTERNALSYM D3DDEVCAPS_TEXTURENONLOCALVIDMEM}
  952.   D3DDEVCAPS_DRAWPRIMITIVES2            = $00002000; { Device can support DrawPrimitives2 }
  953.   {$EXTERNALSYM D3DDEVCAPS_DRAWPRIMITIVES2}
  954.   D3DDEVCAPS_SEPARATETEXTUREMEMORIES    = $00004000; { Device is texturing from separate memory pools }
  955.   {$EXTERNALSYM D3DDEVCAPS_SEPARATETEXTUREMEMORIES}
  956.   D3DDEVCAPS_DRAWPRIMITIVES2EX          = $00008000; { Device can support Extended DrawPrimitives2 i.e. DX7 compliant driver }
  957.   {$EXTERNALSYM D3DDEVCAPS_DRAWPRIMITIVES2EX}
  958.   D3DDEVCAPS_HWTRANSFORMANDLIGHT        = $00010000; { Device can support transformation and lighting in hardware and DRAWPRIMITIVES2EX must be also }
  959.   {$EXTERNALSYM D3DDEVCAPS_HWTRANSFORMANDLIGHT}
  960.   D3DDEVCAPS_CANBLTSYSTONONLOCAL        = $00020000; { Device supports a Tex Blt from system memory to non-local vidmem }
  961.   {$EXTERNALSYM D3DDEVCAPS_CANBLTSYSTONONLOCAL}
  962.   D3DDEVCAPS_HWRASTERIZATION            = $00080000; { Device has HW acceleration for rasterization }
  963.   {$EXTERNALSYM D3DDEVCAPS_HWRASTERIZATION}
  964.   D3DDEVCAPS_PUREDEVICE                 = $00100000; { Device supports D3DCREATE_PUREDEVICE }
  965.   {$EXTERNALSYM D3DDEVCAPS_PUREDEVICE}
  966.   D3DDEVCAPS_QUINTICRTPATCHES           = $00200000; { Device supports quintic Beziers and BSplines }
  967.   {$EXTERNALSYM D3DDEVCAPS_QUINTICRTPATCHES}
  968.   D3DDEVCAPS_RTPATCHES                  = $00400000; { Device supports Rect and Tri patches }
  969.   {$EXTERNALSYM D3DDEVCAPS_RTPATCHES}
  970.   D3DDEVCAPS_RTPATCHHANDLEZERO          = $00800000; { Indicates that RT Patches may be drawn efficiently using handle 0 }
  971.   {$EXTERNALSYM D3DDEVCAPS_RTPATCHHANDLEZERO}
  972.   D3DDEVCAPS_NPATCHES                   = $01000000; { Device supports N-Patches }
  973.   {$EXTERNALSYM D3DDEVCAPS_NPATCHES}
  975.   //
  976.   // PrimitiveMiscCaps
  977.   //
  978.   D3DPMISCCAPS_MASKZ                    = $00000002;
  979.   {$EXTERNALSYM D3DPMISCCAPS_MASKZ}
  980.   D3DPMISCCAPS_LINEPATTERNREP           = $00000004;
  981.   {$EXTERNALSYM D3DPMISCCAPS_LINEPATTERNREP}
  982.   D3DPMISCCAPS_CULLNONE                 = $00000010;
  983.   {$EXTERNALSYM D3DPMISCCAPS_CULLNONE}
  984.   D3DPMISCCAPS_CULLCW                   = $00000020;
  985.   {$EXTERNALSYM D3DPMISCCAPS_CULLCW}
  986.   D3DPMISCCAPS_CULLCCW                  = $00000040;
  987.   {$EXTERNALSYM D3DPMISCCAPS_CULLCCW}
  988.   D3DPMISCCAPS_COLORWRITEENABLE         = $00000080;
  989.   {$EXTERNALSYM D3DPMISCCAPS_COLORWRITEENABLE}
  990.   D3DPMISCCAPS_CLIPPLANESCALEDPOINTS    = $00000100; { Device correctly clips scaled points to clip planes }
  991.   {$EXTERNALSYM D3DPMISCCAPS_CLIPPLANESCALEDPOINTS}
  992.   D3DPMISCCAPS_CLIPTLVERTS              = $00000200; { device will clip post-transformed vertex primitives }
  993.   {$EXTERNALSYM D3DPMISCCAPS_CLIPTLVERTS}
  994.   D3DPMISCCAPS_TSSARGTEMP               = $00000400; { device supports D3DTA_TEMP for temporary register }
  995.   {$EXTERNALSYM D3DPMISCCAPS_TSSARGTEMP}
  996.   D3DPMISCCAPS_BLENDOP                  = $00000800; { device supports D3DRS_BLENDOP }
  997.   {$EXTERNALSYM D3DPMISCCAPS_BLENDOP}
  998.   D3DPMISCCAPS_NULLREFERENCE            = $00001000; { Reference Device that doesnt render }
  999.   {$EXTERNALSYM D3DPMISCCAPS_NULLREFERENCE}
  1001.   //
  1002.   // LineCaps
  1003.   //
  1004.   D3DLINECAPS_TEXTURE                   = $00000001;
  1005.   {$EXTERNALSYM D3DLINECAPS_TEXTURE}
  1006.   D3DLINECAPS_ZTEST                     = $00000002;
  1007.   {$EXTERNALSYM D3DLINECAPS_ZTEST}
  1008.   D3DLINECAPS_BLEND                     = $00000004;
  1009.   {$EXTERNALSYM D3DLINECAPS_BLEND}
  1010.   D3DLINECAPS_ALPHACMP                  = $00000008;
  1011.   {$EXTERNALSYM D3DLINECAPS_ALPHACMP}
  1012.   D3DLINECAPS_FOG                       = $00000010;
  1013.   {$EXTERNALSYM D3DLINECAPS_FOG}
  1015.   //
  1016.   // RasterCaps
  1017.   //
  1018.   D3DPRASTERCAPS_DITHER                 = $00000001;
  1019.   {$EXTERNALSYM D3DPRASTERCAPS_DITHER}
  1020.   D3DPRASTERCAPS_PAT                    = $00000008;
  1021.   {$EXTERNALSYM D3DPRASTERCAPS_PAT}
  1022.   D3DPRASTERCAPS_ZTEST                  = $00000010;
  1023.   {$EXTERNALSYM D3DPRASTERCAPS_ZTEST}
  1024.   D3DPRASTERCAPS_FOGVERTEX              = $00000080;
  1025.   {$EXTERNALSYM D3DPRASTERCAPS_FOGVERTEX}
  1026.   D3DPRASTERCAPS_FOGTABLE               = $00000100;
  1027.   {$EXTERNALSYM D3DPRASTERCAPS_FOGTABLE}
  1028.   D3DPRASTERCAPS_ANTIALIASEDGES         = $00001000;
  1029.   {$EXTERNALSYM D3DPRASTERCAPS_ANTIALIASEDGES}
  1030.   D3DPRASTERCAPS_MIPMAPLODBIAS          = $00002000;
  1031.   {$EXTERNALSYM D3DPRASTERCAPS_MIPMAPLODBIAS}
  1032.   D3DPRASTERCAPS_ZBIAS                  = $00004000;
  1033.   {$EXTERNALSYM D3DPRASTERCAPS_ZBIAS}
  1034.   D3DPRASTERCAPS_ZBUFFERLESSHSR         = $00008000;
  1035.   {$EXTERNALSYM D3DPRASTERCAPS_ZBUFFERLESSHSR}
  1036.   D3DPRASTERCAPS_FOGRANGE               = $00010000;
  1037.   {$EXTERNALSYM D3DPRASTERCAPS_FOGRANGE}
  1038.   D3DPRASTERCAPS_ANISOTROPY             = $00020000;
  1039.   {$EXTERNALSYM D3DPRASTERCAPS_ANISOTROPY}
  1040.   D3DPRASTERCAPS_WBUFFER                = $00040000;
  1041.   {$EXTERNALSYM D3DPRASTERCAPS_WBUFFER}
  1042.   D3DPRASTERCAPS_WFOG                   = $00100000;
  1043.   {$EXTERNALSYM D3DPRASTERCAPS_WFOG}
  1044.   D3DPRASTERCAPS_ZFOG                   = $00200000;
  1045.   {$EXTERNALSYM D3DPRASTERCAPS_ZFOG}
  1046.   D3DPRASTERCAPS_COLORPERSPECTIVE       = $00400000; { Device iterates colors perspective correct }
  1047.   {$EXTERNALSYM D3DPRASTERCAPS_COLORPERSPECTIVE}
  1048.   D3DPRASTERCAPS_STRETCHBLTMULTISAMPLE  = $00800000;
  1049.   {$EXTERNALSYM D3DPRASTERCAPS_STRETCHBLTMULTISAMPLE}
  1051.   //
  1052.   // ZCmpCaps, AlphaCmpCaps
  1053.   //
  1054.   D3DPCMPCAPS_NEVER                     = $00000001;
  1055.   {$EXTERNALSYM D3DPCMPCAPS_NEVER}
  1056.   D3DPCMPCAPS_LESS                      = $00000002;
  1057.   {$EXTERNALSYM D3DPCMPCAPS_LESS}
  1058.   D3DPCMPCAPS_EQUAL                     = $00000004;
  1059.   {$EXTERNALSYM D3DPCMPCAPS_EQUAL}
  1060.   D3DPCMPCAPS_LESSEQUAL                 = $00000008;
  1061.   {$EXTERNALSYM D3DPCMPCAPS_LESSEQUAL}
  1062.   D3DPCMPCAPS_GREATER                   = $00000010;
  1063.   {$EXTERNALSYM D3DPCMPCAPS_GREATER}
  1064.   D3DPCMPCAPS_NOTEQUAL                  = $00000020;
  1065.   {$EXTERNALSYM D3DPCMPCAPS_NOTEQUAL}
  1066.   D3DPCMPCAPS_GREATEREQUAL              = $00000040;
  1067.   {$EXTERNALSYM D3DPCMPCAPS_GREATEREQUAL}
  1068.   D3DPCMPCAPS_ALWAYS                    = $00000080;
  1069.   {$EXTERNALSYM D3DPCMPCAPS_ALWAYS}
  1071.   //
  1072.   // SourceBlendCaps, DestBlendCaps
  1073.   //
  1074.   D3DPBLENDCAPS_ZERO                    = $00000001;
  1075.   {$EXTERNALSYM D3DPBLENDCAPS_ZERO}
  1076.   D3DPBLENDCAPS_ONE                     = $00000002;
  1077.   {$EXTERNALSYM D3DPBLENDCAPS_ONE}
  1078.   D3DPBLENDCAPS_SRCCOLOR                = $00000004;
  1079.   {$EXTERNALSYM D3DPBLENDCAPS_SRCCOLOR}
  1080.   D3DPBLENDCAPS_INVSRCCOLOR             = $00000008;
  1081.   {$EXTERNALSYM D3DPBLENDCAPS_INVSRCCOLOR}
  1082.   D3DPBLENDCAPS_SRCALPHA                = $00000010;
  1083.   {$EXTERNALSYM D3DPBLENDCAPS_SRCALPHA}
  1084.   D3DPBLENDCAPS_INVSRCALPHA             = $00000020;
  1085.   {$EXTERNALSYM D3DPBLENDCAPS_INVSRCALPHA}
  1086.   D3DPBLENDCAPS_DESTALPHA               = $00000040;
  1087.   {$EXTERNALSYM D3DPBLENDCAPS_DESTALPHA}
  1088.   D3DPBLENDCAPS_INVDESTALPHA            = $00000080;
  1089.   {$EXTERNALSYM D3DPBLENDCAPS_INVDESTALPHA}
  1090.   D3DPBLENDCAPS_DESTCOLOR               = $00000100;
  1091.   {$EXTERNALSYM D3DPBLENDCAPS_DESTCOLOR}
  1092.   D3DPBLENDCAPS_INVDESTCOLOR            = $00000200;
  1093.   {$EXTERNALSYM D3DPBLENDCAPS_INVDESTCOLOR}
  1094.   D3DPBLENDCAPS_SRCALPHASAT             = $00000400;
  1095.   {$EXTERNALSYM D3DPBLENDCAPS_SRCALPHASAT}
  1096.   D3DPBLENDCAPS_BOTHSRCALPHA            = $00000800;
  1097.   {$EXTERNALSYM D3DPBLENDCAPS_BOTHSRCALPHA}
  1098.   D3DPBLENDCAPS_BOTHINVSRCALPHA         = $00001000;
  1099.   {$EXTERNALSYM D3DPBLENDCAPS_BOTHINVSRCALPHA}
  1101.   //
  1102.   // ShadeCaps
  1103.   //
  1104.   D3DPSHADECAPS_COLORGOURAUDRGB         = $00000008;
  1105.   {$EXTERNALSYM D3DPSHADECAPS_COLORGOURAUDRGB}
  1106.   D3DPSHADECAPS_SPECULARGOURAUDRGB      = $00000200;
  1107.   {$EXTERNALSYM D3DPSHADECAPS_SPECULARGOURAUDRGB}
  1108.   D3DPSHADECAPS_ALPHAGOURAUDBLEND       = $00004000;
  1109.   {$EXTERNALSYM D3DPSHADECAPS_ALPHAGOURAUDBLEND}
  1110.   D3DPSHADECAPS_FOGGOURAUD              = $00080000;
  1111.   {$EXTERNALSYM D3DPSHADECAPS_FOGGOURAUD}
  1113.   //
  1114.   // TextureCaps
  1115.   //
  1116.   D3DPTEXTURECAPS_PERSPECTIVE           = $00000001; { Perspective-correct texturing is supported }
  1117.   {$EXTERNALSYM D3DPTEXTURECAPS_PERSPECTIVE}
  1118.   D3DPTEXTURECAPS_POW2                  = $00000002; { Power-of-2 texture dimensions are required - applies to non-Cube/Volume textures only. }
  1119.   {$EXTERNALSYM D3DPTEXTURECAPS_POW2}
  1120.   D3DPTEXTURECAPS_ALPHA                 = $00000004; { Alpha in texture pixels is supported }
  1121.   {$EXTERNALSYM D3DPTEXTURECAPS_ALPHA}
  1122.   D3DPTEXTURECAPS_SQUAREONLY            = $00000020; { Only square textures are supported }
  1123.   {$EXTERNALSYM D3DPTEXTURECAPS_SQUAREONLY}
  1124.   D3DPTEXTURECAPS_TEXREPEATNOTSCALEDBYSIZE = $00000040; { Texture indices are not scaled by the texture size prior to interpolation }
  1125.   {$EXTERNALSYM D3DPTEXTURECAPS_TEXREPEATNOTSCALEDBYSIZE}
  1126.   D3DPTEXTURECAPS_ALPHAPALETTE          = $00000080; { Device can draw alpha from texture palettes }
  1127.   {$EXTERNALSYM D3DPTEXTURECAPS_ALPHAPALETTE}
  1128.   // Device can use non-POW2 textures if:
  1129.   //  1) D3DTEXTURE_ADDRESS is set to CLAMP for this texture's stage
  1130.   //  2) D3DRS_WRAP(N) is zero for this texture's coordinates
  1131.   //  3) mip mapping is not enabled (use magnification filter only)
  1132.   D3DPTEXTURECAPS_NONPOW2CONDITIONAL    = $00000100;
  1133.   {$EXTERNALSYM D3DPTEXTURECAPS_NONPOW2CONDITIONAL}
  1134.   D3DPTEXTURECAPS_PROJECTED             = $00000400; { Device can do D3DTTFF_PROJECTED }
  1135.   {$EXTERNALSYM D3DPTEXTURECAPS_PROJECTED}
  1136.   D3DPTEXTURECAPS_CUBEMAP               = $00000800; { Device can do cubemap textures }
  1137.   {$EXTERNALSYM D3DPTEXTURECAPS_CUBEMAP}
  1138.   D3DPTEXTURECAPS_VOLUMEMAP             = $00002000; { Device can do volume textures }
  1139.   {$EXTERNALSYM D3DPTEXTURECAPS_VOLUMEMAP}
  1140.   D3DPTEXTURECAPS_MIPMAP                = $00004000; { Device can do mipmapped textures }
  1141.   {$EXTERNALSYM D3DPTEXTURECAPS_MIPMAP}
  1142.   D3DPTEXTURECAPS_MIPVOLUMEMAP          = $00008000; { Device can do mipmapped volume textures }
  1143.   {$EXTERNALSYM D3DPTEXTURECAPS_MIPVOLUMEMAP}
  1144.   D3DPTEXTURECAPS_MIPCUBEMAP            = $00010000; { Device can do mipmapped cube maps }
  1145.   {$EXTERNALSYM D3DPTEXTURECAPS_MIPCUBEMAP}
  1146.   D3DPTEXTURECAPS_CUBEMAP_POW2          = $00020000; { Device requires that cubemaps be power-of-2 dimension }
  1147.   {$EXTERNALSYM D3DPTEXTURECAPS_CUBEMAP_POW2}
  1148.   D3DPTEXTURECAPS_VOLUMEMAP_POW2        = $00040000; { Device requires that volume maps be power-of-2 dimension }
  1149.   {$EXTERNALSYM D3DPTEXTURECAPS_VOLUMEMAP_POW2}
  1151.   //
  1152.   // TextureFilterCaps
  1153.   //
  1154.   D3DPTFILTERCAPS_MINFPOINT             = $00000100; { Min Filter }
  1155.   {$EXTERNALSYM D3DPTFILTERCAPS_MINFPOINT}
  1156.   D3DPTFILTERCAPS_MINFLINEAR            = $00000200;
  1157.   {$EXTERNALSYM D3DPTFILTERCAPS_MINFLINEAR}
  1158.   D3DPTFILTERCAPS_MINFANISOTROPIC       = $00000400;
  1159.   {$EXTERNALSYM D3DPTFILTERCAPS_MINFANISOTROPIC}
  1160.   D3DPTFILTERCAPS_MIPFPOINT             = $00010000; { Mip Filter }
  1161.   {$EXTERNALSYM D3DPTFILTERCAPS_MIPFPOINT}
  1162.   D3DPTFILTERCAPS_MIPFLINEAR            = $00020000;
  1163.   {$EXTERNALSYM D3DPTFILTERCAPS_MIPFLINEAR}
  1164.   D3DPTFILTERCAPS_MAGFPOINT             = $01000000; { Mag Filter }
  1165.   {$EXTERNALSYM D3DPTFILTERCAPS_MAGFPOINT}
  1166.   D3DPTFILTERCAPS_MAGFLINEAR            = $02000000;
  1167.   {$EXTERNALSYM D3DPTFILTERCAPS_MAGFLINEAR}
  1168.   D3DPTFILTERCAPS_MAGFANISOTROPIC       = $04000000;
  1169.   {$EXTERNALSYM D3DPTFILTERCAPS_MAGFANISOTROPIC}
  1170.   D3DPTFILTERCAPS_MAGFAFLATCUBIC        = $08000000;
  1171.   {$EXTERNALSYM D3DPTFILTERCAPS_MAGFAFLATCUBIC}
  1172.   D3DPTFILTERCAPS_MAGFGAUSSIANCUBIC     = $10000000;
  1173.   {$EXTERNALSYM D3DPTFILTERCAPS_MAGFGAUSSIANCUBIC}
  1175.   //
  1176.   // TextureAddressCaps
  1177.   //
  1178.   D3DPTADDRESSCAPS_WRAP                 = $00000001;
  1179.   {$EXTERNALSYM D3DPTADDRESSCAPS_WRAP}
  1180.   D3DPTADDRESSCAPS_MIRROR               = $00000002;
  1181.   {$EXTERNALSYM D3DPTADDRESSCAPS_MIRROR}
  1182.   D3DPTADDRESSCAPS_CLAMP                = $00000004;
  1183.   {$EXTERNALSYM D3DPTADDRESSCAPS_CLAMP}
  1184.   D3DPTADDRESSCAPS_BORDER               = $00000008;
  1185.   {$EXTERNALSYM D3DPTADDRESSCAPS_BORDER}
  1186.   D3DPTADDRESSCAPS_INDEPENDENTUV        = $00000010;
  1187.   {$EXTERNALSYM D3DPTADDRESSCAPS_INDEPENDENTUV}
  1188.   D3DPTADDRESSCAPS_MIRRORONCE           = $00000020;
  1189.   {$EXTERNALSYM D3DPTADDRESSCAPS_MIRRORONCE}
  1191.   //
  1192.   // StencilCaps
  1193.   //
  1194.   D3DSTENCILCAPS_KEEP                   = $00000001;
  1195.   {$EXTERNALSYM D3DSTENCILCAPS_KEEP}
  1196.   D3DSTENCILCAPS_ZERO                   = $00000002;
  1197.   {$EXTERNALSYM D3DSTENCILCAPS_ZERO}
  1198.   D3DSTENCILCAPS_REPLACE                = $00000004;
  1199.   {$EXTERNALSYM D3DSTENCILCAPS_REPLACE}
  1200.   D3DSTENCILCAPS_INCRSAT                = $00000008;
  1201.   {$EXTERNALSYM D3DSTENCILCAPS_INCRSAT}
  1202.   D3DSTENCILCAPS_DECRSAT                = $00000010;
  1203.   {$EXTERNALSYM D3DSTENCILCAPS_DECRSAT}
  1204.   D3DSTENCILCAPS_INVERT                 = $00000020;
  1205.   {$EXTERNALSYM D3DSTENCILCAPS_INVERT}
  1206.   D3DSTENCILCAPS_INCR                   = $00000040;
  1207.   {$EXTERNALSYM D3DSTENCILCAPS_INCR}
  1208.   D3DSTENCILCAPS_DECR                   = $00000080;
  1209.   {$EXTERNALSYM D3DSTENCILCAPS_DECR}
  1211.   //
  1212.   // TextureOpCaps
  1213.   //
  1214.   D3DTEXOPCAPS_DISABLE                          = $00000001;
  1215.   {$EXTERNALSYM D3DTEXOPCAPS_DISABLE}
  1216.   D3DTEXOPCAPS_SELECTARG1                       = $00000002;
  1217.   {$EXTERNALSYM D3DTEXOPCAPS_SELECTARG1}
  1218.   D3DTEXOPCAPS_SELECTARG2                       = $00000004;
  1219.   {$EXTERNALSYM D3DTEXOPCAPS_SELECTARG2}
  1220.   D3DTEXOPCAPS_MODULATE                         = $00000008;
  1221.   {$EXTERNALSYM D3DTEXOPCAPS_MODULATE}
  1222.   D3DTEXOPCAPS_MODULATE2X                       = $00000010;
  1223.   {$EXTERNALSYM D3DTEXOPCAPS_MODULATE2X}
  1224.   D3DTEXOPCAPS_MODULATE4X                       = $00000020;
  1225.   {$EXTERNALSYM D3DTEXOPCAPS_MODULATE4X}
  1226.   D3DTEXOPCAPS_ADD                              = $00000040;
  1227.   {$EXTERNALSYM D3DTEXOPCAPS_ADD}
  1228.   D3DTEXOPCAPS_ADDSIGNED                        = $00000080;
  1229.   {$EXTERNALSYM D3DTEXOPCAPS_ADDSIGNED}
  1230.   D3DTEXOPCAPS_ADDSIGNED2X                      = $00000100;
  1231.   {$EXTERNALSYM D3DTEXOPCAPS_ADDSIGNED2X}
  1232.   D3DTEXOPCAPS_SUBTRACT                         = $00000200;
  1233.   {$EXTERNALSYM D3DTEXOPCAPS_SUBTRACT}
  1234.   D3DTEXOPCAPS_ADDSMOOTH                        = $00000400;
  1235.   {$EXTERNALSYM D3DTEXOPCAPS_ADDSMOOTH}
  1236.   D3DTEXOPCAPS_BLENDDIFFUSEALPHA                = $00000800;
  1237.   {$EXTERNALSYM D3DTEXOPCAPS_BLENDDIFFUSEALPHA}
  1238.   D3DTEXOPCAPS_BLENDTEXTUREALPHA                = $00001000;
  1239.   {$EXTERNALSYM D3DTEXOPCAPS_BLENDTEXTUREALPHA}
  1240.   D3DTEXOPCAPS_BLENDFACTORALPHA                 = $00002000;
  1241.   {$EXTERNALSYM D3DTEXOPCAPS_BLENDFACTORALPHA}
  1242.   D3DTEXOPCAPS_BLENDTEXTUREALPHAPM              = $00004000;
  1243.   {$EXTERNALSYM D3DTEXOPCAPS_BLENDTEXTUREALPHAPM}
  1244.   D3DTEXOPCAPS_BLENDCURRENTALPHA                = $00008000;
  1245.   {$EXTERNALSYM D3DTEXOPCAPS_BLENDCURRENTALPHA}
  1246.   D3DTEXOPCAPS_PREMODULATE                      = $00010000;
  1247.   {$EXTERNALSYM D3DTEXOPCAPS_PREMODULATE}
  1248.   D3DTEXOPCAPS_MODULATEALPHA_ADDCOLOR           = $00020000;
  1249.   {$EXTERNALSYM D3DTEXOPCAPS_MODULATEALPHA_ADDCOLOR}
  1250.   D3DTEXOPCAPS_MODULATECOLOR_ADDALPHA           = $00040000;
  1251.   {$EXTERNALSYM D3DTEXOPCAPS_MODULATECOLOR_ADDALPHA}
  1252.   D3DTEXOPCAPS_MODULATEINVALPHA_ADDCOLOR        = $00080000;
  1253.   {$EXTERNALSYM D3DTEXOPCAPS_MODULATEINVALPHA_ADDCOLOR}
  1254.   D3DTEXOPCAPS_MODULATEINVCOLOR_ADDALPHA        = $00100000;
  1255.   {$EXTERNALSYM D3DTEXOPCAPS_MODULATEINVCOLOR_ADDALPHA}
  1256.   D3DTEXOPCAPS_BUMPENVMAP                       = $00200000;
  1257.   {$EXTERNALSYM D3DTEXOPCAPS_BUMPENVMAP}
  1258.   D3DTEXOPCAPS_BUMPENVMAPLUMINANCE              = $00400000;
  1259.   {$EXTERNALSYM D3DTEXOPCAPS_BUMPENVMAPLUMINANCE}
  1260.   D3DTEXOPCAPS_DOTPRODUCT3                      = $00800000;
  1261.   {$EXTERNALSYM D3DTEXOPCAPS_DOTPRODUCT3}
  1262.   D3DTEXOPCAPS_MULTIPLYADD                      = $01000000;
  1263.   {$EXTERNALSYM D3DTEXOPCAPS_MULTIPLYADD}
  1264.   D3DTEXOPCAPS_LERP                             = $02000000;
  1265.   {$EXTERNALSYM D3DTEXOPCAPS_LERP}
  1267.   //
  1268.   // FVFCaps
  1269.   //
  1270.   D3DFVFCAPS_TEXCOORDCOUNTMASK  = $0000ffff; { mask for texture coordinate count field }
  1271.   {$EXTERNALSYM D3DFVFCAPS_TEXCOORDCOUNTMASK}
  1272.   D3DFVFCAPS_DONOTSTRIPELEMENTS = $00080000; { Device prefers that vertex elements not be stripped }
  1273.   {$EXTERNALSYM D3DFVFCAPS_DONOTSTRIPELEMENTS}
  1274.   D3DFVFCAPS_PSIZE              = $00100000; { Device can receive point size }
  1275.   {$EXTERNALSYM D3DFVFCAPS_PSIZE}
  1277.   //
  1278.   // VertexProcessingCaps
  1279.   //
  1280.   D3DVTXPCAPS_TEXGEN            = $00000001; { device can do texgen }
  1281.   {$EXTERNALSYM D3DVTXPCAPS_TEXGEN}
  1282.   D3DVTXPCAPS_MATERIALSOURCE7   = $00000002; { device can do DX7-level colormaterialsource ops }
  1283.   {$EXTERNALSYM D3DVTXPCAPS_MATERIALSOURCE7}
  1284.   D3DVTXPCAPS_DIRECTIONALLIGHTS = $00000008; { device can do directional lights }
  1285.   {$EXTERNALSYM D3DVTXPCAPS_DIRECTIONALLIGHTS}
  1286.   D3DVTXPCAPS_POSITIONALLIGHTS  = $00000010; { device can do positional lights (includes point and spot) }
  1287.   {$EXTERNALSYM D3DVTXPCAPS_POSITIONALLIGHTS}
  1288.   D3DVTXPCAPS_LOCALVIEWER       = $00000020; { device can do local viewer }
  1289.   {$EXTERNALSYM D3DVTXPCAPS_LOCALVIEWER}
  1290.   D3DVTXPCAPS_TWEENING          = $00000040; { device can do vertex tweening }
  1291.   {$EXTERNALSYM D3DVTXPCAPS_TWEENING}
  1292.   D3DVTXPCAPS_NO_VSDT_UBYTE4    = $00000080; { device does not support D3DVSDT_UBYTE4 }
  1293.   {$EXTERNALSYM D3DVTXPCAPS_NO_VSDT_UBYTE4}
  1298. (*==========================================================================;
  1299.  *
  1300.  *  Copyright (C) Microsoft Corporation.  All Rights Reserved.
  1301.  *
  1302.  *  File:   d3d8.h
  1303.  *  Content:    Direct3D include file
  1304.  *
  1305.  ****************************************************************************)
  1307. (* This identifier is passed to Direct3DCreate8 in order to ensure that an
  1308.  * application was built against the correct header files. This number is
  1309.  * incremented whenever a header (or other) change would require applications
  1310.  * to be rebuilt. If the version doesn't match, Direct3DCreate8 will fail.
  1311.  * (The number itself has no meaning.)*)
  1313. const
  1314.   D3D_SDK_VERSION = DWord(220);
  1315.   {$EXTERNALSYM D3D_SDK_VERSION}
  1317. type
  1318.   HMONITOR = THandle;
  1319.   {$EXTERNALSYM HMONITOR}
  1323. (*
  1324.  * Direct3D interfaces
  1325.  *)
  1328.   // forward interfaces declaration
  1329.   IDirect3D8 = interface;
  1330.   IDirect3DDevice8 = interface;
  1331.   IDirect3DResource8 = interface;
  1332.   IDirect3DBaseTexture8 = interface;
  1333.   IDirect3DTexture8 = interface;
  1334.   IDirect3DVolumeTexture8 = interface;
  1335.   IDirect3DCubeTexture8 = interface;
  1336.   IDirect3DVertexBuffer8 = interface;
  1337.   IDirect3DIndexBuffer8 = interface;
  1338.   IDirect3DSurface8 = interface;
  1339.   IDirect3DVolume8 = interface;
  1340.   IDirect3DSwapChain8 = interface;
  1343.   {$HPPEMIT 'DECLARE_DINTERFACE_TYPE(IDirect3D8);'}
  1344.   {$EXTERNALSYM IDirect3D8}
  1345.   IDirect3D8 = interface(IUnknown)
  1346.     ['{1DD9E8DA-1C77-4d40-B0CF-98FEFDFF9512}']
  1347.     (*** IDirect3D8 methods ***)
  1348.     function RegisterSoftwareDevice(pInitializeFunction: Pointer): HResult; stdcall;
  1349.     function GetAdapterCount: LongWord; stdcall;
  1350.     function GetAdapterIdentifier(Adapter: LongWord; Flags: DWord; out pIdentifier: TD3DAdapterIdentifier8): HResult; stdcall;
  1351.     function GetAdapterModeCount (Adapter: LongWord): LongWord; stdcall;
  1352.     function EnumAdapterModes(Adapter, Mode: LongWord; out pMode: TD3DDisplayMode): HResult; stdcall;
  1353.     function GetAdapterDisplayMode(Adapter: LongWord; out pMode: TD3DDisplayMode): HResult; stdcall;
  1354.     function CheckDeviceType(Adapter: LongWord; CheckType: TD3DDevType; DisplayFormat, BackBufferFormat: TD3DFormat; Windowed: BOOL): HResult; stdcall;
  1355.     function CheckDeviceFormat(Adapter: LongWord; DeviceType: TD3DDevType; AdapterFormat: TD3DFormat; Usage: DWord; RType: TD3DResourceType; CheckFormat: TD3DFormat): HResult; stdcall;
  1356.     function CheckDeviceMultiSampleType(Adapter: LongWord; DeviceType: TD3DDevType; SurfaceFormat: TD3DFormat; Windowed: BOOL; MultiSampleType: TD3DMultiSampleType): HResult; stdcall;
  1357.     function CheckDepthStencilMatch(Adapter: LongWord; DeviceType: TD3DDevType; AdapterFormat, RenderTargetFormat, DepthStencilFormat: TD3DFormat): HResult; stdcall;
  1358.     function GetDeviceCaps(Adapter: LongWord; DeviceType: TD3DDevType; out pCaps: TD3DCaps8): HResult; stdcall;
  1359.     function GetAdapterMonitor(Adapter: LongWord): HMONITOR; stdcall;
  1360.     function CreateDevice(Adapter: LongWord; DeviceType: TD3DDevType; hFocusWindow: HWND; BehaviorFlags: DWord; var pPresentationParameters: TD3DPresentParameters; out ppReturnedDeviceInterface: IDirect3DDevice8): HResult; stdcall;
  1361.   end;
  1364.   {$HPPEMIT 'DECLARE_DINTERFACE_TYPE(IDirect3DDevice8);'}
  1365.   {$EXTERNALSYM IDirect3DDevice8}
  1366.   IDirect3DDevice8 = interface(IUnknown)
  1367.     ['{7385E5DF-8FE8-41D5-86B6-D7B48547B6CF}']
  1368.      (*** IDirect3DDevice8 methods ***)
  1369.     function TestCooperativeLevel: HResult; stdcall;
  1370.     function GetAvailableTextureMem: LongWord; stdcall;
  1371.     function ResourceManagerDiscardBytes(Bytes: DWord): HResult; stdcall;
  1372.     function GetDirect3D(out ppD3D8: IDirect3D8): HResult; stdcall;
  1373.     function GetDeviceCaps(out pCaps: TD3DCaps8): HResult; stdcall;
  1374.     function GetDisplayMode(out pMode: TD3DDisplayMode): HResult; stdcall;
  1375.     function GetCreationParameters(out pParameters: TD3DDeviceCreationParameters): HResult; stdcall;
  1376.     function SetCursorProperties(XHotSpot, YHotSpot: LongWord; pCursorBitmap: IDirect3DSurface8): HResult; stdcall;
  1377.     procedure SetCursorPosition(XScreenSpace, YScreenSpace: Integer; Flags: DWord); stdcall;
  1378.     function ShowCursor(bShow: BOOL): BOOL; stdcall;
  1379.     function CreateAdditionalSwapChain(const pPresentationParameters: TD3DPresentParameters; out pSwapChain: IDirect3DSwapChain8): HResult; stdcall;
  1380.     function Reset(const pPresentationParameters: TD3DPresentParameters): HResult; stdcall;
  1381.     function Present(pSourceRect, pDestRect: PRect; hDestWindowOverride: HWND; pDirtyRegion: PRgnData): HResult; stdcall;
  1382.     function GetBackBuffer(BackBuffer: LongWord; _Type: TD3DBackBufferType; out ppBackBuffer: IDirect3DSurface8): HResult; stdcall;
  1383.     function GetRasterStatus(out pRasterStatus: TD3DRasterStatus): HResult; stdcall;
  1384.     procedure SetGammaRamp(Flags: DWord; const pRamp: TD3DGammaRamp); stdcall;
  1385.     procedure GetGammaRamp(out pRamp: TD3DGammaRamp); stdcall;
  1386.     function CreateTexture(Width, Height, Levels: LongWord; Usage: DWord; Format: TD3DFormat; Pool: TD3DPool; out ppTexture: IDirect3DTexture8): HResult; stdcall;
  1387.     function CreateVolumeTexture(Width, Height, Depth, Levels: LongWord; Usage: DWord; Format: TD3DFormat; Pool: TD3DPool; out ppVolumeTexture: IDirect3DVolumeTexture8): HResult; stdcall;
  1388.     function CreateCubeTexture(EdgeLength, Levels: LongWord; Usage: DWord; Format: TD3DFormat; Pool: TD3DPool; out ppCubeTexture: IDirect3DCubeTexture8): HResult; stdcall;
  1389.     function CreateVertexBuffer(Length: LongWord; Usage, FVF: DWord; Pool: TD3DPool; out ppVertexBuffer: IDirect3DVertexBuffer8): HResult; stdcall;
  1390.     function CreateIndexBuffer(Length: LongWord; Usage: DWord; Format: TD3DFormat; Pool: TD3DPool; out ppIndexBuffer: IDirect3DIndexBuffer8): HResult; stdcall;
  1391.     function CreateRenderTarget(Width, Height: LongWord; Format: TD3DFormat; MultiSample: TD3DMultiSampleType; Lockable: BOOL; out ppSurface: IDirect3DSurface8): HResult; stdcall;
  1392.     function CreateDepthStencilSurface(Width, Height: LongWord; Format: TD3DFormat; MultiSample: TD3DMultiSampleType; out ppSurface: IDirect3DSurface8): HResult; stdcall;
  1393.     function CreateImageSurface(Width, Height: LongWord; Format: TD3DFormat; out ppSurface: IDirect3DSurface8): HResult; stdcall;
  1394.     function CopyRects(pSourceSurface: IDirect3DSurface8; pSourceRectsArray: PRect; cRects: LongWord; out pDestinationSurface: IDirect3DSurface8; pDestPointsArray: PPoint): HResult; stdcall;
  1395.     function UpdateTexture(pSourceTexture, pDestinationTexture: IDirect3DBaseTexture8): HResult; stdcall;
  1396.     function GetFrontBuffer(pDestSurface: IDirect3DSurface8): HResult; stdcall;
  1397.     function SetRenderTarget(pRenderTarget, pNewZStencil: IDirect3DSurface8): HResult; stdcall;
  1398.     function GetRenderTarget(out ppRenderTarget: IDirect3DSurface8): HResult; stdcall;
  1399.     function GetDepthStencilSurface(out ppZStencilSurface: IDirect3DSurface8): HResult; stdcall;
  1400.     function BeginScene: HResult; stdcall;
  1401.     function EndScene: HResult; stdcall;
  1402.     function Clear(Count: DWord; pRects: PD3DRect; Flags: DWord; Color: TD3DColor; Z: Single; Stencil: DWord): HResult; stdcall;
  1403.     function SetTransform(State: TD3DTransformStateType; const pMatrix: TD3DMatrix): HResult; stdcall;
  1404.     function GetTransform(State: TD3DTransformStateType; out pMatrix: TD3DMatrix): HResult; stdcall;
  1405.     function MultiplyTransform(State: TD3DTransformStateType; const pMatrix: TD3DMatrix): HResult; stdcall;
  1406.     function SetViewport(const pViewport: TD3DViewport8): HResult; stdcall;
  1407.     function GetViewport(out pViewport: TD3DViewport8): HResult; stdcall;
  1408.     function SetMaterial(const pMaterial: TD3DMaterial8): HResult; stdcall;
  1409.     function GetMaterial(out pMaterial: TD3DMaterial8): HResult; stdcall;
  1410.     function SetLight(Index: DWord; const pLight: TD3DLight8): HResult; stdcall;
  1411.     function GetLight(Index: DWord; out pLight: TD3DLight8): HResult; stdcall;
  1412.     function LightEnable(Index: DWord; Enable: BOOL): HResult; stdcall;
  1413.     function GetLightEnable(Index: DWord; out pEnable: BOOL): HResult; stdcall;
  1414.     function SetClipPlane(Index: DWord; pPlane: PSingle): HResult; stdcall;
  1415.     function GetClipPlane(Index: DWord; pPlane: PSingle): HResult; stdcall;
  1416.     function SetRenderState(State: TD3DRenderStateType; Value: DWord): HResult; stdcall;
  1417.     function GetRenderState(State: TD3DRenderStateType; out pValue: DWord): HResult; stdcall;
  1418.     function BeginStateBlock: HResult; stdcall;
  1419.     function EndStateBlock(out pToken: DWord): HResult; stdcall;
  1420.     function ApplyStateBlock(Token: DWord): HResult; stdcall;
  1421.     function CaptureStateBlock(Token: DWord): HResult; stdcall;
  1422.     function DeleteStateBlock(Token: DWord): HResult; stdcall;
  1423.     function CreateStateBlock(_Type: TD3DStateBlockType; out Token: DWord): HResult; stdcall;
  1424.     function SetClipStatus(const pClipStatus: TD3DClipStatus8): HResult; stdcall;
  1425.     function GetClipStatus(out pClipStatus: TD3DClipStatus8): HResult; stdcall;
  1426.     function GetTexture(Stage: DWord; out ppTexture: IDirect3DBaseTexture8): HResult; stdcall;
  1427.     function SetTexture(Stage: DWord; pTexture: IDirect3DBaseTexture8): HResult; stdcall;
  1428.     function GetTextureStageState(Stage: DWord; _Type: TD3DTextureStageStateType; out pValue: DWord): HResult; stdcall;
  1429.     function SetTextureStageState(Stage: DWord; _Type: TD3DTextureStageStateType; Value: DWord): HResult; stdcall;
  1430.     function ValidateDevice(out pNumPasses: DWord): HResult; stdcall;
  1431.     function GetInfo(DevInfoID: DWord; out pDevInfoStruct; DevInfoStructSize: DWord): HResult; stdcall;
  1432.     function SetPaletteEntries(PaletteNumber: LongWord; pEntries: pPaletteEntry): HResult; stdcall;
  1433.     function GetPaletteEntries(PaletteNumber: LongWord; pEntries: pPaletteEntry): HResult; stdcall;
  1434.     function SetCurrentTexturePalette(PaletteNumber: LongWord): HResult; stdcall;
  1435.     function GetCurrentTexturePalette(out PaletteNumber: LongWord): HResult; stdcall;
  1436.     function DrawPrimitive(PrimitiveType: TD3DPrimitiveType; StartVertex, PrimitiveCount: LongWord): HResult; stdcall;
  1437.     function DrawIndexedPrimitive(_Type: TD3DPrimitiveType; minIndex, NumVertices, startIndex, primCount: LongWord): HResult; stdcall;
  1438.     function DrawPrimitiveUP(PrimitiveType: TD3DPrimitiveType; PrimitiveCount: LongWord; const pVertexStreamZeroData; VertexStreamZeroStride: LongWord): HResult; stdcall;
  1439.     function DrawIndexedPrimitiveUP(PrimitiveType: TD3DPrimitiveType; MinVertexIndex, NumVertexIndices, PrimitiveCount: LongWord; const pIndexData; IndexDataFormat: TD3DFormat; const pVertexStreamZeroData; VertexStreamZeroStride: LongWord): HResult; stdcall;
  1440.     function ProcessVertices(SrcStartIndex, DestIndex, VertexCount: LongWord; pDestBuffer: IDirect3DVertexBuffer8; Flags: DWord): HResult; stdcall;
  1441.     function CreateVertexShader(pDeclaration, pFunction: PDWord; out pHandle: DWord; Usage: DWord): HResult; stdcall;
  1442.     function SetVertexShader(Handle: DWord): HResult; stdcall;
  1443.     function GetVertexShader(out pHandle: DWord): HResult; stdcall;
  1444.     function DeleteVertexShader(Handle: DWord): HResult; stdcall;
  1445.     function SetVertexShaderConstant(_Register: DWord; const pConstantData; ConstantCount: DWord): HResult; stdcall;
  1446.     function GetVertexShaderConstant(_Register: DWord; out pConstantData; ConstantCount: DWord): HResult; stdcall;
  1447.     function GetVertexShaderDeclaration(Handle: DWord; pData: Pointer; out pSizeOfData: DWord): HResult; stdcall;
  1448.     function GetVertexShaderFunction(Handle: DWord; pData: Pointer; out pSizeOfData: DWord): HResult; stdcall;
  1449.     function SetStreamSource(StreamNumber: LongWord; pStreamData: IDirect3DVertexBuffer8; Stride: LongWord): HResult; stdcall;
  1450.     function GetStreamSource(StreamNumber: LongWord; out ppStreamData: IDirect3DVertexBuffer8; out pStride: LongWord): HResult; stdcall;
  1451.     function SetIndices(pIndexData: IDirect3DIndexBuffer8; BaseVertexIndex: LongWord): HResult; stdcall;
  1452.     function GetIndices(out ppIndexData: IDirect3DIndexBuffer8; out pBaseVertexIndex: LongWord): HResult; stdcall;
  1453.     function CreatePixelShader(pFunction: PDWord; out pHandle: DWord): HResult; stdcall;
  1454.     function SetPixelShader(Handle: DWord): HResult; stdcall;
  1455.     function GetPixelShader(out Handle: DWord): HResult; stdcall;
  1456.     function DeletePixelShader(Handle: DWord): HResult; stdcall;
  1457.     function SetPixelShaderConstant(_Register: DWord; const pConstantData; ConstantCount: DWord): HResult; stdcall;
  1458.     function GetPixelShaderConstant(_Register: DWord; out pConstantData; ConstantCount: DWord): HResult; stdcall;
  1459.     function GetPixelShaderFunction(Handle: DWord; pData: Pointer; var pSizeOfData: DWord): HResult; stdcall;
  1460.     function DrawRectPatch(Handle: LongWord; pNumSegs: PSingle; pTriPatchInfo: PD3DRectPatchInfo): HResult; stdcall;
  1461.     function DrawTriPatch(Handle: LongWord; pNumSegs: PSingle; pTriPatchInfo: PD3DTriPatchInfo): HResult; stdcall;
  1462.     function DeletePatch(Handle: LongWord): HResult; stdcall;
  1463.   end;
  1466.   {$HPPEMIT 'DECLARE_DINTERFACE_TYPE(IDirect3DSwapChain8);'}
  1467.   {$EXTERNALSYM IDirect3DSwapChain8}
  1468.   IDirect3DSwapChain8 = interface(IUnknown)
  1469.     ['{928C088B-76B9-4C6B-A536-A590853876CD}']
  1470.     (*** IDirect3DSwapChain8 methods ***)
  1471.     function Present(pSourceRect, pDestRect: PRect; hDestWindowOverride: HWND; pDirtyRegion: PRgnData): HResult; stdcall;
  1472.     function GetBackBuffer(BackBuffer: LongWord; _Type: TD3DBackBufferType; out ppBackBuffer: IDirect3DSurface8): HResult; stdcall;
  1473.   end;
  1476.   {$HPPEMIT 'DECLARE_DINTERFACE_TYPE(IDirect3DResource8);'}
  1477.   {$EXTERNALSYM IDirect3DResource8}
  1478.   IDirect3DResource8 = interface(IUnknown)
  1479.     ['{1B36BB7B-09B7-410a-B445-7D1430D7B33F}']
  1480.     (*** IDirect3DResource8 methods ***)
  1481.     function GetDevice(out ppDevice: IDirect3DDevice8): HResult; stdcall;
  1482.     function SetPrivateData(const refguid: TGUID; const pData; SizeOfData, Flags: DWord): HResult; stdcall;
  1483.     function GetPrivateData(const refguid: TGUID; pData: Pointer; out pSizeOfData: DWord): HResult; stdcall;
  1484.     function FreePrivateData(const refguid: TGUID): HResult; stdcall;
  1485.     function SetPriority(PriorityNew: DWord): DWord; stdcall;
  1486.     function GetPriority: DWord; stdcall;
  1487.     procedure PreLoad; stdcall;
  1488.     function GetType: TD3DResourceType; stdcall;
  1489.   end;
  1492.   {$HPPEMIT 'DECLARE_DINTERFACE_TYPE(IDirect3DBaseTexture8);'}
  1493.   {$EXTERNALSYM IDirect3DBaseTexture8}
  1494.   IDirect3DBaseTexture8 = interface(IDirect3DResource8)
  1495.     ['{B4211CFA-51B9-4a9f-AB78-DB99B2BB678E}']
  1496.     (*** IDirect3DBaseTexture8 methods ***)
  1497.     function SetLOD(LODNew: DWord): DWord; stdcall;
  1498.     function GetLOD: DWord; stdcall;
  1499.     function GetLevelCount: DWord; stdcall;
  1500.   end;
  1503.   {$HPPEMIT 'DECLARE_DINTERFACE_TYPE(IDirect3DTexture8);'}
  1504.   {$EXTERNALSYM IDirect3DTexture8}
  1505.   IDirect3DTexture8 = interface(IDirect3DBaseTexture8)
  1506.     ['{E4CDD575-2866-4f01-B12E-7EECE1EC9358}']
  1507.     (*** IDirect3DTexture8 methods ***)
  1508.     function GetLevelDesc(Level: LongWord; out pDesc: TD3DSurfaceDesc): HResult; stdcall;
  1509.     function GetSurfaceLevel(Level: LongWord; out ppSurfaceLevel: IDirect3DSurface8): HResult; stdcall;
  1510.     function LockRect(Level: LongWord; out pLockedRect: TD3DLockedRect; pRect: PRect; Flags: DWord): HResult; stdcall;
  1511.     function UnlockRect(Level: LongWord): HResult; stdcall;
  1512.     function AddDirtyRect(pDirtyRect: PRect): HResult; stdcall;
  1513.   end;
  1516.   {$HPPEMIT 'DECLARE_DINTERFACE_TYPE(IDirect3DVolumeTexture8);'}
  1517.   {$EXTERNALSYM IDirect3DVolumeTexture8}
  1518.   IDirect3DVolumeTexture8 = interface(IDirect3DBaseTexture8)
  1519.     ['{E4CDD575-2866-4f01-B12E-7EECE1EC9358}']
  1520.     (*** IDirect3DVolumeTexture8 methods ***)
  1521.     function GetLevelDesc(Level: LongWord; out pDesc: TD3DVolumeDesc): HResult; stdcall;
  1522.     function GetVolumeLevel(Level: LongWord; out ppVolumeLevel: IDirect3DVolume8): HResult; stdcall;
  1523.     function LockBox(Level: LongWord; out pLockedVolume: TD3DLockedBox; pBox: PD3DBox; Flags: DWord): HResult; stdcall;
  1524.     function UnlockBox(Level: LongWord): HResult; stdcall;
  1525.     function AddDirtyBox(pDirtyBox: PD3DBox): HResult; stdcall;
  1526.   end;
  1529.   {$HPPEMIT 'DECLARE_DINTERFACE_TYPE(IDirect3DCubeTexture8);'}
  1530.   {$EXTERNALSYM IDirect3DCubeTexture8}
  1531.   IDirect3DCubeTexture8 = interface(IDirect3DBaseTexture8)
  1532.     ['{3EE5B968-2ACA-4c34-8BB5-7E0C3D19B750}']
  1533.     (*** IDirect3DCubeTexture8 methods ***)
  1534.     function GetLevelDesc(Level: LongWord; out pDesc: TD3DSurfaceDesc): HResult; stdcall;
  1535.     function GetCubeMapSurface(FaceType: TD3DCubeMapFaces; Level: LongWord; out ppCubeMapSurface: IDirect3DSurface8): HResult; stdcall;
  1536.     function LockRect(FaceType: TD3DCubeMapFaces; Level: LongWord; out pLockedRect: TD3DLockedRect; pRect: PRect; Flags: DWord): HResult; stdcall;
  1537.     function UnlockRect(FaceType: TD3DCubeMapFaces; Level: LongWord): HResult; stdcall;
  1538.     function AddDirtyRect(FaceType: TD3DCubeMapFaces; pDirtyRect: PRect): HResult; stdcall;
  1539.   end;
  1542.   {$HPPEMIT 'DECLARE_DINTERFACE_TYPE(IDirect3DVertexBuffer8);'}
  1543.   {$EXTERNALSYM IDirect3DVertexBuffer8}
  1544.   IDirect3DVertexBuffer8 = interface(IDirect3DResource8)
  1545.     ['{8AEEEAC7-05F9-44d4-B591-000B0DF1CB95}']
  1546.     (*** IDirect3DVertexBuffer8 methods ***)
  1547.     function Lock(OffsetToLock, SizeToLock: LongWord; out ppbData: PByte; Flags: DWord): HResult; stdcall;
  1548.     function Unlock: HResult; stdcall;
  1549.     function GetDesc(out pDesc: TD3DVertexBufferDesc): HResult; stdcall;
  1550.   end;
  1553.   {$HPPEMIT 'DECLARE_DINTERFACE_TYPE(IDirect3DIndexBuffer8);'}
  1554.   {$EXTERNALSYM IDirect3DIndexBuffer8}
  1555.   IDirect3DIndexBuffer8 = interface(IDirect3DResource8)
  1556.     ['{0E689C9A-053D-44a0-9D92-DB0E3D750F86}']
  1557.     (*** IDirect3DIndexBuffer8 methods ***)
  1558.     function Lock(OffsetToLock, SizeToLock: DWord; out ppbData: PByte; Flags: DWord): HResult; stdcall;
  1559.     function Unlock: HResult; stdcall;
  1560.     function GetDesc(out pDesc: TD3DIndexBufferDesc): HResult; stdcall;
  1561.   end;
  1564.   {$HPPEMIT 'DECLARE_DINTERFACE_TYPE(IDirect3DSurface8);'}
  1565.   {$EXTERNALSYM IDirect3DSurface8}
  1566.   IDirect3DSurface8 = interface(IUnknown)
  1567.     ['{B96EEBCA-B326-4ea5-882F-2FF5BAE021DD}']
  1568.     (*** IDirect3DSurface8 methods ***)
  1569.     function GetDevice(out ppDevice: IDirect3DDevice8): HResult; stdcall;
  1570.     function SetPrivateData(const refguid: TGUID; const pData; SizeOfData, Flags: DWord): HResult; stdcall;
  1571.     function GetPrivateData(const refguid: TGUID; pData: Pointer; out pSizeOfData: DWord): HResult; stdcall;
  1572.     function FreePrivateData(const refguid: TGUID): HResult; stdcall;
  1573.     function GetContainer(const riid: TGUID; out ppContainer: Pointer): HResult; stdcall;
  1574.     function GetDesc(out pDesc: TD3DSurfaceDesc): HResult; stdcall;
  1575.     function LockRect(out pLockedRect: TD3DLockedRect; pRect: PRect; Flags: DWord): HResult; stdcall;
  1576.     function UnlockRect: HResult; stdcall;
  1577.   end;
  1580.   {$HPPEMIT 'DECLARE_DINTERFACE_TYPE(IDirect3DVolume8);'}
  1581.   {$EXTERNALSYM IDirect3DVolume8}
  1582.   IDirect3DVolume8 = interface(IUnknown)
  1583.     ['{BD7349F5-14F1-42e4-9C79-972380DB40C0}']
  1584.     (*** IDirect3DVolume8 methods ***)
  1585.     function GetDevice(out ppDevice: IDirect3DDevice8): HResult; stdcall;
  1586.     function SetPrivateData(const refguid: TGUID; const pData; SizeOfData, Flags: DWord): HResult; stdcall;
  1587.     function GetPrivateData(const refguid: TGUID; pData: Pointer; out pSizeOfData: DWord): HResult; stdcall;
  1588.     function FreePrivateData(const refguid: TGUID): HResult; stdcall;
  1589.     function GetContainer(const riid: TGUID; var ppContainer: Pointer): HResult; stdcall;
  1590.     function GetDesc(out pDesc: TD3DVolumeDesc): HResult; stdcall;
  1591.     function LockBox(out pLockedVolume: TD3DLockedBox; pBox: PD3DBox; Flags: DWord): HResult; stdcall;
  1592.     function UnlockBox: HResult; stdcall;
  1593.   end;
  1597. (*
  1598.  * Interface IID's
  1599.  *)
  1600. type
  1601.   IID_IDirect3D8              = IDirect3D8;
  1602.   {$EXTERNALSYM IID_IDirect3D8}
  1603.   IID_IDirect3DDevice8        = IDirect3DDevice8;
  1604.   {$EXTERNALSYM IID_IDirect3DDevice8}
  1605.   IID_IDirect3DResource8      = IDirect3DResource8;
  1606.   {$EXTERNALSYM IID_IDirect3DResource8}
  1607.   IID_IDirect3DBaseTexture8   = IDirect3DBaseTexture8;
  1608.   {$EXTERNALSYM IID_IDirect3DBaseTexture8}
  1609.   IID_IDirect3DTexture8       = IDirect3DTexture8;
  1610.   {$EXTERNALSYM IID_IDirect3DTexture8}
  1611.   IID_IDirect3DCubeTexture8   = IDirect3DCubeTexture8;
  1612.   {$EXTERNALSYM IID_IDirect3DCubeTexture8}
  1613.   IID_IDirect3DVolumeTexture8 = IDirect3DVolumeTexture8;
  1614.   {$EXTERNALSYM IID_IDirect3DVolumeTexture8}
  1615.   IID_IDirect3DVertexBuffer8  = IDirect3DVertexBuffer8;
  1616.   {$EXTERNALSYM IID_IDirect3DVertexBuffer8}
  1617.   IID_IDirect3DIndexBuffer8   = IDirect3DIndexBuffer8;
  1618.   {$EXTERNALSYM IID_IDirect3DIndexBuffer8}
  1619.   IID_IDirect3DSurface8       = IDirect3DSurface8;
  1620.   {$EXTERNALSYM IID_IDirect3DSurface8}
  1621.   IID_IDirect3DVolume8        = IDirect3DVolume8;
  1622.   {$EXTERNALSYM IID_IDirect3DVolume8}
  1623.   IID_IDirect3DSwapChain8     = IDirect3DSwapChain8;
  1624.   {$EXTERNALSYM IID_IDirect3DSwapChain8}
  1627. const
  1628. {****************************************************************************
  1629.  * Flags for SetPrivateData method on all D3D8 interfaces
  1630.  *
  1631.  * The passed pointer is an IUnknown ptr. The SizeOfData argument to SetPrivateData
  1632.  * must be set to sizeof(IUnknown*). Direct3D will call AddRef through this
  1633.  * pointer and Release when the private data is destroyed. The data will be
  1634.  * destroyed when another SetPrivateData with the same GUID is set, when
  1635.  * FreePrivateData is called, or when the D3D8 object is freed.
  1636.  ****************************************************************************}
  1637.   D3DSPD_IUNKNOWN                         = $00000001;
  1638.   {$EXTERNALSYM D3DSPD_IUNKNOWN}
  1640. (****************************************************************************
  1641.  *
  1642.  * Parameter for IDirect3D8 Enum and GetCaps8 functions to get the info for
  1643.  * the current mode only.
  1644.  *
  1645.  ****************************************************************************)
  1647.   D3DCURRENT_DISPLAY_MODE                 = $00EFFFFF;
  1648.   {$EXTERNALSYM D3DCURRENT_DISPLAY_MODE}
  1650. (****************************************************************************
  1651.  *
  1652.  * Flags for IDirect3D8::CreateDevice's BehaviorFlags
  1653.  *
  1654.  ****************************************************************************)
  1656.   D3DCREATE_FPU_PRESERVE                  = $00000002;
  1657.   {$EXTERNALSYM D3DCREATE_FPU_PRESERVE}
  1658.   D3DCREATE_MULTITHREADED                 = $00000004;
  1659.   {$EXTERNALSYM D3DCREATE_MULTITHREADED}
  1661.   D3DCREATE_PUREDEVICE                    = $00000010;
  1662.   {$EXTERNALSYM D3DCREATE_PUREDEVICE}
  1663.   D3DCREATE_SOFTWARE_VERTEXPROCESSING     = $00000020;
  1664.   {$EXTERNALSYM D3DCREATE_SOFTWARE_VERTEXPROCESSING}
  1665.   D3DCREATE_HARDWARE_VERTEXPROCESSING     = $00000040;
  1666.   {$EXTERNALSYM D3DCREATE_HARDWARE_VERTEXPROCESSING}
  1667.   D3DCREATE_MIXED_VERTEXPROCESSING        = $00000080;
  1668.   {$EXTERNALSYM D3DCREATE_MIXED_VERTEXPROCESSING}
  1670.   D3DCREATE_DISABLE_DRIVER_MANAGEMENT     = $00000100;
  1671.   {$EXTERNALSYM D3DCREATE_DISABLE_DRIVER_MANAGEMENT}
  1674. (****************************************************************************
  1675.  *
  1676.  * Parameter for IDirect3D8::CreateDevice's iAdapter
  1677.  *
  1678.  ****************************************************************************)
  1680.   D3DADAPTER_DEFAULT                      = 0;
  1681.   {$EXTERNALSYM D3DADAPTER_DEFAULT}
  1683. (****************************************************************************
  1684.  *
  1685.  * Flags for IDirect3D8::EnumAdapters
  1686.  *
  1687.  ****************************************************************************)
  1689.   D3DENUM_NO_WHQL_LEVEL                   = $00000002;
  1690.   {$EXTERNALSYM D3DENUM_NO_WHQL_LEVEL}
  1692. (****************************************************************************
  1693.  *
  1694.  * Maximum number of back-buffers supported in DX8
  1695.  *
  1696.  ****************************************************************************)
  1698.   D3DPRESENT_BACK_BUFFERS_MAX             = 3;
  1699.   {$EXTERNALSYM D3DPRESENT_BACK_BUFFERS_MAX}
  1701. (****************************************************************************
  1702.  *
  1703.  * Flags for IDirect3DDevice8::SetGammaRamp
  1704.  *
  1705.  ****************************************************************************)
  1707.   D3DSGR_NO_CALIBRATION                  = $00000000;
  1708.   {$EXTERNALSYM D3DSGR_NO_CALIBRATION}
  1709.   D3DSGR_CALIBRATE                       = $00000001;
  1710.   {$EXTERNALSYM D3DSGR_CALIBRATE}
  1712. (****************************************************************************
  1713.  *
  1714.  * Flags for IDirect3DDevice8::SetCursorPosition
  1715.  *
  1716.  ****************************************************************************)
  1718.   D3DCURSOR_IMMEDIATE_UPDATE             = $00000001;
  1719.   {$EXTERNALSYM D3DCURSOR_IMMEDIATE_UPDATE}
  1721. (****************************************************************************
  1722.  *
  1723.  * Flags for DrawPrimitive/DrawIndexedPrimitive
  1724.  *   Also valid for Begin/BeginIndexed
  1725.  *   Also valid for VertexBuffer::CreateVertexBuffer
  1726.  ****************************************************************************)
  1729. (*
  1730.  *  DirectDraw error codes
  1731.  *)
  1732.   _FACD3D = $876;
  1733.   {$EXTERNALSYM _FACD3D}
  1735. //#define MAKE_D3DHRESULT( code )  MAKE_HRESULT( 1, _FACD3D, code )
  1736. function MAKE_D3DHRESULT(Code: DWord): DWord;
  1737. {$EXTERNALSYM MAKE_D3DHRESULT}
  1739. const
  1740.   MAKE_D3DHRESULT_R     = (1 shl 31) or (_FACD3D shl 16);
  1742. (*
  1743.  * Direct3D Errors
  1744.  *)
  1745.   D3D_OK                                  = S_OK;
  1746.   {$EXTERNALSYM D3D_OK}
  1748.   D3DERR_WRONGTEXTUREFORMAT               = HResult(MAKE_D3DHRESULT_R or 2072);
  1749.   {$EXTERNALSYM D3DERR_WRONGTEXTUREFORMAT}
  1750.   D3DERR_UNSUPPORTEDCOLOROPERATION        = HResult(MAKE_D3DHRESULT_R or 2073);
  1751.   {$EXTERNALSYM D3DERR_UNSUPPORTEDCOLOROPERATION}
  1752.   D3DERR_UNSUPPORTEDCOLORARG              = HResult(MAKE_D3DHRESULT_R or 2074);
  1753.   {$EXTERNALSYM D3DERR_UNSUPPORTEDCOLORARG}
  1754.   D3DERR_UNSUPPORTEDALPHAOPERATION        = HResult(MAKE_D3DHRESULT_R or 2075);
  1755.   {$EXTERNALSYM D3DERR_UNSUPPORTEDALPHAOPERATION}
  1756.   D3DERR_UNSUPPORTEDALPHAARG              = HResult(MAKE_D3DHRESULT_R or 2076);
  1757.   {$EXTERNALSYM D3DERR_UNSUPPORTEDALPHAARG}
  1758.   D3DERR_TOOMANYOPERATIONS                = HResult(MAKE_D3DHRESULT_R or 2077);
  1759.   {$EXTERNALSYM D3DERR_TOOMANYOPERATIONS}
  1760.   D3DERR_CONFLICTINGTEXTUREFILTER         = HResult(MAKE_D3DHRESULT_R or 2078);
  1761.   {$EXTERNALSYM D3DERR_CONFLICTINGTEXTUREFILTER}
  1762.   D3DERR_UNSUPPORTEDFACTORVALUE           = HResult(MAKE_D3DHRESULT_R or 2079);
  1763.   {$EXTERNALSYM D3DERR_UNSUPPORTEDFACTORVALUE}
  1764.   D3DERR_CONFLICTINGRENDERSTATE           = HResult(MAKE_D3DHRESULT_R or 2081);
  1765.   {$EXTERNALSYM D3DERR_CONFLICTINGRENDERSTATE}
  1766.   D3DERR_UNSUPPORTEDTEXTUREFILTER         = HResult(MAKE_D3DHRESULT_R or 2082);
  1767.   {$EXTERNALSYM D3DERR_UNSUPPORTEDTEXTUREFILTER}
  1768.   D3DERR_CONFLICTINGTEXTUREPALETTE        = HResult(MAKE_D3DHRESULT_R or 2086);
  1769.   {$EXTERNALSYM D3DERR_CONFLICTINGTEXTUREPALETTE}
  1770.   D3DERR_DRIVERINTERNALERROR              = HResult(MAKE_D3DHRESULT_R or 2087);
  1771.   {$EXTERNALSYM D3DERR_DRIVERINTERNALERROR}
  1773.   D3DERR_NOTFOUND                         = HResult(MAKE_D3DHRESULT_R or 2150);
  1774.   {$EXTERNALSYM D3DERR_NOTFOUND}
  1775.   D3DERR_MOREDATA                         = HResult(MAKE_D3DHRESULT_R or 2151);
  1776.   {$EXTERNALSYM D3DERR_MOREDATA}
  1777.   D3DERR_DEVICELOST                       = HResult(MAKE_D3DHRESULT_R or 2152);
  1778.   {$EXTERNALSYM D3DERR_DEVICELOST}
  1779.   D3DERR_DEVICENOTRESET                   = HResult(MAKE_D3DHRESULT_R or 2153);
  1780.   {$EXTERNALSYM D3DERR_DEVICENOTRESET}
  1781.   D3DERR_NOTAVAILABLE                     = HResult(MAKE_D3DHRESULT_R or 2154);
  1782.   {$EXTERNALSYM D3DERR_NOTAVAILABLE}
  1783.   D3DERR_OUTOFVIDEOMEMORY                 = HResult(MAKE_D3DHRESULT_R or 380);
  1784.   {$EXTERNALSYM D3DERR_OUTOFVIDEOMEMORY}
  1785.   D3DERR_INVALIDDEVICE                    = HResult(MAKE_D3DHRESULT_R or 2155);
  1786.   {$EXTERNALSYM D3DERR_INVALIDDEVICE}
  1787.   D3DERR_INVALIDCALL                      = HResult(MAKE_D3DHRESULT_R or 2156);
  1788.   {$EXTERNALSYM D3DERR_INVALIDCALL}
  1789.   D3DERR_DRIVERINVALIDCALL                = HResult(MAKE_D3DHRESULT_R or 2157);
  1790.   {$EXTERNALSYM D3DERR_DRIVERINVALIDCALL}
  1794. (*
  1795.  * DLL Function for creating a Direct3D8 object. This object supports
  1796.  * enumeration and allows the creation of Direct3DDevice8 objects.
  1797.  * Pass the value of the constant D3D_SDK_VERSION to this function, so
  1798.  * that the run-time can validate that your application was compiled
  1799.  * against the right headers.
  1800.  *)
  1802. function Direct3D8Loaded: Boolean;
  1803. function LoadDirect3D8: Boolean;
  1804. function UnLoadDirect3D8: Boolean;
  1806. // Due to the way Object Pascal handles functions resulting in 'native' interface
  1807. // pointer we should declare result not as interface but as usial pointer
  1809. {$IFDEF DIRECT3D8_DYNAMIC_LINK}
  1810. type
  1811.   TDirect3DCreate8 = function (SDKVersion: LongWord): Pointer; stdcall;
  1813. var
  1814.   _Direct3DCreate8: TDirect3DCreate8 = nil;
  1816. {$ELSE}
  1817. function _Direct3DCreate8(SDKVersion: LongWord): Pointer; stdcall;
  1818. {$ENDIF}
  1820. function Direct3DCreate8(SDKVersion: LongWord): IDirect3D8; stdcall;
  1821. {$EXTERNALSYM Direct3DCreate8}
  1824. //********************************************************************
  1825. // Introduced types for compatibility with DirectXGraphics.pas translation
  1826. // by Ampaze (Tim Baumgarten) from http://www.crazyentertainment.net
  1827. type
  1828.   PD3DAdapter_Identifier8               = PD3DAdapterIdentifier8;
  1829.   PD3DDevice_Creation_Parameters        = PD3DDeviceCreationParameters;
  1830.   PD3DIndexBuffer_Desc                  = PD3DIndexBufferDesc;
  1831.   PD3DLocked_Box                        = PD3DLockedBox;
  1832.   PD3DLocked_Rect                       = PD3DLockedRect;
  1833.   PD3DPresent_Parameters                = PD3DPresentParameters;
  1834.   PD3DRaster_Status                     = PD3DRasterStatus;
  1835.   PD3DRectPatch_Info                    = PD3DRectPatchInfo;
  1836.   PD3DSurface_Desc                      = PD3DSurfaceDesc;
  1837.   PD3DTriPatch_Info                     = PD3DTriPatchInfo;
  1838.   PD3DVertexBuffer_Desc                 = PD3DVertexBufferDesc;
  1839.   PD3DVolume_Desc                       = PD3DVolumeDesc;
  1841.   TD3DAdapter_Identifier8               = TD3DAdapterIdentifier8;
  1842.   TD3DBackBuffer_Type                   = TD3DBackBufferType;
  1843.   TD3DCubeMap_Faces                     = TD3DCubeMapFaces;
  1844.   TD3DDevice_Creation_Parameters        = TD3DDeviceCreationParameters;
  1845.   TD3DIndexBuffer_Desc                  = TD3DIndexBufferDesc;
  1846.   TD3DLocked_Box                        = TD3DLockedBox;
  1847.   TD3DLocked_Rect                       = TD3DLockedRect;
  1848.   TD3DMultiSample_Type                  = TD3DMultiSampleType;
  1849.   TD3DPresent_Parameters                = TD3DPresentParameters;
  1850.   TD3DRaster_Status                     = TD3DRasterStatus;
  1851.   TD3DRectPatch_Info                    = TD3DRectPatchInfo;
  1852.   TD3DShader_Instruction_Opcode_Type    = TD3DShaderInstructionOpcodeType;
  1853.   TD3DShader_Param_DSTMod_Type          = TD3DShaderParamDSTModType;
  1854.   TD3DShader_Param_Register_Type        = TD3DShaderParamRegisterType;
  1855.   TD3DShader_Param_SRCMod_Type          = TD3DShaderParamSRCModType;
  1856.   TD3DSurface_Desc                      = TD3DSurfaceDesc;
  1857.   TD3DTriPatch_Info                     = TD3DTriPatchInfo;
  1858.   TD3DVertexBuffer_Desc                 = TD3DVertexBufferDesc;
  1859.   TD3DVolume_Desc                       = TD3DVolumeDesc;
  1860.   TD3DVSD_TokenType                     = TD3DVSDTokenType;
  1861.   TD3DVS_AddressMode_Type               = TD3DVSAddressModeType;
  1862.   TD3DVS_RastOut_Offsets                = TD3DVSRastOutOffsets;
  1864.   TD3DDevInfo_ResourceManager           = TD3DDevInfoResourceManager;
  1865.   TD3DDevInfo_D3DVertexStats            = TD3DDevInfoD3DVertexStats;
  1867.   PD3DDevInfo_ResourceManager           = PD3DDevInfoResourceManager;
  1868.   PD3DDevInfo_D3DVertexStats            = PD3DDevInfoD3DVertexStats;
  1871. implementation
  1874. (*==========================================================================;
  1875.  *  File:       d3d8types.h
  1876.  *  Content:    Direct3D capabilities include file
  1877.  ***************************************************************************)
  1879. // #define D3DCOLOR_ARGB(a,r,g,b) 
  1880. //     ((D3DCOLOR)((((a)&0xff)<<24)|(((r)&0xff)<<16)|(((g)&0xff)<<8)|((b)&0xff)))
  1881. function D3DCOLOR_ARGB(a,r,g,b: DWord): TD3DColor;
  1882. begin
  1883.   Result := (a shl 24) or (r shl 16) or (g shl 8) or b;
  1884. end;
  1886. // #define D3DCOLOR_RGBA(r,g,b,a) D3DCOLOR_ARGB(a,r,g,b)
  1887. function D3DCOLOR_RGBA(r,g,b,a: DWord): TD3DColor;
  1888. begin
  1889.   Result := (a shl 24) or (r shl 16) or (g shl 8) or b;
  1890. end;
  1892. // #define D3DCOLOR_XRGB(r,g,b)   D3DCOLOR_ARGB(0xff,r,g,b)
  1893. function D3DCOLOR_XRGB(r,g,b: DWord): TD3DColor;
  1894. begin
  1895.   Result := DWORD($FF shl 24) or (r shl 16) or (g shl 8) or b;
  1896. end;
  1898. // #define D3DCOLOR_COLORVALUE(r,g,b,a) 
  1899. //     D3DCOLOR_RGBA((DWORD)((r)*255.f),(DWORD)((g)*255.f),(DWORD)((b)*255.f),(DWORD)((a)*255.f))
  1900. function D3DCOLOR_COLORVALUE(r,g,b,a: Single): TD3DColor;
  1901. begin
  1902.   Result :=
  1903.     (round(a * 255) shl 24) or
  1904.     (round(r * 255) shl 16) or
  1905.     (round(g * 255) shl 8) or
  1906.     (round(b * 255));
  1907. end;
  1909. // #define D3DTS_WORLDMATRIX(index) (D3DTRANSFORMSTATETYPE)(index + 256)
  1910. function D3DTS_WORLDMATRIX(index: Byte): TD3DTransformStateType;
  1911. begin
  1912.   Result:= TD3DTransformStateType(index + 256);
  1913. end;
  1915. // D3DVSD_MAKETOKENTYPE(tokenType) ((tokenType << D3DVSD_TOKENTYPESHIFT) & D3DVSD_TOKENTYPEMASK)
  1916. function D3DVSD_MAKETOKENTYPE(tokenType: TD3DVSDTokenType): DWord;
  1917. begin
  1918.   Result:= ((DWord(tokenType) shl D3DVSD_TOKENTYPESHIFT) and D3DVSD_TOKENTYPEMASK);
  1919. end;
  1921. //#define D3DVSD_STREAM( _StreamNumber ) 
  1922. //    (D3DVSD_MAKETOKENTYPE(D3DVSD_TOKEN_STREAM) | (_StreamNumber))
  1923. function D3DVSD_STREAM(_StreamNumber: DWord): DWord;
  1924. begin
  1925.   Result:= D3DVSD_MAKETOKENTYPE(D3DVSD_TOKEN_STREAM) or _StreamNumber;
  1926. end;
  1928. //#define D3DVSD_REG( _VertexRegister, _Type ) 
  1929. //    (D3DVSD_MAKETOKENTYPE(D3DVSD_TOKEN_STREAMDATA) |            
  1930. //     ((_Type) << D3DVSD_DATATYPESHIFT) | (_VertexRegister))
  1931. function D3DVSD_REG( _VertexRegister, _Type: DWord): DWord;
  1932. begin
  1933.   Result:= D3DVSD_MAKETOKENTYPE(D3DVSD_TOKEN_STREAMDATA) or ((_Type shl D3DVSD_DATATYPESHIFT) or _VertexRegister);
  1934. end;
  1936. //#define D3DVSD_SKIP( _DWORDCount ) 
  1937. //    (D3DVSD_MAKETOKENTYPE(D3DVSD_TOKEN_STREAMDATA) | 0x10000000 | 
  1938. //     ((_DWORDCount) << D3DVSD_SKIPCOUNTSHIFT))
  1939. function D3DVSD_SKIP(_DWORDCount: DWord): DWord;
  1940. begin
  1941.   Result:= D3DVSD_MAKETOKENTYPE(D3DVSD_TOKEN_STREAMDATA) or $10000000 or (_DWORDCount shl D3DVSD_SKIPCOUNTSHIFT);
  1942. end;
  1944. //#define D3DVSD_CONST( _ConstantAddress, _Count ) 
  1945. //    (D3DVSD_MAKETOKENTYPE(D3DVSD_TOKEN_CONSTMEM) | 
  1946. //     ((_Count) << D3DVSD_CONSTCOUNTSHIFT) | (_ConstantAddress))
  1947. function D3DVSD_CONST(_ConstantAddress, _Count: DWord): DWord;
  1948. begin
  1949.   Result:= D3DVSD_MAKETOKENTYPE(D3DVSD_TOKEN_CONSTMEM) or (_Count shl D3DVSD_CONSTCOUNTSHIFT) or _ConstantAddress;
  1950. end;
  1952. //#define D3DVSD_TESSNORMAL( _VertexRegisterIn, _VertexRegisterOut ) 
  1953. //    (D3DVSD_MAKETOKENTYPE(D3DVSD_TOKEN_TESSELLATOR) | 
  1954. //     ((_VertexRegisterIn) << D3DVSD_VERTEXREGINSHIFT) | 
  1955. //     ((0x02) << D3DVSD_DATATYPESHIFT) | (_VertexRegisterOut))
  1956. function D3DVSD_TESSNORMAL(_VertexRegisterIn, _VertexRegisterOut: DWord): DWord;
  1957. begin
  1958.   Result:= D3DVSD_MAKETOKENTYPE(D3DVSD_TOKEN_TESSELLATOR) or
  1959.            (_VertexRegisterIn shl D3DVSD_VERTEXREGINSHIFT) or
  1960.            ($02 shl D3DVSD_DATATYPESHIFT) or _VertexRegisterOut;
  1961. end;
  1963. //#define D3DVSD_TESSUV( _VertexRegister ) 
  1964. //    (D3DVSD_MAKETOKENTYPE(D3DVSD_TOKEN_TESSELLATOR) | 0x10000000 | 
  1965. //     ((0x01) << D3DVSD_DATATYPESHIFT) | (_VertexRegister))
  1966. function D3DVSD_TESSUV(_VertexRegister: DWord): DWord;
  1967. begin
  1968.   Result:= D3DVSD_MAKETOKENTYPE(D3DVSD_TOKEN_TESSELLATOR) or $10000000 or
  1969.            ($01 shl D3DVSD_DATATYPESHIFT) or _VertexRegister;
  1970. end;
  1972. //#define D3DPS_VERSION(_Major,_Minor) (0xFFFF0000|((_Major)<<8)|(_Minor))
  1973. function D3DPS_VERSION(_Major, _Minor : Cardinal) : Cardinal;
  1974. begin
  1975.   Result:= $FFFF0000 or (_Major shl 8 ) or _Minor;
  1976. end;
  1978. //#define D3DVS_VERSION(_Major,_Minor) (0xFFFE0000|((_Major)<<8)|(_Minor))
  1979. function D3DVS_VERSION(_Major, _Minor : Cardinal) : Cardinal;
  1980. begin
  1981.   Result:= $FFFE0000 or (_Major shl 8 ) or _Minor;
  1982. end;
  1984. //#define D3DSHADER_VERSION_MAJOR(_Version) (((_Version)>>8)&0xFF)
  1985. function D3DSHADER_VERSION_MAJOR(_Version : Cardinal) : Cardinal;
  1986. begin
  1987.   Result:= (_Version shr 8 ) and $FF;
  1988. end;
  1990. //#define D3DSHADER_VERSION_MINOR(_Version) (((_Version)>>0)&0xFF)
  1991. function D3DSHADER_VERSION_MINOR(_Version : Cardinal) : Cardinal;
  1992. begin
  1993.   Result:= (_Version shr 0) and $FF;
  1994. end;
  1996. //#define D3DSHADER_COMMENT(_DWordSize) 
  1997. //    ((((_DWordSize)<<D3DSI_COMMENTSIZE_SHIFT)&D3DSI_COMMENTSIZE_MASK)|D3DSIO_COMMENT)
  1998. function D3DSHADER_COMMENT(_DWordSize: DWord) : DWord;
  1999. begin
  2000.   Result:= ((_DWordSize shl D3DSI_COMMENTSIZE_SHIFT) and D3DSI_COMMENTSIZE_MASK) or D3DSIO_COMMENT;
  2001. end;
  2003. //#define D3DFVF_TEXCOORDSIZE3(CoordIndex) (D3DFVF_TEXTUREFORMAT3 << (CoordIndex*2 + 16))
  2004. function D3DFVF_TEXCOORDSIZE3(CoordIndex: DWord): DWord;
  2005. begin
  2006.   Result:= D3DFVF_TEXTUREFORMAT3 shl (CoordIndex * 2 + 16)
  2007. end;
  2009. //#define D3DFVF_TEXCOORDSIZE2(CoordIndex) (D3DFVF_TEXTUREFORMAT2)
  2010. function D3DFVF_TEXCOORDSIZE2(CoordIndex: DWord): DWord;
  2011. begin
  2012.   Result:= D3DFVF_TEXTUREFORMAT2;
  2013. end;
  2015. //#define D3DFVF_TEXCOORDSIZE4(CoordIndex) (D3DFVF_TEXTUREFORMAT4 << (CoordIndex*2 + 16))
  2016. function D3DFVF_TEXCOORDSIZE4(CoordIndex: DWord): DWord;
  2017. begin
  2018.   Result:= D3DFVF_TEXTUREFORMAT4 shl (CoordIndex * 2 + 16)
  2019. end;
  2021. //#define D3DFVF_TEXCOORDSIZE1(CoordIndex) (D3DFVF_TEXTUREFORMAT1 << (CoordIndex*2 + 16))
  2022. function D3DFVF_TEXCOORDSIZE1(CoordIndex: DWord): DWord;
  2023. begin
  2024.   Result:= D3DFVF_TEXTUREFORMAT1 shl (CoordIndex * 2 + 16)
  2025. end;
  2027. //#ifndef MAKEFOURCC
  2028. //    #define MAKEFOURCC(ch0, ch1, ch2, ch3)                              
  2029. //                ((DWORD)(BYTE)(ch0) | ((DWORD)(BYTE)(ch1) << 8) |       
  2030. //                ((DWORD)(BYTE)(ch2) << 16) | ((DWORD)(BYTE)(ch3) << 24 ))
  2031. //#endif /* defined(MAKEFOURCC) */
  2032. function MAKEFOURCC(ch0, ch1, ch2, ch3: Char): DWord;
  2033. begin
  2034.   Result:= Byte(ch0) or (Byte(ch1) shl 8) or (Byte(ch2) shl 16) or (Byte(ch3) shl 24 );
  2035. end;
  2038. (*==========================================================================;
  2039.  *  File:   d3d8.h
  2040.  *  Content:    Direct3D include file
  2041.  ****************************************************************************)
  2043. //#define MAKE_D3DHRESULT( code )  MAKE_HRESULT( 1, _FACD3D, code )
  2044. function MAKE_D3DHRESULT(Code: DWord): DWord;
  2045. begin
  2046.   Result:= DWord((1 shl 31) or (_FACD3D shl 16)) or Code;
  2047. end;
  2049. const
  2050.   Direct3D8dll = 'd3d8.dll';
  2052. {$IFDEF DIRECT3D8_DYNAMIC_LINK}
  2053. var
  2054.   Direct3D8Lib: THandle = 0;
  2056. function Direct3D8Loaded: Boolean;
  2057. begin
  2058.   Result:= Direct3D8Lib <> 0;
  2059. end;
  2061. function UnLoadDirect3D8: Boolean;
  2062. begin
  2063.   Result:= True;
  2064.   if Direct3D8Loaded then
  2065.   begin
  2066.     Result:= FreeLibrary(Direct3D8Lib);
  2067.     _Direct3DCreate8:= nil;
  2068.     Direct3D8Lib:= 0;
  2069.   end;
  2070. end;
  2072. function LoadDirect3D8: Boolean;
  2073. const
  2074.   ProcName = 'Direct3DCreate8';
  2075. begin
  2076.   Result:= Direct3D8Loaded;
  2077.   if (not Result) then
  2078.   begin
  2079.     Direct3D8Lib:= LoadLibrary(Direct3D8dll);
  2080.     if Direct3D8Loaded then
  2081.     begin
  2082.       _Direct3DCreate8:= GetProcAddress(Direct3D8Lib, ProcName);
  2083.       Result:= Assigned(_Direct3DCreate8);
  2084.       if not Result then UnLoadDirect3D8;
  2085.     end;
  2086.   end;
  2087. end;
  2088. {$ELSE}
  2089. function Direct3D8Loaded: Boolean;
  2090. begin // Stub function for static linking
  2091.   Result:= True;
  2092. end;
  2094. function UnLoadDirect3D8: Boolean;
  2095. begin // Stub function for static linking
  2096.   Result:= True; // should emulate "normal" behaviour
  2097. end;
  2099. function LoadDirect3D8: Boolean;
  2100. begin // Stub function for static linking
  2101.   Result:= True;
  2102. end;
  2104. function _Direct3DCreate8(SDKVersion: LongWord): Pointer; external Direct3D8dll name 'Direct3DCreate8';
  2105. {$ENDIF}
  2107. function Direct3DCreate8(SDKVersion: LongWord): IDirect3D8;
  2108. begin
  2109. {$IFDEF DIRECT3D8_DYNAMIC_LINK}
  2110. {$IFDEF DIRECT3D8_DYNAMIC_LINK_EXPLICIT}
  2111.   LoadDirect3D8;
  2113. {$ENDIF}
  2114. {$ENDIF}
  2115.   Result:= IDirect3D8(_Direct3DCreate8(SDKVersion));
  2116.   if Assigned(Result) then Result._Release; // Delphi autoincrement reference count
  2117. end;
  2119. {$IFDEF DIRECT3D8_DYNAMIC_LINK}
  2120. initialization
  2121. {$IFNDEF DIRECT3D8_DYNAMIC_LINK_EXPLICIT}
  2122.   LoadDirect3D8;
  2123. {$ENDIF}
  2124. finalization
  2125.   UnLoadDirect3D8;
  2126. {$ENDIF}
  2127. end.