- Added Logging unit and MultiLog dependency
- Removed StaticsFilter parameter from FillDrawList
This commit is contained in:
39
Logging.pas
Normal file
39
Logging.pas
Normal file
@@ -0,0 +1,39 @@
|
||||
unit Logging;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
MultiLog, IPCChannel;
|
||||
|
||||
const
|
||||
lcAll = [0..31]; //all logging classes
|
||||
lcDebug = 0;
|
||||
lcError = 1;
|
||||
lcInfo = 2;
|
||||
lcWarning = 3;
|
||||
|
||||
lcEvents = 4;
|
||||
|
||||
lcServer = 10;
|
||||
lcClient = 11;
|
||||
lcLandscape = 12;
|
||||
|
||||
var
|
||||
Logger: TLogger;
|
||||
|
||||
implementation
|
||||
|
||||
initialization
|
||||
Logger := TLogger.Create;
|
||||
{$IFNDEF NoLogging}
|
||||
Logger.Channels.Add(TIPCChannel.Create);
|
||||
Logger.ActiveClasses := lcAll;
|
||||
{$ENDIF}
|
||||
|
||||
finalization
|
||||
Logger.Free;
|
||||
|
||||
end.
|
||||
|
||||
Reference in New Issue
Block a user