D3D resources for Delphi

Anyone have some good tutorials/Articles over this subject?

Here is what i have found as far, im just looking for more is all. this is great and i dont take credit for it.

Code:

---

unit clsMenuEngine;

interface

uses  Windows, SysUtils, Variants, D3DX9, Direct3D9, DXTypes;

type
 TItems = packed record
  strName: PAnsiChar;
  bOn    : Boolean;
  bShowCheck: Boolean;
end;

Type
 TMenuEngine = Class
  Private
  pD3Ddev:  Direct3D9.IDirect3DDevice9;
  fMenuFont: D3DX9.ID3DXFont;

  bVisable: Boolean;
  iMenuX, iMenuY, iMenuW, iMenuH, iMenuItems: Integer;
  dwMenuBgColor, dwMenuBorderColor, dwCrossHairColor, dwTextColor: Dword;

  Function GetDevice():IDirect3DDevice9;
  function GetFont(): ID3DXFont;
  procedure DrawRectangle(iXleft, iYtop, iWidth, iHight: Integer; Color: Dword);
  procedure DrawRectangleAlpha(iXleft, iYtop, iWidth, iHight: Integer; Color: Dword);
  procedure DrawBorder();
  procedure DrawBorderAlpha();
  procedure DrawCheck( Color: Dword; x,  y: Integer);
  procedure DrawDash( Color: Dword; x,  y: Integer);
  procedure DrawPlus(Color: Dword; x, y: Integer);
  procedure DrawBox();
  procedure DrawBoxAlpha();
  procedure DrawText(const iLeft, iTop: Integer; szText: PAnsiChar);

  Public
  aItems: Array of TItems;
  Constructor Create( Left, Top, Width, Hight, Items: Integer; BGColor, BDColor, TXTColor: Dword);
  Destructor Destroy(); Override;
  Procedure Render();
  Procedure Reset(Const pDevice: IDirect3DDevice9);
  procedure DrawXhair();
  procedure MenuItemAdd( iIndex: Integer; szText: PAnsiChar; bOnOff: Boolean; bShowOnOff: Boolean = True);

  Property Direct3DDevice: Direct3D9.IDirect3DDevice9 read pD3Ddev write pD3Ddev;



  Property MenuLeft: Integer read iMenuX write iMenuX;
  Property MenuTop: Integer read iMenuY write iMenuY;
  Property MenuWidth: Integer read iMenuW write iMenuW;
  Property MenuHight: Integer read iMenuH write iMenuH;
  Property MenuItems: Integer read iMenuItems write iMenuItems;

  Property BackGroundColor: Dword read dwMenuBgColor write dwMenuBgColor;
  Property BorderColor: Dword read dwMenuBorderColor write dwMenuBorderColor;
  Property TextColor: Dword read dwTextColor write dwTextColor;

  Property XHairColor: Dword read dwCrossHairColor write dwCrossHairColor;

  Property Menuvisable: Boolean read bVisable write bVisable;

end;

implementation

{ TMenuEngine }

constructor TMenuEngine.Create( Left, Top,
  Width, Hight, Items: Integer; BGColor, BDColor, TXTColor: Dword);
begin
  MenuLeft:= Left; MenuTop:= Top; MenuWidth:= Width; MenuHight:= Hight;
  BackGroundColor:= BGColor; BorderColor:= BDColor; TextColor:= TXTColor;
  MenuItems:= Items;
  SetLength(aItems,MenuItems);
end;

destructor TMenuEngine.Destroy;
var
 i: Integer;
begin
  inherited Destroy();
  pD3Ddev:= Nil;
  fMenuFont:= Nil;
end;

procedure TMenuEngine.DrawBorder;
begin
  DrawRectangle(iMenuX, (iMenuY + iMenuH - 1), iMenuW, 1, dwMenuBorderColor);
  DrawRectangle(iMenuX, iMenuY, 1, iMenuH, dwMenuBorderColor);
  DrawRectangle(iMenuX, iMenuY, iMenuW, 1, dwMenuBorderColor);
  DrawRectangle((iMenuX + iMenuW - 1), iMenuY, 1, iMenuH, dwMenuBorderColor);
end;

procedure TMenuEngine.DrawBorderAlpha;
begin
  DrawRectangleAlpha(iMenuX, (iMenuY + iMenuH - 1), iMenuW, 1, dwMenuBorderColor);
  DrawRectangleAlpha(iMenuX, iMenuY, 1, iMenuH, dwMenuBorderColor);
  DrawRectangleAlpha(iMenuX, iMenuY, iMenuW, 1, dwMenuBorderColor);
  DrawRectangleAlpha((iMenuX + iMenuW - 1), iMenuY, 1, iMenuH, dwMenuBorderColor);
