1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:

Procedure TDynaGame.initViewPort(handle: HWND);
begin
  FInitialized := false;
  if InitDirectGfx then
  begin
    D3DDev9.SetRenderState(D3DRS_ZEnable,  Word(false));
    D3DDev9.SetRenderState(D3DRS_CullMode, D3DCull_None);
    D3DDev9.SetRenderState(D3DRS_Lighting, Word(false));
    D3DDev9.SetRenderState(D3DRS_ANTIALIASEDLINEENABLE,  word(true));


  end else begin
    MessageBox(0, PChar(SHALFailed),PChar(SDynaWarning), MB_ICONWARNING);
    CloseDirectGfx;
    if not InitDirectGfx(false) then
    begin
      MessageBox(0, PChar(SGraphicsFailed), PChar(SDynaWarning), MB_ICONWARNING);
      exit;
    end;
  end;
  RestoreDeviceObjects;
end;

function TDynaGame.InitDirectGfx(HAL : boolean = true): boolean;
begin
  Result := false;
  D3D9 := Direct3DCreate9(D3D_SDK_VERSION);
  if D3D9 = NIL then exit;

  InitPresentParameters;

  if hal
  then devType := D3DDEVTYPE_HAL
  else devType := D3DDEVTYPE_REF;
  if failed(D3D9.CreateDevice(D3DADAPTER_DEFAULT, devType, WinHandle,
                              D3DCREATE_SOFTWARE_VERTEXPROCESSING,
                              //D3DCREATE_HARDWARE_VERTEXPROCESSING,
                              DGfxPP, D3DDev9)) then exit;

  // All righta
  Result := true;
end;

procedure TDynaGame.InitPresentParameters;
begin
  Fillchar(DGfxPP, sizeof(DGfxPP), 0);
  DGfxPP.Windowed      := not FFullScreen;
  DGfxPP.hDeviceWindow := WinHandle;
  if (FFullScreen) then
  begin
    DGfxPP.BackBufferWidth  := FWidth;
    DGfxPP.BackBufferHeight := FHeight;
    case FDepth of
      bd16 : DGfxPP.BackBufferFormat := D3DFMT_A1R5G5B5;
      bd32 : DGfxPP.BackBufferFormat := D3DFMT_A8R8G8B8;
      else exit;
    end;
    DGfxPP.BackBufferCount                  := 1;
    DGfxPP.SwapEffect                       := D3DSWAPEFFECT_FLIP;//D3DSWAPEFFECT_DISCARD;
    DGfxPP.FullScreen_RefreshRateInHz       := D3DPRESENT_RATE_DEFAULT;
    DGfxPP.FullScreen_PresentationInterval  := D3DPRESENT_INTERVAL_IMMEDIATE;

  end else begin
    if failed(D3D9.GetAdapterDisplayMode(D3DADAPTER_DEFAULT, DGfxDm))
    then exit;
    DGfxPP.SwapEffect       := D3DSWAPEFFECT_DISCARD;
    DGfxPP.BackBufferFormat := DGfxDm.Format;
    DGfxPP.SwapEffect                       := D3DSWAPEFFECT_FLIP;//D3DSWAPEFFECT_DISCARD;
    DGfxPP.FullScreen_RefreshRateInHz       := D3DPRESENT_RATE_DEFAULT;
    DGfxPP.FullScreen_PresentationInterval  := D3DPRESENT_INTERVAL_IMMEDIATE;
  end;
end;