| Class TScope (unit Scope) |
TGraphicControl
| Constructors |
constructor Create(AnOwner: TComponent);| Functions |
procedure Clear;
destructor Destroy;
procedure Free;
procedure Paint;
procedure Loaded;
procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);
procedure UpdateScope(Sender:TObject);
procedure SetActive(value:boolean);Set grid size
procedure SetBaseLine(value:integer);
procedure SetGridSize(value:integer);
procedure SetInterval(value:integer);| Properties |
property Active : boolean
property Basecolor : TColor
property Baseline : integer
property Color : TColor
property Gridcolor : TColor
property Gridsize : integer
property Height :
property Interval : Integer
property Linecolor : TColor
property Position : Integer
property Width : | Events |
event OnMouseDown :
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;
fColor : TColor;
fGridColor : TColor;
fGridSize : integer;
fInterval : integer;
fLineColor : TColor;
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 : TColorColor 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;