THMICustomFlowPump

type THMICustomFlowPump = class(THMICustomBasicEletricMotor,IColorChangeNotification)

protected

  procedure AddNotifyCallback();

  procedure RemoveNotifyCallback();

  procedure NotifyFree();

  procedure NotifyChange();

  FInputPolyline: THMIFlowPolyline;

  FOutputPolyline: THMIFlowPolyline;

  FPumpStates: THMIFlowZones;

  FCurrentZone: THMIFlowZone;

  FOwnerZone: THMIFlowZone;

  FZoneTimer: TTimer;

  procedure SetInputPolyline();

  procedure SetOutputPolyline();

  procedure SetPumpStates();

  procedure ShowZone();

  procedure UpdateFlow; virtual;

  property InputPolyline: THMIFlowPolyline; [rw]

  property OutputPolyline: THMIFlowPolyline; [rw]

  property ColorAndFlowStates: THMIFlowZones; [rw]

  procedure PumpStateChanged();

  procedure PumpStateNeedsComponentState();

  procedure NextZone();

  procedure Loaded; override;

  procedure UpdateValve; virtual;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Notification(); override;

end;

THMICustomFlowPump

THMICustomBasicEletricMotor,IColorChangeNotification

THMIBasicControl

TObject,IHMIInterface