Class TScope (unit Scope) |
Inherits from
TGraphicControl
constructor Create(AnOwner: TComponent);
- --- TSCOPE -----------------------------------------------------------------
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
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 :
event OnMouseDown :
Standard events
event OnMouseMove :
event OnMouseUp :
event OnUpdate : TNotifyEvent
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;
constructor Create(AnOwner: TComponent);
--- TSCOPE -----------------------------------------------------------------
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
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 :
event OnMouseDown :
Standard events
event OnMouseMove :
event OnMouseUp :
event OnUpdate : TNotifyEvent
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;