end;

procedure TMenuEngine.DrawBox;
begin
  DrawRectangle(iMenuX, iMenuY, iMenuW, iMenuH, dwMenuBgColor);
  DrawBorder;
end;

procedure TMenuEngine.DrawBoxAlpha;
begin
  DrawRectangleAlpha(iMenuX, iMenuY, iMenuW, iMenuH, dwMenuBgColor);
  DrawBorderAlpha;
end;

procedure TMenuEngine.DrawCheck(Color: Dword; x, y: Integer);
begin
  DrawRectangle( x,    y,    1, 3, Color );
        DrawRectangle( x + 1, y + 1, 1, 3, Color );
        DrawRectangle( x + 2, y + 2, 1, 3, Color );
        DrawRectangle( x + 3, y + 1, 1, 3, Color );
        DrawRectangle( x + 4, y,    1, 3, Color );
        DrawRectangle( x + 5, y - 1, 1, 3, Color );
        DrawRectangle( x + 6, y - 2, 1, 3, Color );
        DrawRectangle( x + 7, y - 3, 1, 3, Color );
end;

procedure TMenuEngine.DrawDash(Color: Dword; x, y: Integer);
begin
  DrawRectangle( x , y , 8, 3, Color );
end;

procedure TMenuEngine.DrawPlus(Color: Dword; x, y: Integer);
begin
  DrawRectangle( x , y , 7, 1, Color );
  DrawRectangle( x + 3 , y - 3 , 1, 7, Color );
end;

procedure TMenuEngine.DrawRectangle(iXleft, iYtop, iWidth, iHight: Integer; Color: Dword);
var
  d3dRectangle : D3DRECT;
begin

  d3dRectangle.x1:= iXleft;
  d3dRectangle.y1:= iYtop;
  d3dRectangle.x2:= iXleft + iWidth;
  d3dRectangle.y2:= iYtop + iHight;

  Direct3DDevice.Clear(1,@d3dRectangle, D3DCLEAR_TARGET or D3DCLEAR_ZBUFFER, Color, 0, 0);
end;

procedure TMenuEngine.DrawRectangleAlpha(iXleft, iYtop, iWidth, iHight: Integer; Color: Dword);
type
  tStruct = packed record
    x, y, z, rhw: Single;
    Color: dWord;
end;
procedure AssignVertex(var Vertex: tStruct; x, y, z, rhw: Single; Color: Dword);
 begin
  Vertex.x:= x; Vertex.y:= y; Vertex.z:= z;
  Vertex.Color:= Color;
 end;
var
  qV: array[0..3] of tStruct;
begin

  AssignVertex(qV[0], iXLeft, iYtop + iHight, 0.0, 0.0, Color);
  AssignVertex(qV[1], iXLeft, iYtop, 0.0, 0.0, Color);
  AssignVertex(qV[2], iXLeft + iWidth, iYtop + iHight, 0.0, 0.0, Color);
  AssignVertex(qV[3], iXLeft + iWidth, iYtop, 0.0, 0.0, Color);

  Direct3DDevice.SetRenderState(D3DRS_ALPHABLENDENABLE,1);
  Direct3DDevice.SetRenderState(D3DRS_DESTBLEND, D3DBLEND_INVSRCALPHA);
  Direct3DDevice.SetRenderState(D3DRS_ZENABLE, D3DZB_FALSE);
  Direct3DDevice.SetRenderState(D3DRS_FOGENABLE, 0);

  Direct3DDevice.SetFVF(D3DFVF_XYZRHW or D3DFVF_DIFFUSE);
  Direct3DDevice.SetTexture(0, Nil);
  Direct3DDevice.DrawPrimitiveUP(D3DPT_TRIANGLESTRIP,2,qV,SizeOf(tStruct));

end;

procedure TMenuEngine.DrawText(const iLeft, iTop: Integer;
  szText: PAnsiChar);
var
  d3dRectangle : D3DRECT;
begin
  d3dRectangle.x1:= ileft;
  d3dRectangle.y1:= itop;
  d3dRectangle.x2:= ileft + 130;
  d3dRectangle.y2:= itop + 10;

  fMenuFont.DrawTextA(nil, szText, -1, @d3dRectangle, 0{( DT_CALCRECT or DT_NOCLIP )}, dwTextColor);

end;

