TplDesignSurface

type TplDesignSurface = class(TComponent)

protected

  FOnChange: TNotifyEvent;

  FOnGetAddClass: TplDesignGetAddClassEvent;

  FOnSelectionChange: TNotifyEvent;

  function GetAddBounds;

  function GetCount;

  function GetSelected;

  function GetSelectedContainer;

  function GetSelection();

  procedure BeginUpdate;

  procedure EndUpdate;

  procedure NeedContainer;

  procedure NeedController;

  procedure NeedMessenger;

  procedure NeedSelector;

  procedure ReaderError();

  procedure SetActive();

  procedure SetContainer();

  procedure SetSelection();

public

  constructor Create(); override;

  destructor Destroy; override;

  function Clear;

  function ContainerToSelectedContainer();

  function FindControl(); virtual;

  function GetCursor(); virtual;

  function GetHitHandle(); virtual;

  function IsDesignMessage();

  function LoadFromFile();

  function LoadFromStream();

  procedure AddComponent;

  procedure Change;

  procedure ClearSelection;

  procedure CopyComponents;

  procedure CutComponents;

  procedure DeleteComponents;

  procedure GetAddClass;

  procedure GrowComponents();

  procedure NudgeComponents();

  procedure PasteComponents;

  procedure SaveToFile();

  procedure SaveToStream();

  procedure Select();

  procedure SelectionChange;

  procedure SelectParent;

  procedure SetSelected();

  procedure UpdateDesigner; virtual;

  property Active: Boolean; [rw]

  property AddClass: string; [rw]

  property Controller: TplDesignCustomController; [r]

  property ControllerClass: TplDesignCustomControllerClass; [rw]

  property Count: Integer; [r]

  property Messenger: TplDesignCustomMessenger; [r]

  property MessengerClass: TplDesignCustomMessengerClass; [rw]

  property Selected: TplDesignObjectArray; [r]

  property SelectedContainer: TWinControl; [r]

  property Selection []: TControl; [rw]

  property Selector: TplDesignCustomSelector; [r]

  property SelectorClass: TplDesignCustomSelectorClass; [rw]

published

  property Container: TWinControl; [rw]

  property OnChange: TNotifyEvent; [rw]

  property OnGetAddClass: TplDesignGetAddClassEvent; [rw]

  property OnSelectionChange: TNotifyEvent; [rw]

end;

TplDesignSurface

TObject