Tabbing in the listview of the shellview.

This commit is contained in:
Francois Boisvert 1999-09-10 13:56:31 +00:00 committed by Alexandre Julliard
parent 89e6840b43
commit dd93b71c71
1 changed files with 6 additions and 1 deletions

View File

@ -787,6 +787,9 @@ static LRESULT ShellView_OnSetFocus(IShellViewImpl * This)
IShellBrowser_OnViewWindowActive(This->pShellBrowser,(IShellView*) This);
ShellView_OnActivate(This, SVUIA_ACTIVATE_FOCUS);
/* Set the focus to the listview */
SetFocus(This->hWndList);
/* Notify the ICommDlgBrowser interface */
OnStateChange(This,CDBOSC_SETFOCUS);
@ -1036,6 +1039,8 @@ static LRESULT CALLBACK ShellView_WndProc(HWND hWnd, UINT uMessage, WPARAM wPara
case WM_SHOWWINDOW: UpdateWindow(pThis->hWndList);
break;
case WM_GETDLGCODE: return SendMessageA(pThis->hWndList,uMessage,0,0);
case WM_DESTROY: pRevokeDragDrop(pThis->hWnd);
break;
}
@ -1293,7 +1298,7 @@ static HRESULT WINAPI IShellView_fnCreateViewWindow(
*phWnd = CreateWindowExA(0,
SV_CLASS_NAME,
NULL,
WS_CHILD | WS_VISIBLE | WS_CLIPSIBLINGS,
WS_CHILD | WS_VISIBLE | WS_CLIPSIBLINGS | WS_TABSTOP,
prcView->left,
prcView->top,
prcView->right - prcView->left,