THMICustomFlowValve

type THMICustomFlowValve = class(THMICustomBasicValve,IColorChangeNotification)

protected

  procedure AddNotifyCallback();

  procedure RemoveNotifyCallback();

  procedure NotifyFree();

  procedure NotifyChange();

  FInputPolyline: THMIFlowPolyline;

  FOutputPolyline: THMIFlowPolyline;

  FValveStates: THMIFlowZones;

  FCurrentZone: THMIFlowZone;

  FOwnerZone: THMIFlowZone;

  FZoneTimer: TTimer;

  procedure SetInputPolyline();

  procedure SetOutputPolyline();

  procedure SetValveStates();

  procedure ShowZone();

  procedure UpdateValve; virtual;

  procedure UpdateFlow; virtual;

  property InputPolyline: THMIFlowPolyline; [rw]

  property OutputPolyline: THMIFlowPolyline; [rw]

  property ColorAndFlowStates: THMIFlowZones; [rw]

  procedure ValveStateChanged();

  procedure ValveStateNeedsComponentState();

  procedure NextZone();

  procedure Loaded; override;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Notification(); override;

end;

THMICustomFlowValve

THMICustomBasicValve,IColorChangeNotification

THMIBasicControl

TObject,IHMIInterface