Class TDirect3DIM (unit TDirect3D)

Inherits from

TPanel

Code by Massimo Bardetti - bigben@dircon.co.uk (12 March 1997

Constructors


constructor Create(AOwner : TComponent);

Public declarations


Functions

function AddExecuteBuffer(EBRoot : TExecuteBuffer; iSize : integer) : TExecuteBuffer;


destructor destroy;


function Execute : boolean;


procedure Finish;


function GetEBRoot : TExecuteBuffer;


function GetEBTagged(EBRoot : TExecuteBuffer; itag : Integer) : TExecuteBuffer;


procedure Initialize(cm : D3DCOLORMODEL; pbFullScreen : Boolean);


function Light(n : integer) : T3dLight;


function Material(n : integer) : T3dMaterial;


function Matrix(n : integer) : T3dMatrix;


procedure RemoveEB(EBdel : TExecuteBuffer);


function Texture(n : integer) : T3dTexture;


procedure WMMove(var Message: TWMMove);


procedure WMSize(var Message: TWMSize);


Properties

Events

Variables

Direct3d : TD3D;


DirectDraw : TDDScreen;

Protected declarations

iApplicationHandle : HWND;


iBpp : Integer;


iScreenHeight : integer;


iScreenWidth : integer;


bFullScreen : boolean;


binitialized : boolean;


FEBRoot : TExecuteBuffer;


FLights : TList;


FMaterials : TList;


FMatrices : TList;


FTextures : TList;


Screenrect : D3DRect;

Private declarations


Constructors


constructor Create(AOwner : TComponent);

Public declarations


Functions


function AddExecuteBuffer(EBRoot : TExecuteBuffer; iSize : integer) : TExecuteBuffer;


destructor destroy;


function Execute : boolean;


procedure Finish;


function GetEBRoot : TExecuteBuffer;


function GetEBTagged(EBRoot : TExecuteBuffer; itag : Integer) : TExecuteBuffer;


procedure Initialize(cm : D3DCOLORMODEL; pbFullScreen : Boolean);


function Light(n : integer) : T3dLight;


function Material(n : integer) : T3dMaterial;


function Matrix(n : integer) : T3dMatrix;


procedure RemoveEB(EBdel : TExecuteBuffer);


function Texture(n : integer) : T3dTexture;


procedure WMMove(var Message: TWMMove);


procedure WMSize(var Message: TWMSize);


Properties


Events


Variables


Direct3d : TD3D;


DirectDraw : TDDScreen;

Protected declarations


iApplicationHandle : HWND;


iBpp : Integer;


iScreenHeight : integer;


iScreenWidth : integer;


bFullScreen : boolean;


binitialized : boolean;


FEBRoot : TExecuteBuffer;


FLights : TList;


FMaterials : TList;


FMatrices : TList;


FTextures : TList;


Screenrect : D3DRect;

Private declarations