THMICustomFlowElevator

type THMICustomFlowElevator = class(THMICustomElevadorBasico,IColorChangeNotification)

protected

  procedure AddNotifyCallback();

  procedure RemoveNotifyCallback();

  procedure NotifyFree();

  procedure NotifyChange();

  FInputPolyline: THMIFlowPolyline;

  FOutputPolyline: THMIFlowPolyline;

  FElevatorStates: THMIElevatorFlowZones;

  FCurrentZone: THMIElevatorFlowZone;

  FOwnerZone: THMIElevatorFlowZone;

  FZoneTimer: TTimer;

  procedure SetInputPolyline();

  procedure SetOutputPolyline();

  procedure SetElevatorStates();

  procedure ShowZone();

  procedure UpdateFlow; virtual;

  property InputPolyline: THMIFlowPolyline; [rw]

  property OutputPolyline: THMIFlowPolyline; [rw]

  property ColorAndFlowStates: THMIElevatorFlowZones; [rw]

  property UseStaticHeaderColor: Boolean; [rw]

  property UseStaticBodyColor: Boolean; [rw]

  property UseStaticFooterColor: Boolean; [rw]

  procedure StateChanged();

  procedure StatesNeedsComponentState();

  procedure NextZone();

  procedure Loaded; override;

  procedure UpdateControl; virtual;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Notification(); override;

end;

THMICustomFlowElevator

THMICustomElevadorBasico,IColorChangeNotification

THMIBasicControl

TObject,IHMIInterface