From 20f0d2d151ab0b742712ee0bf4564f47d7c1da66 Mon Sep 17 00:00:00 2001
From: martin <laz.git@mfriebe.de>
Date: Sun, 12 Feb 2012 14:42:12 +0000
Subject: [PATCH] LazLogger: renamed events to On....

git-svn-id: trunk@35325 -
---
 components/lazutils/lazlogger.pas                | 16 ++++++++--------
 .../customdrawn/customdrawnobject_android.inc    |  4 ++--
 2 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/components/lazutils/lazlogger.pas b/components/lazutils/lazlogger.pas
index 8a79619c6c..6607ad6a1b 100644
--- a/components/lazutils/lazlogger.pas
+++ b/components/lazutils/lazlogger.pas
@@ -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;
diff --git a/lcl/interfaces/customdrawn/customdrawnobject_android.inc b/lcl/interfaces/customdrawn/customdrawnobject_android.inc
index 8411ef2b3a..975054ea27 100644
--- a/lcl/interfaces/customdrawn/customdrawnobject_android.inc
+++ b/lcl/interfaces/customdrawn/customdrawnobject_android.inc
@@ -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;