Class TTrend (unit Trend)

Inherits from

TPanel

Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions

procedure Add( NewVal:Integer );

Redraw

procedure AddBase( NewVal:Integer );

Redraw

procedure Clear;

Redraw

procedure ClearBase;

Redraw

procedure Demo;

Limit Brightness change to prvent colour change

destructor Destroy;


function Get( i:Integer ) : Integer;

Redraw

function GetBase( i:Integer ) : Integer;


procedure Paint;

Protected declarations

function Brightness( OriginalColor:TColor;Change:Integer ) : TColor;


procedure SetColorBase( Value:TColor );


procedure SetDivisions( Value:Integer );


procedure SetMaxVal( Value:Integer );


procedure SetMinVal( Value:Integer );


procedure SetOptions( Value:TTrendOptions );


procedure SetStyle( Value:TTrendStyle );


Properties

property ColorBase : TColor


property Divisions : Integer


property MaxVal : Integer


property MinVal : Integer

Published declarations

property Options : TTrendOptions


property Style : TTrendStyle


Events

Variables

FBaseVals : array [0..99] of Integer;


FColorBase : TColor;


FDivisions : Integer;


FMaxVal : Integer;


FMinVal : Integer;


FOptions : TTrendOptions;


FStyle : TTrendStyle;


Fvals : array [0..99] of Integer;

Private declarations

H_3d : Integer;


W_3d : Integer;



Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions


procedure Add( NewVal:Integer );

Redraw


procedure AddBase( NewVal:Integer );

Redraw


procedure Clear;

Redraw


procedure ClearBase;

Redraw


procedure Demo;

Limit Brightness change to prvent colour change


destructor Destroy;


function Get( i:Integer ) : Integer;

Redraw


function GetBase( i:Integer ) : Integer;


procedure Paint;

Protected declarations


function Brightness( OriginalColor:TColor;Change:Integer ) : TColor;


procedure SetColorBase( Value:TColor );


procedure SetDivisions( Value:Integer );


procedure SetMaxVal( Value:Integer );


procedure SetMinVal( Value:Integer );


procedure SetOptions( Value:TTrendOptions );


procedure SetStyle( Value:TTrendStyle );


Properties


property ColorBase : TColor


property Divisions : Integer


property MaxVal : Integer


property MinVal : Integer

Published declarations


property Options : TTrendOptions


property Style : TTrendStyle


Events


Variables


FBaseVals : array [0..99] of Integer;


FColorBase : TColor;


FDivisions : Integer;


FMaxVal : Integer;


FMinVal : Integer;


FOptions : TTrendOptions;


FStyle : TTrendStyle;


Fvals : array [0..99] of Integer;

Private declarations


H_3d : Integer;


W_3d : Integer;