更新日 : 2009/3/30

1. DHGLとはなんですか？
2. DHGL にはどんなものが含まれていますか？
3. DHGLの使用に制限はありますか？
4. DHGLが対応している Delphi の版は？
5. インストールはどうするの？
6. ヘルプはどうやって使うの？
7. DHGLの使い方を学ぶには？
8. TBigBitmap の大きさの限界は？
9. DHGLをインストールし、イメージコントロールにメタファイルを読み込むと、メタファイルがイメージコントロールからはみ出して表示される。
10. PrinterUtils.pas と NkPrinter 
11. TBigBitmapでビットマップをクリップボードに送るとOSがハングアップします。

このユニットに含まれる減色ルーチンは TBitmapとTBigBitmapの両方をサポートしています。

DHGLは Delphi 5, 6、7, 2009 で試験しています。

C++Builder 5 でも動作確認を行っています。

Delphi 4, 2005, 2006, 2007 でもおそらく動くと思いますが、動作試験の予定はございません。

ライブラリパスは Delphi のIDE のメニューから [ツール(T)]-[環境オプション(O)] 
を選んで[環境オプション]のダイアログを開き、[ライブラリ]タブの中にある[ライブラリパス(B)]で変更できます。

詳細は Delphi のマニュアルを参照してください。また上図のタブの「ライブラリパス」の横にあるボタンを押せば、使い方はすぐに判るでしょう。

DHGL に含まれる GradationControlコントロール(GradationControl.pas) と PrintPreviewコンポーネント(PrintPreview.pas)コンポーネントを使うには、コンポーネントをインストールしておく必要が有ります。

IDE のメニューから[コンポーネント(C)]-[コンポーネントのインストール(I)]

を選んでコンポーネントのインストール用のダイアログを開き、上記のファイルを選んでインストールを行ってください。

Delphi 7 以前のDelphiでは、DHGL のヘルプを Delphi の IDE のヘルプに組み込むと、Delphi の IDE の中からヘルプが引けるようになります。例えばフォーム上のコンポーネントを選択して F1 キーを押すだけで DHGL のヘルプが引けるようになります。

IDE に DHGL のヘルプを組み込むには Open Help ユーティリティを使います。

Delphi をインストールしたフォルダの直下の bin フォルダに oh.exe という実行ファイルが有ります。これが Open Help です。 Delphi のヘルプの、目次、キーワードの検索範囲、状況感知型ヘルプの検索範囲に新たなヘルプの加えることができます。以下の手順で DHGL のヘルプを IDE に組みこんでください。

