Delphi D3D9 Menu Class

C

CapsLock

Enough
Ultra Member
Joined
Nov 5, 2019
Messages
959
Reaction score
718
Location
Peak
SDK : İndirmek İçin Tıkla
DETOUR:İndirmek İçin Tıkla
SDK EKLEME : TOOLS->OPTİONS->SDK MANAGER->SDK BASE PATH
PHP: 
(****************************
 Unit    : clsMenuEngine
 Author  : Departure
 Not : Alıntıdır
****************************)
 
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.
 
You must log in or register to reply here.
SPAM IS FORBIDDEN!
  • SPAMMERS ARE BANNED FROM THE FORUM AND CANNOT USE ANY OF THE CHEATS
  • For example: thanks, thx, very good, asdqwe, working, ty and so on!
  • For example: Writing the same message over and over. thanks, thx and so on!
  • Copying and copying someone else's message is prohibited.
  • It is forbidden to send messages to increase the number of comments on threads that you have no knowledge of.
  • Write your own opinion when commenting!
  • If you see spam message, please let us know with the REPORT button!
FAQ and Error Solutions Penal System Rank Groups Forum Rules

Tema düzenleyici

Karanlık Mod

Temanızın bütününe uygulanan karanlık renk kullanmak için tercih edilebilir.

Alternatif Renk

Sitenin yazılarını, butonlarını ve bazı yerlerini soğuk gök mavisi renk yapar.

Forum İstatistik

Forum istatistik sistemini kapat veya aç.
Top Bottom