キャンバスの描画メソッドの最大値は？ (ID:259)

名前

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

本文

とりあえず解決しました。根本的にImageの使い方が良くなかったようでした。
下記の2つの方法で試しました。ScrollBoxにImageを貼付け、FillRectで描画してみました。上の方法では8192あたりまで描画できました。
ホントはCopyRectを使いたいのでそのうち試してみます。
にしのさん有難うございました。

procedure TForm1.FormCreate(Sender: TObject);
var
   btmp: TBitmap;
const
     VAL = 8192;
begin
///////////////////////////////////////////////この方法だとうまくいった

btmp:=TBitmap.Create;
     btmp.PixelFormat:=pf24bit;
     btmp.Width:=VAL;
     btmp.Height:=VAL;
     Btmp.Canvas.Brush.Style:=bsDiagCross;
     Btmp.Canvas.Brush.Color:=clOlive;
     Btmp.Canvas.FillRect(btmp.Canvas.ClipRect);
     Image1.Width:=VAL;
     Image1.Height:=VAL;
     Image1.Picture.Bitmap.Assign(btmp);
     btmp.Free;

//////////////////////////////////////////////////////////今までの方法
{
     Image1.Picture.Bitmap:=TBitmap.Create;//←これは要らないかな？
     Image1.Picture.Bitmap.Width:=2360;//←これより大きいとエラー
     Image1.Picture.Bitmap.Height:=2360;//←これより大きいとエラー
     Image1.Canvas.Brush.Style:=bsDiagCross;
     Image1.Canvas.Brush.Color:=clRed;
     Image1.Width:=VAL;
     Image1.Height:=VAL;
     Image1.Canvas.FillRect(Image1.ClientRect);
}
end;

←解決時は質問者本人がここをチェックしてください。

戻る