- Several code cleanups
- Fixed TArt.RefreshBuffer using the wrong variable (j <> i) - Suppressed some hints
This commit is contained in:
78
Logging.pas
78
Logging.pas
@@ -1,39 +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.
|
||||
|
||||
unit Logging;
|
||||
|
||||
{$mode objfpc}{$H+}
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
MultiLog{$IFNDEF NoLogging}, IPCChannel{$ENDIF};
|
||||
|
||||
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