var MetaTemp: TMetafile;
  :
  :
MetaTemp := FixMetafileFor9x(OrgMeta, Printer.Handle);
try
  MetaCanvas.Draw(PaperInfo.LeftMargin+50, PaperInfo.TopMargin+50,
  MetaTemp);
finally
  MetaTemp.Free;
end;

function MakePreviewImage(OrgMeta: TMetafile; Ratio: Double): TMetafileEx;
var
  PaperInfo: TPaperInfo;
  Meta: TMetafileEx;
  MetaCanvas: TMetafileCanvas;
{$IFNDEF ORIGINAL} // 2002.5.22 (Ver. 1.1)
  MetaTemp: TMetafile;
{$ENDIF}
begin
  PaperInfo := GetPaperInfo;

  Meta := TMetafileEx.Create;
  try
    // 紙より大き目のメタファイルを作る
    Meta.Width := PaperInfo.PaperSize.Width + 150;
    Meta.Height := PaperInfo.PaperSize.Height + 150;
    MetaCanvas := TMetafileCanvas.Create(Meta, Printer.Handle);
    try
      // 紙のドロップシャドウを描く
      MetaCanvas.Brush.Color := clDkGray;
      MetaCanvas.FillRect(Rect(100, 100,
                               PaperInfo.PaperSize.Width+100,
                               PaperInfo.PaperSize.Height+100));
      // 紙を描く
      MetaCanvas.Brush.Color := clWhite;
      MetaCanvas.Rectangle(50, 50,
                           PaperInfo.PaperSize.Width+50,
                           PaperInfo.PaperSize.Height+50);

      // 印刷可能領域の描く
      MetaCanvas.Pen.Style := psDot;
      MetaCanvas.Rectangle(
        PaperInfo.LeftMargin+50, PaperInfo.TopMargin+50,
        PaperInfo.LeftMargin + 50 + PaperInfo.PrintableArea.Width,
        PaperInfo.TopMargin + 50 + PaperInfo.PrintableArea.Height);
      MetaCanvas.Pen.Style := psSolid;

      // 印刷可能領域にページイメージを描く
      {$IFDEF ORIGINAL} // 2002.5.22(Ver. 1.1)
      MetaCanvas.Draw(PaperInfo.LeftMargin+50, PaperInfo.TopMargin+50,
                      OrgMeta);
      {$ELSE}
      MetaTemp := FixMetafileFor9x(OrgMeta, Printer.Handle);
      try
        MetaCanvas.Draw(PaperInfo.LeftMargin+50, PaperInfo.TopMargin+50,
                        MetaTemp);
      finally
        MetaTemp.Free;
      end;
      {$ENDIF}
    finally
      MetaCanvas.Free;
    end;
    // 描画の大きさがスクリーンデバイスを基準にするようにする(Inch<>0)
    Meta.Inch := 1;
    // 描画サイズを指定に合わせる
    Meta.Width := Round(Meta.Width * Ratio);
    Meta.Height := Round(Meta.Height * Ratio);
    Result := Meta;
  except
    MEta.Free;
    raise;
  end;
end;

          {$IFDEF ORIGINAL} // 2002.5.22(Ver. 1.1)
          ExtTextOutW(PrintPreview1.Canvas.Handle,
                      LeftMargin - PaperInfo.LeftMargin + Offset,
                      TopMargin - PaperInfo.TopMargin +
                      WrittenLines * LineSpace,
                      0, Nil, PWideChar(WS), FittedChars, PInteger(DXs));
          {$ELSE}
          DHGLExtTextOutW(PrintPreview1.Canvas.Handle,
                      LeftMargin - PaperInfo.LeftMargin + Offset,
                      TopMargin - PaperInfo.TopMargin +
                      WrittenLines * LineSpace,
                      0, Nil, PWideChar(WS), FittedChars, PInteger(DXs));
          {$ENDIF}

procedure TMainForm.FormCreate(Sender: TObject);
var
  Settings: TPrinterSettings;
  MaxCopies: Integer;
