Microsoft/WindowsXP-SP1
Microsoft/WindowsXP-SP1
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
master
WindowsXP-SP1/windows/oleacc/oleacc/slider.cpp
Microsoft f7ca35dddd First commit
2020-09-30 16:53:49 +02:00

613 lines
16 KiB
C++
Raw Permalink Blame History

// Copyright (c) 1996-1999 Microsoft Corporation
// --------------------------------------------------------------------------
//
// SLIDER.CPP
//
// Knows how to talk to COMCTL32's TRACKBAR control.
//
// --------------------------------------------------------------------------
#include "oleacc_p.h"
#include "default.h"
#include "client.h"
#include "slider.h"
#include "PropMgr_Util.h"
#define NOSTATUSBAR
#define NOUPDOWN
#define NOMENUHELP
#define NOPROGRESS
#define NODRAGLIST
#define NOTOOLBAR
#define NOHOTKEY
#define NOHEADER
#define NOLISTVIEW
#define NOTREEVIEW
#define NOTABCONTROL
#define NOANIMATE
#include <commctrl.h>
// BOGUS
// For the moment, assume TBS_REVERSE will be0x0200
#ifndef TBS_REVERSE
#define TBS_REVERSE 0x0200
#endif
// --------------------------------------------------------------------------
//
// CreateSliderClient()
//
// --------------------------------------------------------------------------
HRESULT CreateSliderClient(HWND hwnd, long idChildCur, REFIID riid, void** ppvSlider)
{
CSlider32* pslider;
HRESULT hr;
InitPv(ppvSlider);
pslider = new CSlider32(hwnd, idChildCur);
if (!pslider)
return(E_OUTOFMEMORY);
hr = pslider->QueryInterface(riid, ppvSlider);
if (!SUCCEEDED(hr))
delete pslider;
return(hr);
}
// --------------------------------------------------------------------------
//
// CSlider32::CSlider32()
//
// --------------------------------------------------------------------------
CSlider32::CSlider32(HWND hwnd, long idChildCur)
: CClient( CLASS_SliderClient )
{
Initialize(hwnd, idChildCur);
m_cChildren = CCHILDREN_SLIDER;
m_fUseLabel = TRUE;
if (GetWindowLong(hwnd, GWL_STYLE) & TBS_VERT)
m_fVertical = TRUE;
}
// --------------------------------------------------------------------------
//
// CSlider32::get_accName()
//
// --------------------------------------------------------------------------
STDMETHODIMP CSlider32::get_accName(VARIANT varChild, BSTR* pszName)
{
InitPv(pszName);
if (!ValidateChild(&varChild))
return(E_INVALIDARG);
if (!varChild.lVal)
return(CClient::get_accName(varChild, pszName));
// Use scrollbar strings
return(HrCreateString(STR_SCROLLBAR_NAME +
(m_fVertical ? INDEX_SCROLLBAR_UP : INDEX_SCROLLBAR_LEFT) +
varChild.lVal, pszName));
}
// --------------------------------------------------------------------------
//
// CSlider32::get_accValue()
//
// --------------------------------------------------------------------------
STDMETHODIMP CSlider32::get_accValue(VARIANT varChild, BSTR* pszValue)
{
InitPv(pszValue);
if (!ValidateChild(&varChild))
return(E_INVALIDARG);
//
// The elements of the slider never have a value
//
if (varChild.lVal)
return(E_NOT_APPLICABLE);
//
// Get the current position
//
int lPos = SendMessageINT(m_hwnd, TBM_GETPOS, 0, 0);
BOOL fGotUseRaw;
if( CheckStringMap( m_hwnd, OBJID_CLIENT, varChild.lVal, PROPINDEX_VALUEMAP, & lPos, 1, pszValue,
TRUE /* allow 'use_raw' */, & fGotUseRaw ) )
{
if( ! fGotUseRaw )
return S_OK; // Got string from map, use it...
else
return VarBstrFromI4( lPos, 0, 0, pszValue ); // 'use_raw' annotation present - don't scale
}
// No annotation - scale value to 0...100...
long Min = SendMessageINT(m_hwnd, TBM_GETRANGEMIN, 0, 0);
long Max = SendMessageINT(m_hwnd, TBM_GETRANGEMAX, 0, 0);
// work out a percent value...
if( Min != Max )
lPos = ( ( lPos - Min ) * 100 ) / ( Max - Min );
else
lPos = 0; // Prevent div-by-0
// if invert flag set, lPos = 100-lPos
LONG Style = GetWindowLong( m_hwnd, GWL_STYLE );
if( Style & TBS_REVERSE )
lPos = 100 - lPos;
return VarBstrFromI4( lPos, 0, 0, pszValue );
}
// --------------------------------------------------------------------------
//
// CSlider32::get_accRole()
//
// --------------------------------------------------------------------------
STDMETHODIMP CSlider32::get_accRole(VARIANT varChild, VARIANT* pvarRole)
{
InitPvar(pvarRole);
if (!ValidateChild(&varChild))
return(E_INVALIDARG);
pvarRole->vt = VT_I4;
switch (varChild.lVal)
{
case INDEX_SLIDER_SELF:
pvarRole->lVal = ROLE_SYSTEM_SLIDER;
break;
case INDEX_SLIDER_PAGEUPLEFT:
case INDEX_SLIDER_PAGEDOWNRIGHT:
pvarRole->lVal = ROLE_SYSTEM_PUSHBUTTON;
break;
case INDEX_SLIDER_THUMB:
pvarRole->lVal = ROLE_SYSTEM_INDICATOR;
break;
default:
AssertStr( TEXT("Invalid ChildID for child of slider") );
}
return(S_OK);
}
// --------------------------------------------------------------------------
//
// CSlider32::get_accState()
//
// If the thumb is all the way to one side, that page up/down button is
// not available.
//
// --------------------------------------------------------------------------
STDMETHODIMP CSlider32::get_accState(VARIANT varChild, VARIANT* pvarState)
{
LPRECT lprcChannel;
LPRECT lprcThumb;
HANDLE hProcess1;
HANDLE hProcess2;
RECT rcChannel;
RECT rcThumb;
InitPvar(pvarState);
if (!ValidateChild(&varChild))
return(E_INVALIDARG);
if (!varChild.lVal)
return(CClient::get_accState(varChild, pvarState));
pvarState->vt = VT_I4;
pvarState->lVal = 0;
if (GetWindowLong(m_hwnd, GWL_STYLE) & TBS_NOTHUMB)
{
pvarState->lVal |= STATE_SYSTEM_INVISIBLE | STATE_SYSTEM_UNAVAILABLE;
return(S_OK);
}
if (varChild.lVal != INDEX_SLIDER_THUMB)
{
lprcChannel = (LPRECT)SharedAlloc(sizeof(RECT),m_hwnd,&hProcess1);
if (!lprcChannel)
return(E_OUTOFMEMORY);
SendMessage(m_hwnd, TBM_GETCHANNELRECT, 0, (LPARAM)lprcChannel);
SharedRead (lprcChannel,&rcChannel,sizeof(RECT),hProcess1);
lprcThumb = (LPRECT)SharedAlloc(sizeof(RECT),m_hwnd,&hProcess2);
if (lprcThumb)
{
int iCoord;
SendMessage(m_hwnd, TBM_GETTHUMBRECT, 0, (LPARAM)lprcThumb);
SharedRead (lprcThumb,&rcThumb,sizeof(RECT),hProcess2);
iCoord = (m_fVertical ? 1 : 0);
iCoord += (varChild.lVal == INDEX_SLIDER_PAGEDOWNRIGHT ? 2 : 0);
if (((LPINT)&rcChannel)[iCoord] == ((LPINT)&rcThumb)[iCoord])
pvarState->lVal |= STATE_SYSTEM_INVISIBLE;
SharedFree(lprcThumb,hProcess2);
}
SharedFree(lprcChannel,hProcess1);
}
return(S_OK);
}
// --------------------------------------------------------------------------
//
// CSlider32::accLocation()
//
// --------------------------------------------------------------------------
STDMETHODIMP CSlider32::accLocation(long* pxLeft, long* pyTop,
long* pcxWidth, long* pcyHeight, VARIANT varChild)
{
LPRECT lprcChannel;
LPRECT lprcThumb;
int iCoord;
HANDLE hProcess1;
HANDLE hProcess2;
RECT rcChannel;
RECT rcThumb;
InitAccLocation(pxLeft, pyTop, pcxWidth, pcyHeight);
if (!ValidateChild(&varChild))
return(E_INVALIDARG);
if (!varChild.lVal)
return(CClient::accLocation(pxLeft, pyTop, pcxWidth, pcyHeight, varChild));
if (GetWindowLong(m_hwnd, GWL_STYLE) & TBS_NOTHUMB)
return(S_FALSE);
//
// Get the thumb rect.
//
lprcThumb = (LPRECT)SharedAlloc(sizeof(RECT),m_hwnd,&hProcess1);
if (!lprcThumb)
return(E_OUTOFMEMORY);
SendMessage(m_hwnd, TBM_GETTHUMBRECT, 0, (LPARAM)lprcThumb);
SharedRead (lprcThumb,&rcThumb,sizeof(RECT),hProcess1);
if (varChild.lVal == INDEX_SLIDER_THUMB)
{
//
// We are done.
//
MapWindowPoints(m_hwnd, NULL, (LPPOINT)&rcThumb, 2);
*pxLeft = rcThumb.left;
*pyTop = rcThumb.top;
*pcxWidth = rcThumb.right - rcThumb.left;
*pcyHeight = rcThumb.bottom - rcThumb.top;
}
else
{
//
// Get the channel rect.
//
lprcChannel = (LPRECT)SharedAlloc(sizeof(RECT),m_hwnd,&hProcess2);
if (!lprcChannel)
{
SharedFree(lprcThumb,hProcess1);
return(E_OUTOFMEMORY);
}
SendMessage(m_hwnd, TBM_GETCHANNELRECT, 0, (LPARAM)lprcChannel);
SharedRead (lprcChannel,&rcChannel,sizeof(RECT),hProcess2);
// Need to flip the channel rect if vertical, since the trackbar doesn't do that itself...
if( m_fVertical )
{
int temp = rcChannel.left; rcChannel.left = rcChannel.top; rcChannel.top = temp;
temp = rcChannel.right; rcChannel.right = rcChannel.bottom; rcChannel.bottom = temp;
}
//
// Figure out the page up/page down area rect.
//
iCoord = (m_fVertical ? 1 : 0);
iCoord += (varChild.lVal == INDEX_SLIDER_PAGEUPLEFT) ? 2 : 0;
//
// We want the left side of the page right area to start at the
// right side of the thumb.
// We want the right side of the page left area to end at the
// left side of the thumb.
// We want the top side of the page down area to start at the
// bottom side of the thumb.
// We want the bottom side of the page up area to end at the
// top side of the thumb.
((LPINT)&rcChannel)[iCoord] = ((LPINT)&rcThumb)[(iCoord+2) % 4];
MapWindowPoints(m_hwnd, NULL, (LPPOINT)&rcChannel, 2);
*pxLeft = rcChannel.left;
*pyTop = rcChannel.top;
*pcxWidth = rcChannel.right - rcChannel.left;
*pcyHeight = rcChannel.bottom - rcChannel.top;
SharedFree (lprcChannel,hProcess2);
}
SharedFree(lprcThumb,hProcess1);
return(S_OK);
}
// --------------------------------------------------------------------------
//
// CSlider32::accHitTest()
//
// --------------------------------------------------------------------------
STDMETHODIMP CSlider32::accHitTest(long x, long y, VARIANT* pvarHit)
{
POINT pt;
HRESULT hr;
LPRECT lprcThumb;
LPRECT lprcChannel;
int iCoord;
HANDLE hProcess1;
HANDLE hProcess2;
RECT rcThumb;
RECT rcChannel;
//
// Is the point in us? Or do we have no children?
//
hr = CClient::accHitTest(x, y, pvarHit);
// #11150, CWO, 1/27/97, Replaced !SUCCEEDED with !S_OK
if ((hr != S_OK) || (pvarHit->vt != VT_I4) || (pvarHit->lVal != 0) ||
(GetWindowLong(m_hwnd, GWL_STYLE) & TBS_NOTHUMB))
return(hr);
pt.x = x;
pt.y = y;
ScreenToClient(m_hwnd, &pt);
//
// Get the thumb.
//
lprcThumb = (LPRECT)SharedAlloc(sizeof(RECT),m_hwnd,&hProcess1);
if (!lprcThumb)
return(E_OUTOFMEMORY);
//
// Is the point in it?
//
SendMessage(m_hwnd, TBM_GETTHUMBRECT, 0, (LPARAM)lprcThumb);
SharedRead (lprcThumb,&rcThumb,sizeof(RECT),hProcess1);
if (PtInRect(&rcThumb, pt))
{
// Yes.
pvarHit->lVal = INDEX_SLIDER_THUMB;
}
else
{
// No. See what side of the thumb it is on.
lprcChannel = (LPRECT)SharedAlloc(sizeof(RECT),m_hwnd,&hProcess2);
if (!lprcChannel)
{
SharedFree(lprcThumb,hProcess1);
return(E_OUTOFMEMORY);
}
SendMessage(m_hwnd, TBM_GETCHANNELRECT, 0, (LPARAM)lprcChannel);
SharedRead (lprcChannel,&rcChannel,sizeof(RECT),hProcess2);
// Need to flip the channel rect if vertical, since the trackbar doesn't do that itself...
if( m_fVertical )
{
int temp = rcChannel.left; rcChannel.left = rcChannel.top; rcChannel.top = temp;
temp = rcChannel.right; rcChannel.right = rcChannel.bottom; rcChannel.bottom = temp;
}
iCoord = (m_fVertical ? 1 : 0);
if ((((LPINT)&pt)[iCoord] >= ((LPINT)&rcChannel)[iCoord]) &&
(((LPINT)&pt)[iCoord] < ((LPINT)&rcThumb)[iCoord]))
{
pvarHit->lVal = INDEX_SLIDER_PAGEUPLEFT;
}
else if ((((LPINT)&pt)[iCoord] >= ((LPINT)&rcThumb)[iCoord+2]) &&
(((LPINT)&pt)[iCoord] < ((LPINT)&rcChannel)[iCoord+2]))
{
pvarHit->lVal = INDEX_SLIDER_PAGEDOWNRIGHT;
}
SharedFree(lprcChannel,hProcess2);
}
SharedFree(lprcThumb,hProcess1);
return(S_OK);
}
// --------------------------------------------------------------------------
//
// CSlider32::accNavigate()
//
// --------------------------------------------------------------------------
STDMETHODIMP CSlider32::accNavigate(long dwNavDir, VARIANT varStart,
VARIANT* pvarEnd)
{
long lEnd = 0;
VARIANT varChild;
VARIANT varState;
InitPvar(pvarEnd);
if (!ValidateChild(&varStart) ||
!ValidateNavDir(dwNavDir, varStart.lVal))
return(E_INVALIDARG);
if (dwNavDir == NAVDIR_FIRSTCHILD)
dwNavDir = NAVDIR_NEXT;
else if (dwNavDir == NAVDIR_LASTCHILD)
{
dwNavDir = NAVDIR_PREVIOUS;
varStart.lVal = m_cChildren + 1;
}
else if (!varStart.lVal)
return(CClient::accNavigate(dwNavDir, varStart, pvarEnd));
if (GetWindowLong(m_hwnd, GWL_STYLE) & TBS_NOTHUMB)
return(S_FALSE);
switch (dwNavDir)
{
case NAVDIR_NEXT:
NextChild:
lEnd = varStart.lVal;
while (++lEnd <= m_cChildren)
{
// Is this item visible?
VariantInit(&varChild);
varChild.vt = VT_I4;
varChild.lVal = lEnd;
VariantInit(&varState);
get_accState(varChild, &varState);
if (!(varState.lVal & STATE_SYSTEM_INVISIBLE))
break;
}
if (lEnd > m_cChildren)
lEnd = 0;
break;
case NAVDIR_PREVIOUS:
PrevChild:
lEnd = varStart.lVal;
while (--lEnd > 0)
{
// Is this item visible?
VariantInit(&varChild);
varChild.vt = VT_I4;
varChild.lVal = lEnd;
VariantInit(&varState);
get_accState(varChild, &varState);
if (!(varState.lVal & STATE_SYSTEM_INVISIBLE))
break;
}
break;
case NAVDIR_UP:
lEnd = 0;
if (m_fVertical)
goto PrevChild;
break;
case NAVDIR_DOWN:
lEnd = 0;
if (m_fVertical)
goto NextChild;
break;
case NAVDIR_LEFT:
lEnd = 0;
if (!m_fVertical)
goto PrevChild;
break;
case NAVDIR_RIGHT:
lEnd = 0;
if (!m_fVertical)
goto NextChild;
break;
}
if (lEnd)
{
pvarEnd->vt = VT_I4;
pvarEnd->lVal = lEnd;
return(S_OK);
}
else
return(S_FALSE);
}
// --------------------------------------------------------------------------
//
// CSlider32::put_accValue()
//
// --------------------------------------------------------------------------
STDMETHODIMP CSlider32::put_accValue(VARIANT varChild, BSTR szValue)
{
long lPos;
HRESULT hr;
if (!ValidateChild(&varChild))
return(E_INVALIDARG);
if (varChild.lVal)
return(E_NOT_APPLICABLE);
// Convert string to position.
hr = VarI4FromStr(szValue, 0, 0, &lPos);
if (!SUCCEEDED(hr))
return(hr);
// Verify that we've got a valid percent value
if( lPos < 0 || lPos > 100 )
return E_INVALIDARG;
long Min = SendMessageINT(m_hwnd, TBM_GETRANGEMIN, 0, 0);
long Max = SendMessageINT(m_hwnd, TBM_GETRANGEMAX, 0, 0);
// if invert flag set, lPos = 100-lPos
LONG Style = GetWindowLong( m_hwnd, GWL_STYLE );
if( Style & TBS_REVERSE )
lPos = 100 - lPos;
// work out value from percentage...
lPos = Min + ( ( Max - Min ) * lPos ) / 100;
SendMessage(m_hwnd, TBM_SETPOS, 0, lPos);
return(S_OK);
}
Reference in New Issue View Git Blame Copy Permalink