From af0c29f99556e40a2bd3aa3a772c7473f57f116e Mon Sep 17 00:00:00 2001
From: sekelsenmat <sekelsenmat@lazarus-ide.org>
Date: Tue, 27 Mar 2012 14:10:34 +0000
Subject: [PATCH] Improves the TTF debug log

git-svn-id: trunk@36384 -
---
 lcl/interfaces/customdrawn/customdrawnproc.pas | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/lcl/interfaces/customdrawn/customdrawnproc.pas b/lcl/interfaces/customdrawn/customdrawnproc.pas
index 49c0ac9a78..e45e700f1d 100644
--- a/lcl/interfaces/customdrawn/customdrawnproc.pas
+++ b/lcl/interfaces/customdrawn/customdrawnproc.pas
@@ -875,9 +875,9 @@ begin
           if NameString <> '' then //DBG
           begin
             SetLength(AName,NameLen);
-            DebugList.Add('ID='+IntToStr(NameID)+' '+AName);
+            DebugList.Add('ID='+IntToStr(NameID)+' Path='+FontPath+' Name='+AName);
           end
-          else DebugList.Add('ID='+IntToStr(NameID)+' '+'<Empty String>');
+          else DebugList.Add('ID='+IntToStr(NameID)+' Path='+FontPath+' Name=<Empty String>');
         end;
         {$endif}
         if (ErrNum = TT_Err_Ok) and (NameID = 4) then begin
@@ -901,7 +901,7 @@ begin
 {$ifdef CD_Debug_TTF}
   AName:= ExtractFileDir(Apath);
   AName:= ExtractFileName(AName) + '.txt';
-  DebugList.SaveToFile('/tmp/'+AName);
+  DebugList.SaveToFile({$ifdef UNIX}'/tmp/'+{$endif}{$ifdef Windows}'C:\'+{$endif}AName);
   DebugList.Free;
 {$endif}
 end;