pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

RxFPC:new log function in RxAppUtils

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6443 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
alexs75
2018-05-21 11:42:01 +00:00
parent b9ac1ebf02
commit 3c79851a8c
142 changed files with 243 additions and 224 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
components/rx/trunk/rxcontrols/rxapputils.pas
View File

@ -91,6 +91,8 @@ procedure WarningBox(const S:string; Params:array of const); overload;
procedure ErrorBox(const S:string);
procedure ErrorBox(const S:string; Params:array of const);
procedure RxWriteLog(ALogType:TEventType; const ALogMessage:string);
procedure RxWriteLog(ALogType:TEventType; const ALogMessage:string; Params:array of const);
procedure RxDefaultWriteLog( ALogType:TEventType; const ALogMessage:string);
function RxDefaultLogFileName:string;
procedure InitRxLogs;
@ -131,7 +133,7 @@ begin
end;
{$ENDIF}
procedure DoWriteLog(ALogType:TEventType; const ALogMessage:string);
procedure RxWriteLog(ALogType:TEventType; const ALogMessage:string);
begin
if Assigned(OnRxLoggerEvent) then
OnRxLoggerEvent(ALogType, ALogMessage)
@ -140,7 +142,7 @@ end;
procedure InfoBox(const S: string);
begin
MessageDlg(S, mtInformation, [mbOK], 0);
DoWriteLog(etInfo, S);
RxWriteLog(etInfo, S);
Application.Log(etInfo, S);
end;
@ -152,7 +154,7 @@ end;
procedure WarningBox(const S: string);
begin
MessageDlg(S, mtWarning, [mbOK], 0);
DoWriteLog(etWarning, S);
RxWriteLog(etWarning, S);
Application.Log(etWarning, S);
end;
@ -164,7 +166,7 @@ end;
procedure ErrorBox(const S: string);
begin
MessageDlg(S, mtError, [mbOK], 0);
DoWriteLog(etError, S);
RxWriteLog(etError, S);
Application.Log(etError, S);
end;
@ -173,6 +175,12 @@ begin
ErrorBox(Format(S, Params));
end;
procedure RxWriteLog(ALogType: TEventType; const ALogMessage: string;
Params: array of const);
begin
RxWriteLog(ALogType, Format(ALogMessage, Params));
end;
procedure RxDefaultWriteLog(ALogType: TEventType; const ALogMessage: string);
var
F: Text;