pascalSCADA OPM: hmi_draw_flow_pump: Class THMICustomFlowPump

Pascal SCADA OPM

Class THMICustomFlowPump

Unit

hmi_draw_flow_pump

Declaration

type THMICustomFlowPump = class(THMICustomBasicEletricMotor, IColorChangeNotification)

Description

THMICustomFlowPump

Hierarchy

Overview

Fields

Protected FInputPolyline: THMIFlowPolyline;
Protected FOutputPolyline: THMIFlowPolyline;
Protected FPumpStates: THMIFlowZones;
Protected FCurrentZone: THMIFlowZone;
Protected FOwnerZone: THMIFlowZone;
Protected FZoneTimer:TTimer;

Methods

Protected procedure AddNotifyCallback(WhoNotify:IColorChangeNotification);
Protected procedure RemoveNotifyCallback(WhoRemove:IColorChangeNotification);
Protected procedure NotifyFree(const WhoWasDestroyed:THMIFlowPolyline);
Protected procedure NotifyChange(const WhoChanged:THMIFlowPolyline);
Protected procedure SetInputPolyline(AValue: THMIFlowPolyline);
Protected procedure SetOutputPolyline(AValue: THMIFlowPolyline);
Protected procedure SetPumpStates(AValue: THMIFlowZones);
Protected procedure ShowZone(aZone:THMIFlowZone);
Protected procedure UpdateFlow; virtual;
Protected procedure PumpStateChanged(Sender: TObject);
Protected procedure PumpStateNeedsComponentState(var CurState: TComponentState);
Protected procedure NextZone(Sender: TObject);
Protected procedure Loaded; override;
Protected procedure UpdateValve; virtual;
Public constructor Create(AOwner: TComponent); override;
Public destructor Destroy; override;

Properties

Protected property InputPolyline: THMIFlowPolyline read FInputPolyline write SetInputPolyline;
Protected property OutputPolyline: THMIFlowPolyline read FOutputPolyline write SetOutputPolyline;
Protected property ColorAndFlowStates: THMIFlowZones read FPumpStates write SetPumpStates;

Description

Fields

Protected FInputPolyline: THMIFlowPolyline;
 
Protected FOutputPolyline: THMIFlowPolyline;
 
Protected FPumpStates: THMIFlowZones;
 
Protected FCurrentZone: THMIFlowZone;
 
Protected FOwnerZone: THMIFlowZone;
 
Protected FZoneTimer:TTimer;
 

Methods

Protected procedure AddNotifyCallback(WhoNotify:IColorChangeNotification);
 
Protected procedure RemoveNotifyCallback(WhoRemove:IColorChangeNotification);
 
Protected procedure NotifyFree(const WhoWasDestroyed:THMIFlowPolyline);
 
Protected procedure NotifyChange(const WhoChanged:THMIFlowPolyline);
 
Protected procedure SetInputPolyline(AValue: THMIFlowPolyline);
 
Protected procedure SetOutputPolyline(AValue: THMIFlowPolyline);
 
Protected procedure SetPumpStates(AValue: THMIFlowZones);
 
Protected procedure ShowZone(aZone:THMIFlowZone);
 
Protected procedure UpdateFlow; virtual;
 
Protected procedure PumpStateChanged(Sender: TObject);
 
Protected procedure PumpStateNeedsComponentState(var CurState: TComponentState);
 
Protected procedure NextZone(Sender: TObject);
 
Protected procedure Loaded; override;
 
Protected procedure UpdateValve; virtual;
 
Public constructor Create(AOwner: TComponent); override;
 
Public destructor Destroy; override;
 

Properties

Protected property InputPolyline: THMIFlowPolyline read FInputPolyline write SetInputPolyline;
 
Protected property OutputPolyline: THMIFlowPolyline read FOutputPolyline write SetOutputPolyline;
 
Protected property ColorAndFlowStates: THMIFlowZones read FPumpStates write SetPumpStates;
 

Generated by PasDoc 0.14.0.