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

synedit: less hints

Browse Source 
git-svn-id: trunk@36050 -
This commit is contained in:
mattias 2012-03-15 23:07:19 +00:00
parent c370aa5db5
commit 17e13a48b2
1 changed files with 5 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
components/synedit/syntextdrawer.pp
View File

@ -539,9 +539,9 @@ Procedure TheFontStock.CalcFontAdvance(DC: HDC; FontData: PheFontData;
s1 := s;
s2 := s1 + s;
s3 := s2 + s;
if not(GetTextExtentPoint(DC, PChar(s1), 1, Size1) and
GetTextExtentPoint(DC, PChar(s2), 2, Size2) and
GetTextExtentPoint(DC, PChar(s3), 3, Size3)) then
if not(GetTextExtentPoint(DC, PChar(s1), 1, Size1{%H-}) and
GetTextExtentPoint(DC, PChar(s2), 2, Size2{%H-}) and
GetTextExtentPoint(DC, PChar(s3), 3, Size3{%H-})) then
begin
DebugFont('Failed to get GetTextExtentPoint for %s', [s1]);
w := 0;
@ -643,7 +643,7 @@ begin
AdjustWHOForChar('''', Width, Height, OverHang, ETO);
// Negative Overhang ?
if (not ETO) and GetTextExtentPoint(DC, PChar('Ta'), 2, Size1) then
if (not ETO) and GetTextExtentPoint(DC, PChar('Ta'), 2, Size1{%H-}) then
if Size1.cx < 2 * Width then begin
{$IFDEF SYNFONTDEBUG}
DebugFont('Negative Overhang for "Ta" cx=%d Width=%d Overhang=%d', [Size1.cx, Width, OverHang]);
@ -656,7 +656,7 @@ begin
Height := Max(Height, Size1.cy);
// DoubleCheck the result with GetTextMetrics
GetTextMetrics(DC, TM);
GetTextMetrics(DC, TM{%H-});
{$IFDEF SYNFONTDEBUG}
DebugFont('TextMetrics tmHeight=%d, tmAve=%d, tmMax=%d, tmOver=%d', [TM.tmHeight, TM.tmAveCharWidth, TM.tmMaxCharWidth, TM.tmOverhang]);
{$ENDIF}