TImage で描画サイズの変更をするには？

マイティマウス 2006-05-12 05:11:11 No: 21479

フォームに TPanel を追加し、TImage をこのパネルに追加します。
TPanel の BorderWidth を 4 にして、
TImage の Align を alClient としています。

フォームのリサイズを行った場合にOnResize で
TImage の Picture.Bitmap の Width, Heightに
TImage の Width, Height を入れて
FillRectを行っています。

この状態で、フォームのサイズをぐるぐるっと
変更するとリソースエラーとか、リソースが処理中とか
無効なポインタ操作とか挙句の果てにはシステムフリーズ
してしまいます。

どうすればよいのでしょうか？

f 2006-05-12 10:55:59 No: 21480

やってみましたが、問題ありません。

TPanelのAlignもalClientか、Anchorが設定されているんですよね？
FillRectは、何に対してやっているんですか？

一応、TPanelのAlignをalClientにして、
Image1.Picture.Bitmap.Canvas.FillRect
を行ってみましたが、再現しませんでした。