937 lines
26 KiB
C
937 lines
26 KiB
C
/*
|
|
* Copyright 2014 Piotr Caban for CodeWeavers
|
|
*
|
|
* This library is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU Lesser General Public
|
|
* License as published by the Free Software Foundation; either
|
|
* version 2.1 of the License, or (at your option) any later version.
|
|
*
|
|
* This library is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
* Lesser General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Lesser General Public
|
|
* License along with this library; if not, write to the Free Software
|
|
* Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
|
|
*/
|
|
|
|
#define COBJMACROS
|
|
|
|
#include <assert.h>
|
|
#include "oleacc_private.h"
|
|
#include "commctrl.h"
|
|
|
|
#include "wine/debug.h"
|
|
#include "wine/heap.h"
|
|
|
|
WINE_DEFAULT_DEBUG_CHANNEL(oleacc);
|
|
|
|
typedef struct win_class_vtbl win_class_vtbl;
|
|
typedef struct {
|
|
IAccessible IAccessible_iface;
|
|
IOleWindow IOleWindow_iface;
|
|
IEnumVARIANT IEnumVARIANT_iface;
|
|
IServiceProvider IServiceProvider_iface;
|
|
|
|
LONG ref;
|
|
|
|
HWND hwnd;
|
|
HWND enum_pos;
|
|
INT role;
|
|
|
|
const win_class_vtbl *vtbl;
|
|
} Client;
|
|
|
|
struct win_class_vtbl {
|
|
void (*init)(Client*);
|
|
HRESULT (*get_state)(Client*, VARIANT, VARIANT*);
|
|
HRESULT (*get_name)(Client*, VARIANT, BSTR*);
|
|
HRESULT (*get_kbd_shortcut)(Client*, VARIANT, BSTR*);
|
|
HRESULT (*get_value)(Client*, VARIANT, BSTR*);
|
|
HRESULT (*put_value)(Client*, VARIANT, BSTR);
|
|
};
|
|
|
|
static HRESULT win_get_name(HWND hwnd, BSTR *name)
|
|
{
|
|
WCHAR buf[1024];
|
|
UINT i, len;
|
|
|
|
len = SendMessageW(hwnd, WM_GETTEXT, ARRAY_SIZE(buf), (LPARAM)buf);
|
|
if(!len)
|
|
return S_FALSE;
|
|
|
|
for(i=0; i<len; i++) {
|
|
if(buf[i] == '&') {
|
|
len--;
|
|
memmove(buf+i, buf+i+1, (len-i)*sizeof(WCHAR));
|
|
break;
|
|
}
|
|
}
|
|
|
|
*name = SysAllocStringLen(buf, len);
|
|
return *name ? S_OK : E_OUTOFMEMORY;
|
|
}
|
|
|
|
static HRESULT win_get_kbd_shortcut(HWND hwnd, BSTR *shortcut)
|
|
{
|
|
WCHAR buf[1024];
|
|
UINT i, len;
|
|
|
|
len = SendMessageW(hwnd, WM_GETTEXT, ARRAY_SIZE(buf), (LPARAM)buf);
|
|
if(!len)
|
|
return S_FALSE;
|
|
|
|
for(i=0; i<len; i++) {
|
|
if(buf[i] == '&')
|
|
break;
|
|
}
|
|
if(i+1 >= len)
|
|
return S_FALSE;
|
|
|
|
*shortcut = SysAllocString(L"Alt+!");
|
|
if(!*shortcut)
|
|
return E_OUTOFMEMORY;
|
|
(*shortcut)[4] = buf[i+1];
|
|
return S_OK;
|
|
}
|
|
|
|
static inline Client* impl_from_Client(IAccessible *iface)
|
|
{
|
|
return CONTAINING_RECORD(iface, Client, IAccessible_iface);
|
|
}
|
|
|
|
static HRESULT WINAPI Client_QueryInterface(IAccessible *iface, REFIID riid, void **ppv)
|
|
{
|
|
Client *This = impl_from_Client(iface);
|
|
|
|
TRACE("(%p)->(%s %p)\n", This, debugstr_guid(riid), ppv);
|
|
|
|
if(IsEqualIID(riid, &IID_IAccessible) ||
|
|
IsEqualIID(riid, &IID_IDispatch) ||
|
|
IsEqualIID(riid, &IID_IUnknown)) {
|
|
*ppv = iface;
|
|
}else if(IsEqualIID(riid, &IID_IOleWindow)) {
|
|
*ppv = &This->IOleWindow_iface;
|
|
}else if(IsEqualIID(riid, &IID_IEnumVARIANT)) {
|
|
*ppv = &This->IEnumVARIANT_iface;
|
|
}else if(IsEqualIID(riid, &IID_IServiceProvider)) {
|
|
*ppv = &This->IServiceProvider_iface;
|
|
}else {
|
|
WARN("no interface: %s\n", debugstr_guid(riid));
|
|
*ppv = NULL;
|
|
return E_NOINTERFACE;
|
|
}
|
|
|
|
IAccessible_AddRef(iface);
|
|
return S_OK;
|
|
}
|
|
|
|
static ULONG WINAPI Client_AddRef(IAccessible *iface)
|
|
{
|
|
Client *This = impl_from_Client(iface);
|
|
ULONG ref = InterlockedIncrement(&This->ref);
|
|
|
|
TRACE("(%p) ref = %lu\n", This, ref);
|
|
return ref;
|
|
}
|
|
|
|
static ULONG WINAPI Client_Release(IAccessible *iface)
|
|
{
|
|
Client *This = impl_from_Client(iface);
|
|
ULONG ref = InterlockedDecrement(&This->ref);
|
|
|
|
TRACE("(%p) ref = %lu\n", This, ref);
|
|
|
|
if(!ref)
|
|
heap_free(This);
|
|
return ref;
|
|
}
|
|
|
|
static HRESULT WINAPI Client_GetTypeInfoCount(IAccessible *iface, UINT *pctinfo)
|
|
{
|
|
Client *This = impl_from_Client(iface);
|
|
FIXME("(%p)->(%p)\n", This, pctinfo);
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static HRESULT WINAPI Client_GetTypeInfo(IAccessible *iface,
|
|
UINT iTInfo, LCID lcid, ITypeInfo **ppTInfo)
|
|
{
|
|
Client *This = impl_from_Client(iface);
|
|
FIXME("(%p)->(%u %lx %p)\n", This, iTInfo, lcid, ppTInfo);
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static HRESULT WINAPI Client_GetIDsOfNames(IAccessible *iface, REFIID riid,
|
|
LPOLESTR *rgszNames, UINT cNames, LCID lcid, DISPID *rgDispId)
|
|
{
|
|
Client *This = impl_from_Client(iface);
|
|
FIXME("(%p)->(%s %p %u %lx %p)\n", This, debugstr_guid(riid),
|
|
rgszNames, cNames, lcid, rgDispId);
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static HRESULT WINAPI Client_Invoke(IAccessible *iface, DISPID dispIdMember,
|
|
REFIID riid, LCID lcid, WORD wFlags, DISPPARAMS *pDispParams,
|
|
VARIANT *pVarResult, EXCEPINFO *pExcepInfo, UINT *puArgErr)
|
|
{
|
|
Client *This = impl_from_Client(iface);
|
|
FIXME("(%p)->(%lx %s %lx %x %p %p %p %p)\n", This, dispIdMember, debugstr_guid(riid),
|
|
lcid, wFlags, pDispParams, pVarResult, pExcepInfo, puArgErr);
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static HRESULT WINAPI Client_get_accParent(IAccessible *iface, IDispatch **ppdispParent)
|
|
{
|
|
Client *This = impl_from_Client(iface);
|
|
|
|
TRACE("(%p)->(%p)\n", This, ppdispParent);
|
|
|
|
return AccessibleObjectFromWindow(This->hwnd, OBJID_WINDOW,
|
|
&IID_IDispatch, (void**)ppdispParent);
|
|
}
|
|
|
|
static HRESULT WINAPI Client_get_accChildCount(IAccessible *iface, LONG *pcountChildren)
|
|
{
|
|
Client *This = impl_from_Client(iface);
|
|
HWND cur;
|
|
|
|
TRACE("(%p)->(%p)\n", This, pcountChildren);
|
|
|
|
*pcountChildren = 0;
|
|
for(cur = GetWindow(This->hwnd, GW_CHILD); cur; cur = GetWindow(cur, GW_HWNDNEXT))
|
|
(*pcountChildren)++;
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT WINAPI Client_get_accChild(IAccessible *iface,
|
|
VARIANT varChildID, IDispatch **ppdispChild)
|
|
{
|
|
Client *This = impl_from_Client(iface);
|
|
|
|
TRACE("(%p)->(%s %p)\n", This, debugstr_variant(&varChildID), ppdispChild);
|
|
|
|
*ppdispChild = NULL;
|
|
return E_INVALIDARG;
|
|
}
|
|
|
|
static HRESULT WINAPI Client_get_accName(IAccessible *iface, VARIANT id, BSTR *name)
|
|
{
|
|
Client *This = impl_from_Client(iface);
|
|
|
|
TRACE("(%p)->(%s %p)\n", This, debugstr_variant(&id), name);
|
|
|
|
*name = NULL;
|
|
if(This->vtbl && This->vtbl->get_name)
|
|
return This->vtbl->get_name(This, id, name);
|
|
|
|
if(convert_child_id(&id) != CHILDID_SELF || !IsWindow(This->hwnd))
|
|
return E_INVALIDARG;
|
|
|
|
return win_get_name(This->hwnd, name);
|
|
}
|
|
|
|
static HRESULT WINAPI Client_get_accValue(IAccessible *iface, VARIANT id, BSTR *value)
|
|
{
|
|
Client *This = impl_from_Client(iface);
|
|
|
|
TRACE("(%p)->(%s %p)\n", This, debugstr_variant(&id), value);
|
|
|
|
*value = NULL;
|
|
if(This->vtbl && This->vtbl->get_value)
|
|
return This->vtbl->get_value(This, id, value);
|
|
|
|
if(convert_child_id(&id) != CHILDID_SELF)
|
|
return E_INVALIDARG;
|
|
return S_FALSE;
|
|
}
|
|
|
|
static HRESULT WINAPI Client_get_accDescription(IAccessible *iface,
|
|
VARIANT varID, BSTR *pszDescription)
|
|
{
|
|
Client *This = impl_from_Client(iface);
|
|
|
|
TRACE("(%p)->(%s %p)\n", This, debugstr_variant(&varID), pszDescription);
|
|
|
|
*pszDescription = NULL;
|
|
if(convert_child_id(&varID) != CHILDID_SELF)
|
|
return E_INVALIDARG;
|
|
return S_FALSE;
|
|
}
|
|
|
|
static HRESULT WINAPI Client_get_accRole(IAccessible *iface, VARIANT varID, VARIANT *pvarRole)
|
|
{
|
|
Client *This = impl_from_Client(iface);
|
|
|
|
TRACE("(%p)->(%s %p)\n", This, debugstr_variant(&varID), pvarRole);
|
|
|
|
if(convert_child_id(&varID) != CHILDID_SELF) {
|
|
V_VT(pvarRole) = VT_EMPTY;
|
|
return E_INVALIDARG;
|
|
}
|
|
|
|
V_VT(pvarRole) = VT_I4;
|
|
V_I4(pvarRole) = This->role;
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT client_get_state(Client *client, VARIANT id, VARIANT *state)
|
|
{
|
|
GUITHREADINFO info;
|
|
LONG style;
|
|
|
|
if(convert_child_id(&id) != CHILDID_SELF) {
|
|
V_VT(state) = VT_EMPTY;
|
|
return E_INVALIDARG;
|
|
}
|
|
|
|
V_VT(state) = VT_I4;
|
|
V_I4(state) = 0;
|
|
|
|
style = GetWindowLongW(client->hwnd, GWL_STYLE);
|
|
if(style & WS_DISABLED)
|
|
V_I4(state) |= STATE_SYSTEM_UNAVAILABLE;
|
|
else if(IsWindow(client->hwnd))
|
|
V_I4(state) |= STATE_SYSTEM_FOCUSABLE;
|
|
|
|
info.cbSize = sizeof(info);
|
|
if(GetGUIThreadInfo(0, &info) && info.hwndFocus == client->hwnd)
|
|
V_I4(state) |= STATE_SYSTEM_FOCUSED;
|
|
if(!(style & WS_VISIBLE))
|
|
V_I4(state) |= STATE_SYSTEM_INVISIBLE;
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT WINAPI Client_get_accState(IAccessible *iface, VARIANT id, VARIANT *state)
|
|
{
|
|
Client *This = impl_from_Client(iface);
|
|
|
|
TRACE("(%p)->(%s %p)\n", This, debugstr_variant(&id), state);
|
|
|
|
if(This->vtbl && This->vtbl->get_state)
|
|
return This->vtbl->get_state(This, id, state);
|
|
return client_get_state(This, id, state);
|
|
}
|
|
|
|
static HRESULT WINAPI Client_get_accHelp(IAccessible *iface, VARIANT varID, BSTR *pszHelp)
|
|
{
|
|
Client *This = impl_from_Client(iface);
|
|
|
|
TRACE("(%p)->(%s %p)\n", This, debugstr_variant(&varID), pszHelp);
|
|
|
|
*pszHelp = NULL;
|
|
if(convert_child_id(&varID) != CHILDID_SELF)
|
|
return E_INVALIDARG;
|
|
return S_FALSE;
|
|
}
|
|
|
|
static HRESULT WINAPI Client_get_accHelpTopic(IAccessible *iface,
|
|
BSTR *pszHelpFile, VARIANT varID, LONG *pidTopic)
|
|
{
|
|
Client *This = impl_from_Client(iface);
|
|
FIXME("(%p)->(%p %s %p)\n", This, pszHelpFile, debugstr_variant(&varID), pidTopic);
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static HRESULT WINAPI Client_get_accKeyboardShortcut(IAccessible *iface,
|
|
VARIANT id, BSTR *shortcut)
|
|
{
|
|
Client *This = impl_from_Client(iface);
|
|
|
|
TRACE("(%p)->(%s %p)\n", This, debugstr_variant(&id), shortcut);
|
|
|
|
*shortcut = NULL;
|
|
if(This->vtbl && This->vtbl->get_kbd_shortcut)
|
|
return This->vtbl->get_kbd_shortcut(This, id, shortcut);
|
|
|
|
if(convert_child_id(&id) != CHILDID_SELF)
|
|
return E_INVALIDARG;
|
|
|
|
return win_get_kbd_shortcut(This->hwnd, shortcut);
|
|
}
|
|
|
|
static HRESULT WINAPI Client_get_accFocus(IAccessible *iface, VARIANT *focus)
|
|
{
|
|
Client *This = impl_from_Client(iface);
|
|
GUITHREADINFO info;
|
|
|
|
TRACE("(%p)->(%p)\n", This, focus);
|
|
|
|
V_VT(focus) = VT_EMPTY;
|
|
info.cbSize = sizeof(info);
|
|
if(GetGUIThreadInfo(0, &info) && info.hwndFocus) {
|
|
if(info.hwndFocus == This->hwnd) {
|
|
V_VT(focus) = VT_I4;
|
|
V_I4(focus) = CHILDID_SELF;
|
|
}
|
|
else if(IsChild(This->hwnd, info.hwndFocus)) {
|
|
IDispatch *disp;
|
|
HRESULT hr;
|
|
|
|
hr = AccessibleObjectFromWindow(info.hwndFocus, OBJID_WINDOW,
|
|
&IID_IDispatch, (void**)&disp);
|
|
if(FAILED(hr))
|
|
return hr;
|
|
if(!disp)
|
|
return E_FAIL;
|
|
|
|
V_VT(focus) = VT_DISPATCH;
|
|
V_DISPATCH(focus) = disp;
|
|
}
|
|
}
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT WINAPI Client_get_accSelection(IAccessible *iface, VARIANT *pvarID)
|
|
{
|
|
Client *This = impl_from_Client(iface);
|
|
FIXME("(%p)->(%p)\n", This, pvarID);
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static HRESULT WINAPI Client_get_accDefaultAction(IAccessible *iface,
|
|
VARIANT varID, BSTR *pszDefaultAction)
|
|
{
|
|
Client *This = impl_from_Client(iface);
|
|
|
|
TRACE("(%p)->(%s %p)\n", This, debugstr_variant(&varID), pszDefaultAction);
|
|
|
|
*pszDefaultAction = NULL;
|
|
if(convert_child_id(&varID) != CHILDID_SELF)
|
|
return E_INVALIDARG;
|
|
return S_FALSE;
|
|
}
|
|
|
|
static HRESULT WINAPI Client_accSelect(IAccessible *iface, LONG flagsSelect, VARIANT varID)
|
|
{
|
|
Client *This = impl_from_Client(iface);
|
|
FIXME("(%p)->(%lx %s)\n", This, flagsSelect, debugstr_variant(&varID));
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static HRESULT WINAPI Client_accLocation(IAccessible *iface, LONG *pxLeft,
|
|
LONG *pyTop, LONG *pcxWidth, LONG *pcyHeight, VARIANT varID)
|
|
{
|
|
Client *This = impl_from_Client(iface);
|
|
RECT rect;
|
|
POINT pt;
|
|
|
|
TRACE("(%p)->(%p %p %p %p %s)\n", This, pxLeft, pyTop,
|
|
pcxWidth, pcyHeight, debugstr_variant(&varID));
|
|
|
|
*pxLeft = *pyTop = *pcxWidth = *pcyHeight = 0;
|
|
if(convert_child_id(&varID) != CHILDID_SELF)
|
|
return E_INVALIDARG;
|
|
|
|
if(!GetClientRect(This->hwnd, &rect))
|
|
return S_OK;
|
|
|
|
pt.x = rect.left;
|
|
pt.y = rect.top;
|
|
MapWindowPoints(This->hwnd, NULL, &pt, 1);
|
|
*pxLeft = pt.x;
|
|
*pyTop = pt.y;
|
|
|
|
pt.x = rect.right;
|
|
pt.y = rect.bottom;
|
|
MapWindowPoints(This->hwnd, NULL, &pt, 1);
|
|
*pcxWidth = pt.x - *pxLeft;
|
|
*pcyHeight = pt.y - *pyTop;
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT WINAPI Client_accNavigate(IAccessible *iface,
|
|
LONG navDir, VARIANT varStart, VARIANT *pvarEnd)
|
|
{
|
|
Client *This = impl_from_Client(iface);
|
|
FIXME("(%p)->(%ld %s %p)\n", This, navDir, debugstr_variant(&varStart), pvarEnd);
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static HRESULT WINAPI Client_accHitTest(IAccessible *iface,
|
|
LONG xLeft, LONG yTop, VARIANT *pvarID)
|
|
{
|
|
Client *This = impl_from_Client(iface);
|
|
HWND child;
|
|
POINT pt;
|
|
|
|
TRACE("(%p)->(%ld %ld %p)\n", This, xLeft, yTop, pvarID);
|
|
|
|
V_VT(pvarID) = VT_I4;
|
|
V_I4(pvarID) = 0;
|
|
|
|
pt.x = xLeft;
|
|
pt.y = yTop;
|
|
if(!IsWindowVisible(This->hwnd) || !ScreenToClient(This->hwnd, &pt))
|
|
return S_OK;
|
|
|
|
child = ChildWindowFromPointEx(This->hwnd, pt, CWP_SKIPINVISIBLE);
|
|
if(!child || child==This->hwnd)
|
|
return S_OK;
|
|
|
|
V_VT(pvarID) = VT_DISPATCH;
|
|
return AccessibleObjectFromWindow(child, OBJID_WINDOW,
|
|
&IID_IDispatch, (void**)&V_DISPATCH(pvarID));
|
|
}
|
|
|
|
static HRESULT WINAPI Client_accDoDefaultAction(IAccessible *iface, VARIANT varID)
|
|
{
|
|
Client *This = impl_from_Client(iface);
|
|
FIXME("(%p)->(%s)\n", This, debugstr_variant(&varID));
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static HRESULT WINAPI Client_put_accName(IAccessible *iface, VARIANT varID, BSTR pszName)
|
|
{
|
|
Client *This = impl_from_Client(iface);
|
|
FIXME("(%p)->(%s %s)\n", This, debugstr_variant(&varID), debugstr_w(pszName));
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static HRESULT WINAPI Client_put_accValue(IAccessible *iface, VARIANT id, BSTR value)
|
|
{
|
|
Client *This = impl_from_Client(iface);
|
|
|
|
TRACE("(%p)->(%s %p)\n", This, debugstr_variant(&id), value);
|
|
|
|
if(This->vtbl && This->vtbl->put_value)
|
|
return This->vtbl->put_value(This, id, value);
|
|
|
|
if(convert_child_id(&id) != CHILDID_SELF)
|
|
return E_INVALIDARG;
|
|
return S_FALSE;
|
|
}
|
|
|
|
static const IAccessibleVtbl ClientVtbl = {
|
|
Client_QueryInterface,
|
|
Client_AddRef,
|
|
Client_Release,
|
|
Client_GetTypeInfoCount,
|
|
Client_GetTypeInfo,
|
|
Client_GetIDsOfNames,
|
|
Client_Invoke,
|
|
Client_get_accParent,
|
|
Client_get_accChildCount,
|
|
Client_get_accChild,
|
|
Client_get_accName,
|
|
Client_get_accValue,
|
|
Client_get_accDescription,
|
|
Client_get_accRole,
|
|
Client_get_accState,
|
|
Client_get_accHelp,
|
|
Client_get_accHelpTopic,
|
|
Client_get_accKeyboardShortcut,
|
|
Client_get_accFocus,
|
|
Client_get_accSelection,
|
|
Client_get_accDefaultAction,
|
|
Client_accSelect,
|
|
Client_accLocation,
|
|
Client_accNavigate,
|
|
Client_accHitTest,
|
|
Client_accDoDefaultAction,
|
|
Client_put_accName,
|
|
Client_put_accValue
|
|
};
|
|
|
|
static inline Client* impl_from_Client_OleWindow(IOleWindow *iface)
|
|
{
|
|
return CONTAINING_RECORD(iface, Client, IOleWindow_iface);
|
|
}
|
|
|
|
static HRESULT WINAPI Client_OleWindow_QueryInterface(IOleWindow *iface, REFIID riid, void **ppv)
|
|
{
|
|
Client *This = impl_from_Client_OleWindow(iface);
|
|
return IAccessible_QueryInterface(&This->IAccessible_iface, riid, ppv);
|
|
}
|
|
|
|
static ULONG WINAPI Client_OleWindow_AddRef(IOleWindow *iface)
|
|
{
|
|
Client *This = impl_from_Client_OleWindow(iface);
|
|
return IAccessible_AddRef(&This->IAccessible_iface);
|
|
}
|
|
|
|
static ULONG WINAPI Client_OleWindow_Release(IOleWindow *iface)
|
|
{
|
|
Client *This = impl_from_Client_OleWindow(iface);
|
|
return IAccessible_Release(&This->IAccessible_iface);
|
|
}
|
|
|
|
static HRESULT WINAPI Client_OleWindow_GetWindow(IOleWindow *iface, HWND *phwnd)
|
|
{
|
|
Client *This = impl_from_Client_OleWindow(iface);
|
|
|
|
TRACE("(%p)->(%p)\n", This, phwnd);
|
|
|
|
*phwnd = This->hwnd;
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT WINAPI Client_OleWindow_ContextSensitiveHelp(IOleWindow *iface, BOOL fEnterMode)
|
|
{
|
|
Client *This = impl_from_Client_OleWindow(iface);
|
|
FIXME("(%p)->(%x)\n", This, fEnterMode);
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static const IOleWindowVtbl ClientOleWindowVtbl = {
|
|
Client_OleWindow_QueryInterface,
|
|
Client_OleWindow_AddRef,
|
|
Client_OleWindow_Release,
|
|
Client_OleWindow_GetWindow,
|
|
Client_OleWindow_ContextSensitiveHelp
|
|
};
|
|
|
|
static inline Client* impl_from_Client_EnumVARIANT(IEnumVARIANT *iface)
|
|
{
|
|
return CONTAINING_RECORD(iface, Client, IEnumVARIANT_iface);
|
|
}
|
|
|
|
static HRESULT WINAPI Client_EnumVARIANT_QueryInterface(IEnumVARIANT *iface, REFIID riid, void **ppv)
|
|
{
|
|
Client *This = impl_from_Client_EnumVARIANT(iface);
|
|
return IAccessible_QueryInterface(&This->IAccessible_iface, riid, ppv);
|
|
}
|
|
|
|
static ULONG WINAPI Client_EnumVARIANT_AddRef(IEnumVARIANT *iface)
|
|
{
|
|
Client *This = impl_from_Client_EnumVARIANT(iface);
|
|
return IAccessible_AddRef(&This->IAccessible_iface);
|
|
}
|
|
|
|
static ULONG WINAPI Client_EnumVARIANT_Release(IEnumVARIANT *iface)
|
|
{
|
|
Client *This = impl_from_Client_EnumVARIANT(iface);
|
|
return IAccessible_Release(&This->IAccessible_iface);
|
|
}
|
|
|
|
static HRESULT WINAPI Client_EnumVARIANT_Next(IEnumVARIANT *iface,
|
|
ULONG celt, VARIANT *rgVar, ULONG *pCeltFetched)
|
|
{
|
|
Client *This = impl_from_Client_EnumVARIANT(iface);
|
|
HWND cur = This->enum_pos, next;
|
|
ULONG fetched = 0;
|
|
HRESULT hr;
|
|
|
|
TRACE("(%p)->(%lu %p %p)\n", This, celt, rgVar, pCeltFetched);
|
|
|
|
if(!celt) {
|
|
if(pCeltFetched)
|
|
*pCeltFetched = 0;
|
|
return S_OK;
|
|
}
|
|
|
|
if(!This->enum_pos)
|
|
next = GetWindow(This->hwnd, GW_CHILD);
|
|
else
|
|
next = GetWindow(This->enum_pos, GW_HWNDNEXT);
|
|
|
|
while(next) {
|
|
cur = next;
|
|
|
|
V_VT(rgVar+fetched) = VT_DISPATCH;
|
|
hr = AccessibleObjectFromWindow(cur, OBJID_WINDOW,
|
|
&IID_IDispatch, (void**)&V_DISPATCH(rgVar+fetched));
|
|
if(FAILED(hr)) {
|
|
V_VT(rgVar+fetched) = VT_EMPTY;
|
|
while(fetched > 0) {
|
|
VariantClear(rgVar+fetched-1);
|
|
fetched--;
|
|
}
|
|
if(pCeltFetched)
|
|
*pCeltFetched = 0;
|
|
return hr;
|
|
}
|
|
fetched++;
|
|
if(fetched == celt)
|
|
break;
|
|
|
|
next = GetWindow(cur, GW_HWNDNEXT);
|
|
}
|
|
|
|
This->enum_pos = cur;
|
|
if(pCeltFetched)
|
|
*pCeltFetched = fetched;
|
|
return celt == fetched ? S_OK : S_FALSE;
|
|
}
|
|
|
|
static HRESULT WINAPI Client_EnumVARIANT_Skip(IEnumVARIANT *iface, ULONG celt)
|
|
{
|
|
Client *This = impl_from_Client_EnumVARIANT(iface);
|
|
HWND next;
|
|
|
|
TRACE("(%p)->(%lu)\n", This, celt);
|
|
|
|
while(celt) {
|
|
if(!This->enum_pos)
|
|
next = GetWindow(This->hwnd, GW_CHILD);
|
|
else
|
|
next = GetWindow(This->enum_pos, GW_HWNDNEXT);
|
|
if(!next)
|
|
return S_FALSE;
|
|
|
|
This->enum_pos = next;
|
|
celt--;
|
|
}
|
|
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT WINAPI Client_EnumVARIANT_Reset(IEnumVARIANT *iface)
|
|
{
|
|
Client *This = impl_from_Client_EnumVARIANT(iface);
|
|
|
|
TRACE("(%p)\n", This);
|
|
|
|
This->enum_pos = 0;
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT WINAPI Client_EnumVARIANT_Clone(IEnumVARIANT *iface, IEnumVARIANT **ppEnum)
|
|
{
|
|
Client *This = impl_from_Client_EnumVARIANT(iface);
|
|
FIXME("(%p)->(%p)\n", This, ppEnum);
|
|
return E_NOTIMPL;
|
|
}
|
|
|
|
static const IEnumVARIANTVtbl ClientEnumVARIANTVtbl = {
|
|
Client_EnumVARIANT_QueryInterface,
|
|
Client_EnumVARIANT_AddRef,
|
|
Client_EnumVARIANT_Release,
|
|
Client_EnumVARIANT_Next,
|
|
Client_EnumVARIANT_Skip,
|
|
Client_EnumVARIANT_Reset,
|
|
Client_EnumVARIANT_Clone
|
|
};
|
|
|
|
static inline Client* impl_from_Client_ServiceProvider(IServiceProvider *iface)
|
|
{
|
|
return CONTAINING_RECORD(iface, Client, IServiceProvider_iface);
|
|
}
|
|
|
|
static HRESULT WINAPI Client_ServiceProvider_QueryInterface(IServiceProvider *iface, REFIID riid, void **ppv)
|
|
{
|
|
Client *This = impl_from_Client_ServiceProvider(iface);
|
|
return IAccessible_QueryInterface(&This->IAccessible_iface, riid, ppv);
|
|
}
|
|
|
|
static ULONG WINAPI Client_ServiceProvider_AddRef(IServiceProvider *iface)
|
|
{
|
|
Client *This = impl_from_Client_ServiceProvider(iface);
|
|
return IAccessible_AddRef(&This->IAccessible_iface);
|
|
}
|
|
|
|
static ULONG WINAPI Client_ServiceProvider_Release(IServiceProvider *iface)
|
|
{
|
|
Client *This = impl_from_Client_ServiceProvider(iface);
|
|
return IAccessible_Release(&This->IAccessible_iface);
|
|
}
|
|
|
|
static HRESULT WINAPI Client_ServiceProvider_QueryService(IServiceProvider *iface, REFGUID guid_service,
|
|
REFIID riid, void **ppv)
|
|
{
|
|
Client *This = impl_from_Client_ServiceProvider(iface);
|
|
|
|
TRACE("(%p)->(%s %s %p)\n", This, debugstr_guid(guid_service), debugstr_guid(riid), ppv);
|
|
|
|
*ppv = NULL;
|
|
if (IsEqualIID(guid_service, &IIS_IsOleaccProxy))
|
|
return IAccessible_QueryInterface(&This->IAccessible_iface, riid, ppv);
|
|
|
|
return E_INVALIDARG;
|
|
}
|
|
|
|
static const IServiceProviderVtbl ClientServiceProviderVtbl = {
|
|
Client_ServiceProvider_QueryInterface,
|
|
Client_ServiceProvider_AddRef,
|
|
Client_ServiceProvider_Release,
|
|
Client_ServiceProvider_QueryService
|
|
};
|
|
|
|
static void edit_init(Client *client)
|
|
{
|
|
client->role = ROLE_SYSTEM_TEXT;
|
|
}
|
|
|
|
static HRESULT edit_get_state(Client *client, VARIANT id, VARIANT *state)
|
|
{
|
|
HRESULT hres;
|
|
LONG style;
|
|
|
|
hres = client_get_state(client, id, state);
|
|
if(FAILED(hres))
|
|
return hres;
|
|
|
|
assert(V_VT(state) == VT_I4);
|
|
|
|
style = GetWindowLongW(client->hwnd, GWL_STYLE);
|
|
if(style & ES_READONLY)
|
|
V_I4(state) |= STATE_SYSTEM_READONLY;
|
|
if(style & ES_PASSWORD)
|
|
V_I4(state) |= STATE_SYSTEM_PROTECTED;
|
|
return S_OK;
|
|
}
|
|
|
|
/*
|
|
* Edit control objects have their name property defined by the first static
|
|
* text control preceding them in the order of window creation. If one is not
|
|
* found, the edit has no name property. In the case of the keyboard shortcut
|
|
* property, the first preceding visible static text control is used.
|
|
*/
|
|
static HWND edit_find_label(HWND hwnd, BOOL visible)
|
|
{
|
|
HWND cur;
|
|
|
|
for(cur = hwnd; cur; cur = GetWindow(cur, GW_HWNDPREV)) {
|
|
WCHAR class_name[64];
|
|
|
|
if(!RealGetWindowClassW(cur, class_name, ARRAY_SIZE(class_name)))
|
|
continue;
|
|
|
|
if(!wcsicmp(class_name, WC_STATICW)) {
|
|
if(visible && !(GetWindowLongW(cur, GWL_STYLE) & WS_VISIBLE))
|
|
continue;
|
|
else
|
|
break;
|
|
}
|
|
}
|
|
|
|
return cur;
|
|
}
|
|
|
|
static HRESULT edit_get_name(Client *client, VARIANT id, BSTR *name)
|
|
{
|
|
HWND label;
|
|
|
|
if(convert_child_id(&id) != CHILDID_SELF || !IsWindow(client->hwnd))
|
|
return E_INVALIDARG;
|
|
|
|
label = edit_find_label(client->hwnd, FALSE);
|
|
if(!label)
|
|
return S_FALSE;
|
|
|
|
return win_get_name(label, name);
|
|
}
|
|
|
|
static HRESULT edit_get_kbd_shortcut(Client *client, VARIANT id, BSTR *shortcut)
|
|
{
|
|
HWND label;
|
|
|
|
if(convert_child_id(&id) != CHILDID_SELF)
|
|
return E_INVALIDARG;
|
|
|
|
label = edit_find_label(client->hwnd, TRUE);
|
|
if(!label)
|
|
return S_FALSE;
|
|
|
|
return win_get_kbd_shortcut(label, shortcut);
|
|
}
|
|
|
|
static HRESULT edit_get_value(Client *client, VARIANT id, BSTR *value_out)
|
|
{
|
|
WCHAR *buf;
|
|
UINT len;
|
|
|
|
if(convert_child_id(&id) != CHILDID_SELF)
|
|
return E_INVALIDARG;
|
|
|
|
if(GetWindowLongW(client->hwnd, GWL_STYLE) & ES_PASSWORD)
|
|
return E_ACCESSDENIED;
|
|
|
|
len = SendMessageW(client->hwnd, WM_GETTEXTLENGTH, 0, 0);
|
|
buf = heap_alloc_zero((len + 1) * sizeof(*buf));
|
|
if(!buf)
|
|
return E_OUTOFMEMORY;
|
|
|
|
SendMessageW(client->hwnd, WM_GETTEXT, len + 1, (LPARAM)buf);
|
|
*value_out = SysAllocString(buf);
|
|
heap_free(buf);
|
|
return S_OK;
|
|
}
|
|
|
|
static HRESULT edit_put_value(Client *client, VARIANT id, BSTR value)
|
|
{
|
|
if(convert_child_id(&id) != CHILDID_SELF || !IsWindow(client->hwnd))
|
|
return E_INVALIDARG;
|
|
|
|
SendMessageW(client->hwnd, WM_SETTEXT, 0, (LPARAM)value);
|
|
return S_OK;
|
|
}
|
|
|
|
static const win_class_vtbl edit_vtbl = {
|
|
edit_init,
|
|
edit_get_state,
|
|
edit_get_name,
|
|
edit_get_kbd_shortcut,
|
|
edit_get_value,
|
|
edit_put_value,
|
|
};
|
|
|
|
static const struct win_class_data classes[] = {
|
|
{WC_LISTBOXW, 0x10000, TRUE},
|
|
{L"#32768", 0x10001, TRUE}, /* menu */
|
|
{WC_BUTTONW, 0x10002, TRUE},
|
|
{WC_STATICW, 0x10003, TRUE},
|
|
{WC_EDITW, 0x10004, FALSE, &edit_vtbl},
|
|
{WC_COMBOBOXW, 0x10005, TRUE},
|
|
{L"#32770", 0x10006, TRUE}, /* dialog */
|
|
{L"#32771", 0x10007, TRUE}, /* winswitcher */
|
|
{L"MDIClient", 0x10008, TRUE},
|
|
{L"#32769", 0x10009, TRUE}, /* desktop */
|
|
{WC_SCROLLBARW, 0x1000a, TRUE},
|
|
{STATUSCLASSNAMEW, 0x1000b, TRUE},
|
|
{TOOLBARCLASSNAMEW, 0x1000c, TRUE},
|
|
{PROGRESS_CLASSW, 0x1000d, TRUE},
|
|
{ANIMATE_CLASSW, 0x1000e, TRUE},
|
|
{WC_TABCONTROLW, 0x1000f, TRUE},
|
|
{HOTKEY_CLASSW, 0x10010, TRUE},
|
|
{WC_HEADERW, 0x10011, TRUE},
|
|
{TRACKBAR_CLASSW, 0x10012, TRUE},
|
|
{WC_LISTVIEWW, 0x10013, TRUE},
|
|
{UPDOWN_CLASSW, 0x10016, TRUE},
|
|
{TOOLTIPS_CLASSW, 0x10018, TRUE},
|
|
{WC_TREEVIEWW, 0x10019, TRUE},
|
|
{DATETIMEPICK_CLASSW, 0, TRUE},
|
|
{WC_IPADDRESSW, 0, TRUE},
|
|
{L"RICHEDIT", 0x1001c, TRUE},
|
|
{L"RichEdit20A", 0, TRUE},
|
|
{L"RichEdit20W", 0, TRUE},
|
|
{NULL}
|
|
};
|
|
|
|
HRESULT create_client_object(HWND hwnd, const IID *iid, void **obj)
|
|
{
|
|
const struct win_class_data *data;
|
|
Client *client;
|
|
HRESULT hres = S_OK;
|
|
|
|
if(!IsWindow(hwnd))
|
|
return E_FAIL;
|
|
|
|
client = heap_alloc_zero(sizeof(Client));
|
|
if(!client)
|
|
return E_OUTOFMEMORY;
|
|
|
|
data = find_class_data(hwnd, classes);
|
|
|
|
client->IAccessible_iface.lpVtbl = &ClientVtbl;
|
|
client->IOleWindow_iface.lpVtbl = &ClientOleWindowVtbl;
|
|
client->IEnumVARIANT_iface.lpVtbl = &ClientEnumVARIANTVtbl;
|
|
client->IServiceProvider_iface.lpVtbl = &ClientServiceProviderVtbl;
|
|
client->ref = 1;
|
|
client->hwnd = hwnd;
|
|
client->enum_pos = 0;
|
|
client->role = ROLE_SYSTEM_CLIENT;
|
|
|
|
if(data)
|
|
client->vtbl = data->vtbl;
|
|
if(client->vtbl && client->vtbl->init)
|
|
client->vtbl->init(client);
|
|
|
|
hres = IAccessible_QueryInterface(&client->IAccessible_iface, iid, obj);
|
|
IAccessible_Release(&client->IAccessible_iface);
|
|
return hres;
|
|
}
|