掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ＰａｉｎｔＢｏｘからJPEG若しくはBitMapへ (ID:47267)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
igyさん ありがとうございます。 いいえ。 ボタンを配置して、ボタンのonClickで行なっています。 procedure TForm1.Button1Click(Sender: TObject); var bmp : TBitMap; dst : TRect; begin bmp := TBitMap.Create(); bmp.PixelFormat := pf24bit; // bmpへの描画 // dstの範囲をPaintBoxのサイズに設定 PaintBox.Canvas.StretchDraw( dst, bmp ); end; procedure TForm1.Button2Click(Sender: TObject); var JPeg : TJPEGIMage; bmp : TBitMap; fname : String; begin JPeg : TJPEGImage.Create(); // PaintBoxをbmpへ JPeg.Assign( bmp ); JPeg.SaveToFile( fname ); end; などの様に考えています。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.