Delphi Programming / Object Pascal
  
[掲載 2012年10月25日] [更新 2014年07月09日] GDI+ 関係サンプル |
GDI+ 関係サンプル
概要 |
| 動作確認等 |
サンプルよって異なる
全てのサンプルがダウンロード可能 (実行ファイル同梱) |
 |
gdiplus.zip [1,144 KB] 2002年02月15日版 (Delphi XE 以前用) |
GDI+ は Windows XP で実装されたグラフィクスサブシステムですです。
GDI+を使うと、.NET Frameworkと同等のグラフィック機能を Windows API ベースのプログラムから使用することができます。GDI+ を使用しない場合は GDI による描画ということになります。
GDI+ の関数類は、Gdiplus.dll が提供しています。Delphi XE2 では GDI+ の API を利用するためライブラリが標準実装されました。
Microsoft Office 関連でも、少なくも Office XP, 2003 では GDI+ を使用しています。GDI+ のサンプルは、ネット上に多くありますが、若干のテストプログラムを作成してみました。
Delphi で使用可能な GDI+ Library には、この他、.NET Framework 互換の
Delphi GDI+ Library for use with Delphi 2009 (version 1.2)
があります。MSDN の記事のほとんどが .NET Framework 対応のものですから、今後はこちらの方の利用を考えてもいいのかも知れません。Delphi XE2 に実装されているのが .NET 互換の方ではないので、今回は使用しませんでした。
上のリンクの Delphi 2009 以降で使用可能な .NET 互換の GDI+ には、Blur (ブラー) というガウスばかしのクラスがありますが、本サンプルで使用している GDI+ には実装されていません。Delphi XE2 の GDI+ ライブラリには、拡張された Blur クラスが実装されています。
GDI+ ライブラリの機能を使用するには、uses に GDIPAPI, GDIPOBJ 等を追加します。
|
| Delphi XE 以前で GDI+ ライブラリを使用する
( gdiplus.zip ) |
Delphi XE 以前で GDI+を使用するには、本ページから GDI+ ライブラリ (2002年02月15日版) を別途ダウンロードしてください。
これは progdigy.com というサイトで提供されていたものですが、2013年07月11日現在入手できません。MPL1.1 のライセンスに基づき、当サイトで再配布しています。。
次の手順で導入します。
- gdiplus.zip をダウンロード
- ダウンロードした gdiplus.zip を適当なフォルダに解凍
- 解凍したフォルダ内の [pas] フォルダにパスを通す
- uses に GDIPAPI と GDIPOBJ を追加する
Delphi 7 以前であれば、このまま使用できます。それ以降のバージョンでは、以下のエラーが発生して、プロジェクトのコンパイルに失敗します。 |
| [DCC エラー] DirectDraw.pas(358): E2154 'IDirectDrawSurface' 型は終了処理が必要です - 構造体の可変部に置くことは許されません |
ダウンロードした GDI+ のバージョン定義ファイル Jedi.inc は Delphi 7 までの対応です。そのために必要なコードが実行されないのが原因で発生します (情報源 : Dephi-fan の GDI+ を使う)。
そこで、筆者は次のリストのように修正しました。つまり、Delphi のバージョンを全て Delphi 7 にごまかす設定です。この修正をしても、[ヒント] や [警告] は表示されますが、使用可能です。 |
リスト1
[pas] フォルダ内の Jedi.inc を修正。Delphi 7 以降全てで使用可能に
VERXXX to COMPILERX, DELPHIX and BCBX mappings
の部分を以下に変更 |
//------------------------------------------------------------------------------
// VERXXX to COMPILERX, DELPHIX and BCBX mappings
//------------------------------------------------------------------------------
{$IF CompilerVersion > 14.99}
{$DEFINE COMPILER7}
{$IFDEF BCB}
{$DEFINE BCB7}
{$DEFINE BCB}
{$ELSE}
{$DEFINE DELPHI7}
{$DEFINE DELPHI}
{$ENDIF}
{$IFEND}
どうしても [ヒント] や [警告] が気になるのであれば、
は、大文字あるいは小文字に修正します。これは、主にメソッド名の先頭文字です。また、
は、下のコードのように、reintroduce 指令を追加します。 |
function Equals(region: TGPRegion; g: TGPGraphics): BOOL; reintroduce;
GDI+ のグラフィックスのオブジェクト、TGPGraphics のインスタンス (実体) は、以下のように、描画対象の TCanvas のハンドルを引数に指定して作成します。
例えば、TBitmap の Canvas に描画する場合は、TBitmap.Canvas.Handle とします。
TImage の Canvas に描画する場合は、TImage.Canvas.Handle とします。
TBitmap や TImage はクラス名です。実際にはそれらのインスタンスの名前とします、Image1 であれば Image1.Canvas.Handle となります。 |
//描画先を指定してTGPGraphicsオブジェクトを生成する
LGPGraphic := TGPGraphics.Create(Canvas.Handle);
そして、この TGPGraphics の描画用のプロパティである色等を設定し、描画用のメソッドで図形や画像を描画します。すると、指定した TCanvas に図形なり画像が描画されることになります。描画先が TImage 等であれば描画結果は目に見えます。
TBitmap の場合は、描画コードを実行しても実際には目には見えません。処理結果としての、そのビットマップを何かに表示するとか、保存するとことになります。
ペンやブラシ等の設定は、TCanvas のようなプロパティではなく、それそれのオブジェクトを生成して設定します。ペンや線のプロパティを設定するためのオブジェクト類は、この TGPGraphics のオブジェクトがなくても、独立して設定できます。
|
//描画座標値をポイントで指定
P1 := MakePoint(20, 150);
P2 := MakePoint(200, 150);
//TGPPenのペンの設定で線を引く(描画する)
LGPGraphic.DrawLine(LGPPen, P1, P2);
サンプルの多くは、フォームに配置したパネル、あるいは、TPanel を継承した TMyPanel というコントロールの Paint メソッドで、その Canvas に画像や図形を描画しています。
アプリケーションを開発する際、多くの場合、複数のフォームあるいはユニットを使用します。そしてそれらのフォームあるいはユニットと変数のやりとりが必要となります。
この時、グローバルな変数を介するよりも、プロパティ、あるいはメソッド類で行うのが一般的です。このことを意識して TPanel の派生クラスを作成して、他のフォーム、ユニット内のクラスとのやりとりの代わりとしています。
描画コード自体は Paint メソッド以外にはありません。フォームの OnPaint イベント、あるいは、TPaintBox の OnPaint イベント等に、この TMyPanel メソッドのコードをコピーして貼り付け、コード内のプロパティ等の変数に直接値を代入すれば、ネット上の多くのサンプル、デモプログラムと同じように扱えます。
TImage に描画するサンプルもありますが、TImage は内部で「オフスクリーンビットマップ」というビットマップを生成して描画内容を表示します。そのため、描画内容を変更する際、一度描画内容をクリアしてから再度描画コードを実行するという作業が必要な場合があります。
TImage は、他のウィンドウが上に重なっても、描画の更新を内部で自動で実行してくれます。また重ね描画も自動で処理してくれます。GDI+ で描画する場合は、追加の描画もコードを追加しなければなりません。そのため、TImage のような追加描画の機能を実装するには、オフスクリーンビットマップのような仕組みが必要となることがあります。
|
[備考]
ほとんどのサンプルは、継承元を TPanel から TGraphicControl の TPaintBox に変更してもそのまま動作しますが、座標値の変換が必要な場合があります。
|
GDI+ の描画コードをプリンタに出力する時は、印刷のコーディングにもよりますが、次のように、描画コードを実行する前にマッピングが必要な場合があります。GDI+ の関数の中には、UnitPixelを引数で指定するものがあります。その場合は必要ありません。
この現象は、.NET 互換の GDI+ では必要ありません。なくても正しく印刷できます。 |
リスト3
GDI+ を使用した描画コードを印刷する際は、描画コードを実行する前にマッピングが必要 |
procedure TplResizeZLine.DrawRoutine(ACanvas: TCanvas; OffSetX: Integer=0;
OffSetY: Integer=0);
var
LGraphic : TGPGraphics;
begin
//----------- 略 -------------------------
LGraphic := TGPGraphics.Create(ACanvas.Handle);
SetMapMode (ACanvas.Handle, MM_TEXT);
LGraphic.SetPageUnit(UnitPixel);
//----------- 描画コード ------------------
end;
| サンプルプログラムのダウンロード方法とブロックの解除 |
各ページの上の方、最初の方に、下図のような画像があります。これをクリックしてください。サンプル単位ではなく、そのページのサンプルの一括ダウンロードとなっています。
各サンプルの個別ダウンロードの要望がありましたが、対応の予定はありません。
ダウンロードしたら [ブロックの解除] をしてください。
|
記事内のコードをコピーして利用する場合は、各サンプルコードの左上のコピーボタンをクリックするとクリップボードにコピーできます。
|
|
