From 20af754e8715c1bb00d385989f051a1920c6a776 Mon Sep 17 00:00:00 2001
From: h677 <h677>
Date: Wed, 5 Sep 2007 15:29:46 +0000
Subject: [PATCH] =?utf8?q?=E3=83=95=E3=82=A9=E3=83=B3=E3=83=88=E3=81=AE?=
 =?utf8?q?=E3=81=A8=E3=81=93=E3=82=8D=E3=81=A7=E3=83=A1=E3=83=A2=E3=83=AA?=
 =?utf8?q?=E3=83=AA=E3=83=BC=E3=82=AF=E3=81=97=E3=81=A6=E3=82=8B=E3=81=BF?=
 =?utf8?q?=E3=81=9F=E3=81=84=E3=81=AA=E3=81=AE=E3=81=A7=E3=80=81=E5=AF=BE?=
 =?utf8?q?=E5=BF=9C=E3=81=97=E3=81=A6=E3=81=BF=E3=82=8B=E3=80=82?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 GikoSystem.pas | 23 ++++++++++++-----------
 1 file changed, 12 insertions(+), 11 deletions(-)

diff --git a/GikoSystem.pas b/GikoSystem.pas
index 572526f..e1fa86e 100644
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -1346,19 +1346,20 @@ procedure TGikoSys.MenuFont(Font: TFont);
 var
 	lf: LOGFONT;
 	nm: NONCLIENTMETRICS;
+    fName: String;
 begin
 	nm.cbSize := sizeof(NONCLIENTMETRICS);
-
-	SystemParametersInfo(SPI_GETNONCLIENTMETRICS, 0, @nm, 0);
-	lf := nm.lfMenuFont;
-
-	Font.Name := lf.lfFaceName;
-	Font.Height := lf.lfHeight;
-	Font.Style := [];
-	if lf.lfWeight >= 700 then
-		Font.Style := Font.Style + [fsBold];
-	if lf.lfItalic = 1 then
-		Font.Style := Font.Style + [fsItalic];
+    SystemParametersInfo(SPI_GETNONCLIENTMETRICS, 0, @nm, 0);
+    lf := nm.lfMenuFont;
+    fName := lf.lfFaceName;
+    // ’¼ÚŽQÆ‚³‚¹‚é‚ƃƒ‚ƒŠƒŠ[ƒN‚É‚È‚éH‘¼‚ÌCoolBar‚ÆŽ‚¿‡‚¤H
+    Font.Name := Copy(fname, 0, Length(fname));
+    Font.Height := lf.lfHeight;
+    Font.Style := [];
+    if lf.lfWeight >= 700 then
+        Font.Style := Font.Style + [fsBold];
+    if lf.lfItalic = 1 then
+        Font.Style := Font.Style + [fsItalic];
 end;
 
 {!
-- 
2.11.0