Class THMICustomFlowValve

Unit

hmi_draw_flow_valve

Declaration

type THMICustomFlowValve = class(THMICustomBasicValve, IColorChangeNotification)

Description

THMIBasicValve

Hierarchy

• TCustomControl
• THMIBasicControl
• THMICustomBasicValve
• THMICustomFlowValve

Overview

Fields

	FInputPolyline: THMIFlowPolyline;
	FOutputPolyline: THMIFlowPolyline;
	FValveStates: 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 SetValveStates(AValue: THMIFlowZones);
	procedure ShowZone(aZone:THMIFlowZone);
	procedure UpdateValve; virtual;
	procedure UpdateFlow; virtual;
	procedure ValveStateChanged(Sender: TObject);
	procedure ValveStateNeedsComponentState(var CurState: TComponentState);
	procedure NextZone(Sender: TObject);
	procedure Loaded; override;
	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 FValveStates write SetValveStates;

Description

Fields

	FInputPolyline: THMIFlowPolyline;

	FOutputPolyline: THMIFlowPolyline;

	FValveStates: 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 SetValveStates(AValue: THMIFlowZones);

	procedure ShowZone(aZone:THMIFlowZone);

	procedure UpdateValve; virtual;

	procedure UpdateFlow; virtual;

	procedure ValveStateChanged(Sender: TObject);

	procedure ValveStateNeedsComponentState(var CurState: TComponentState);

	procedure NextZone(Sender: TObject);

	procedure Loaded; override;

	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 FValveStates write SetValveStates;