如何判断系统字体是大字体还是小字体？(100分)

弄

弄影

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-08

• #1

我的一个程序是在小字体的系统中编译的，一个非最大化的窗口，在大字体的系统下运行，
因为窗口大小没有变化，但界面上的字体变化了，所以，窗体出现的滚动条，我想通过判断
系统的字体是大是小，然后重画窗口，可是，我找不到判断系统字体大小的函数，请高手们
指教！

不知道是否还有其他更好的方法。

 

卷

卷起千堆雪tyn

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-08

• #2

FUNCTION SmallFonts : BOOLEAN;
VAR
; DC : HDC;
BEGIN
; DC := GetDC(0);
; Result := ; (GetDeviceCaps(DC, LOGPIXELSX) = 96);
; { LOGPIXELSX will = 120 if large fonts are in use }
; ReleaseDC(0, DC);
END;

 

弄

弄影

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-12

• #3

谢谢 卷起千堆雪tyn，那么如果其他字体，他的象素是不是用GetDeviceCaps(DC, LOGPIXELSX) 得到？

 

弄

弄影

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2001-11-14

• #4

呵呵，不再回答我了。算了，我想应该是这样的。