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

SynEdit: TextLayout added debug output

Browse Source 
git-svn-id: trunk@19944 -
This commit is contained in:
martin 2009-05-12 13:49:02 +00:00
parent b6d242fa96
commit 2607eec3c3
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
components/synedit/syntextdrawer.pp
View File

@ -565,8 +565,10 @@ Procedure TheFontStock.CalcFontAdvance(DC: HDC; FontData: PheFontData;
Procedure DebugFont(s: String; a: array of const);
begin
if FontData^.Font <> nil then
if FontData^.Font <> nil then begin
if FontData^.Font.Size = 0 then exit;
s := 'Font=' + FontData^.Font.Name + ' Size=' + IntToStr(FontData^.Font.Size) + ' ' + s;
end;
s := 'TheFontStock.CalcFontAdvance: ' + s;
DebugLn(Format(s, a));
end;
@ -608,8 +610,9 @@ Procedure TheFontStock.CalcFontAdvance(DC: HDC; FontData: PheFontData;
if (w2 = w) and (w3 = w) then exit;
if (w2 <= w) and (w3 <= w) then begin
// w includes overhang
// w includes overhang (may be fractional
if w2 <> w3 then begin
{$IFNDEF SYNFONTDEBUG} if abs(w3-w2) > 1 then {$ENDIF}
DebugFont('Variable Overhang w=%d w2=%d w3=%d', [w, w2, w3]);
w2 := Max(w2, w3);
end;