Class TController (unit controlr)

Inherits from

TCustomPanel

A Delphi 2.0 component that represents an industrial process controller. Version 1.0 April 20, 1997 Mark S. Bohn Compuserve 75051,3240

Constructors


constructor Create(AOwner:Tcomponent);

Public declarations


Functions

destructor Destroy;


procedure Change(sender:Tobject);


procedure Loaded;


procedure ModeClick(sender:TObject);


procedure Paint;


procedure Resize;

Protected declarations

procedure ButtonClick(Sender:TObject);


procedure ButtonDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure ButtonUp (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure ResizeSubcomponents;


procedure SetCaption(value:string);


procedure SetDigits(value:integer);


procedure SetLEDColor(value:Tcolor);


procedure SetPV(value:double);


procedure SetSP(value:double);


procedure TimerExpired(sender:Tobject);


Properties

property Align :

Published declarations

property Caption : string


property Color :


property Digits : integer


property Enabled :


property LEDColor : TColor


property MaxSp : double


property MinSp : double


property PopupMenu :


property PV : double


property ShowHint :


property SP : double


property SPincrement : double


property TabOrder :


property Visible :


Events

event OnChange : TNotifyEvent


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnModeClick : TNotifyEvent


event OnMouseDown :


event OnMouseUp :


Variables

fCaption : string;


fcaptionLabel : Tlabel;


fChangeTimer : TTimer;


fDigits : integer;


fdnButton : TSpeedButton;


fIncCounter : integer;


fLEDColor : TColor;


fLEDPanel : TPanel;

Private declarations

fMaxSp : double;


fMinSp : double;


fmodeButton : TSpeedButton;


fOnChange : TNotifyEvent;


fOnModeClick : TNotifyEvent;


fPV : double;


fpvLabel : TLabel;


fpvVal : TLabel;


fRepeatTimer : TTimer;


fSP : double;


fspIncrement : double;


fspLabel : TLabel;


fspVal : TLabel;


fupButton : TSpeedButton;


fUpButtonPushed : boolean;



Constructors


constructor Create(AOwner:Tcomponent);

Public declarations


Functions


destructor Destroy;


procedure Change(sender:Tobject);


procedure Loaded;


procedure ModeClick(sender:TObject);


procedure Paint;


procedure Resize;

Protected declarations


procedure ButtonClick(Sender:TObject);


procedure ButtonDown (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure ButtonUp (Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);


procedure ResizeSubcomponents;


procedure SetCaption(value:string);


procedure SetDigits(value:integer);


procedure SetLEDColor(value:Tcolor);


procedure SetPV(value:double);


procedure SetSP(value:double);


procedure TimerExpired(sender:Tobject);


Properties


property Align :

Published declarations


property Caption : string


property Color :


property Digits : integer


property Enabled :


property LEDColor : TColor


property MaxSp : double


property MinSp : double


property PopupMenu :


property PV : double


property ShowHint :


property SP : double


property SPincrement : double


property TabOrder :


property Visible :


Events


event OnChange : TNotifyEvent


event OnClick :


event OnDblClick :


event OnDragDrop :


event OnDragOver :


event OnModeClick : TNotifyEvent


event OnMouseDown :


event OnMouseUp :


Variables


fCaption : string;


fcaptionLabel : Tlabel;


fChangeTimer : TTimer;


fDigits : integer;


fdnButton : TSpeedButton;


fIncCounter : integer;


fLEDColor : TColor;


fLEDPanel : TPanel;

Private declarations


fMaxSp : double;


fMinSp : double;


fmodeButton : TSpeedButton;


fOnChange : TNotifyEvent;


fOnModeClick : TNotifyEvent;


fPV : double;


fpvLabel : TLabel;


fpvVal : TLabel;


fRepeatTimer : TTimer;


fSP : double;


fspIncrement : double;


fspLabel : TLabel;


fspVal : TLabel;


fupButton : TSpeedButton;


fUpButtonPushed : boolean;