begin
  // プリンタ設定を得る
  Settings := GetPrinterSettings;
  try
    if (Settings.pDev.dmFields and DM_COLOR) = 0 then
    begin
      // カラー印刷がサポートされていなければ、チェックボックスを
      // Disable する。
      ColorCheckBox.Enabled:= True;
    end;
    {$IFDEF ORIGINAL}
    if (Settings.pDev.dmFields and DM_COPIES) = 0 then
    {$ELSE}
    if (Settings.pDev.dmFields and DM_COPIES) <> 0 then
    {$ENDIF}
    begin
      // 部数がサポートされている場合は最大部数を取得する。
      MaxCopies := DeviceCapabilities(Settings.Device, Settings.Port,
                                      DC_COPIES, Nil,
                                      Settings.pDev);
      MaxCopiesLabel.Caption := IntToStr(MaxCopies);

      // UpDown コントロールの範囲を １〜最大部数にする。
      CopiesUpDown.Min := 1;
      CopiesUpDown.Max := MaxCopies;
    end
    else
    begin
      {$IFDEF ORIGINAL}
      MaxCopiesLabel.Caption := '99999';
      // UpDown コントロールの範囲を １〜最大部数にする。
      CopiesUpDown.Min := 1;
      CopiesUpDown.Max := MaxCopies;
      {$ELSE}
      MaxCopiesLabel.Caption := '9999';
      // UpDown コントロールの範囲を １〜最大部数にする。
      CopiesUpDown.Min := 1;
      CopiesUpDown.Max := 9999;
      {$ENDIF}
    end;
  finally
    // プリンタの設定を捨てる
    SetPrinterSettings(Settings, False);
  end;
end;

