Texturowanie "twall"

var - zmienne globalne
mapa : timage;
sciana : twall;

Stwórz ścianę
W onCreate (form) daj:
begin mapa := timage.Create(self); //stworzenie Mapy mapa.Parent := nil; //ble ble ble :) mapa.width := form1.width; //szerokość mapa.height := form1.height; //wysokość
end;

w onclose (form) wpiszcie:
begin
sciana.free_wall;
mapa.free;
end;

Teraz w onDxdraw initialize
begin sciana.x := 100; sciana.y := 100; sciana.width := 100; sciana.height := 100; sciana.bind_texture_memory('tex2.bmp'); //tex2.bmp zmieniamy na inną :) to jest tylko ścieżka do pliku end;

W OnTimer w DxTimer wpisujemy:
begin dxdraw1.surface.Fill(0); dxdraw1.surface.canvas.Draw(mapa.x,mapa.y,mapa.texture.picture.graphic); //koniec (wiem, że komp automatycznie zwalnia ale nie znalazłem szybszego sposobu na umieszczenie tego) dxdraw1.Surface.Canvas.Release; dxdraw1.flip;
end;

a oto przykład: klik :P - ALE UWAGA!!! tam nie jest wykorzystany DelphiX tylko zwykły canvas formy i już. (zrobiłem tak abyś lepiej to zrozumiał ;) )