フォントを変形させて描画するには (ID:33832)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 BitmapUtil004D7.zip試してみました。 環境はXP SP2 D6 Proです。 「プロジェクトオプション」→「コンパイラ」→「実行時オプション」で「範囲チェック」にチェックを入れると、どのボタンを押しても「Range check error.」となります。 チェックを外してコンパイルすれば問題なく実行できました。 あと良く分からないながら「範囲チェック」にチェックを入れた状態でエラーが起きる箇所の変数をByteでキャストしていったらエラーは出なくなりました。 procedure SetARGB(px:PInteger; var A,R,G,B:Byte); begin {*} A := Byte(px^ shr 24) ;//and $000000FF; {*} R := Byte(px^ shr 16) ;//and $000000FF; {*} G := Byte(px^ shr 8) ;//and $000000FF; {*} B := Byte(px^) ;//and $000000FF; { A := px^ shr 24 ;//and $000000FF; R := px^ shr 16 ;//and $000000FF; G := px^ shr 8 ;//and $000000FF; B := px^ ;//and $000000FF; } end; こんな感じで SetARGB DIB32AlphaBlend DIB32TextAlpha の三つの関数のByte型の変数をキャストしました。 ところで「範囲チェック」はチェックしてくれるんならその方が安心と思ってずっとチェック入れてるんですが、入れない方が良いのかな、、