pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Update VpEdFmt to scale correctly in the HighDpi mode of Lazarus 1.8. Less hints.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5884 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-05-20 17:00:14 +00:00
parent 70be970745
commit e9103a1af1
12 changed files with 221 additions and 214 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/tvplanit/source/vpcanvasutils.pas
View File

@@ -1597,7 +1597,7 @@ var
DC: HDC;
begin
DC := GetDC(0);
SavedFontHandle := SelectObject(DC, ACanvas.Font.Handle);
SavedFontHandle := SelectObject(DC, ACanvas.Font.Reference.Handle);
try
GetTextMetrics(DC, Metrics{%H-});
Result := Metrics.tmAveCharWidth;