応用課題７-３

デモンストレーションのダウンロード

【基礎課題7-7】で定義した手続きCircleを用いて次のように、３つの同心円を描いてください。ペンの色は適当で結構です。





なお、右の例ではImageコンポーネントのWidthおよびHeightプロパティを150にしています。
７-６ 楕円の描画−Ellipseメソッド


☆　総目次へ　★　第7章目次へ　★　前節へ　★　次節へ　☆　

☆　『Delphi入門』　７-６楕円の描画-Ellipseメソッド　☆
　Canvasプロパティには楕円を描くEllipseというメソッドも定義されています。本章の最後に、その用法について簡単に学習しておきましょう。


Ellipseメソッドは、指定した2点で構成される長方形に内接する楕円を描画します。楕円の描画には、CanvasのPenプロパティで設定されているPenとBrushプロパティで設定されているブラシを使います。

Ellipse （int X1，int Y1，int X2，int Y2）；
X1，Y1　：四角形の左上隅の点
X2，Y2　：四角形の右下隅の点
基礎課題７-７

　Ellipseメソッドを用いて、中心座標（Xc,Yc）および半径r、そしてペンの色clを指定すると、円を描く手続きを作成しましょう。この手続きをCircle(xc,yc,r,cl)とすると、例えば上の【練習問題】のイベントハンドラは次のよう書けます。

　この手続きCircle(xc,yc,r,cl)を定義（作成）してください。

基礎課題７−７　解答
応用課題７−３　解答
☆　『Delphi入門』　７-６楕円の描画-Ellipseメソッド　☆

☆　総目次へ　★　第7章目次へ　★　前節へ　★　次節へ　☆　



練習問題

例えば (10, 20)と(50, 60)の正方形に収まる円を描く場合には、［描画］ボタンクリックのイベントハンドラは次のようになります。

作成したらきちんと円が描けるかどうか確認してください。