掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
BitmapにBitmapを重ねるには (ID：12503)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
D7で、お絵かきソフトのようなものを作っています。 スタンプのような機能で、クリックしたら別なBitmapを Image上にcopyするように考えています。 procedure TF_Map_main.FormMouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer); var StampBitmap: TBitmap; begin StampBitmap := TBitmap.Create; try StampBitmap.LoadFromFile('C:\TNhato4.bmp'); image.Canvas.CopyMode := cmSrcAnd; Image.Canvas.CopyRect( Rect(X,Y,X + StampBitmap.Width ,Y+StampBitmap.Height), StampBitmap.Canvas, Rect(0,0,StampBitmap.Width ,StampBitmap.Height)); finally StampBitmap.Free; end; end; 星型のマークで中が黄色で、周りが白のBitmapをスタンプ用の画像として 白いCanvasに貼り付けたいのですが CopyMode := cmSrcAnd;だと背景は透過してくれるのですが、肝心の 星型のマークの中も 重ねて貼り付けた場合 したのマークのが重なって見えます。 上に貼り付けた、星型のマークの中はしたの画像が見えないようには 出来ないでしょうか？ 重ねたら絶えず、上側が優先に・・ 同じ画像で、ペイントで貼り付ける場合は、意図としたように出来るのです。 よろしくお願いします。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.