掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ＰａｉｎｔＢｏｘからJPEG若しくはBitMapへ (ID:47270)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
修正しましたが、結局、OnPaintで再描画する必要性からbitmapをグローバルとしするのが良いと思われました。 procedure TForm1.PaintBoxPaint(Sender: TObject); var dst : TRect; begin dst.Left := 0; dst.Top := 0; dst.Right := PaintBox.Width; dst.Bottom := PaintBox.Height; PaintBox.Canvas.StretchDraw( dst, bmp_c ); end; ここで、bmp_cはグローバルです。 Imageコンポーネントでは再描画してくれますが、BitMapやJPEGでファイルへ保存する事を考えると、BitMapを維持した方が良いと思いました。 このbmp_cを用いて、JPEGImage.Assign, JPEGImage.SaveToFileで保存できました。 PaintBoxの特性など、以前過去のQ&Aを参照させて頂きましたが、生かされていませんでした。 igyさん、ありがとうございました。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.