掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
DELPHIで描いた図形を他のアプリケーションに貼り付けるには？ (ID:16158)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
> TPaintBoxの図形を『メタファイル』での貼り付けするにはどのように行うのでしょうか？ 厳密には貼り付けではないが、TPaintBoxのCanvasではなく、 TMetafileCanvasに描画する。 var myMetaFile: TMetaFile; myMetaCanvas: TMetafileCanvas; begin myMetafile := TMetafile.Create; myMetafile.Width := 300; myMetafile.Height := 300; //メタファイルキャンバスの作成：TMetafileCanvasのサイズはCreate時の //TMetafileのサイズになり、以降TMetafileのサイズを変えても無効 myMetaCanvas := TMetafileCanvas.Create(myMetafile, 0); //描画 //Canvasに対する描画を別メソッドにしておけば、引数に //TPaintBox.Canvas, TMetafileCanvas, TBitmap.Canvas と //いろいろ対応できるでしょう。 Draw(myMetaCanvas); myMetaCanvas.Free; Clipboard.Assign(myMetafile); myMetafile.Free; end; //描画用メソッド procedure Draw(aCanvas: TCanvas); begin aCanvas.Pen.Width := 5; aCanvas.Pen.Color := clRed; aCanvas.Rectangle(20,20,100,200); end; いかがかな？
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.