Align...................allClient	
AutoSize................True
Display
   FixedBitCount........True
   Fixedratio...........True	
   Fixedsize............False
Options
   DoFullScreen.........True
   doFlip...............True
   Rest.................False

procedure TForm1.WindowMode;
begin
   DXDraw1.Finalize;
   RestoreWindow;
   DXDraw1.Options := DXDraw1.Options - [doFullScreen];
   DXDraw1.Display.Width := 640;
   DXDraw1.Display.Height := 480;
   DXDraw1.Display.BitCount := 8;
   DXDraw1.Initialize;
end;

DXDraw.Align := alClient;
Form.ClientWidth := … // Установка ширины Формы/DXDraw
Form.ClientHeight := … // Установка высоты Формы

procedure TForm1.FullScreenMode;
begin
   DXDraw1.Finalize;
   StoreWindow;
   DXDraw1.Options := DXDraw1.Options + [doFullScreen];
   DXDraw1.Display.Width := 640;
   DXDraw1.Display.Height := 480;
   DXDraw1.Display.BitCount := 8;
   DXDraw1.Initialize;
End;
// Set mode in non-Windows GUI Disable windows-controls-< purely graphics screen (very fast)
DXDraw.Options := DXDraw.Options + [doFlip];
// Enable Windows controls
DXDraw.Options := DXDraw.Options - [doFlip];

Screen.Cursor := CrNone; // Спрятать курсор
Form1.BorderStyle := bsSingle; // Спрятать бордюр формы

2. DXImageList

procedure LoadImage (Filename, NameImage : String; PatWidth, PatHeight : Integer; Transp : Boolean; TranspColor : TColor);
begin
   DXImageList.Items.Add;
   with DXImageList.Items[DXImageList.Items.Count-1] do
   begin
      Picture.LoadFromFile (FileName);
      Name := NameImage;
      PatternWidth := PatWidth;
      PatternHeight := PatHeight;
      SkipHeight := 0;
      SkipWidth := 0;
      SystemMemory := False;
      Transparent := Transp;
      TransparentColor := TranspColor;
      Restore;
   end;
end;

ImageList.Items.MakeColorTable;
DXDraw.ColorTable := ImageList.Items.ColorTable;
DXDraw.DefColorTable := ImageList.Items.ColorTable;
DXDraw.UpdatePalette;

Var Pal : TRGBQuad;
Pal.rgbRed := 16;
Pal.rgbGreen := 0;
Pal.rgbBlue := 0;
Pal.rgbReserved := 0;
DXDraw1.ColorTable[i] := Pal;

function ComposeColor(Dest,Src:TRGBQuad;Percent:Integer):TRGBQuad;
begin
   with Result do
   begin
      rgbRed :=Src.rgbRed+((Dest.rgbRed-Src.rgbRed)*Percent div256);
      rgbGreen :=Src.rgbGreen+((Dest.rgbGreen-Src.rgbGreen)*Percent div256);
      rgbBlue :=Src.rgbBlue+((Dest.rgbBlue-Src.rgbBlue)*Percent div256);
      rgbReserved :=0;
   end;
end;

Var Col : Integer;
for i:=0 to 255 do
   DXDraw1.ColorTable[i] := ComposeColor (RGBQuad(GetRValue(Col), GetGValue(Col), GetBValue(Col) ), DXDraw1.DefColorTable[i], p);
DXDraw1.UpdatePalette;

3. DXSpriteEngine

 
Sprite.Moved	= Допускать перемещение; да или нет
Sprite.Collisioned = Обнаруживать столкновение; да или нет

DXSpriteEngine.X := ...
DXSpriteEngine.Y := ...

X := ... // Новое значение X спрайта
Y := ... // Новое значение Y спрайта
DXSpriteEngine.X := -X + (DXSpriteEngine.Width div 2) - (Width div 2);
DXSpriteEngine.Y := -Y + (DXSpriteEngine.Height div 2) - (Height div 2);

TBackground = class (TBackgroundsprite)
public
   procedure DoMove (MoveCount : Integer); override;
end;

SBackground := TBackground.Create (DXSpriteEngine1.Engine);
with SBackground do
begin
   image := DXImageList1.Items.Find('image1');
   image.Transparent := false;
   SetMapSize(1,1);
   Z := -10;
   Tile := false;
end;
var SBackground : TBackground;

											
TBackground = class (TBackgroundsprite)
public
   procedure DoMove (MoveCount : Integer); override;
end;
procedure TBackground.DoMove (MoveCount : Integer);
begin
   inherited DoMove (MoveCount);
   X := X-1;
end;

тайл1 тайл2

Тайловый фон 4x4 (случайное заполнение)

MapWidth := 4; MapHeight := 4;
SBackground.Chips[0,0] to [3,3]
Randomize;
SBackground := TBackground.Create (DXSpriteEngine1.Engine);
with SBackground do
begin
   image := DXImageList1.Items.Find('backgr');
   image.Transparent := false;
   SetMapSize(4,4);
   Z := -10;
   for i := 0 to MapHeight-1 do
      for j := 0 to MapWidth-1 do
         Chips[j,i] := random(2);
   Tile := false;
