From 260dfe383094e035cba4811918c1970f222cfc20 Mon Sep 17 00:00:00 2001
From: kichik <kichik@212acab6-be3b-0410-9dea-997c60f758d6>
Date: Thu, 29 Aug 2002 12:24:35 +0000
Subject: [PATCH] CreateFont gives the right size now

git-svn-id: https://svn.code.sf.net/p/nsis/code/NSIS/trunk@820 212acab6-be3b-0410-9dea-997c60f758d6
---
 Source/exehead/exec.c | 29 ++++++++++-------------------
 1 file changed, 10 insertions(+), 19 deletions(-)

diff --git a/Source/exehead/exec.c b/Source/exehead/exec.c
index 16f351e9..f01a5f1f 100644
--- a/Source/exehead/exec.c
+++ b/Source/exehead/exec.c
@@ -1406,25 +1406,16 @@ static int NSISCALL ExecuteEntry(entry *entries, int pos)
     return 0;
 #endif // NSIS_CONFIG_PLUGIN_SUPPORT
     case EW_CREATEFONT:
-      myitoa(
-        g_usrvars[parm0],
-        (int)CreateFont(
-          process_string_fromtab_toint(parm2),
-          0,
-          0,
-          0,
-          process_string_fromtab_toint(parm3),
-          parm4&1,
-          parm4&2,
-          parm4&4,
-          0,
-          0,
-          0,
-          0,
-          0,
-          GetStringFromStringTab(parm1)
-        )
-      );
+    {
+      LOGFONT f={0,};
+      f.lfHeight=-MulDiv(process_string_fromtab_toint(parm2),GetDeviceCaps(GetDC(g_hwnd),LOGPIXELSY),72);
+      f.lfWeight=process_string_fromtab_toint(parm3);
+      f.lfItalic=parm4&1;
+      f.lfUnderline=parm4&2;
+      f.lfStrikeOut=parm4&4;
+      process_string_fromtab(f.lfFaceName,parm1);
+      myitoa(g_usrvars[parm0],(int)CreateFontIndirect(&f));
+    }
     return 0;
   }
   my_MessageBox(STR(LANG_INSTCORRUPTED),MB_OK|MB_ICONSTOP);