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

Improves the TTF debug log

Browse Source 
git-svn-id: trunk@36384 -
This commit is contained in:
sekelsenmat 2012-03-27 14:10:34 +00:00
parent 3900bfb28e
commit af0c29f995
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/customdrawn/customdrawnproc.pas
View File

@ -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;