From 4a6cd41fcaaf8ef2853aef2fb87d983faa89358d Mon Sep 17 00:00:00 2001
From: Ondrej Pokorny <lazarus@kluug.net>
Date: Tue, 15 Nov 2022 13:23:01 +0100
Subject: [PATCH] win32: fix AreDpiAwarenessContextsEqual result if not
 available

---
 lcl/interfaces/win32/win32int.pp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/lcl/interfaces/win32/win32int.pp b/lcl/interfaces/win32/win32int.pp
index bdb814579f..a97a58aa70 100644
--- a/lcl/interfaces/win32/win32int.pp
+++ b/lcl/interfaces/win32/win32int.pp
@@ -385,7 +385,7 @@ begin
   if Assigned(g_AreDpiAwarenessContextsEqual) then
     Result := g_AreDpiAwarenessContextsEqual(dpiContextA, dpiContextB)
   else
-    Result := False;
+    Result := dpiContextA=dpiContextB;
 end;
 
 function GetSystemMetricsForDpi(nIndex: Integer; dpi: UINT): Integer;