TLazLogger

type TLazLogger = class(TRefCountedObject)

public

  procedure Assign(); virtual;

  procedure Init;

  procedure Finish;

  property NestLvlIndent: Integer; [rw]

  property MaxNestPrefixLen: Integer; [rw]

  function RegisterLogGroup();

  function FindOrRegisterLogGroup();

  property LogGroupList: TLazLoggerLogGroupList; [r]

  property UseGlobalLogGroupList: Boolean; [rw]

  procedure DebuglnStack();

  procedure DbgOut();

  procedure DebugLn();

  procedure DebugLnEnter();

  procedure DebugLnExit();

end;

TLazLogger

TRefCountedObject

TFreeNotifyingObject

TObject