イメージにべベルを付けるには？ (ID:10149)

名前

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

本文 >私は、ベベルを付けた絵をセーブしたいんです。 最初の質問とは違いますね。 procedure TForm1.Button1Click(Sender: TObject); var r:TRect; begin r := Rect(10,10,110,110); DrawEdge(Image1.Canvas.Handle,r,BDR_RAISEDOUTER or BDR_RAISEDINNER,BF_RECT); InflateRect(r,-3,-3); DrawEdge(Image1.Canvas.Handle,r,BDR_SUNKENOUTER or BDR_SUNKENINNER,BF_RECT); Image1.Refresh; end;