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 に対して行います．
イベント名
イベントの型 (引数の型や引数の機能を調べるのに使用)
OnDrawCell TDrawCellEvent
下の表は，Delphi XE(UP1) の TListView コンポーネントのカスタム描画用のイベントです．いくつかのイベントが用意されています．目的によって使い分けることになります．
他のコンポーネント (コントロール) のキャンバス同様，TListView.Canvas の使用方法も，TCanvas のそれと全く同じです．
イベントの処理だけでは不足する場合，カスタム描画をメッセージの処理で行う場合もあります．
[備考]
