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

LazLogger: Fixed indent for event

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

10
components/lazutils/lazlogger.pas
View File

@ -1297,7 +1297,10 @@ begin
if FOnDbgOut <> nil then
begin
Handled := False;
FOnDbgOut(Self, s, Handled);
if FDebugNestAtBOL and (s <> '') then
FOnDbgOut(Self, FDebugIndent + s, Handled)
else
FOnDbgOut(Self, s, Handled);
if Handled then
Exit;
end;
@ -1318,7 +1321,10 @@ begin
if FOnDebugLn <> nil then
begin
Handled := False;
FOnDebugLn(Self, s, Handled);
if FDebugNestAtBOL and (s <> '') then
FOnDebugLn(Self, FDebugIndent + s, Handled)
else
FOnDebugLn(Self, s, Handled);
if Handled then
Exit;
end;