LightCore.LogTypes.pas

UNIT LightCore.LogTypes;

{=============================================================================================================
   www.GabrielMoraru.com
   2026.01
   Github.com/GabrielOnDelphi/Delphi-LightSaber/blob/main/System/Copyright.txt

   A simple but effective visual log control/library.
   The programmer can send messages to the log that will be shown or not, depending on the chosen verbosity level of the log (see Verbosity property).
   **Visual/Non-visual**
   There is a non-visual log (TRamLog) and a visual log (TRichLog). The idea is that your non-visual objects can send data to the non-visual log, for example in a batch job. At the end of the batch all collected messages can be shown in the visual log.
   Alternatively, if you connect the TRamLog to the visual log, the messages are shown in real time, as the batch job progresses.
   There is a pre-defined form that holds the log. To show it, call CreateLogForm in FormLog.pas
   The purpose is to have one single log window per application that will receive messages from the entire application.
   **Verbosity:**
     Supports several verbosity levels (verbose, info, warnings, errors, etc).
     Receives only messages that are above the specified verbosity threshold.
     For example, if the log is set to show only warnings and errors and you send a messages marked as "verbose", then the messages will not be shown.
     Each verbosity level has a predefined color.
   **I/O**
   The log can be saved to disk as a binary file so it can be restored on the next app startup.

   Tester:
     Demo\LightLog\
=============================================================================================================}

INTERFACE

USES
   System.SysUtils;

TYPE
  TLogVerbLvl= (lvDebug, lvVerbose, lvHints {Default}, lvInfos, lvImportant, lvWarnings, lvErrors);  { Exist also 7 which is of type 'Msg' and it is always shown in log }

CONST
   DefaultVerbosity= lvInfos;

function Verbosity2String(Verbosity: TLogVerbLvl): string;


IMPLEMENTATION


function Verbosity2String(Verbosity: TLogVerbLvl): string;
begin
 case Verbosity of
   lvDebug     : Result := 'Debug';
   lvVerbose   : Result := 'Verbose';
   lvHints     : Result := 'Hints';
   lvInfos     : Result := 'Info';      { This is the default level of verbosity }
   lvImportant : Result := 'Important';
   lvWarnings  : Result := 'Warnings';
   lvErrors    : Result := 'Errors';
 else
   RAISE Exception.Create('Invalid verbosity');
 end;
end;



end.