Delphi Programming / Object Pascal Delphi 一般・その他
カスタム描画における TCanvas ( 入門者用 )
動作確認等
Windows 7 U64(SP1) + Delphi XE(UP1) Pro
コンピュータの画面に表示されているものは、全て文字列や画像、あるいは線や図形等を「描画」した結果として表示されています。
新規にプロジェクトを作成して、以下のように操作します。
(1) TStringGrid コンポーネントと TButton コンポーネントをフォームに配置する
(2) Button1 のクリックイベントを以下のコードにする
procedure TForm1.Button1Click(Sender: TObject);begin StringGrid1.Cells[1 ,1 ] := '100' ;
end ;
コンパイルして実行し、Button1 をクリックすると下図のようになります。
図1
セルに値 (文字列に擬る) を代入すると、自動的にセルにその値が描画される
これがデフォルトの描画で、セルの左上から文字列が描画 (表示) される
セルに文字列を描画する際、表示位置や文字列のサイズ等を指定したり、セルの背景の色を変更したい場合があります。
図2
デフォルトの描画はしていない
セル上下中央で、右寄せで描画
フォント (文字) の色とサイズも変更している
02_ 描画は TCanvas のメソッドやプロパティを使用する
Delphi のビジュアルなコンポーネント、コントロールの多くは、Canvas というプロパティを持っています。線や他の図形を描いたり、画像を表示するのも、全て、この Canvas に描画します。
Canvas プロパティは、TCanvas という型のクラス型のプロパティです。クラス型ですから、プロパティやメソッドがあります。TCanvas には、直線を描いたり、円等の図形を描画するメソッド、画像描画用のメソッド等が実装されています。
次のコードは、TCanvas, TFont の機能を確認するための簡単なテストです。
文字列は Canvas に描画します。したがって、フォントは TForm1.Font ではなく、TCanvas.Font に対して設定します。塗り潰しの色とパターンを設定する TBrush や、描画に使用するペンの種類を設定する TPen も同じように、TCanvas.Brush, TCanvas.Pen で設定します。
copy code
// -----------------------------------------------------------------------------// TCanvasへの描画の例とフォントの設定例// TCanvas.Fontの設定は文字を描画するフォントの設定となる// -----------------------------------------------------------------------------procedure TForm1.Button1Click(Sender: TObject);begin // Form1のフォントではなくForm1のCanvasのFontを設定するCanvas.Font.Size := 17 ;
// Form1のCanvasにテキストを描画するCanvas.TextOut(10 , 40 , 'Delphi Programming' );
// フォント名(文字列の描画に使用するフォント名)を変えてみるCanvas.Font.Name := 'Courier New' ;
// フォントの色(文字列の色)を変えてみるCanvas.Font.Color := clBlue;
// Form1のCanvasにテキストを描画するCanvas.TextOut(10 , 90 , 'Delphi Programming' );
end ;
図3
TCanvas には各種図形描画用のメソッドもある
TCanvas には画像描画用のメソッドもある
次のコードは、Parrots.bmp というビットマップ画像をディスクから読み出して TCanvas に描画する例です。その下の図が実行結果です。
copy code
// -----------------------------------------------------------------------------// TCanvasにビットマップ画像を描画する例// -----------------------------------------------------------------------------procedure TForm1.Button1Click(Sender: TObject);var LImagePath : String ;
LBitMap : TBitmap;
begin LImagePath := ExtractFilePath(Application.ExeName) + 'Parrots.bmp' ;
LBitMap := TBitmap.Create;
try // ビットマップ画像をディスクから読み込むLBitMap.LoadFromFile(LImagePath);
// ビットマップ画像を描画するCanvas.Draw(10 , 35 , LBitMap);
finally FreeAndNil(LBitMap);
end ;end ;
図4
このようにして、図形、画像、文字列等を、Canvas に描画できます。
Canvas プロパティを持たないコントロールもあります。Canvas プロパティがないコントロールには、Canvas への描画はできません。
アプリケーションでは文字列や画像だけでなく、数値も扱います。
04_ カスタム描画には描画関係のイベントを使用する
カスタム描画を実装するには、主に Draw という名前が含まれているイベント、あるいは OnPaint イベント等を使用します。
利用可能なイベントはコンポーネント (コントロール) によって違います。イベントには各々プロシージャが割り当てられています。例えば TStriingGrid の OnDrawCell イベントには TDrawCellEvent という型のプロシージャが使われます。
イベント内で描画コードを書くときに、これらのイベントの引数を利用することができます。カスタム描画では、このイベントの引数の使い方が重要なポイントとなります。
当然ですが、描画は対象のコンポーネントやコントロールの Canvas に対して行います。
下の表は、Delphi XE(UP1) の TListView コンポーネントのカスタム描画用のイベントです。いくつかのイベントが用意されています。目的によって使い分けることになります。
他のコンポーネント (コントロール) のキャンバス同様、TListView.Canvas の使用方法も、TCanvas のそれと全く同じです。
イベントの処理だけでは不足する場合、カスタム描画をメッセージの処理で行う場合もあります。
[備考]
