Mark van Renswoude
a9cf1b75f6
Fixed: FS#5 - Reconnecting can cause pipe to be busy Fixed: FS#6 - Process hangs when closing after named pipe client has disconnected Fixed: themed drawing of toolbar in MonitorForm Fixed: various memory leaks Changed: NamedPipeClient test application uses MonitorForm observer to display log
116 lines
2.8 KiB
ObjectPascal
116 lines
2.8 KiB
ObjectPascal
unit X2Log.Constants;
|
|
|
|
interface
|
|
uses
|
|
X2Log.Intf;
|
|
|
|
|
|
resourcestring
|
|
LogLevelVerbose = 'Verbose';
|
|
LogLevelInfo = 'Info';
|
|
LogLevelWarning = 'Warning';
|
|
LogLevelError = 'Error';
|
|
|
|
|
|
{
|
|
X2Log.Observer.LogFile
|
|
}
|
|
|
|
{ Date format used to determine the file name of detail files }
|
|
LogFileNameDateFormat = 'ddmmyyyy_hhnn';
|
|
|
|
{ Date format used in log files }
|
|
LogFileLineDateFormat = 'dd-mm-yy hh:nn';
|
|
|
|
{ The text added to the message if details are stored externally }
|
|
LogFileLineDetails = ' (details: %s)';
|
|
|
|
|
|
{
|
|
X2Log.Observer.MonitorForm
|
|
}
|
|
|
|
{ Caption of the monitor form. %s is optional and will be replaced
|
|
with the application's title }
|
|
LogMonitorFormCaption = '%s - Live Log';
|
|
|
|
{ Caption of the columns in the live log view }
|
|
LogMonitorFormColumnTime = 'Time';
|
|
LogMonitorFormColumnMessage = 'Message';
|
|
|
|
{ Caption of the toolbar buttons }
|
|
LogMonitorFormButtonClear = 'Clear';
|
|
LogMonitorFormButtonCopyDetails = 'Copy';
|
|
LogMonitorFormButtonSaveDetails = 'Save';
|
|
|
|
{ Status messages }
|
|
LogMonitorFormStatusPaused = 'Paused: %d log message(s) skipped';
|
|
|
|
{ Filter for Save details buttons }
|
|
LogMonitorFormSaveDetailsFilter = 'All files (*.*)|*.*';
|
|
|
|
|
|
function GetLogLevelText(ALogLevel: TX2LogLevel): string;
|
|
|
|
function GetLogResourceString(AResourceString: Pointer): string;
|
|
procedure SetLogResourceString(AResourceString: Pointer; const AValue: string);
|
|
|
|
|
|
implementation
|
|
uses
|
|
System.Generics.Collections,
|
|
System.SysUtils;
|
|
|
|
|
|
type
|
|
TResourceStringDictionary = TDictionary<Pointer,string>;
|
|
|
|
var
|
|
LogResourceStringMap: TResourceStringDictionary;
|
|
|
|
|
|
|
|
function GetLogLevelText(ALogLevel: TX2LogLevel): string;
|
|
begin
|
|
case ALogLevel of
|
|
TX2LogLevel.Verbose: Result := GetLogResourceString(@LogLevelVerbose);
|
|
TX2LogLevel.Info: Result := GetLogResourceString(@LogLevelInfo);
|
|
TX2LogLevel.Warning: Result := GetLogResourceString(@LogLevelWarning);
|
|
TX2LogLevel.Error: Result := GetLogResourceString(@LogLevelError);
|
|
end;
|
|
end;
|
|
|
|
|
|
function GetLogResourceString(AResourceString: Pointer): string;
|
|
begin
|
|
TMonitor.Enter(LogResourceStringMap);
|
|
try
|
|
if LogResourceStringMap.ContainsKey(AResourceString) then
|
|
Result := LogResourceStringMap[AResourceString]
|
|
else
|
|
Result := LoadResString(AResourceString);
|
|
finally
|
|
TMonitor.Exit(LogResourceStringMap);
|
|
end;
|
|
end;
|
|
|
|
|
|
procedure SetLogResourceString(AResourceString: Pointer; const AValue: string);
|
|
begin
|
|
TMonitor.Enter(LogResourceStringMap);
|
|
try
|
|
LogResourceStringMap.AddOrSetValue(AResourceString, AValue);
|
|
finally
|
|
TMonitor.Exit(LogResourceStringMap);
|
|
end;
|
|
end;
|
|
|
|
|
|
initialization
|
|
LogResourceStringMap := TResourceStringDictionary.Create;
|
|
|
|
finalization
|
|
FreeAndNil(LogResourceStringMap);
|
|
|
|
end.
|