paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-17 17:59:16 +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.tmDescent := QtFontMetrics.descent;
TM.tmInternalLeading := QtFontMetrics.leading; TM.tmInternalLeading := QtFontMetrics.leading;
TM.tmExternalLeading := 0; TM.tmExternalLeading := 0;
{$IFDEF DARWIN}
TM.tmAveCharWidth := QtFontMetrics.charWidth('x',0);
{$ELSE}
TM.tmAveCharWidth := QtFontMetrics.averageCharWidth; TM.tmAveCharWidth := QtFontMetrics.averageCharWidth;
{$ENDIF}
TM.tmMaxCharWidth := QtFontMetrics.maxWidth; TM.tmMaxCharWidth := QtFontMetrics.maxWidth;
TM.tmWeight := QtDC.font.getWeight; TM.tmWeight := QtDC.font.getWeight;
TM.tmOverhang := 0; TM.tmOverhang := 0;