adapterunit1.pas

来自「设计模式delphi版给想学delphi的朋友一个很有价值的参考」· PAS 代码 · 共 26 行

unit AdapterUnit1;

interface
uses Windows;
type
  TManipulator = class
  public
    constructor Create; virtual;
  end;

  TShape = class
  public
    constructor Create; virtual;
    procedure BoundingBox(bottomLeft, topRight: TPoint); virtual;
    function CreateManipulator(): Tmanipulator; virtual;
  end;

  TTextView = class
  public
    constructor Create; virtual;
    procedure GetOrigin(X, Y: Longint);
    procedure GetExtent(width, height: Longint);
    function IsEmpty(): Boolean;
  end;

  TTextShape = class(TShape) //钡