| Class TController (unit controlr) |
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);| Functions |
destructor Destroy;
procedure Change(sender:Tobject);
procedure Loaded;
procedure ModeClick(sender:TObject);
procedure Paint;
procedure Resize;
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 :
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;
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;