TCustomECConfCurve

type TCustomECConfCurve = class(TGraphicControl)

protected

const

  cDefLineWidth = 2

  cDefOptions = [ecoAntiAliasing, ecoShowGrid, ecoWheelShifts]

  cDefPointSize = 7

  cMinHovered = - 1

  cMaxHovered = - 2

protected

type

  TPointPos = (

  eppMiddle,

  eppLeftSide,

  eppRightSide

);

protected

  FCursorBkgnd: TCursor;

  FCursorLock: Boolean;

  FDragging: Boolean;

  FHovered: SmallInt;

  FInitPoint: TPoint;

  FRealRevered: Boolean;

  FUpdateCount: Integer;

  FXHelp: Single;

  FYHelp: Single;

  class function GetControlClassDefaultSize; override;

  procedure Calculate;

  procedure ChangeBounds(); override;

  procedure ChangeCursor();

  procedure CMBiDiModeChanged(); message;

  function DoMouseWheel(); override;

  function GetCanvasPoint();

  function GetPointRect();

  procedure InvalidateNonUpdated;

  procedure MouseDown(); override;

  procedure MouseLeave; override;

  procedure MouseMove(); override;

  procedure MouseUp(); override;

  procedure Paint; override;

  procedure SetCursor(); override;

public

  Points: array of TCurvePoint;

  constructor Create(); override;

  function AddPoint;

  procedure BeginUpdate;

  procedure ClearPoints;

  procedure DeletePoint();

  procedure EndUpdate;

  function CoordToValueX();

  function CoordToValueY();

  function GetValueAtX();

  function GetXForValue();

  procedure InsertPoint();

  property GridX: Single; [rw]

  property GridY: Single; [rw]

  property GridColor: TColor; [rw]

  property GuideColor: TColor; [rw]

  property LineColor: TColor; [rw]

  property LineWidth: SmallInt; [rw]

  property MaxX: Single; [rw]

  property MaxY: Single; [rw]

  property MinX: Single; [rw]

  property MinY: Single; [rw]

  property Options: TCurveOptions; [rw]

  property PointColor: TColor; [rw]

  property PointColorFixed: TColor; [rw]

  property PointSize: SmallInt; [rw]

  property Smoothness: Single; [rw]

  property SnapGrid: Single; [rw]

  property Style: TCurveStyle; [rw]

  property ValueAtMax: Single; [rw]

  property ValueAtMin: Single; [rw]

  property WheelShift: Single; [rw]

  property OnChange: TNotifyEvent; [rw]

end;

TCustomECConfCurve

TObject