TLazLogger

type TLazLogger = class(TRefCountedObject)

protected

  procedure DoInit; virtual;

  procedure DoFinsh; virtual;

  procedure IncreaseIndent();

  procedure DecreaseIndent();

  procedure IndentChanged; virtual;

  function GetBlockHandler(); virtual;

  procedure DoDbgOut(); virtual;

  procedure DoDebugLn(); virtual;

  procedure DoDebuglnStack(); virtual;

  function ArgsToString();

  property IsInitialized: Boolean; [r]

public

  constructor Create;

  destructor Destroy; override;

  procedure Assign(); virtual;

  procedure Init;

  procedure Finish;

  function CurrentIndentLevel; virtual;

  property NestLvlIndent: Integer; [rw]

  property MaxNestPrefixLen: Integer; [rw]

  function RegisterLogGroup();

  function FindOrRegisterLogGroup();

  property LogGroupList: TLazLoggerLogGroupList; [r]

  property UseGlobalLogGroupList: Boolean; [rw]

  procedure AddBlockHandler(); virtual;

  procedure RemoveBlockHandler(); virtual;

  function BlockHandlerCount; virtual;

  property BlockHandler []: TLazLoggerBlockHandler; [r]

  procedure DebuglnStack();

  procedure DbgOut();

  procedure DebugLn();

  procedure DebugLnEnter();

  procedure DebugLnExit();

  procedure DumpExceptionBackTrace;

end;

TLazLogger

TRefCountedObject

TFreeNotifyingObject

TObject