DHGL は付属のヘルプとソースコードをご覧になればある程度使えるとは思いますが、書籍Delphi Graphic Secretsに詳細な解説があります。もしお金があれば買って読んでみてください(^^;

Delphi Graphic Secrets をご購入で無い方へ：

Sampleｓ.hlp は Delphi Graphic Secrets のサンプルプログラムの説明で、DHGL専用の物では有りません。Chapter1, Chapter2 フォルダの中の多くのサンプルはDHGLとは直接関係のないものです。また説明は Delphi Graphic Secrets の説明を数多く参照していますので、予めご了承ください。

Gradation.dpr　はパレットを使ってグラデーションを表示する単純なアプリケーションです。 

BitmapView.dpr　はビットマップのビュワーです。 Image コントロールを使わずに TBitmap を使ってビットマップを表示する時のパレットの取り扱い方法を含んでいます。

 GradationControlDemo.dpr はパレットを使ってグラデーションを表示するコントロールのデモプログラムです。

DrawToBitmap.dpr は List 3-2-1 で紹介したTBitmap のCanvas　を使ってビットマップに文字列と図形を描くサンプルプログラムです。 

GradationByBitmap.dpr は List 3-2-2 で紹介したビットマップ(DDB)を使ってグラデーションを表示するサンプルプログラムです。 

GradationByDIBSection.dpr は List 3-2-4 で紹介したビットマップ(DIB Section)を使ってグラデーションを表示するサンプルプログラムです。 このサンプルには、DIB Section のピクセルデータへのアクセスの仕方や DIB Section のカラーテーブルの差し替え方などが含まれています。

 CreateMonochromeBitmap.dpr は List 3-2-7 で紹介した、モノクロビットマップを作成するサンプルプログラムです。 

DrawToMonochromeBitmap.dpr は List 3-2-9 で紹介したモノクロビットマップに図形やカラービットマップを描くサンプルプログラムです。 

DrawMonochromeBitmap.dprは List 3-2-10 で紹介したモノクロビットマップをスクリーン(フォーム)に描画するサンプルアプリケーションです。

UseMetafile.dpr は List 3-3-1 のコードを含むメタファイルの使用例です。メタファイルがスケーラブルで図形を自由に変形できることを確認できます。 

MetafileTrouble.dpr は List 3-3-5 と List 3-3-6 で紹介した AdjustFont ルーチンと AdjustPhysicalInchi ルーチンの効果を確認するデモプログラムで, Fig. 3-3-5 〜Fig.3-3-8 を表示できます。

ListIcon.dpr は本文の Fig. 3-4-1 を表示するプログラムです。 本文では触れていませんが、このプログラムはアイコンファイルに含まれるアイコンイメージを全て表示するサンプルプログラムです。 アイコンディレクトリの取り扱い方の例になっています。 

IconSize.dpr は System Large Icon, System Small Icon, Shell Large Icon, Shell Small Icon の大きさを表示するサンプルプログラムです。

GradationDemo.dpr は TGradation クラスのデモプログラムです。グラデーションデータをファイルから読んで表示したり、グラデーションデータをファイルにセーブできます。 

IconExDemo.dpr は TIconEx クラスのでもプログラムです。アイコンを任意の大きさで表示できます。またアイコンをクリップボードにコピーしたり、 アイコンをクリップボードからぺーストしたりできます。

RO3.dpr は List 4-1-1 と List 4-1-2 のコードを含む、 ROP3 の効果を確認するためのサンプルプログラムです。 イメージの反転と網掛けを行うことができます。 

TransparentDraw.dpr は List 4-1-3 、List 4-1-4 による透明描画のサンプルプログラムです。List 4-1-5 の ModifyDIBForROP ルーチンを使用した DIB Sectionによる透明描画もテストできるようになっています。

尚、ModifyDIBForROP　ルーチンを含む　ROPUtilsユニットは　Commonフォルダに収録されています。

尚、TBitmapEx グラフィッククラスを含む BitmapEx.pas ユニット、及び、TBitmapEx で使われている各種汎用ルーチンを含む BitmapUtils.pas ユニットは Common フォルダの中にあります。

尚、TBigBitmapグラフィッククラスを含む BigBitmap.pas ユニット、 及び、TBigBitmapで使われている各種汎用ルーチンを含む BitmapUtils.pasユニットは Common フォルダの中にあります。

Rotation90.dpr は List 4-4-1 のコードを含む、TBitmap を使ってビットマップを90度回転させるサンプルプログラムです。 Pixels と Scanlineプロパティの速度差を確認することが出来ます。 

Rotation90ForBigBitmapは Rotation90.dpr の TBigBitmap版です。 TransformBitmapDemo.dpr は Fig. 4-4-2 で紹介した関数のデモプログラムです。 TransformBitmap を使ってビットマップの拡大縮小、30度回転、90度回転、ミラー、渦巻き変換の動作が確認できます。 デモでは TBitmapと TBigBitmapの両方が使えるようになっていますので、巨大なビットマップを使った実験も出来ます。 

尚、TransFormBitmap関数は TBitmap用とTBigBitmap用の2種類が有り、両方ともBitmapUtils.pas ユニットに含まれています。 BitmapUtils.pas は Commonフォルダの中にあります。

尚、 4-6節で紹介したフィルタールーチン BitmapFilter は TBitmap 版と TBigBitmap 版が有り BitmapUtils.pas ユニットに含まれています。 BitmapUtils.pas は Common フォルダの中にあります。

尚、4-7節で紹介した各種の減色ルーチンは全て TBitmap 版と TBigBitmap版が有り、 MedianCut.pas、Octree.pas, ErrDef.pas, StaticErrDef.pas, ユニットに含まれています。これらは全て　Common　フォルダの中にあります。 本文で紹介しなかったルーチンも多数含まれていますので、詳細は本書の付録「CD-ROMの使い方」をご覧下さい。

SimplePrint.dpr　は　List 5-1-1 を含む簡単な印刷の基本的なコーディングのやり方を示すサンプルアプリケーションです。 

PaperInfo.dpr は List 5-1-2 を含む、プリンタの紙情報を表示するサンプルアプリケーションです。

尚、List 5-1-2 で紹介した汎用ルーチン GetPaperInfo と、List 5-2-2 で紹介した PrintPreview コンポーネントは、 Commonフォルダに PrinterUtils.pas ユニット、PrintPreview.pas ユニットとして含まれています。

 尚、List 5-4-3 の汎用ルーチンは Common フォルダの PrinterUtils.pas ユニットの中にあります。 

ChangeUserDefinedPaperSize.dpr は List 5-4-6 を含む、プリンタのユーザ定義サイズを変更するサンプルプログラムです。 この中で使われている List 5-4-5 の汎用ルーチンは Commonフォルダの PrinterUtils.pas ユニットの中にあります。

 ColorCopiesCollateDemo.dpr は List 5-4-7 を含む、「カラー印刷」、「部数」、「部単位の印刷」の印刷設定を行うサンプルアプリケーションです。 「部数」、「部単位の印刷」のシミュレーションのサンプルとしてもお使いいただけます。

PrintQualityDemo.dpr は List 5-4-8 を含む、プリンタの印刷品質の変更を行うサンプルアプリケーションです。

SimpleClipping.dpr は List 6-1-2 で紹介した簡単なリージョンを利用したクリッピングの例を示すサンプルアプリケーションです。 

DrawWithRegion.dpr List 6-1-3 で紹介したより複雑なリージョン演算を使ったクリッピングの効果を示すサンプルアプリケーションです。 

tokei.dpr は List 6-1-7 で紹介したリアルタイムにアニメーションを表示するプログラムです。 透き通った時計がリアルタイムに針を動かしながら表示されます。 

List 6-1-1 で紹介したリージョンを楽に扱えるクラス TRegion を含む RegionUtils.pas と List 6-1-5 で紹介した TMetafile の改良版 (Windows 95/98 のバグ回避版)TMetafileEx クラスを含む MetafileEx.pas は Common フォルダ に収められています。

TextEffect.dpr は List 6-2-3 と Fig. 6-2-7 で紹介したテキストをひねって表示する、パスを使ってテキストに表示効果を加えるサンプルアプリケーションです。 

WideDashedLine.dpr は List 6-2-6 と Fig. 6-2-10 で紹介した太い破線を描くサンプルアプリケーションです。 Windows 95系列のWindowsでも太い破線を描けます。

 尚、Windows 95 系列のWindows でもパスで円や楕円、矩形などを利用可能にするルーチン、 DrawArc 、DrawAngleArc、DrawChord、DrawAngleChord、DrawPie、DrawAnglePie、DrawRectangle、DrawRoundRect、DrawEllipse、及び、 パス情報を保持し、パスを楽に扱えるようにする TPath、Windows 95 系列の Windows でも太い破線を描くことができる DrawFigure, DrawPath は Commonフォルダの PathUtils.pas に収録されています。

 TextOut.dpr は Fig. 6-3-2 で紹介した Canvas.TextWidth と実際に TextOut API で描画される文字列のとの関係を確認するためのサンプルアプリケーションです。 

CorrectWidth.dpr は Fig. 6-3-5 で紹介した List 6-3-1 GetTextAAdjust, GetTextCAdjust ルーチンを使っってテキストの描画領域を正しく表示するサンプルアプリケーションです。 

TextPrint2.dpr は List 6-3-3 で紹介したテキスト整形を行いつつ段落を行に分解するルーチンGetTextPositionを使ったプレビュー付きのテキスト印刷プログラムです。 

尚、GetTextAAdjust, GetTextCAdjust, GetTextPosition を含む TextUtils.pas は Common フォルダに収録されています。

8. TBigBitmap の大きさの限界は？

NT系の Windows では特に大きさの限界はありません。使用できる仮想メモリの大きさ次第です、

Windows 9X/ME の場合は 1万X1万ピクセルを目安としてください。

TBigBitmap が 24bppp のビットマップを保持している場合は、Windows 9X/MEが作成できるビットマップの総容量、つまり 350MB〜400MB が限界になります。1万X1万ピクセルの 24bpp のビットマップは 300MB になります。

8bpp　の場合は 1万X1万ピクセルで 100MB になりますが、この場合は GDIヒープ(64KB)がネックになります。TBigBitmap はビットマップを 8MB に分割して持ちますが、8bppのビットマップはパレットを使いますので、これが分割されたビットマップ毎に最大 1KB のGDIヒープを消費するからです。8bpp で 400MB のビットマップを作ると GDI ヒープを 50KB も消費してしまい、おそらく 障害が起きるでしょう。1万X1万ピクセルならば13KBで済みます。ビットマップの操作のために一時的にこの倍のパレットが必要になる場合がありますからこのあたりが限界になります。

4bpp, 1bpp のビットマップの場合は1万X1万ピクセルよりずっと大きくできます。ビットマップの容量がずっと小さくなるからです。1/4/8bppのビットマップの大きさは 100MB程度に抑えてください。

将来的にはパレットを共有できるビットマップクラスを作成して 8bpp の制限を取り払う予定です。

9. DHGLをインストールし、イメージコントロールにメタファイルを読み込むと、メタファイルがイメージコントロールからはみ出して表示される。

書籍の P335 の説明にありますように、TMetafileExクラスでは Windows 95, 98 のリソースリークの問題に対処するためメタファイルを描画する際、クリッピングを抑止しています。TMetafileEx は PrintPreview コンポーネントをインストールすると自動的に設計パッケージに 組み込まれますのでこのような現象が起きます。

この処置は、Windows 95/98 における Delphi の使用、及びDelphi で作成したアプリケーションの実行には必須のもので、Windows 95/98 の RestoreDC API のバグのためにイメージコントロールで GDI ヒープのリークが起きるのを防ぐためのものです。イメージコントロールをパネルに貼り付けるなどして、メタファイルがはみ出して描画されることを防ぐようにしてください。

しかしながら、Windows 95/98 向けのアプリケーションを今後作成しないという方もたくさんおられると思います。そのような場合は、MetafileEx.pas ユニットの 以下のコード(初期化部と終了部)を削除してください。このようにすると TPicture は TMetafileEx を使わなくなるため、TPicture を使う イメージコントロールも TMetafileEx を使わなくなります(TPicture のGraphic プロパティに明示的に TMetafileEx のインスタンスを代入した場合は、もちろん　TMetafileEx が使われます)。

修正後、DHGLのPrintPreviewコンポーネントを組み込んだ設計時パッケージを再コンパイルすれば、この問題は起きなくなります。

10. PrinterUtils.pas と NkPrinter

拙作の NkPrinter と DHGL の PrinterUtils.pas の関係について問い合わせるメールを何通か戴きました。

Delphi Graphoc Secrets 5章 印刷の各種のサンプルコードと DHGLの PrinterUtils.pas は TPrinter の扱い方とプリンタ制御の理解を助けるために作ったコードです。TPrinter の扱い方を学ぶにはよいコードだとは思っていますし、通常の印刷処理を書くのに、PrinterUtils.pas とサンプルプログラムは十分に役に立つと思います。但し、TPrinter の基礎知識無しでは使えません(5章を読んでください(^^;)。

筆者が作成した NkPrinter は、あまり TPrinter の知識をもっていなくても、簡単にプリンタの各種の制御を行うことができるオブジェクト(グローバル変数)です。紙に関する各種情報の取得、紙サイズ、ユーザ定義サイズ、給紙方法、印刷品質、両面印刷、カラー印刷、部単位の印刷、印刷部数などの取得／設定、プリンタの一覧の取得と切り替えなどが簡単に行えます。Delphi 3/4/5/6/7/2009 で動作します。

TPrinter をブラックボックス的に使いたいならこちらがお勧めです。以下の場所からダウンロードできます。フリーソフトで、どなたでも商用目的でもご利用いただけます。

中村の里 内のダウンロードエリア　最新版は 0.53 です。

11 TBigBitmapでビットマップをクリップボードに送るとOSがハングアップすることがある。

残念ながらこの問題は Windows 95系列の Windows の制限でどうしようもありません。

Windows 95系の OS は、16MB を越えるビットマップをクリップボードに送るとハングアップします。Windows 95系の OSには16MBを越えるビットマップをクリップボードに貼り付けないでください。

TBigBitmap はCF_DIB形式、つまり DIB をクリップボードに送ります。すると Windows 95系列の Windows はこれをもとに CF_BITMAP 形式、つまり DDB 形式のビットマップも作ろうとします。しかし、WIndows 95系列の Windows は 16MB 以上の DDB を作れないので、ハングアップしてしまいます。つまり、DIBをDDBに変換した後のビットマップの大きさが 16MB以上になるとハングアップします。

ハングアップせずにエラーになるのが正しいと思うのですが、残念ながら Windows　95 系列の Windows は悲しいことにそういう賢い設計にはなっていません。気をつけてください。