PPC版本Dialog的滚动条的实现且焦点切换的时候带动滚动条

 

本文试图说明两个问题：

1.WM PPC版本Dialog的实现。

2.Dialog上的控件的焦点切换的时候带动滚动条一起动作。

其他说明：

1.本例中界面就两种控件EDIT/DTP。

2.本例中做的是垂直滚动条。

3.已知问题，由于不同OS的区别：PPC 2003SE上Edit控件上下左右按键都不能切换焦点，所以此代码不适用。WM5.0以后的版本没有问题。

正文：

PPC的界面设计理念：界面控件尽量在一屏中堆放完成，如果有很多控件需要堆放，应该考虑用TAB页进行分类处理。但是在一些地方还是要使用到滚动条。

PPC版本的Dialog和SP版本的Dialog的区别之一：Dialog的滚动条需要自己控制，而SP版本的滚动条是Dialog自己处理的，不需要开发者操心。

滚动条本来就是Windows中最麻烦的控件，但是如果就是让滚动条动起来，MSDN和网络上代码一堆。实现起来也很简单。

//------------------------------------------------------------------------------
//两个步骤就搞定，本代码中计算单位是行。
//1.在WM_SIZE里，初始化滚动条。
//2.处理WM_VSCROOL消息。
#ifdef WIN32_PLATFORM_PSPC
static int s_iNumLines;              //滚动条的行数
static int s_iLineHeight;            //行高
static int s_iCtrlStart;            //第一行中可以得到焦点控件的Y，用于最后一个控件滚动到第一控件
void InitScrollInfo(HWND hDlg, int iNumLines) 
{
    RECT rcDlg;
    GetWindowRect(hDlg, &rcDlg);        

    s_iLineHeight   = (g_iCtrlHeight + g_iStdIntvl) * 2;

    s_iCtrlStart    = rcDlg.top + g_iStdIntvl * 2 + g_iCtrlHeight; 
    //------------------------------------------------------------------------------
    GetClientRect(hDlg,&rcDlg);
    SCROLLINFO si;
    si.cbSize = sizeof (si);
    si.nMin = 0;
    si.nMax = s_iNumLines - 1 ;
    si.nPage = (rcDlg.bottom - rcDlg.top)/s_iLineHeight ;
    if (si.nPage > si.nMax)
    {
        si.nMax = 0;             //没有滚动条设置为0
    }
    si.nPos = 0;
    si.fMask = SIF_ALL;
    SetScrollInfo (hDlg, SB_VERT, &si, TRUE); 
}
void EditDlg_OnVScroll(HWND hwnd, HWND hwndCtl, UINT code, int pos)
{
    SCROLLINFO si = {0};
    si.fMask = SIF_ALL;
    si.cbSize = sizeof(si); 
    GetScrollInfo(hwnd,SB_VERT,&si); 
    int nOldPos = si.nPos;
    switch (code) 
    {
    case SB_TOP:                                        // User clicked the HOME keyboard key.
        {
            si.nPos = si.nMin;
            break;
        }
    case SB_BOTTOM:                                        // User clicked the END keyboard key.
        {
            si.nPos = si.nMax;
            break;
        }
    case SB_LINEUP:
        {
            si.nPos -= 1;                                //1:表示的是行
            break;
        }
    case SB_LINEDOWN:
        {
            si.nPos += 1;
            break;
        }
    case SB_PAGEUP:
        {
            si.nPos -= si.nPage; 
            break;
        }
    case SB_PAGEDOWN:
        {
            si.nPos += si.nPage; 
            break;
        }
    //     case SB_THUMBTRACK:                //MSDN的搞法
    //         {
    //         si.nPos = si.nTrackPos;
    //         break;
    //         }
    case SB_THUMBTRACK:
    case SB_THUMBPOSITION:
        {
            si.nPos = pos;
            break;
        }
    default:
        break; 
    }
    si.fMask = SIF_POS;
    SetScrollInfo (hwnd, SB_VERT, &si, TRUE);
    GetScrollInfo (hwnd, SB_VERT, &si);
    // If the position has changed, scroll window and update it.
    if (si.nPos != nOldPos)
    { 
        ScrollWindowEx(hwnd, 0, (nOldPos - si.nPos)*s_iLineHeight, NULL, NULL, NULL,NULL, SW_SCROLLCHILDREN);
        UpdateWindow (hwnd);
    }
    return;
}
#endif

 

