TLEventer

type TLEventer = class

protected

  FRoot: TLHandle;

  FCount: Integer;

  FOnError: TLEventerErrorEvent;

  FReferences: Integer;

  FFreeRoot: TLHandle;

  FFreeIter: TLHandle;

  FInLoop: Boolean;

  function GetTimeout; virtual;

  procedure SetTimeout(); virtual;

  function Bail();

  procedure AddForFree();

  procedure FreeHandles;

  procedure HandleIgnoreError(); virtual;

  procedure HandleIgnoreWrite(); virtual;

  procedure HandleIgnoreRead(); virtual;

  function GetInternalData();

  procedure SetInternalData();

  procedure SetHandleEventer();

public

  constructor Create; virtual;

Standard constructor for eventer

  destructor Destroy; override;

Standard destructor for eventer

  function AddHandle(); virtual;

Add new handle to the eventer

  function CallAction; virtual;

Eventizes the eventer

  procedure RemoveHandle(); virtual;

Remove a handle from the eventer

  procedure UnplugHandle(); virtual;

Unplug a handle from the eventer

  procedure UnregisterHandle(); virtual;

  procedure LoadFromEventer(); virtual;

Shortcut init

  procedure Clear;

Clear all handles

  procedure AddRef;

Adds a reference to the eventer

  procedure DeleteRef;

Deletes a reference to the eventer

  property Timeout: Integer; [rw]

Callaction timeout

  property OnError: TLEventerErrorEvent; [rw]

Error event callback

  property Count: Integer; [r]

Number of handles in eventer

end;

TLEventer

Abstract class for all eventers

TObject