TplDesignDesigner

type TplDesignDesigner = class(TIDesigner)

public

  DDC: TDesignerDeviceContext;

  constructor Create();

  procedure Modified;

  procedure Notification();

  function GetCustomForm;

  procedure SetCustomForm();

  function GetIsControl;

  procedure SetIsControl();

  function IsDesignMsg(); override;

  procedure PaintGrid; override;

  procedure ValidateRename();

  function UniqueName(); override;

  function GetRoot;

  property Messenger: TplDesignCustomMessenger; [rw]

  property IsControl: Boolean; [rw]

  property Form: TCustomForm; [rw]

end;

TplDesignDesigner

TObject