ウィンドウズのフォントを標準より大きくすると、スクロールバーがでる不具合の修正

[gikonavigoeson/gikonavi.git] / GikoSystem.pas

diff --git a/GikoSystem.pas b/GikoSystem.pas
index a08b688..e640093 100644 (file)
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -1345,7 +1345,8 @@ begin
        nm.cbSize := sizeof(NONCLIENTMETRICS);
     SystemParametersInfo(SPI_GETNONCLIENTMETRICS, 0, @nm, 0);
     lf := nm.lfMenuFont;
-    Font.Handle := CreateFontIndirect(lf);
+    Font.Name := lf.lfFaceName;
+    Font.Height := lf.lfHeight;
     Font.Style := [];
     if lf.lfWeight >= 700 then
         Font.Style := Font.Style + [fsBold];