VCL フォームアプリケーションで直線を描画する
グラフィックを使用する VCL フォーム アプリケーションの作成方法 への移動
この手順では,VCL フォームのイメージに 2 本の対角線を描画します。
- VCL フォームを作成する。
- 直線を描画する,フォームの OnPaint イベントハンドラを作成する。
- アプリケーションをビルドして実行する。
VCL フォームを作成しイメージを配置する
- [ファイル > 新規作成 > その他]の[Delphi プロジェクト > ]または[C++Builder プロジェクト]を選択し,[VCL フォームアプリケーション]アイコンをダブルクリックします。VCL フォームデザイナが表示されます。
- フォームビューで,必要であればフォームをクリックして,オブジェクトインスペクタに Form1 を表示します。
OnPaint イベントハンドラを作成する
- オブジェクトインスペクタの[イベント]タブで,Form1 OnPaint イベントをダブルクリックします。コードエディタが表示され,TForm1.FormPaint イベントハンドラブロックにカーソルが置かれます。
- 次のイベントハンドラコードを入力します。
with Canvas do begin MoveTo(0,0); LineTo(ClientWidth, ClientHeight); MoveTo(0, ClientHeight); LineTo(ClientWidth, 0); end;
Canvas->MoveTo( 0, 0 ); Canvas->LineTo( ClientWidth, ClientHeight ); Canvas->MoveTo( 0, ClientHeight ); Canvas->LineTo( ClientWidth, 0 );
プログラムを実行する
- [実行 > 実行]を選択します。
- アプリケーションが実行され,フォームに 2 本の対角線が表示されます。ヒント: ペンの色を緑色に変更するには,イベントハンドラコードの最初の MoveTo() 文の後に「Pen.Color := clGreen;」(Delphi)または「Canvas->Pen->Color = clGreen;」(C++)という文を挿入します。キャンバスやペンオブジェクトのほかのプロパティも使用してみてください。『Delphi 7 開発者ガイド』の「キャンバスオブジェクトのプロパティの使い方」を参照してください。