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

Qt: fix synedit AV under darwin.

Browse Source 
git-svn-id: trunk@16591 -
This commit is contained in:
zeljko 2008-09-15 12:08:45 +00:00
parent 7d321ea70b
commit e638219510
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/qt/qtwinapi.inc
View File

@ -3024,7 +3024,11 @@ begin
TM.tmDescent := QtFontMetrics.descent;
TM.tmInternalLeading := QtFontMetrics.leading;
TM.tmExternalLeading := 0;
{$IFDEF DARWIN}
TM.tmAveCharWidth := QtFontMetrics.charWidth('x',0);
{$ELSE}
TM.tmAveCharWidth := QtFontMetrics.averageCharWidth;
{$ENDIF}
TM.tmMaxCharWidth := QtFontMetrics.maxWidth;
TM.tmWeight := QtDC.font.getWeight;
TM.tmOverhang := 0;