From: "島田喜郎" <shimada@...>
Date: 2002-12-04T13:37:34+09:00
Subject: [ruby-list:36666] DHGLのDrawFigureについて

BCB6, WindowsXPで中村拓男さんのDHGLからDrawFigureを使わせて
もらおうと思っています。ところで、次の行を実行するとプロシー
ジャの呼び出し直後にエラーになります。

DrawFigure(points, 5, MFC, clBlack, 10, PenStyle, 2);
(MFCはメタファイルのキャンバスです）

エラーメッセージは次の通りです。

>「プロジェクトProject1.exeがEAssertionFailedクラスの例外を生成しました。」

このメッセージはDHGLの次の行を指しているようです。

> Assert(Sum(PenStyle) > 0); //　ペンスタイルの合計は0以上

BCBの上記の行でPenStyleにカーソルを宛てると、PenStyle={2,2}
のように表示されます。これは私の意図どおりであると思います。
またDHGLのPenStyleにカーソルを置くとPenStyle=:0012F99C と表
示されます。なにか、アドレスを指しているようですが、私にはこ
の意味は分かりません。

どこに問題があるのでしょうか。