:Base DHGL.hlp>Main
:Title Delphi High-Level Graphic Library(DHGL 1.1)
:Index DHGL=DHGL.hlp
1 Delphi High-Level Graphic Library(DHGL 1.1)
2 はじめに = APH_00002
2 DHGL のインストール方法 = APH_00136
2 このヘルプのインストール方法 = APH_00135
2 更新履歴 = APH_00131
2 BigBitmap ユニット
3 TBigBitmap クラス = TBigBitmap
2 BitmapEx ユニット
3 TBitmapEx クラス = APH_00058
2 BitmapUtils ユニット
3 AffineTransformBitmap 関数 = APH_00062
3 BitmapFilter 関数 = APH_00068
3 Enlarge 関数 = APH_00065
3 HorzMirrorBitmap 関数 = APH_00063
3 RotateBitmap 関数 = APH_00061
3 Shrink 関数 = APH_00066
3 Stretch 関数 = APH_00067
3 StretchBitmap 関数 = APH_00060
3 TransformBitmap 関数 = APH_00059
3 TTriple レコード型 = APH_00091
3 TTripleArray 配列型 = APH_00092
3 VertMirrorBitmap 関数 = APH_00064
2 DIBUtils ユニット
3 Convert4BitRLETo4BitRGB 手続き = APH_00086
3 Convert8BitRLETo8BitRGB 手続き = APH_00088
3 CreatePaletteFromDIB 関数 = APH_00090
3 DIB32_16ToDIB24 手続き = APH_00089
3 LoadDIBFromStream 手続き = APH_00069
3 SaveDIBToStream 手続き = APH_00085
3 TSepDIB レコード = APH_00087
2 ErrDef ユニット
3 ErrorDefusion 関数 = APH_00070
3 TQuantizeColor 抽象クラス = APH_00093
2 Gradation ユニット
3 TGradation クラス = APH_00071
2 GradationControl ユニット
3 GradationControl コントロール = APH_00072
2 IconEx ユニット
3 TIconEx クラス = APH_00073
2 MedianCut ユニット
3 ReduceColorsByMedianCut 関数 = APH_00094
3 ReduceColorsByMedianCutV 関数 = APH_00095
3 ReduceColorsByMedianCutED 関数 = APH_00096
3 ReduceColorsByMedianCutVED 関数 = APH_00097
3 TMedianCut クラス = APH_00074
2 MetafileEx ユニット
3 TMetafileEx クラス = APH_00075
2 MetafileUtils ユニット
3 AdjustFont 手続き = APH_00076
3 AdjustPhysicalInch 手続き = APH_00098
3 DHGLExtTextOut 関数(DHGL 1.1 で追加) = APH_00138
3 DHGLExtTextOutW 関数(DHGL 1.1 で追加) = APH_00139
3 FixMetafileFor9X　関数(DHGL 1.1 で追加) = APH_00137
2 NkMM ユニット、NkShareMem ユニット
3 説明 = APH_00134
2 Octree ユニット
3 ReduceColorsByOctree 関数 = APH_00099
3 TOctree クラス = APH_00077
2 PathUtils ユニット
3 DrawArc 手続 = APH_00101
3 DrawAngleArc 手続き = APH_00102
3 DrawAngleChord 手続き = APH_00106
3 DrawAnglePie 手続き = APH_00104
3 DrawChord 手続き = APH_00105
3 DrawEllipse 手続き = APH_00108
3 DrawFigure 手続き = APH_00109
3 DrawPath 手続き = APH_00110
3 DrawPie 手続き = APH_00103
3 DrawRectangle 手続き = APH_00107
3 DrawRoundRect 手続き = APH_00130
3 TPointInfo レコード = APH_00100
3 TPath クラス = APH_00078
2 PrinterUtils ユニット
3 GetPaperInfo 関数 = APH_00079
3 GetPaperNames 手続き = APH_00113
3 GetPaperNumbers 手続き = APH_00112
3 GetPaperSizes 手続き = APH_00114
3 GetPrinterSettings 関数 = APH_00115
3 SetPrinterSettings 手続き = APH_00117
3 TPaperInfo レコード = APH_00111
3 TPrinterSettings レコード = APH_00116
2 PrintPreview ユニット
3 PrintPreview コンポーネント = PrintPreview
2 RegionUtils ユニット
3 TRgnFillMode 列挙型 = APH_00127
3 TRegion クラス = APH_00081
3 TRgnOperartion 列挙型 = APH_00126
2 ROPUtils ユニット
3 ModifyDIBForROP 手続き = APH_00082
2 StaticErrDef ユニット
3 StaticErrorDefusion 関数 = APH_00083
2 TextUtils ユニット
3 GetTextAAdjust 関数 = APH_00084
3 GetTextCAdjust 関数 = APH_00128
3 GetTextPosition 関数 = APH_00129
1 プロパティ
2 TBigBitmap.Canvas プロパティ = TBigBitmap.Canvas
2 TBigBitmap.DrawMode プロパティ = TBigBitmap.DrawMode
2 TBigBitmap.Empty プロパティ = TBigBitmap.Empty
2 TBigBitmap.Height プロパティ = TBigBitmap.Height
2 TBigBitmap.Modified プロパティ = TBigBitmap.Modified
2 TBigBitmap.Palette プロパティ = TBigBitmap.Palette
2 TBigBitmap.PaletteModified プロパティ = TBigBitmap.PaletteModified
2 TBigBitmap.PixelFormat プロパティ = TBigBitmap.PixelFormat
2 TBigBitmap.Preview プロパティ = TBigBitmap.Preview
2 TBigBitmap.Scanline プロパティ = TBigBitmap.Scanline
2 TBigBitmap.Transparent プロパティ = TBigBitmap.Transparent
2 TPrintPreview.Canvas プロパティ = TPrintPreview.Canvas
2 TPrintPreview.PageCount プロパティ = TPrintPreview.PageCount
2 TPrintPreview.Pages プロパティ = TPrintPreview.Pages
1 メソッド
2 TBigBitmap.Assign メソッド = TBigBitmap.Assign
2 TBigBitmap.Create メソッド = TBigBitmap.Create
2 TBigBitmap.Destroy メソッド = TBigBitmap.Destroy
2 TBigBitmap.LoadFromClipboardFormat メソッド = TBigBitmap.LoadFromClipboardFormat
2 TBigBitmap.LoadFromFile メソッド = TBigBitmap.LoadFromFile
2 TBigBitmap.SaveToClipboardFormat メソッド = TBigBitmap.SaveToClipboardFormat
2 TBigBitmap.LoadFromStream メソッド = TBigBitmap.LoadFromStream
2 TBigBitmap.SaveToFile メソッド = TBigBitmap.SaveToFile
2 TBigBitmap.SaveToStream メソッド = TBigBitmap.SaveToStream
2 TPrintPreview.BeginDoc メソッド = TPrintPreview.BeginDoc
2 TPrintPreview.EndDoc メソッド = TPrintPreview.EndDoc
2 TPrintPreview.NewPage メソッド = TPrintPreview.NewPage
1 イベント
2 TBigBitmap.OnChange イベント = TBigBitmap.OnChange
2 TBigBitmap.OnProgress イベント = TBigBitmap.OnProgress
1 ２次ウィンドウ
2 TBigBitmap プロパティ = APH_00025
2 TBigBitmap メソッド = APH_00032
2 TBigBitmap イベント = APH_00057
2 PrintPreview コンポーネントのプロパティ = APH_00118
2 PrintPreview コンポーネントのメソッド = APH_00123

