Die selben Routinen für Canvas und MetafileCanvas verwenden.

[Bjoerk]

Das seh ich doch richtig, daß man (auch) ein MetafileCanvas als TCanvas übergeben kann, oder ? // ****

Delphi-Quellcode:

  TDingsBums = class
  private
    ..
  public
    procedure Draw;
    constructor Create(ACanvas: TCanvas); // *** hier
  end;


  // Graphics.pas
  TMetafileCanvas = class(TCanvas)
  private
    FMetafile: TMetafile;
  public
    constructor Create(AMetafile: TMetafile; ReferenceDevice: HDC);
    constructor CreateWithComment(AMetafile: TMetafile; ReferenceDevice: HDC;
      const CreatedBy, Description: String);
    destructor Destroy; override;
  end;