procedure TMenuEngine.DrawXhair;
var
  viewP: D3DVIEWPORT9;
  ScreenCenterX,ScreenCenterY: DWORD;
  d3dRectangle1,d3dRectangle2: D3DRECT;
begin
  // Get screen
  Direct3DDevice.GetViewport(viewP);
  ScreenCenterX:= ((viewP.Width div 2) - 1);
  ScreenCenterY:= ((viewP.Height div 2) - 1);
  //Set xhair params
  d3dRectangle1.x1:= ScreenCenterX-10;
  d3dRectangle1.y1:= ScreenCenterY;
  d3dRectangle1.x2:= ScreenCenterX+ 10;
  d3dRectangle1.y2:= ScreenCenterY+1;
  d3dRectangle2.x1:= ScreenCenterX;
  d3dRectangle2.y1:= ScreenCenterY-10;
  d3dRectangle2.x2:= ScreenCenterX+ 1;
  d3dRectangle2.y2:= ScreenCenterY+10;
  //Draw crosshair
  Direct3DDevice.Clear(1, @d3dRectangle1, D3DCLEAR_TARGET, XHairColor, 0,  0);
  Direct3DDevice.Clear(1, @d3dRectangle2, D3DCLEAR_TARGET, XHairColor, 0,  0);
end;

function TMenuEngine.GetDevice: IDirect3DDevice9;
begin
  Result:= Direct3DDevice;
end;

function TMenuEngine.GetFont: ID3DXFont;
begin
  Result:= fMenuFont;
end;

procedure TMenuEngine.MenuItemAdd(iIndex: Integer; szText: PAnsiChar;
  bOnOff: Boolean; bShowOnOff : Boolean = True);
begin
 aItems[pred(iIndex)].strName:= szText;
 aItems[pred(iIndex)].bOn:= bOnOff;
 aItems[pred(iIndex)].bShowCheck:= bShowOnOff;
end;

procedure TMenuEngine.Render;
var
 i: integer;
begin
  if MenuVisable then
    begin
    if MenuHight = 0 then
      MenuHight:= ((11 * MenuItems)+ 9);
    DrawBoxAlpha;
    for i:= 1 to MenuItems do
      begin
      If aItems[pred(i)].bShowCheck then
        begin
        TextColor:= $FF6746A3;
        DrawText(MenuLeft + 5,(MenuTop + 5 + (i*11) - 11)  , PChar(aItems[pred(i)].strName));
        if i = 2 then
          DrawPlus(XHairColor, (MenuLeft + MenuWidth) - 12 , (MenuTop + 5 + (i*11) - 11) + 2)
        else
        Case aItems[pred(i)].bOn of
          True: DrawCheck($EE00FF00, (MenuLeft + MenuWidth) - 12 , (MenuTop + 5 + (i*11) - 11) + 2);
          False: DrawDash($EEFF0000, (MenuLeft + MenuWidth) - 12 , (MenuTop + 5 + (i*11) - 11) + 2);
        end;
      end
      else
        begin
          TextColor:= $FFCB7018;
          DrawText(MenuLeft + 5,(MenuTop + 5 + (i*11) - 11)  , PChar(aItems[pred(i)].strName));
        end;
      end;
    end;
end;

procedure TMenuEngine.Reset(Const pDevice: IDirect3DDevice9);
begin
  if Direct3DDevice <>  pDevice then
    begin
    Direct3DDevice:= pDevice;
    fMenuFont:= nil;
    if fMenuFont = nil then
    D3DXCreateFont(Direct3DDevice,10, 0, FW_BOLD, 1, FALSE, DEFAULT_CHARSET, OUT_DEFAULT_PRECIS, DEFAULT_QUALITY, DEFAULT_PITCH or FF_DONTCARE, 'Terminal', fMenuFont);
  end;
end;

end.

---

Usage:

Code:

---

MyMenu:= TMenuEngine.Create(20,20,100,18,1,$96000000,$FF000000,$FFCB7018);

---

Arguments:

Code:

---

Create( Left, Top, Width, Hight, Items: Integer; BGColor, BDColor, TXTColor: Dword);

---

o add Items to your menu:

Code:

---

MyMenu.MenuItemAdd(1,  'Your Menu Item Text',True, False);

---

Arguments:

PHP Code:

---

MenuItemAdd( iIndex: Integer; szText: PAnsiChar; bOnOff: Boolean; bShowOnOff: Boolean = True); 


---

To render your menu, just call it in a your hooked D3D9 function like this

Code:

---

if MyMenu.Direct3DDevice <> Self then
  MyMenu.Reset(Self);

if MyMenu.Menuvisable then
  MyMenu.Render;

---