TplHeartMonitor

type TplHeartMonitor = class(TGraphicControl)

protected

  procedure DrawBackground;

  procedure DrawGrid;

  procedure Paint; override;

  procedure DrawSeries;

  property PopupMenu;

  procedure PopupMenuDraw();

  procedure PopupMeasureItem();

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure AddPoint();

  procedure PopupMenuClicked();

published

  property Align;

  property ColorBackground: TColor; [rw]

  property ColorGrid: TColor; [rw]

  property HGridCount: Byte; [rw]

  property Min: Integer; [rw]

  property Max: Integer; [rw]

  property HTickCount: Byte; [rw]

  property Hint;

  property ShowHint;

  property AppendValueToHint: Boolean; [rw]

  property OnColorQuery: TOnColorQuery; [rw]

  property OnClick;

  property OnDblClick;

  property OnDragDrop;

  property OnDragOver;

  property OnEndDock;

  property OnEndDrag;

  property OnMouseDown;

  property OnMouseMove;

  property OnMouseUp;

  property OnMouseEnter;

  property OnMouseLeave;

  property OnMouseWheel;

  property OnMouseWheelDown;

  property OnMouseWheelUp;

  property OnStartDock;

  property OnStartDrag;

end;

TplHeartMonitor

TObject