Class TScope (unit Scope)

Inherits from

TGraphicControl

Constructors


constructor Create(AnOwner: TComponent);

--- TSCOPE -----------------------------------------------------------------


Functions

procedure Clear;

Finished loading, now allow redraw when control is changed

destructor Destroy;

Free control and all internal objects

procedure Free;

// Draws a line from 0,baseline to width, new pos Pen.

procedure Paint;

Draw position for line

procedure Loaded;

Create control and background draw buffer and timer

procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);

Called by timer to show updates

procedure UpdateScope(Sender:TObject);

Start scrolling

procedure SetActive(value:boolean);

Update speed in 1/10 seconds

Set grid size


procedure SetBaseLine(value:integer);


procedure SetGridSize(value:integer);

Set Scroll delay

procedure SetInterval(value:integer);

Set base-linje value

Properties

property Active : boolean


property Basecolor : TColor


property Baseline : integer


property Color : TColor

Color properties

property Gridcolor : TColor


property Gridsize : integer


property Height :

Standard properties

property Interval : Integer


property Linecolor : TColor


property Position : Integer


property Width :


Events

event OnMouseDown :

Standard events

event OnMouseMove :


event OnMouseUp :


event OnUpdate : TNotifyEvent


Variables

CalcBase : integer;


Counter : integer;


Oldpos : integer;


PrevPos : integer;


DrawBuffer : TBitmap;


DrawTimer : TTimer;


fActive : boolean;


fAllowed : boolean;


fBaseColor : TColor;


fBaseLine : integer;

Position line color

fColor : TColor;

Baseline color

fGridColor : TColor;

Background color

fGridSize : integer;


fInterval : integer;

Value to plot

fLineColor : TColor;

Grid line color

fOnUpdate : TNotifyEvent;


fPosition : integer;



Constructors


constructor Create(AnOwner: TComponent);

--- TSCOPE -----------------------------------------------------------------


Functions


procedure Clear;

Finished loading, now allow redraw when control is changed


destructor Destroy;

Free control and all internal objects


procedure Free;

// Draws a line from 0,baseline to width, new pos Pen.Color:=FLineColor; MoveTo(0,height); LineTo(Width,height-round(height/100*position));


procedure Paint;

Draw position for line


procedure Loaded;

Create control and background draw buffer and timer


procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);

Called by timer to show updates


procedure UpdateScope(Sender:TObject);

Start scrolling


procedure SetActive(value:boolean);

Update speed in 1/10 seconds

Set grid size


procedure SetBaseLine(value:integer);


procedure SetGridSize(value:integer);

Set Scroll delay


procedure SetInterval(value:integer);

Set base-linje value


Properties


property Active : boolean


property Basecolor : TColor


property Baseline : integer


property Color : TColor

Color properties


property Gridcolor : TColor


property Gridsize : integer


property Height :

Standard properties


property Interval : Integer


property Linecolor : TColor


property Position : Integer


property Width :


Events


event OnMouseDown :

Standard events


event OnMouseMove :


event OnMouseUp :


event OnUpdate : TNotifyEvent


Variables


CalcBase : integer;


Counter : integer;


Oldpos : integer;


PrevPos : integer;


DrawBuffer : TBitmap;


DrawTimer : TTimer;


fActive : boolean;


fAllowed : boolean;


fBaseColor : TColor;


fBaseLine : integer;

Position line color


fColor : TColor;

Baseline color


fGridColor : TColor;

Background color


fGridSize : integer;


fInterval : integer;

Value to plot


fLineColor : TColor;

Grid line color


fOnUpdate : TNotifyEvent;


fPosition : integer;