TJvSimScope

type TJvSimScope = class(TGraphicControl)

protected

  FCalcBase: Integer;

  FStepPixelWidth: Double;

  FCounter: Double;

  procedure DrawTimerTimer();

  function GetLinePixelPosition();

  procedure Loaded; override;

  procedure Resize; override;

public

  procedure Paint; override;

  constructor Create(); override;

  procedure UpdateScope;

  destructor Destroy; override;

  procedure Clear;

  procedure ClearValues;

  procedure SetBounds(); override;

published

  property Active: Boolean; [rw]

  property BaseColor: TColor; [rw]

  property BaseLine: Integer; [rw]

  property BaseLineUnit: TJvScopeLineUnit; [rw]

  property Color;

  property DisplayUnits: TJvSimScopeDisplayUnit; [rw]

  property GridColor: TColor; [rw]

  property GridSize: Integer; [rws]

  property HorizontalGridSize: Integer; [rw]

  property Height;

  property Interval: Integer; [rw]

  property Lines: TJvScopeLines; [rw]

  property Minimum: Integer; [rw]

  property Maximum: Integer; [rw]

  property TotalTimeSteps: Integer; [rw]

  property UpdateTimeSteps: Integer; [rw]

  property VerticalGridSize: Integer; [rw]

  property Width;

  property OnUpdate: TNotifyEvent; [rw]

  property Align;

  property Anchors;

  property BorderSpacing;

  property ParentShowHint;

  property ShowHint;

  property Visible;

  property OnClick;

  property OnConstrainedResize;

  property OnDblClick;

  property OnDragDrop;

  property OnDragOver;

  property OnEndDock;

  property OnEndDrag;

  property OnMouseDown;

  property OnMouseEnter;

  property OnMouseLeave;

  property OnMouseMove;

  property OnMouseUp;

  property OnMouseWheel;

  property OnMouseWheelDown;

  property OnMouseWheelUp;

  property OnResize;

  property OnStartDock;

  property OnStartDrag;

end;

TJvSimScope

TObject