paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-27 12:10:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

+ add event to retrieve the logged messages in addition to writing them to the backend

Browse Source 
git-svn-id: trunk@48459 -
This commit is contained in:
svenbarth 2021-01-30 20:13:06 +00:00
parent dc48872552
commit 91050f14b6
1 changed files with 12 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
packages/fcl-base/src/eventlog.pp
View File

@ -26,6 +26,7 @@ Type
TLogType = (ltSystem,ltFile,ltStdOut,ltStdErr);
TLogCodeEvent = Procedure (Sender : TObject; Var Code : DWord) of Object;
TLogCategoryEvent = Procedure (Sender : TObject; Var Code : Word) of Object;
TLogMessageEvent = Procedure (Sender : TObject; EventType : TEventType; Const Msg : String) of Object;
TEventLog = Class(TComponent)
Private
@ -44,6 +45,7 @@ Type
FOnGetCustomCategory : TLogCategoryEvent;
FOnGetCustomEventID : TLogCodeEvent;
FOnGetCustomEvent : TLogCodeEvent;
FOnLogMessage: TLogMessageEvent;
FPaused : Boolean;
procedure SetActive(const Value: Boolean);
procedure SetIdentification(const Value: String);
@ -65,6 +67,7 @@ Type
Procedure DoGetCustomEventID(Var Code : DWord);
Procedure DoGetCustomEventCategory(Var Code : Word);
Procedure DoGetCustomEvent(Var Code : DWord);
Procedure DoLogMessage(EventType : TEventType; const Msg: String);
Protected
Procedure CheckInactive;
Procedure EnsureActive;
@ -104,6 +107,7 @@ Type
Property OnGetCustomCategory : TLogCategoryEvent Read FOnGetCustomCategory Write FOnGetCustomCategory;
Property OnGetCustomEventID : TLogCodeEvent Read FOnGetCustomEventID Write FOnGetCustomEventID;
Property OnGetCustomEvent : TLogCodeEvent Read FOnGetCustomEvent Write FOnGetCustomEvent;
Property OnLogMessage : TLogMessageEvent read FOnLogMessage write FOnLogMessage;
Property Paused : Boolean Read FPaused Write FPaused;
End;
@ -209,6 +213,7 @@ begin
ltStdOut : WriteIOLog(EventType,Msg,StdOut);
ltStdErr : WriteIOLog(EventType,Msg,StdErr);
end;
DoLogMessage(EventType, Msg);
end;
function TEventLog.FormatLogMessage(EventType : TEventType; const Msg: String): String;
@ -396,6 +401,13 @@ begin
FOnGetCustomEvent(Self,Code);
end;
Procedure TEventLog.DoLogMessage(EventType : TEventType; const Msg: String);
begin
If Assigned(FOnLogMessage) then
FOnLogMessage(Self,EventType,Msg);
end;
destructor TEventLog.Destroy;
begin