From 87342a6cec6c3239e9891481f7774ffeef4fa71f Mon Sep 17 00:00:00 2001
From: Neil <nyamatongwe@gmail.com>
Date: Thu, 11 Jun 2020 11:45:38 +1000
Subject: Backport: Bug [#2185]. Fix printing to use correct text size.

Backport of changeset 8301:b006d175ac85.
---
 win32/PlatWin.cxx | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'win32')

diff --git a/win32/PlatWin.cxx b/win32/PlatWin.cxx
index 42b1dae53..11dc5d3ed 100644
--- a/win32/PlatWin.cxx
+++ b/win32/PlatWin.cxx
@@ -616,7 +616,9 @@ void SurfaceGDI::Init(SurfaceID sid, WindowID wid) {
 	Release();
 	hdc = static_cast<HDC>(sid);
 	::SetTextAlign(hdc, TA_BASELINE);
-	logPixelsY = DpiForWindow(wid);
+	// Windows on screen are scaled but printers are not.
+	const bool printing = ::GetDeviceCaps(hdc, TECHNOLOGY) != DT_RASDISPLAY;
+	logPixelsY = printing ? ::GetDeviceCaps(hdc, LOGPIXELSY) : DpiForWindow(wid);
 }
 
 void SurfaceGDI::InitPixMap(int width, int height, Surface *surface_, WindowID wid) {
-- 
cgit v1.2.3