当我在 windows7 中安装程序时,我指定的字体大小不适用

My specified font size does not apply when i install the program in windows7

我使用 win32 api 为我的列表视图项目指定了字体及其大小,它在 Windows Xp 中正常工作。我将其安装在 Windows 7 中,尽管我指定了 17 大小,但发现字体太小且难以阅读。

我在 Windows 7 中增加了默认字体大小,但我程序中的字体仍然太小。

这是我在 Window 过程中为列表视图项指定字体的代码:

case WM_DRAWITEM:
        {

            LPDRAWITEMSTRUCT pDIS=(LPDRAWITEMSTRUCT)lParam;
            HDC hDC=pDIS -> hDC;
            RECT rc = pDIS -> rcItem;

            HBRUSH bg = (HBRUSH) (::GetStockObject(DC_BRUSH));
            HPEN pn=(HPEN)(::GetStockObject(NULL_PEN));
            ::SelectObject( hDC , bg );
            ::SelectObject( hDC , pn );
            ::SetTextColor( hDC , RGB(0,0,0));

            HFONT hF;
            hF=CreateFont(17, 0, 0, 0, FW_DONTCARE, FALSE, FALSE, FALSE, ANSI_CHARSET, OUT_DEFAULT_PRECIS, CLIP_DEFAULT_PRECIS, DEFAULT_QUALITY, DEFAULT_PITCH | FF_SWISS, L"Tahoma");
            HFONT hOldFont = (HFONT) SelectObject(hDC, hF); 


            if( (pDIS->itemID % 2) != 0 )
                ::SetDCBrushColor(hDC, RGB(255,255,255));
            else{
                ::SetDCBrushColor(hDC, RGB(223, 241, 255));

            }
            ::Rectangle( hDC , rc.left , rc.top , rc.right , rc.bottom );

             char buffer[1000] = {0};
             ListView_GetItemText(pDIS -> hwndItem,  pDIS -> itemID, 0, (LPWSTR)buffer, 1000);


            ::DrawText(hDC, (LPWSTR)buffer, -1, &rc, DT_SINGLELINE | DT_VCENTER);
            SelectObject(hDC, hOldFont);
            DeleteObject(hF); 
        }
        break;

如何让 Windows 显示我想要的字体大小而不是那么小的字体?

谢谢!

使用SystemParametersInfo找到默认字体如下:

NONCLIENTMETRICS metrics;
metrics.cbSize = sizeof(NONCLIENTMETRICS);
::SystemParametersInfo(SPI_GETNONCLIENTMETRICS, sizeof(NONCLIENTMETRICS),
        &metrics, 0);
hfont = CreateFontIndirect(&metrics.lfMessageFont);

对 ListView 和其他 child 控件使用 .lfMessageFont

这将检索正确的字体名称和字体大小。

此字体大小已针对系统和应用程序的 DPI 设置进行了调整。

您可以在 windows 创建期间创建此字体一次。然后将其指定为 window 和列表视图控件的主要字体。这将更新列表视图的 header 控件。

HFONT hfont;
...
case WM_CREATE:
{
    if (!hfont)
    {
        NONCLIENTMETRICS metrics;
        metrics.cbSize = sizeof(NONCLIENTMETRICS);
        ::SystemParametersInfo(SPI_GETNONCLIENTMETRICS, sizeof(NONCLIENTMETRICS),
            &metrics, 0);
        hfont = CreateFontIndirect(&metrics.lfMessageFont);
    }
    hListView = CreateWindow(WC_LISTVIEW ...);
    SendMessage(hWnd, WM_SETFONT, (WPARAM)hfont, MAKELPARAM(TRUE, 0));
    SendMessage(hListView, WM_SETFONT, (WPARAM)hfont, MAKELPARAM(TRUE, 0));
    ...
    break;
}

此外,不要使用 (LPWSTR) 转换来隐藏编译器警告和错误。仅当您确定它适用时才使用转换。在这种情况下,charwchar_t 是非常不同的存储类型,在某些特殊情况下可能会进行转换,但它远非可靠。

char buffer[1000] 创建一个大小为 1000 字节的缓冲区。但是您正在调用 ListView_GetItemText 以读取 1000 个 Unicode 字符,在本例中为 2000 个字节并导致缓冲区溢出。您可以更改如下:

case WM_DRAWITEM:
{
    LPDRAWITEMSTRUCT pDIS = (LPDRAWITEMSTRUCT)lParam;
    HDC hDC = pDIS->hDC;
    RECT rc = pDIS->rcItem;

    COLORREF textcolor = RGB(0, 0, 0);
    COLORREF bkcolor = RGB(255, 255, 255);
    if((pDIS->itemID % 2) == 0)
    {
        bkcolor = RGB(223, 241, 255);
    }
    if(pDIS->itemState & ODS_SELECTED)
    {
        textcolor = RGB(255, 255, 255);
        bkcolor = RGB(0, 0, 255);
    }

    SetDCBrushColor(hDC, bkcolor);
    SelectObject(hDC, GetStockObject(DC_BRUSH));
    SelectObject(hDC, GetStockObject(NULL_PEN));
    SetTextColor(hDC, textcolor);

    Rectangle(hDC, rc.left, rc.top, rc.right, rc.bottom);

    auto oldfont = SelectObject(hDC, hfont);
    wchar_t buffer[1000] = { 0 };
    ListView_GetItemText(pDIS->hwndItem, pDIS->itemID, 0, buffer, 1000);
    DrawText(hDC, buffer, -1, &rc, DT_SINGLELINE | DT_VCENTER);
    SelectObject(hDC, oldfont);

    return TRUE;
}

*hfont 在上面的 window 过程中没有被销毁。其他地方应该清理一下。