Class THMICustomFlowPump

Unit

hmi_draw_flow_pump

Declaration

type THMICustomFlowPump = class(THMICustomBasicEletricMotor, IColorChangeNotification)

Description

THMICustomFlowPump

Hierarchy

• TCustomControl
• THMIBasicControl
• THMICustomBasicEletricMotor
• THMICustomFlowPump

Overview

Fields

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

Methods

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

Properties

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

Description

Fields

	FInputPolyline: THMIFlowPolyline;

	FOutputPolyline: THMIFlowPolyline;

	FPumpStates: THMIFlowZones;

	FCurrentZone: THMIFlowZone;

	FOwnerZone: THMIFlowZone;

	FZoneTimer:TTimer;

Methods

	procedure AddNotifyCallback(WhoNotify:IColorChangeNotification);

	procedure RemoveNotifyCallback(WhoRemove:IColorChangeNotification);

	procedure NotifyFree(const WhoWasDestroyed:THMIFlowPolyline);

	procedure NotifyChange(const WhoChanged:THMIFlowPolyline);

	procedure SetInputPolyline(AValue: THMIFlowPolyline);

	procedure SetOutputPolyline(AValue: THMIFlowPolyline);

	procedure SetPumpStates(AValue: THMIFlowZones);

	procedure ShowZone(aZone:THMIFlowZone);

	procedure UpdateFlow; virtual;

	procedure PumpStateChanged(Sender: TObject);

	procedure PumpStateNeedsComponentState(var CurState: TComponentState);

	procedure NextZone(Sender: TObject);

	procedure Loaded; override;

	procedure UpdateValve; virtual;

	constructor Create(AOwner: TComponent); override;

	destructor Destroy; override;

Properties

	property InputPolyline: THMIFlowPolyline read FInputPolyline write SetInputPolyline;

	property OutputPolyline: THMIFlowPolyline read FOutputPolyline write SetOutputPolyline;

	property ColorAndFlowStates: THMIFlowZones read FPumpStates write SetPumpStates;

---

Generated by PasDoc 0.14.0.