TplControlsCell

type TplControlsCell = class(TCustomControl)

protected

  procedure SetFixedHeight();

  procedure SetFixedWidth();

  procedure SetCol();

  procedure SetSpanCol();

  procedure SetRow();

  procedure SetSpanRow();

  procedure AdjustClientRect(); override;

  procedure DefineProperties(); override;

  procedure ReadGrid();

  procedure WriteGrid();

public

  constructor Create(); override;

  procedure Paint; override;

  property Col: Integer; [rw]

  property Row: Integer; [rw]

published

  property FixedHeight: Boolean; [rw]

  property FixedWidth: Boolean; [rw]

  property SpanCol: Integer; [rw]

  property SpanRow: Integer; [rw]

  property Align;

  property Color;

  property OnClick;

  property OnDblClick;

  property OnPaint;

  property OnResize;

  property OnChangeBounds;

  property OnContextPopup;

  property OnEndDrag;

  property OnMouseDown;

  property OnMouseUp;

  property OnMouseEnter;

  property OnMouseLeave;

  property OnMouseMove;

  property OnMouseWheel;

  property OnMouseWheelDown;

  property OnMouseWheelUp;

  property OnMouseWheelHorz;

  property OnMouseWheelLeft;

  property OnMouseWheelRight;

  property OnDragDrop;

  property OnDragOver;

  property OnStartDrag;

  property OnStartDock;

  property OnEndDock;

end;

TplControlsCell

TObject