X-Fileの読み込み

DirectX SDKのサンプルにある、Xファイルの読み込みプログラムをDelphi 2005 へ移植して読み込めるか確認します。
はじめに、Microsoft.DirectX.Direct3DX アセンブリを参照先として追加します。
次に、先ほどのプログラムのコードを修正しました。コード全体は下の図のとおりです。

Help Insightで赤線が表示されていますが、コンパイルは通ります。x-fileとテクスチャーをSDKのサンプルディレクトリから、アプリケーションの実行ディレクトリにコピーします。サンプルは

にあります。SDKのバージョンによってフォルダ名が違う部分もありますので適宜読み替えてください。プログラムを実行します。実行すると下の図のようにトラが表示されます。

ほかのウィンドウで、このアプリケーションウィンドウを覆ったりして、ウィンドウを隠してから、もう一度このウィンドウを表示させるなどして、OnRepaintを発生させるとトラが回っていることが確認できます。

自動で再描画がかかるように、Timerを置きます、Intervalは20くらいにしておきます。

TimerのOnTimerイベントにコードを書きます。

これで、実行すると、トラがくるくる回るのが確認できます。