TEventLog

type TEventLog = class(TComponent)

protected

  procedure CheckInactive;

  procedure EnsureActive;

  function MapTypeToEvent();

  function MapTypeToCategory();

  function MapTypeToEventID();

public

  destructor Destroy; override;

  function EventTypeToString();

  function RegisterMessageFile(); virtual;

  function UnRegisterMessageFile; virtual;

  procedure Pause;

  procedure Resume;

  procedure Log();

  procedure Warning();

  procedure Error();

  procedure Debug();

  procedure Info();

published

  property AppendContent: Boolean; [rw]

  property Identification: string; [rw]

  property LogType: TLogType; [rw]

  property Active: Boolean; [rw]

  property RaiseExceptionOnError: Boolean; [rw]

  property DefaultEventType: TEventType; [rw]

  property FileName: string; [rw]

  property TimeStampFormat: string; [rw]

  property CustomLogType: Word; [rw]

  property EventIDOffset: DWord; [rw]

  property OnGetCustomCategory: TLogCategoryEvent; [rw]

  property OnGetCustomEventID: TLogCodeEvent; [rw]

  property OnGetCustomEvent: TLogCodeEvent; [rw]

  property OnLogMessage: TLogMessageEvent; [rw]

  property Paused: Boolean; [rw]

end;

TEventLog

TObject