TCustomBoard

type TCustomBoard = class(TCustomControl)

protected

  Receiver: TReceiver;

  procedure PostReceiver();

  function CheckReciver;

  function MapToCanvas();

  function MapToScreen();

  procedure WMGetDlgCode(); message;

  procedure MouseDown(); override;

  procedure MouseMove(); override;

  procedure MouseUp(); override;

  function DoMouseWheel(); override;

  procedure KeyDown(); override;

  procedure Paint; override;

  procedure Resize; override;

  procedure DoEnter; override;

  procedure DoExit; override;

  procedure Change; virtual;

  procedure Reset; virtual;

  procedure NextDesginElement;

  procedure PreviousDesginElement;

  procedure DeleteDesginElement;

  procedure BeginUpdate;

  procedure Update();

  procedure CheckUpdate;

  procedure EndUpdate;

  procedure SizeChanged;

  function DoGetCreateElement(); virtual;

  property SizeWedges: TSizeWedges; [r]

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Loaded; override;

  property ActiveElement: TElement; [rw]

  property CurrentLayout: TContainer; [rw]

  property Offset: TPoint; [rw]

  property Selected: TSelected; [r]

published

  property SnapSize: Integer; [rw]

  property ScaleSize: Integer; [rw]

  property BoardWidth: Integer; [rw]

  property BoardHeight: Integer; [rw]

  property ScrollBars: TScrollStyle; [rw]

  property Color;

  property Align;

  property Anchors;

  property AutoSize;

  property BiDiMode;

  property BorderWidth;

  property Caption;

  property Constraints;

  property DockSite;

  property DragCursor;

  property DragKind;

  property DragMode;

  property Enabled;

  property Visible;

  property OnGetCreateElement: TOnGetCreateElement; [rw]

end;

TCustomBoard

TObject