end;

Chips[j,i] := -1; // тайл [j,i] будет без картинки

Randomize;
SBackground := TBackground.Create (DXSpriteEngine1.Engine);
with SBackground do
begin
   image := DXImageList1.Items.Find('backgr');
   image.Transparent := false;
   SetMapSize(5,5);
   Collisioned := True; //Не забудьте, иначе столкновения учитываться не будут!
   Z := -10;
   for i := 0 to MapHeight-1 do
       for j := 0 to MapWidth-1 do
       begin
          Chips[j,i] := random(2); // Выбирается случайный Тайл
          CollisionMap [j,i] := false; // Все Collisions отключены
       end;
   Tile := false;
end;
SBackground.CollisionMap [3,3] := true; // Тайл [3,3] "чувствует" столкновения

Спрайт столкнулся с Тайлом фона Chip [3,3].

									
AnimPos		  текущий кадр анимации
AnimStart	  стартовый кадр
AnimCount	  количество кадров анимации (берется из PatternCount)
AnimLooped  для повтора анимации (по кругу)
AnimSpeed = (DXTimer.Interval / 1000) * FPS (напр.: Interval=1 и FPS=2 а 2/1000)

4. DXTimer

procedure TForm1.DXTimer1Timer(Sender: TObject; LagCount: Integer);
begin
   if not DXDraw1.CanDraw then Exit;
   DXDraw1.Surface.Fill (0);
   DXSpriteEngine1.Move (1);
   DXSpriteEngine1.Draw;
   DXDraw1.Flip;
end;

DXTimer1.Interval := 1000 div 60; // 60 раз в секунду вызываем метод OnTimer
LagCount is the (?). frequence +1 // частота = кол-во исполнений 'OnTimer'

DXSpriteEngine.Move(LagCount);
X := X+ 0.7*MoveCount; { Вы можете делать значение MoveCount таким-же, как и LagCount.
Вы можете посылать это значение через параметры метода но не надо
(Вы можете дать ваше собственное значение MoveCount) }

5. DXInput

//Получить текущее состояние
DXInput.Update;
//Текущее состояние джойстика
DXInput.Joystick.X;
DXInput.Joystick.Y;
//Определение движения джойстика:
if ((DXInput.Joystick.X><0) or (DXInput.Joystick.Y><0)) then
   ...
//Интервал осей
DXInput.Joystick.RangeX := ... // RangeX =10 то интервал: от-10 до +10
DXInput.Joystick.RangeY := ...
DXInput.Joystick.RangeZ := ...
//Определение состояния клавиатуры
if isLeft in DXInput.States then // Нажата кнопка влево.
   .....
if isRight in DXInput.States then
   ....
if isUp in DXInput.States then
   ....
if isDown in DXInput.States then
   ....
//Возможно, что DXInput.States содержит и IsUp и IsRight (вверх, вправо).
DXInput1.States := DXInput.States - [isButton1]; //Отключение 1 кнопки
DXInput1.States := DXInput.States + [isButton2]; //Включение 2 кнопки
//Кнопки
procedure TForm1. FormKeyUp(Sender: TObject; var Key: Word; Shift: TShiftState);
begin
   if Key = VK_ESCAPE then
      Close;
   if key = ord('B') then
      ...
end;

VK_ESCAPE
Ord (Ascii)
VK_F1 t/m VK_F10
VK_SPACE
VK_UP
VK_DOWN
VK_LEFT
VK_RIGHT

function GetDXVersion : String;
begin
   with tregistry.Create do
      try
         rootkey:=HKEY_LOCAL_MACHINE;
         if OpenKey( '\SOFTWARE\Microsoft\DirectX', False) then
            result:= copy(Readstring('Version'),4,3)
         else result:='DirectX не установлен';
      finally
         free;
      end;
end;

procedure Tform1.DXSound1Initialize(Sender: TObject);
var fmt:TWaveFormatEx;
begin
   try       // Set up the DXSound object to use high quality samples
      with Fmt do
      begin
         wFormatTag := WAVE_FORMAT_PCM;
         nSamplesPerSec := 44100;
         nChannels := 2;
         wBitsPerSample := 16;
         nBlockAlign := wBitsPerSample div 8 * nChannels;
         nAvgBytesPerSec := nSamplesPerSec * nBlockAlign;
      end;
      // must be in exclusive to set the format
      DXSound1.Options := DXSound1.Options + [soExclusive];
      DXSound1.Primary.SetFormat(Fmt);
   except       // Error
   end;
end;

with DXDraw1.Surface.Canvas do
begin
   Brush.Style := bsClear;
   Font.Size := 12;
   Font.Color := clRed;
   TextOut(0,0, ’Some Text’);
   Release;
end;

												
procedure TForm1.DXDrawMouseMove(Sender: TObject; Shift: TShiftState; X,Y: Integer);