Class TLogFile (unit KRLogfil)

Inherits from

TComponent

Constructors


constructor Create(AOwner: TComponent);

################### BEGIN TLogFile #####################} {First, set some default properties


Functions

procedure ClearLog;

User can view entire log file in a seperate editor

Method used to clear all events


destructor Destroy;

Here is where we can capture the shutdown of the TLogFile component

procedure EditLog;

User can log a non-standard message with this

Method used to launch external editor


procedure LogEvent(Event: string);

The method actually used to log an event

procedure Loaded;

Here is where we can capture the creation of the TLogFile.

procedure SetEditor(Value: string);


procedure SetLogFileName(NewName: string);

private accessor functions for properties

Accessor methods for properties


procedure SetLogOptions(Value: TLogFileLogSettings);


procedure SetRecordOptions(Value: TLogFileRecordOptions);


procedure SetSeperatorChar(Value: Char);


Properties

property Editor : string


property EventOutput : TListBox


property LogFileName : string

User can clear contents of current log file

property LogOptions : TLogFileLogSettings


property RecordOptions : TLogFileRecordOptions


property SeperatorChar : Char


Events

event OnLogEvent : TLogFileEvent


Variables

FEditor : string;

Full path to event log file

FEventOutput : TListBox;

Single character used to seperate date/time and message in event log

FLogFileName : string;

private data fields

FLogOptions : TLogFileLogSettings;

set of options used to determine what to record in file

FOnLogEvent : TLogFileEvent;

Optional pointer to a list box which can receive messages output to log file} {private event handler pointer field

FRecordOptions : TLogFileRecordOptions;

Executable name of editor to use for viewing log file

FSeperatorChar : char;

set of options used to determine what standard events to record


Constructors


constructor Create(AOwner: TComponent);

################### BEGIN TLogFile #####################} {First, set some default properties


Functions


procedure ClearLog;

User can view entire log file in a seperate editor

Method used to clear all events


destructor Destroy;

Here is where we can capture the shutdown of the TLogFile component


procedure EditLog;

User can log a non-standard message with this

Method used to launch external editor


procedure LogEvent(Event: string);

The method actually used to log an event


procedure Loaded;

Here is where we can capture the creation of the TLogFile... i.e., application startup, for logging


procedure SetEditor(Value: string);


procedure SetLogFileName(NewName: string);

private accessor functions for properties

Accessor methods for properties


procedure SetLogOptions(Value: TLogFileLogSettings);


procedure SetRecordOptions(Value: TLogFileRecordOptions);


procedure SetSeperatorChar(Value: Char);


Properties


property Editor : string


property EventOutput : TListBox


property LogFileName : string

User can clear contents of current log file


property LogOptions : TLogFileLogSettings


property RecordOptions : TLogFileRecordOptions


property SeperatorChar : Char


Events


event OnLogEvent : TLogFileEvent


Variables


FEditor : string;

Full path to event log file


FEventOutput : TListBox;

Single character used to seperate date/time and message in event log


FLogFileName : string;

private data fields


FLogOptions : TLogFileLogSettings;

set of options used to determine what to record in file


FOnLogEvent : TLogFileEvent;

Optional pointer to a list box which can receive messages output to log file} {private event handler pointer field


FRecordOptions : TLogFileRecordOptions;

Executable name of editor to use for viewing log file


FSeperatorChar : char;

set of options used to determine what standard events to record