unit NkMM;

interface

function SysGetMem(Size: Integer): Pointer;
function SysFreeMem(P: Pointer): Integer;
function SysReallocMem(P: Pointer; Size: Integer): Pointer;

type
TNkMMStatus = record
  AllocatedFromMM: LongWord;
  OSMemoryUsedByMM: LongWord;
end;

procedure GetMMStatus(var mms: TNkMMStatus);

procedure InitMM;  // この行を追加

implementation

unit NkShareMem;

interface

function SysGetMem(Size: Integer): Pointer;
function SysFreeMem(P: Pointer): Integer;
function SysReallocMem(P: Pointer; Size: Integer): Pointer;

type
  TNkMMStatus = record
  AllocatedFromMM: LongWord;
  OSMemoryUsedByMM: LongWord;
end;

procedure InitMemoryManager;  // この行を追加

procedure GetMMStatus(var mms: TNkMMStatus);


implementation

#include <NkMM.hpp>

void InitializeMemoryManager(void)
{
  #pragma startup InitializeMemoryManager 0
  Nkmm::InitMM();
}

#include <NkShareMem.hpp>

void InitializeMemoryManager(void)
{
  #pragma startup InitializeMemoryManager 0
  Nksharemem::InitMemoryManager();
}

procedure DrawPath(Path: TPath; ACanvas: TCanvas;
                   Color: TColor; Width: Integer;
                   PenStyle: array of Double;
                   Cap: TCapStyle = csFlat);
var
  FirstIndex: Integer;  // 図形の先頭座標のインデックス
  LastIndex: Integer;   // 図形の最終座標の次の座標のインデックス
  Points: array of TPoint;
  i: Integer;
begin
  LastIndex := 0;

{$IFDEF ORIGINAL} // 2003.5.3 修正 DHGL 1.3
  while LastIndex < Path.Count do  // パスが終わるまで
{$ELSE}
  while LastIndex < Path.Count -1 do  // パスが終わるまで
{$ENDIF}
  begin
    // 図形情報を取り出す
    FirstIndex := LastIndex;
{$IFDEF ORIGINAL}
    if FirstIndex + 1 < Path.Count-1 then
    begin
{$ENDIF}
      LastIndex := FirstIndex+1;
      // 図形の末尾(パスの終わり or MoveToまで)
      while (LastIndex < Path.Count) and
            (Path.Points[LastIndex].Figure <> ptMoveTo) do
        Inc(LastIndex);

      // 図形の座標(折れ線)を取り出す
      if LastIndex - FirstIndex >= 2 then
        // 閉じた図形なら折れ線に元に戻る線も加える
        if Path.Points[LastIndex-1].CloseFigure then
        begin
          SetLength(Points, LastIndex - FirstIndex +1);
          for i := FirstIndex to LastIndex-1 do
            Points[i-FirstIndex] := Path.Points[i].Point;
          Points[LastIndex-FirstIndex] := Path.Points[FirstIndex].Point;
        end
        else
        // 開いた図形なら座標をコピーするだけ
        begin
          SetLength(Points, LastIndex - FirstIndex);
          for i := FirstIndex to LastIndex-1 do
            Points[i - FirstIndex] := Path.Points[i].Point;
        end;
      // 折れ線を指定されたスタイルで描く
      DrawFigure(Points, ACanvas, Color, Width, PenStyle, Cap);
{$IFDEF ORIGINAL} // 2003.5.3 修正 DHGL 1.3
    end;
{$ENDIF}
  end;
end;