Class TLogFile (unit KRLogfil) |
Inherits from
TComponent
constructor Create(AOwner: TComponent);
- ################### BEGIN TLogFile #####################} {First, set some default properties
procedure ClearLog;
User can view entire log file in a seperate editorMethod 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 thisMethod 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 propertiesAccessor methods for properties
procedure SetLogOptions(Value: TLogFileLogSettings);
procedure SetRecordOptions(Value: TLogFileRecordOptions);
procedure SetSeperatorChar(Value: Char);
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
event OnLogEvent : TLogFileEvent
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
constructor Create(AOwner: TComponent);
################### BEGIN TLogFile #####################} {First, set some default properties
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);
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
event OnLogEvent : TLogFileEvent
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