TGuiADSRGraph

type TGuiADSRGraph = class(TGuiCustomControl)

protected

  FA: Integer;

  FD: Integer;

  FS: Integer;

  FR: Integer;

  FCursorADR: TCursor;

  FCursorS: TCursor;

  FCursorDefault: TCursor;

  procedure GridStyleChanged; virtual;

  procedure GridWidthChanged; virtual;

  procedure GridColorChanged; virtual;

  procedure LineColorChanged; virtual;

  procedure LineWidthChanged; virtual;

  procedure UpdateBuffer; override;

  procedure Resize; override;

  procedure MouseUp(); override;

  procedure MouseDown(); override;

  procedure MouseMove(); override;

  procedure SettingsChanged(); dynamic;

  function CheckForMouseFunc(); dynamic;

public

  constructor Create(); override;

  destructor Destroy; override;

  property Attack: Single; [rw]

  property Decay: Single; [rw]

  property Sustain: Single; [rw]

  property Release: Single; [rw]

published

  property Color;

  property ParentColor;

  property ADSRSettings: TGuiADSRSettings; [rw]

  property OnAttackChange: TNotifyEvent; [rw]

  property OnDecayChange: TNotifyEvent; [rw]

  property OnSustainChange: TNotifyEvent; [rw]

  property OnReleaseChange: TNotifyEvent; [rw]

  property LineColor: TColor; [rw]

  property LineWidth: Integer; [rw]

  property GridColor: TColor; [rw]

  property GridWidth: Integer; [rw]

  property GridStyle: TGuiLineStyle; [rw]

  property CursorDefault: TCursor; [rw]

  property CursorADR: TCursor; [rw]

  property CursorS: TCursor; [rw]

end;

TGuiADSRGraph

TGuiCustomControl

TObject