paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-15 07:29:34 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazLogger: renamed events to On....

Browse Source 
git-svn-id: trunk@35325 -
This commit is contained in:
martin 2012-02-12 14:42:12 +00:00
parent 8eba15d1a0
commit 20f0d2d151
2 changed files with 10 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/lazutils/lazlogger.pas
View File

@ -168,8 +168,8 @@ type
FParamForEnabledLogGroups: String;
FUseStdOut: Boolean;
FCloseLogFileBetweenWrites: Boolean;
FDbgOutProc: TLazLoggerWriteEvent;
FDebugLnProc: TLazLoggerWriteEvent;
FOnDbgOut: TLazLoggerWriteEvent;
FOnDebugLn: TLazLoggerWriteEvent;
FMaxNestPrefixLen: Integer;
FNestLvlIndent: Integer;
@ -238,8 +238,8 @@ type
property EnvironmentForLogFileName: String read FEnvironmentForLogFileName write SetEnvironmentForLogFileName; // "*" will be replaced by appname
property UseStdOut: Boolean read FUseStdOut write FUseStdOut;
property CloseLogFileBetweenWrites: Boolean read FCloseLogFileBetweenWrites write SetCloseLogFileBetweenWrites;
property DebugLnProc: TLazLoggerWriteEvent read FDebugLnProc write FDebugLnProc;
property DbgOutProc: TLazLoggerWriteEvent read FDbgOutProc write FDbgOutProc;
property OnDebugLn: TLazLoggerWriteEvent read FOnDebugLn write FOnDebugLn;
property OnDbgOut: TLazLoggerWriteEvent read FOnDbgOut write FOnDbgOut;
property NestLvlIndent: Integer read FNestLvlIndent write SetNestLvlIndent;
property MaxNestPrefixLen: Integer read FMaxNestPrefixLen write SetMaxNestPrefixLen;
@ -1294,10 +1294,10 @@ var
begin
if not IsInitialized then Init;
if FDbgOutProc <> nil then
if FOnDbgOut <> nil then
begin
Handled := False;
FDbgOutProc(Self, s, Handled);
FOnDbgOut(Self, s, Handled);
if Handled then
Exit;
end;
@ -1315,10 +1315,10 @@ var
begin
if not IsInitialized then Init;
if FDebugLnProc <> nil then
if FOnDebugLn <> nil then
begin
Handled := False;
FDebugLnProc(Self, s, Handled);
FOnDebugLn(Self, s, Handled);
if Handled then
Exit;
end;

4
lcl/interfaces/customdrawn/customdrawnobject_android.inc
View File

@ -726,8 +726,8 @@ procedure TCDWidgetSet.BackendCreate;
begin
// Setup DebugLn
{$IFnDEF WithOldDebugln}
DebugLogger.DebugLnProc := @AndroidDebugLn;
DebugLogger.DbgOutProc := @AccumulatingDebugOut;
DebugLogger.OnDebugLn := @AndroidDebugLn;
DebugLogger.OnDbgOut := @AccumulatingDebugOut;
{$ELSE}
DebugLnProc := @AndroidDebugLn;
DebugOutProc := @AccumulatingDebugOut;