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;

[Uwe Raabe]

Ja, wieso?

[Bjoerk]

Weil ich einmal auf ein PainboxCanvas zeichne und einmal auf ein MetaFileCanvas und ich nicht jede Methode doppelt haben will. Denke mal daß TMetafileCanvas auf das geerbte Canvas zeichnet, ich also ohne Cast auskomme. Richtig?

[Sir Rufo]

TCanvas ist eine abstrakte Klasse und gibt nur die Methoden vor.

Die echten Aktionen werden nur von den konkreten Nachfolgern ausgeführt.

Somit hat man niemals eine pure TCanvas Instanz vor sich, sondern immer eine Ableitung davon.

PS Das ist ein wesentliches Merkmal von OOP

[Bjoerk]

Von mir aus.. Woher hat das Canvas dann aber das Cliprect? Anyway.. Ist die in #3 getroffene Annahme nun korrekt oder nicht?

[Sir Rufo]

Zitat von Bjoerk:

Von mir aus.. Woher hat das Canvas dann aber das Cliprect? Anyway.. Ist die in #3 getroffene Annahme nun korrekt oder nicht?

Das wurde in #2 doch schon beantwortet?

[Bjoerk]

OK. Thanx.