adapterunit1.pas

DELPHI设计模式书籍

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) //钡