上面的代码只解决了用滚动条拖动屏幕，如果要实现焦点切换的时候带动滚动条运动，还需要处理不少代码。

在什么位置上处理焦点切换事件？

   WM_COMMAND消息中处理EN_SETFOCUS，这样可以在一个地方处理焦点切换事件。

解决了Edit的焦点切换问题，新问题来了-EN_SETFOCUS是EDIT控件发送的，DTP控件没有这个事件怎么办?子类化后只处理WM_SETFOCUS消息，模拟发送一个EN_SETFOCUS消息。

 

BOOL EditDlg_OnCommand(HWND hDlg, int id, HWND hwndCtl, UINT codeNotify)
{
#ifdef WIN32_PLATFORM_PSPC    
    if (codeNotify == EN_SETFOCUS)
    {
        FocusChangedScrollWindow(hDlg, hwndCtl, s_iLineHeight);
    }
#endif
    ....
}
//------------------------------------------------------------------------------
// hDlg            :对话框的HWND
// hCtrl        :焦点切换控件的HWND
// iLineHeight    :一组控件的行高
void FocusChangedScrollWindow(HWND hDlg, HWND hCtrl, INT iLineHeight)
{
    RECT    rcCtrl,rcDlg;
    LPPOINT lpPoint = (LPPOINT)&rcCtrl;    
    GetWindowRect(hDlg, &rcDlg);
    GetWindowRect(hCtrl, &rcCtrl);
    lpPoint->y += rcCtrl.bottom - rcCtrl.top;
    INT iRst = CheckPointYOnRect(lpPoint, &rcDlg);                        //检查一个点的Y坐标在屏幕的上方还是下方
    if (iRst)
    {
        INT iPos;
        if (iRst > 0)                                                    //在屏幕的下方
        {
            iPos = ((lpPoint->y - rcDlg.bottom) / iLineHeight + 1);
            SCROLLINFO si = {0};
            si.fMask = SIF_ALL;
            si.cbSize = sizeof(si); 
            GetScrollInfo(hDlg,SB_VERT,&si); 
            iPos += si.nPos;                                            //需要加上当前的滚动条位置
        }
        else if (iRst < 0)                                                //在屏幕的上方
        {
            iPos = (lpPoint->y - s_iCtrlStart) / iLineHeight;
        }
        else
        {
            ASSERT(FALSE);
        }
        SendMessage(hDlg, WM_VSCROLL, MAKELONG(SB_THUMBPOSITION, iPos), 0L);
    }
}
//------------------------------------------------------------------------------
//    INT CheckPointYOnRect(LPPOINT lpPoint, LPRECT lpRect) 
//    检查一个点的Y坐标在RECT上方还是下方。
//------------------------------------------------------------------------------
INT CheckPointYOnRect(LPPOINT lpPoint, LPRECT lpRect) 
{
    if (!lpPoint || !lpRect)
    {
        ASSERT(FALSE);
    }
    if (lpPoint->y < lpRect->top)
    {
        return -1;
    }
    else if (lpPoint->y > lpRect->bottom)
    {
        return 1;
    }
    else
    {
        return 0;
    }
}

//EN_SETFOCUS是EDIT控件发送的，DTP控件没有这个事件,子类化后处理WM_SETFOCUS消息
//模拟发送一个EN_SETFOCUS消息。
LRESULT CALLBACK EditDlg_DTPProc(HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
{
    LRESULT lResult = 0;
    switch (uMsg)
    {
    case WM_SETFOCUS:
        {
            lResult = CallWindowProc(s_pfnDTPProc, hWnd, uMsg, wParam, lParam);
            SendMessage(GetParent(hWnd), WM_COMMAND, MAKELONG(0,EN_SETFOCUS),(LPARAM)hWnd);
            return lResult;
        }
    }
    return CallWindowProc(s_pfnDTPProc, hWnd, uMsg, wParam, lParam);
}

至此，比较好的解决了滚动条的问题和焦点切换的时候带动滚动条联动。

最后的补充说明：本文中代码是把1个Staic和1个Edit（DTP）当成一行进行滚动，所以计算行高和当页能显示的行数很重要。此代码要修改成根据像素设定滚动条也很简单。