Skip to content
Snippets Groups Projects
scroll.c 41.6 KiB
Newer Older
Alexandre Julliard's avatar
Alexandre Julliard committed
/*		
Alexandre Julliard's avatar
Alexandre Julliard committed
 * Scrollbar control
Alexandre Julliard's avatar
Alexandre Julliard committed
 *
Alexandre Julliard's avatar
Alexandre Julliard committed
 * Copyright 1993 Martin Ayotte
 * Copyright 1994, 1996 Alexandre Julliard
Alexandre Julliard's avatar
Alexandre Julliard committed
 */

Alexandre Julliard's avatar
Alexandre Julliard committed
#define NO_TRANSITION_TYPES  /* This file is Win32-clean */
Alexandre Julliard's avatar
Alexandre Julliard committed
#include <stdlib.h>
#include <stdio.h>
#include <sys/types.h>
#include <sys/stat.h>
Alexandre Julliard's avatar
Alexandre Julliard committed
#include "windows.h"
Alexandre Julliard's avatar
Alexandre Julliard committed
#include "syscolor.h"
Alexandre Julliard's avatar
Alexandre Julliard committed
#include "sysmetrics.h"
Alexandre Julliard's avatar
Alexandre Julliard committed
#include "scroll.h"
Alexandre Julliard's avatar
Alexandre Julliard committed
#include "graphics.h"
Alexandre Julliard's avatar
Alexandre Julliard committed
#include "heap.h"
Alexandre Julliard's avatar
Alexandre Julliard committed
#include "win.h"
Alexandre Julliard's avatar
Alexandre Julliard committed
#include "stddebug.h"
#include "debug.h"

Alexandre Julliard's avatar
Alexandre Julliard committed

Alexandre Julliard's avatar
Alexandre Julliard committed
static HBITMAP32 hUpArrow = 0;
static HBITMAP32 hDnArrow = 0;
static HBITMAP32 hLfArrow = 0;
static HBITMAP32 hRgArrow = 0;
static HBITMAP32 hUpArrowD = 0;
static HBITMAP32 hDnArrowD = 0;
static HBITMAP32 hLfArrowD = 0;
static HBITMAP32 hRgArrowD = 0;
static HBITMAP32 hUpArrowI = 0;
static HBITMAP32 hDnArrowI = 0;
static HBITMAP32 hLfArrowI = 0;
static HBITMAP32 hRgArrowI = 0;
Alexandre Julliard's avatar
Alexandre Julliard committed

#define TOP_ARROW(flags,pressed) \
   (((flags)&ESB_DISABLE_UP) ? hUpArrowI : ((pressed) ? hUpArrowD:hUpArrow))
#define BOTTOM_ARROW(flags,pressed) \
   (((flags)&ESB_DISABLE_DOWN) ? hDnArrowI : ((pressed) ? hDnArrowD:hDnArrow))
#define LEFT_ARROW(flags,pressed) \
   (((flags)&ESB_DISABLE_LEFT) ? hLfArrowI : ((pressed) ? hLfArrowD:hLfArrow))
#define RIGHT_ARROW(flags,pressed) \
   (((flags)&ESB_DISABLE_RIGHT) ? hRgArrowI : ((pressed) ? hRgArrowD:hRgArrow))

Alexandre Julliard's avatar
Alexandre Julliard committed

Alexandre Julliard's avatar
Alexandre Julliard committed
  /* Minimum size of the rectangle between the arrows */
#define SCROLL_MIN_RECT  4  
Alexandre Julliard's avatar
Alexandre Julliard committed

Alexandre Julliard's avatar
Alexandre Julliard committed
  /* Minimum size of the thumb in pixels */
#define SCROLL_MIN_THUMB 4

Alexandre Julliard's avatar
Alexandre Julliard committed
  /* Delay (in ms) before first repetition when holding the button down */
#define SCROLL_FIRST_DELAY   200

  /* Delay (in ms) between scroll repetitions */
#define SCROLL_REPEAT_DELAY  100

  /* Scroll timer id */
#define SCROLL_TIMER   0

  /* Scroll-bar hit testing */
enum SCROLL_HITTEST
{
    SCROLL_NOWHERE,      /* Outside the scroll bar */
    SCROLL_TOP_ARROW,    /* Top or left arrow */
    SCROLL_TOP_RECT,     /* Rectangle between the top arrow and the thumb */
    SCROLL_THUMB,        /* Thumb rectangle */
    SCROLL_BOTTOM_RECT,  /* Rectangle between the thumb and the bottom arrow */
    SCROLL_BOTTOM_ARROW  /* Bottom or right arrow */
};
Alexandre Julliard's avatar
Alexandre Julliard committed

Alexandre Julliard's avatar
Alexandre Julliard committed
 /* Thumb-tracking info */
Alexandre Julliard's avatar
Alexandre Julliard committed
static HWND32 SCROLL_TrackingWin = 0;
static INT32  SCROLL_TrackingBar = 0;
static INT32  SCROLL_TrackingPos = 0;
static INT32  SCROLL_TrackingVal = 0;

/* Is the moving thumb being displayed? */
static BOOL32 SCROLL_MovingThumb = FALSE;
Alexandre Julliard's avatar
Alexandre Julliard committed

/***********************************************************************
Alexandre Julliard's avatar
Alexandre Julliard committed
 *           SCROLL_LoadBitmaps
Alexandre Julliard's avatar
Alexandre Julliard committed
 */
Alexandre Julliard's avatar
Alexandre Julliard committed
static void SCROLL_LoadBitmaps(void)
{
Alexandre Julliard's avatar
Alexandre Julliard committed
    hUpArrow  = LoadBitmap16( 0, MAKEINTRESOURCE(OBM_UPARROW) );
    hDnArrow  = LoadBitmap16( 0, MAKEINTRESOURCE(OBM_DNARROW) );
    hLfArrow  = LoadBitmap16( 0, MAKEINTRESOURCE(OBM_LFARROW) );
    hRgArrow  = LoadBitmap16( 0, MAKEINTRESOURCE(OBM_RGARROW) );
    hUpArrowD = LoadBitmap16( 0, MAKEINTRESOURCE(OBM_UPARROWD) );
    hDnArrowD = LoadBitmap16( 0, MAKEINTRESOURCE(OBM_DNARROWD) );
    hLfArrowD = LoadBitmap16( 0, MAKEINTRESOURCE(OBM_LFARROWD) );
    hRgArrowD = LoadBitmap16( 0, MAKEINTRESOURCE(OBM_RGARROWD) );
    hUpArrowI = LoadBitmap16( 0, MAKEINTRESOURCE(OBM_UPARROWI) );
    hDnArrowI = LoadBitmap16( 0, MAKEINTRESOURCE(OBM_DNARROWI) );
    hLfArrowI = LoadBitmap16( 0, MAKEINTRESOURCE(OBM_LFARROWI) );
    hRgArrowI = LoadBitmap16( 0, MAKEINTRESOURCE(OBM_RGARROWI) );
Alexandre Julliard's avatar
Alexandre Julliard committed

Alexandre Julliard's avatar
Alexandre Julliard committed
/***********************************************************************
Alexandre Julliard's avatar
Alexandre Julliard committed
 *           SCROLL_GetPtrScrollInfo
Alexandre Julliard's avatar
Alexandre Julliard committed
 */
Alexandre Julliard's avatar
Alexandre Julliard committed
static SCROLLBAR_INFO *SCROLL_GetPtrScrollInfo( WND* wndPtr, INT32 nBar )
Alexandre Julliard's avatar
Alexandre Julliard committed
{
Alexandre Julliard's avatar
Alexandre Julliard committed
    SCROLLBAR_INFO *infoPtr;
Alexandre Julliard's avatar
Alexandre Julliard committed

Alexandre Julliard's avatar
Alexandre Julliard committed
    if (!wndPtr) return NULL;
Alexandre Julliard's avatar
Alexandre Julliard committed
    switch(nBar)
    {
Alexandre Julliard's avatar
Alexandre Julliard committed
        case SB_HORZ: infoPtr = (SCROLLBAR_INFO *)wndPtr->pHScroll; break;
        case SB_VERT: infoPtr = (SCROLLBAR_INFO *)wndPtr->pVScroll; break;
        case SB_CTL:  infoPtr = (SCROLLBAR_INFO *)wndPtr->wExtra; break;
Alexandre Julliard's avatar
Alexandre Julliard committed
        default:      return NULL;
    }

Alexandre Julliard's avatar
Alexandre Julliard committed
    if (!infoPtr)  /* Create the info structure if needed */
Alexandre Julliard's avatar
Alexandre Julliard committed
    {
Alexandre Julliard's avatar
Alexandre Julliard committed
        if ((infoPtr = HeapAlloc( SystemHeap, 0, sizeof(SCROLLBAR_INFO) )))
Alexandre Julliard's avatar
Alexandre Julliard committed
        {
Alexandre Julliard's avatar
Alexandre Julliard committed
            infoPtr->MinVal = infoPtr->CurVal = infoPtr->Page = 0;
Alexandre Julliard's avatar
Alexandre Julliard committed
            infoPtr->MaxVal = 100;
            infoPtr->flags  = ESB_ENABLE_BOTH;
Alexandre Julliard's avatar
Alexandre Julliard committed
            if (nBar == SB_HORZ) wndPtr->pHScroll = infoPtr;
            else wndPtr->pVScroll = infoPtr;
Alexandre Julliard's avatar
Alexandre Julliard committed
        }
        if (!hUpArrow) SCROLL_LoadBitmaps();
    }
Alexandre Julliard's avatar
Alexandre Julliard committed
    return infoPtr;
Alexandre Julliard's avatar
Alexandre Julliard committed

Alexandre Julliard's avatar
Alexandre Julliard committed
/***********************************************************************
 *           SCROLL_GetScrollInfo
 */
Alexandre Julliard's avatar
Alexandre Julliard committed
static SCROLLBAR_INFO *SCROLL_GetScrollInfo( HWND32 hwnd, INT32 nBar )
Alexandre Julliard's avatar
Alexandre Julliard committed
{
   WND *wndPtr = WIN_FindWndPtr( hwnd );
   return SCROLL_GetPtrScrollInfo( wndPtr, nBar );
}

Alexandre Julliard's avatar
Alexandre Julliard committed

Alexandre Julliard's avatar
Alexandre Julliard committed
/***********************************************************************
 *           SCROLL_GetScrollBarRect
 *
 * Compute the scroll bar rectangle, in drawing coordinates (i.e. client
 * coords for SB_CTL, window coords for SB_VERT and SB_HORZ).
Alexandre Julliard's avatar
Alexandre Julliard committed
 * 'arrowSize' returns the width or height of an arrow (depending on
 * the orientation of the scrollbar), 'thumbSize' returns the size of
 * the thumb, and 'thumbPos' returns the position of the thumb
 * relative to the left or to the top.
Alexandre Julliard's avatar
Alexandre Julliard committed
 * Return TRUE if the scrollbar is vertical, FALSE if horizontal.
 */
Alexandre Julliard's avatar
Alexandre Julliard committed
static BOOL32 SCROLL_GetScrollBarRect( HWND32 hwnd, INT32 nBar, RECT32 *lprect,
                                       INT32 *arrowSize, INT32 *thumbSize,
                                       INT32 *thumbPos )
Alexandre Julliard's avatar
Alexandre Julliard committed
{
Alexandre Julliard's avatar
Alexandre Julliard committed
    INT32 pixels;
    BOOL32 vertical;
Alexandre Julliard's avatar
Alexandre Julliard committed
    WND *wndPtr = WIN_FindWndPtr( hwnd );

    switch(nBar)
    {
      case SB_HORZ:
        lprect->left   = wndPtr->rectClient.left - wndPtr->rectWindow.left - 1;
        lprect->top    = wndPtr->rectClient.bottom - wndPtr->rectWindow.top;
        lprect->right  = wndPtr->rectClient.right - wndPtr->rectWindow.left +1;
        lprect->bottom = lprect->top + SYSMETRICS_CYHSCROLL + 1;
        vertical = FALSE;
	break;

      case SB_VERT:
        lprect->left   = wndPtr->rectClient.right - wndPtr->rectWindow.left;
        lprect->top    = wndPtr->rectClient.top - wndPtr->rectWindow.top - 1;
        lprect->right  = lprect->left + SYSMETRICS_CXVSCROLL + 1;
        lprect->bottom = wndPtr->rectClient.bottom - wndPtr->rectWindow.top +1;
        vertical = TRUE;
	break;

      case SB_CTL:
Alexandre Julliard's avatar
Alexandre Julliard committed
	GetClientRect32( hwnd, lprect );
Alexandre Julliard's avatar
Alexandre Julliard committed
        vertical = ((wndPtr->dwStyle & SBS_VERT) != 0);
	break;
Alexandre Julliard's avatar
Alexandre Julliard committed

    default:
        return FALSE;
Alexandre Julliard's avatar
Alexandre Julliard committed
    }

    if (vertical) pixels = lprect->bottom - lprect->top;
    else pixels = lprect->right - lprect->left;

Alexandre Julliard's avatar
Alexandre Julliard committed
    if (pixels <= 2*SYSMETRICS_CXVSCROLL + SCROLL_MIN_RECT)
Alexandre Julliard's avatar
Alexandre Julliard committed
    {
Alexandre Julliard's avatar
Alexandre Julliard committed
        if (pixels > SCROLL_MIN_RECT)
            *arrowSize = (pixels - SCROLL_MIN_RECT) / 2;
        else
            *arrowSize = 0;
        *thumbPos = *thumbSize = 0;
Alexandre Julliard's avatar
Alexandre Julliard committed
    }
Alexandre Julliard's avatar
Alexandre Julliard committed
    else
Alexandre Julliard's avatar
Alexandre Julliard committed
    {
Alexandre Julliard's avatar
Alexandre Julliard committed
        SCROLLBAR_INFO *info = SCROLL_GetPtrScrollInfo( wndPtr, nBar );
Alexandre Julliard's avatar
Alexandre Julliard committed

        *arrowSize = SYSMETRICS_CXVSCROLL;
        pixels -= 2 * SYSMETRICS_CXVSCROLL;

        if (info->Page)
        {
            *thumbSize = pixels * info->Page / (info->MaxVal-info->MinVal+1);
            if (*thumbSize < SCROLL_MIN_THUMB) *thumbSize = SCROLL_MIN_THUMB;
        }
        else *thumbSize = SYSMETRICS_CXVSCROLL;

        if (((pixels -= *thumbSize + 1) < 0) ||
            ((info->flags & ESB_DISABLE_BOTH) == ESB_DISABLE_BOTH))
        {
            /* Rectangle too small or scrollbar disabled -> no thumb */
            *thumbPos = *thumbSize = 0;
        }
Alexandre Julliard's avatar
Alexandre Julliard committed
        else
Alexandre Julliard's avatar
Alexandre Julliard committed
        {
            INT32 max = info->MaxVal - MAX( info->Page-1, 0 );
            if (info->MinVal >= max)
                *thumbPos = *arrowSize;
            else
                *thumbPos = *arrowSize + pixels * (info->CurVal-info->MinVal) /
                                                  (max - info->MinVal);
        }
Alexandre Julliard's avatar
Alexandre Julliard committed
    }
    return vertical;
Alexandre Julliard's avatar
Alexandre Julliard committed
/***********************************************************************
 *           SCROLL_GetThumbVal
 *
 * Compute the current scroll position based on the thumb position in pixels
 * from the top of the scroll-bar.
 */
Alexandre Julliard's avatar
Alexandre Julliard committed
static UINT32 SCROLL_GetThumbVal( SCROLLBAR_INFO *infoPtr, RECT32 *rect,
                                  BOOL32 vertical, INT32 pos )
Alexandre Julliard's avatar
Alexandre Julliard committed
{
Alexandre Julliard's avatar
Alexandre Julliard committed
    INT32 thumbSize;
    INT32 pixels = vertical ? rect->bottom-rect->top : rect->right-rect->left;

    if ((pixels -= 2*SYSMETRICS_CXVSCROLL) <= 0) return infoPtr->MinVal;

    if (infoPtr->Page)
    {
        thumbSize = pixels * infoPtr->Page/(infoPtr->MaxVal-infoPtr->MinVal+1);
        if (thumbSize < SCROLL_MIN_THUMB) thumbSize = SCROLL_MIN_THUMB;
    }
    else thumbSize = SYSMETRICS_CXVSCROLL;

    if ((pixels -= thumbSize + 1) <= 0) return infoPtr->MinVal;

Alexandre Julliard's avatar
Alexandre Julliard committed
    pos = MAX( 0, pos - SYSMETRICS_CXVSCROLL );
Alexandre Julliard's avatar
Alexandre Julliard committed
    if (pos > pixels) pos = pixels;
Alexandre Julliard's avatar
Alexandre Julliard committed

    if (!infoPtr->Page) pos *= infoPtr->MaxVal - infoPtr->MinVal;
    else pos *= infoPtr->MaxVal - infoPtr->MinVal - infoPtr->Page + 1;
    return infoPtr->MinVal + ((pos + pixels / 2) / pixels);
Alexandre Julliard's avatar
Alexandre Julliard committed

Alexandre Julliard's avatar
Alexandre Julliard committed
/***********************************************************************
 *           SCROLL_HitTest
 *
 * Scroll-bar hit testing (don't confuse this with WM_NCHITTEST!).
 */
Alexandre Julliard's avatar
Alexandre Julliard committed
static enum SCROLL_HITTEST SCROLL_HitTest( HWND32 hwnd, INT32 nBar,
                                           POINT32 pt )
Alexandre Julliard's avatar
Alexandre Julliard committed
{
Alexandre Julliard's avatar
Alexandre Julliard committed
    INT32 arrowSize, thumbSize, thumbPos;
    RECT32 rect;
Alexandre Julliard's avatar
Alexandre Julliard committed

Alexandre Julliard's avatar
Alexandre Julliard committed
    BOOL32 vertical = SCROLL_GetScrollBarRect( hwnd, nBar, &rect,
                                           &arrowSize, &thumbSize, &thumbPos );
    if (!PtInRect32( &rect, pt )) return SCROLL_NOWHERE;
Alexandre Julliard's avatar
Alexandre Julliard committed

    if (vertical)
    {
        if (pt.y <= rect.top + arrowSize + 1) return SCROLL_TOP_ARROW;
        if (pt.y >= rect.bottom - arrowSize) return SCROLL_BOTTOM_ARROW;
        if (!thumbPos) return SCROLL_TOP_RECT;
        pt.y -= rect.top;
Alexandre Julliard's avatar
Alexandre Julliard committed
        if (pt.y < thumbPos) return SCROLL_TOP_RECT;
        if (pt.y > thumbPos + thumbSize) return SCROLL_BOTTOM_RECT;
Alexandre Julliard's avatar
Alexandre Julliard committed
        return SCROLL_THUMB;
    }
    else  /* horizontal */
    {
        if (pt.x <= rect.left + arrowSize) return SCROLL_TOP_ARROW;
        if (pt.x >= rect.right - arrowSize) return SCROLL_BOTTOM_ARROW;
        if (!thumbPos) return SCROLL_TOP_RECT;
        pt.x -= rect.left;
Alexandre Julliard's avatar
Alexandre Julliard committed
        if (pt.x < thumbPos) return SCROLL_TOP_RECT;
        if (pt.x > thumbPos + thumbSize) return SCROLL_BOTTOM_RECT;
Alexandre Julliard's avatar
Alexandre Julliard committed
        return SCROLL_THUMB;
    }
Alexandre Julliard's avatar
Alexandre Julliard committed
/***********************************************************************
 *           SCROLL_DrawArrows
 *
 * Draw the scroll bar arrows.
 */
Alexandre Julliard's avatar
Alexandre Julliard committed
static void SCROLL_DrawArrows( HDC32 hdc, SCROLLBAR_INFO *infoPtr,
                               RECT32 *rect, INT32 arrowSize, BOOL32 vertical,
                               BOOL32 top_pressed, BOOL32 bottom_pressed )
Alexandre Julliard's avatar
Alexandre Julliard committed
{
Alexandre Julliard's avatar
Alexandre Julliard committed
    HDC32 hdcMem = CreateCompatibleDC( hdc );
    HBITMAP32 hbmpPrev = SelectObject( hdcMem, vertical ?
Alexandre Julliard's avatar
Alexandre Julliard committed
                                    TOP_ARROW(infoPtr->flags, top_pressed)
                                    : LEFT_ARROW(infoPtr->flags, top_pressed));
Alexandre Julliard's avatar
Alexandre Julliard committed
    SetStretchBltMode( hdc, STRETCH_DELETESCANS );
Alexandre Julliard's avatar
Alexandre Julliard committed
    StretchBlt( hdc, rect->left, rect->top,
                vertical ? rect->right-rect->left : arrowSize+1,
                vertical ? arrowSize+1 : rect->bottom-rect->top,
                hdcMem, 0, 0,
                SYSMETRICS_CXVSCROLL + 1, SYSMETRICS_CYHSCROLL + 1,
                SRCCOPY );

    SelectObject( hdcMem, vertical ?
                  BOTTOM_ARROW( infoPtr->flags, bottom_pressed )
                  : RIGHT_ARROW( infoPtr->flags, bottom_pressed ) );
    if (vertical)
        StretchBlt( hdc, rect->left, rect->bottom - arrowSize - 1,
                   rect->right - rect->left, arrowSize + 1,
                   hdcMem, 0, 0,
                   SYSMETRICS_CXVSCROLL + 1, SYSMETRICS_CYHSCROLL + 1,
                   SRCCOPY );
    else
        StretchBlt( hdc, rect->right - arrowSize - 1, rect->top,
                   arrowSize + 1, rect->bottom - rect->top,
                   hdcMem, 0, 0,
                   SYSMETRICS_CXVSCROLL + 1, SYSMETRICS_CYHSCROLL + 1,
                   SRCCOPY );
    SelectObject( hdcMem, hbmpPrev );
    DeleteDC( hdcMem );
Alexandre Julliard's avatar
Alexandre Julliard committed
/***********************************************************************
 *           SCROLL_DrawMovingThumb
 *
 * Draw the moving thumb rectangle.
 */
Alexandre Julliard's avatar
Alexandre Julliard committed
static void SCROLL_DrawMovingThumb( HDC32 hdc, RECT32 *rect, BOOL32 vertical,
                                    INT32 arrowSize, INT32 thumbSize )
Alexandre Julliard's avatar
Alexandre Julliard committed
{
Alexandre Julliard's avatar
Alexandre Julliard committed
    RECT32 r = *rect;
Alexandre Julliard's avatar
Alexandre Julliard committed
    if (vertical)
    {
Alexandre Julliard's avatar
Alexandre Julliard committed
        r.top += SCROLL_TrackingPos;
Alexandre Julliard's avatar
Alexandre Julliard committed
        if (r.top < rect->top + arrowSize) r.top = rect->top + arrowSize;
Alexandre Julliard's avatar
Alexandre Julliard committed
        if (r.top + thumbSize >= rect->bottom - arrowSize)
            r.top = rect->bottom - arrowSize - thumbSize - 1;
        r.bottom = r.top + thumbSize + 1;
Alexandre Julliard's avatar
Alexandre Julliard committed
    }
    else
    {
Alexandre Julliard's avatar
Alexandre Julliard committed
        r.left += SCROLL_TrackingPos;
Alexandre Julliard's avatar
Alexandre Julliard committed
        if (r.left < rect->left + arrowSize) r.left = rect->left + arrowSize;
Alexandre Julliard's avatar
Alexandre Julliard committed
        if (r.left + thumbSize >= rect->right - arrowSize)
            r.left = rect->right - arrowSize - thumbSize - 1;
        r.right = r.left + thumbSize + 1;
Alexandre Julliard's avatar
Alexandre Julliard committed
    }
Alexandre Julliard's avatar
Alexandre Julliard committed
    InflateRect32( &r, -1, -1 );
    DrawFocusRect32( hdc, &r );
    SCROLL_MovingThumb = !SCROLL_MovingThumb;
Alexandre Julliard's avatar
Alexandre Julliard committed
/***********************************************************************
 *           SCROLL_DrawInterior
 *
 * Draw the scroll bar interior (everything except the arrows).
 */
Alexandre Julliard's avatar
Alexandre Julliard committed
static void SCROLL_DrawInterior( HWND32 hwnd, HDC32 hdc, INT32 nBar, 
                                 RECT32 *rect, INT32 arrowSize,
                                 INT32 thumbSize, INT32 thumbPos,
                                 UINT32 flags, BOOL32 vertical,
                                 BOOL32 top_selected, BOOL32 bottom_selected )
Alexandre Julliard's avatar
Alexandre Julliard committed
{
Alexandre Julliard's avatar
Alexandre Julliard committed
    RECT32 r;
Alexandre Julliard's avatar
Alexandre Julliard committed

      /* Select the correct brush and pen */

    SelectObject( hdc, sysColorObjects.hpenWindowFrame );
    if ((flags & ESB_DISABLE_BOTH) == ESB_DISABLE_BOTH)
    {
          /* This ought to be the color of the parent window */
        SelectObject( hdc, sysColorObjects.hbrushWindow );
    }
Alexandre Julliard's avatar
Alexandre Julliard committed
    else
Alexandre Julliard's avatar
Alexandre Julliard committed
    {
        if (nBar == SB_CTL)  /* Only scrollbar controls send WM_CTLCOLOR */
        {
Alexandre Julliard's avatar
Alexandre Julliard committed
            HBRUSH32 hbrush = SendMessage32A(GetParent32(hwnd),
                                             WM_CTLCOLORSCROLLBAR, hdc, hwnd );
Alexandre Julliard's avatar
Alexandre Julliard committed
            SelectObject( hdc, hbrush );
        }
        else SelectObject( hdc, sysColorObjects.hbrushScrollbar );
    }
Alexandre Julliard's avatar
Alexandre Julliard committed

Alexandre Julliard's avatar
Alexandre Julliard committed
      /* Calculate the scroll rectangle */

    r = *rect;
    if (vertical)
    {
        r.top    += arrowSize;
        r.bottom -= arrowSize;
    }
    else
    {
        r.left  += arrowSize;
        r.right -= arrowSize;
    }

      /* Draw the scroll bar frame */

    MoveTo( hdc, r.left, r.top );
    LineTo( hdc, r.right-1, r.top );
    LineTo( hdc, r.right-1, r.bottom-1 );
    LineTo( hdc, r.left, r.bottom-1 );
    LineTo( hdc, r.left, r.top );

      /* Draw the scroll rectangles and thumb */

    if (!thumbPos)  /* No thumb to draw */
    {
        PatBlt( hdc, r.left+1, r.top+1, r.right - r.left - 2,
Alexandre Julliard's avatar
Alexandre Julliard committed
                r.bottom - r.top - 2, PATCOPY );
Alexandre Julliard's avatar
Alexandre Julliard committed
        return;
    }

    if (vertical)
    {
        PatBlt( hdc, r.left + 1, r.top + 1,
                r.right - r.left - 2,
                thumbPos - arrowSize,
Alexandre Julliard's avatar
Alexandre Julliard committed
                top_selected ? 0x0f0000 : PATCOPY );
Alexandre Julliard's avatar
Alexandre Julliard committed
        r.top += thumbPos - arrowSize;
Alexandre Julliard's avatar
Alexandre Julliard committed
        PatBlt( hdc, r.left + 1, r.top + thumbSize + 1,
Alexandre Julliard's avatar
Alexandre Julliard committed
                r.right - r.left - 2,
Alexandre Julliard's avatar
Alexandre Julliard committed
                r.bottom - r.top - thumbSize - 2,
Alexandre Julliard's avatar
Alexandre Julliard committed
                bottom_selected ? 0x0f0000 : PATCOPY );
Alexandre Julliard's avatar
Alexandre Julliard committed
        r.bottom = r.top + thumbSize + 1;
Alexandre Julliard's avatar
Alexandre Julliard committed
    }
    else  /* horizontal */
    {
        PatBlt( hdc, r.left + 1, r.top + 1,
                thumbPos - arrowSize,
                r.bottom - r.top - 2,
Alexandre Julliard's avatar
Alexandre Julliard committed
                top_selected ? 0x0f0000 : PATCOPY );
Alexandre Julliard's avatar
Alexandre Julliard committed
        r.left += thumbPos - arrowSize;
Alexandre Julliard's avatar
Alexandre Julliard committed
        PatBlt( hdc, r.left + thumbSize + 1, r.top + 1,
                r.right - r.left - thumbSize - 2,
Alexandre Julliard's avatar
Alexandre Julliard committed
                r.bottom - r.top - 2,
Alexandre Julliard's avatar
Alexandre Julliard committed
                bottom_selected ? 0x0f0000 : PATCOPY );
Alexandre Julliard's avatar
Alexandre Julliard committed
        r.right = r.left + thumbSize + 1;
Alexandre Julliard's avatar
Alexandre Julliard committed
    }

      /* Draw the thumb */

    SelectObject( hdc, sysColorObjects.hbrushBtnFace );
    Rectangle( hdc, r.left, r.top, r.right, r.bottom );
Alexandre Julliard's avatar
Alexandre Julliard committed
    InflateRect32( &r, -1, -1 );
Alexandre Julliard's avatar
Alexandre Julliard committed
    GRAPH_DrawReliefRect( hdc, &r, 1, 2, FALSE );
Alexandre Julliard's avatar
Alexandre Julliard committed
    if (SCROLL_MovingThumb &&
        (SCROLL_TrackingWin == hwnd) &&
        (SCROLL_TrackingBar == nBar))
    {
        SCROLL_DrawMovingThumb( hdc, rect, vertical, arrowSize, thumbSize );
        SCROLL_MovingThumb = TRUE;
    }
Alexandre Julliard's avatar
Alexandre Julliard committed
}
Alexandre Julliard's avatar
Alexandre Julliard committed

Alexandre Julliard's avatar
Alexandre Julliard committed

Alexandre Julliard's avatar
Alexandre Julliard committed
/***********************************************************************
 *           SCROLL_DrawScrollBar
 *
 * Redraw the whole scrollbar.
 */
Alexandre Julliard's avatar
Alexandre Julliard committed
void SCROLL_DrawScrollBar( HWND32 hwnd, HDC32 hdc, INT32 nBar, BOOL32 arrows )
Alexandre Julliard's avatar
Alexandre Julliard committed
{
Alexandre Julliard's avatar
Alexandre Julliard committed
    INT32 arrowSize, thumbSize, thumbPos;
    RECT32 rect;
    BOOL32 vertical;
Alexandre Julliard's avatar
Alexandre Julliard committed
    WND *wndPtr = WIN_FindWndPtr( hwnd );
Alexandre Julliard's avatar
Alexandre Julliard committed
    SCROLLBAR_INFO *infoPtr = SCROLL_GetPtrScrollInfo( wndPtr, nBar );
Alexandre Julliard's avatar
Alexandre Julliard committed

    if (!wndPtr || !infoPtr ||
        ((nBar == SB_VERT) && !(wndPtr->dwStyle & WS_VSCROLL)) ||
        ((nBar == SB_HORZ) && !(wndPtr->dwStyle & WS_HSCROLL))) return;

Alexandre Julliard's avatar
Alexandre Julliard committed
    vertical = SCROLL_GetScrollBarRect( hwnd, nBar, &rect,
Alexandre Julliard's avatar
Alexandre Julliard committed
                                        &arrowSize, &thumbSize, &thumbPos );
Alexandre Julliard's avatar
Alexandre Julliard committed
      /* Draw the arrows */

Alexandre Julliard's avatar
Alexandre Julliard committed
    if (arrows && arrowSize) SCROLL_DrawArrows( hdc, infoPtr, &rect, arrowSize,
                                                vertical, FALSE, FALSE );
Alexandre Julliard's avatar
Alexandre Julliard committed
    
Alexandre Julliard's avatar
Alexandre Julliard committed
    SCROLL_DrawInterior( hwnd, hdc, nBar, &rect, arrowSize, thumbSize,
                         thumbPos, infoPtr->flags, vertical, FALSE, FALSE );
Alexandre Julliard's avatar
Alexandre Julliard committed
/***********************************************************************
 *           SCROLL_RefreshScrollBar
 *
 * Repaint the scroll bar interior after a SetScrollRange() or
 * SetScrollPos() call.
 */
Alexandre Julliard's avatar
Alexandre Julliard committed
static void SCROLL_RefreshScrollBar( HWND32 hwnd, INT32 nBar, BOOL32 arrows )
Alexandre Julliard's avatar
Alexandre Julliard committed
{
Alexandre Julliard's avatar
Alexandre Julliard committed
    HDC32 hdc = GetDCEx32( hwnd, 0,
                           DCX_CACHE | ((nBar == SB_CTL) ? 0 : DCX_WINDOW) );
Alexandre Julliard's avatar
Alexandre Julliard committed
    if (!hdc) return;
Alexandre Julliard's avatar
Alexandre Julliard committed
    SCROLL_DrawScrollBar( hwnd, hdc, nBar, arrows );
    ReleaseDC32( hwnd, hdc );
Alexandre Julliard's avatar
Alexandre Julliard committed
/***********************************************************************
 *           SCROLL_HandleKbdEvent
 *
 * Handle a keyboard event (only for SB_CTL scrollbars).
Alexandre Julliard's avatar
Alexandre Julliard committed
 */
Alexandre Julliard's avatar
Alexandre Julliard committed
static void SCROLL_HandleKbdEvent( HWND32 hwnd, WPARAM32 wParam )
Alexandre Julliard's avatar
Alexandre Julliard committed
{
Alexandre Julliard's avatar
Alexandre Julliard committed
    WND *wndPtr = WIN_FindWndPtr( hwnd );
Alexandre Julliard's avatar
Alexandre Julliard committed
    WPARAM32 msg;
Alexandre Julliard's avatar
Alexandre Julliard committed
    
    switch(wParam)
    {
    case VK_PRIOR: msg = SB_PAGEUP; break;
    case VK_NEXT:  msg = SB_PAGEDOWN; break;
    case VK_HOME:  msg = SB_TOP; break;
    case VK_END:   msg = SB_BOTTOM; break;
    case VK_UP:    msg = SB_LINEUP; break;
    case VK_DOWN:  msg = SB_LINEDOWN; break;
    default:
        return;
    }
Alexandre Julliard's avatar
Alexandre Julliard committed
    SendMessage32A( GetParent32(hwnd),
Alexandre Julliard's avatar
Alexandre Julliard committed
                    (wndPtr->dwStyle & SBS_VERT) ? WM_VSCROLL : WM_HSCROLL,
                    msg, hwnd );
Alexandre Julliard's avatar
Alexandre Julliard committed
/***********************************************************************
 *           SCROLL_HandleScrollEvent
 *
 * Handle a mouse or timer event for the scrollbar.
 * 'pt' is the location of the mouse event in client (for SB_CTL) or
 * windows coordinates.
Alexandre Julliard's avatar
Alexandre Julliard committed
 */
Alexandre Julliard's avatar
Alexandre Julliard committed
void SCROLL_HandleScrollEvent( HWND32 hwnd, INT32 nBar, UINT32 msg, POINT32 pt)
Alexandre Julliard's avatar
Alexandre Julliard committed
{
Alexandre Julliard's avatar
Alexandre Julliard committed
      /* Previous mouse position for timer events */
Alexandre Julliard's avatar
Alexandre Julliard committed
    static POINT32 prevPt;
Alexandre Julliard's avatar
Alexandre Julliard committed
      /* Hit test code of the last button-down event */
    static enum SCROLL_HITTEST trackHitTest;
      /* Thumb position when tracking started. */
Alexandre Julliard's avatar
Alexandre Julliard committed
    static UINT32 trackThumbPos;
Alexandre Julliard's avatar
Alexandre Julliard committed
      /* Position in the scroll-bar of the last button-down event. */
Alexandre Julliard's avatar
Alexandre Julliard committed
    static INT32 lastClickPos;
Alexandre Julliard's avatar
Alexandre Julliard committed
      /* Position in the scroll-bar of the last mouse event. */
Alexandre Julliard's avatar
Alexandre Julliard committed
    static INT32 lastMousePos;
Alexandre Julliard's avatar
Alexandre Julliard committed

    enum SCROLL_HITTEST hittest;
Alexandre Julliard's avatar
Alexandre Julliard committed
    HWND32 hwndOwner, hwndCtl;
    BOOL32 vertical;
    INT32 arrowSize, thumbSize, thumbPos;
    RECT32 rect;
    HDC32 hdc;
Alexandre Julliard's avatar
Alexandre Julliard committed

Alexandre Julliard's avatar
Alexandre Julliard committed
    SCROLLBAR_INFO *infoPtr = SCROLL_GetScrollInfo( hwnd, nBar );
Alexandre Julliard's avatar
Alexandre Julliard committed
    if (!infoPtr) return;
    if ((trackHitTest == SCROLL_NOWHERE) && (msg != WM_LBUTTONDOWN)) return;

Alexandre Julliard's avatar
Alexandre Julliard committed
    hdc = GetDCEx32( hwnd, 0, DCX_CACHE | ((nBar == SB_CTL) ? 0 : DCX_WINDOW));
Alexandre Julliard's avatar
Alexandre Julliard committed
    vertical = SCROLL_GetScrollBarRect( hwnd, nBar, &rect,
Alexandre Julliard's avatar
Alexandre Julliard committed
                                        &arrowSize, &thumbSize, &thumbPos );
Alexandre Julliard's avatar
Alexandre Julliard committed
    hwndOwner = (nBar == SB_CTL) ? GetParent32(hwnd) : hwnd;
Alexandre Julliard's avatar
Alexandre Julliard committed
    hwndCtl   = (nBar == SB_CTL) ? hwnd : 0;

    switch(msg)
    {
      case WM_LBUTTONDOWN:  /* Initialise mouse tracking */
          trackHitTest  = hittest = SCROLL_HitTest( hwnd, nBar, pt );
          lastClickPos  = vertical ? (pt.y - rect.top) : (pt.x - rect.left);
          lastMousePos  = lastClickPos;
          trackThumbPos = thumbPos;
          prevPt = pt;
Alexandre Julliard's avatar
Alexandre Julliard committed
          SetCapture32( hwnd );
Alexandre Julliard's avatar
Alexandre Julliard committed
          if (nBar == SB_CTL) SetFocus32( hwnd );
Alexandre Julliard's avatar
Alexandre Julliard committed
          break;

      case WM_MOUSEMOVE:
          hittest = SCROLL_HitTest( hwnd, nBar, pt );
          prevPt = pt;
          break;

      case WM_LBUTTONUP:
          hittest = SCROLL_NOWHERE;
          ReleaseCapture();
          break;

      case WM_SYSTIMER:
          pt = prevPt;
          hittest = SCROLL_HitTest( hwnd, nBar, pt );
          break;

      default:
          return;  /* Should never happen */
    }

Alexandre Julliard's avatar
Alexandre Julliard committed
    dprintf_scroll( stddeb, "ScrollBar Event: hwnd=%04x bar=%d msg=%x pt=%d,%d hit=%d\n",
                    hwnd, nBar, msg, pt.x, pt.y, hittest );
Alexandre Julliard's avatar
Alexandre Julliard committed

    switch(trackHitTest)
    {
    case SCROLL_NOWHERE:  /* No tracking in progress */
        break;

    case SCROLL_TOP_ARROW:
        SCROLL_DrawArrows( hdc, infoPtr, &rect, arrowSize, vertical,
                           (hittest == trackHitTest), FALSE );
        if (hittest == trackHitTest)
        {
            if ((msg == WM_LBUTTONDOWN) || (msg == WM_SYSTIMER))
Alexandre Julliard's avatar
Alexandre Julliard committed
            {
Alexandre Julliard's avatar
Alexandre Julliard committed
                SendMessage32A( hwndOwner, vertical ? WM_VSCROLL : WM_HSCROLL,
Alexandre Julliard's avatar
Alexandre Julliard committed
                                SB_LINEUP, hwndCtl );
                SetSystemTimer32( hwnd, SCROLL_TIMER, (msg == WM_LBUTTONDOWN) ?
                                  SCROLL_FIRST_DELAY : SCROLL_REPEAT_DELAY,
                                  (TIMERPROC32)0 );
Alexandre Julliard's avatar
Alexandre Julliard committed
            }
Alexandre Julliard's avatar
Alexandre Julliard committed
        }
Alexandre Julliard's avatar
Alexandre Julliard committed
        else KillSystemTimer32( hwnd, SCROLL_TIMER );
Alexandre Julliard's avatar
Alexandre Julliard committed
        break;

    case SCROLL_TOP_RECT:
Alexandre Julliard's avatar
Alexandre Julliard committed
        SCROLL_DrawInterior( hwnd, hdc, nBar, &rect, arrowSize, thumbSize,
                             thumbPos, infoPtr->flags, vertical,
Alexandre Julliard's avatar
Alexandre Julliard committed
                             (hittest == trackHitTest), FALSE );
        if (hittest == trackHitTest)
        {
            if ((msg == WM_LBUTTONDOWN) || (msg == WM_SYSTIMER))
Alexandre Julliard's avatar
Alexandre Julliard committed
            {
Alexandre Julliard's avatar
Alexandre Julliard committed
                SendMessage32A( hwndOwner, vertical ? WM_VSCROLL : WM_HSCROLL,
Alexandre Julliard's avatar
Alexandre Julliard committed
                                SB_PAGEUP, hwndCtl );
                SetSystemTimer32( hwnd, SCROLL_TIMER, (msg == WM_LBUTTONDOWN) ?
                                  SCROLL_FIRST_DELAY : SCROLL_REPEAT_DELAY,
                                  (TIMERPROC32)0 );
Alexandre Julliard's avatar
Alexandre Julliard committed
            }
Alexandre Julliard's avatar
Alexandre Julliard committed
        }
Alexandre Julliard's avatar
Alexandre Julliard committed
        else KillSystemTimer32( hwnd, SCROLL_TIMER );
Alexandre Julliard's avatar
Alexandre Julliard committed
        break;

    case SCROLL_THUMB:
        if (msg == WM_LBUTTONDOWN)
Alexandre Julliard's avatar
Alexandre Julliard committed
        {
Alexandre Julliard's avatar
Alexandre Julliard committed
            SCROLL_TrackingWin = hwnd;
            SCROLL_TrackingBar = nBar;
            SCROLL_TrackingPos = trackThumbPos + lastMousePos - lastClickPos;
            SCROLL_DrawMovingThumb(hdc, &rect, vertical, arrowSize, thumbSize);
Alexandre Julliard's avatar
Alexandre Julliard committed
        }
Alexandre Julliard's avatar
Alexandre Julliard committed
        else if (msg == WM_LBUTTONUP)
Alexandre Julliard's avatar
Alexandre Julliard committed
        {
Alexandre Julliard's avatar
Alexandre Julliard committed
            SCROLL_TrackingWin = 0;
            SCROLL_MovingThumb = FALSE;
            SCROLL_DrawInterior( hwnd, hdc, nBar, &rect, arrowSize, thumbSize,
                                 thumbPos, infoPtr->flags, vertical,
                                 FALSE, FALSE );
Alexandre Julliard's avatar
Alexandre Julliard committed
        }
Alexandre Julliard's avatar
Alexandre Julliard committed
        else  /* WM_MOUSEMOVE */
        {
Alexandre Julliard's avatar
Alexandre Julliard committed
            UINT32 pos;
Alexandre Julliard's avatar
Alexandre Julliard committed

Alexandre Julliard's avatar
Alexandre Julliard committed
            if (!PtInRect32( &rect, pt )) pos = lastClickPos;
Alexandre Julliard's avatar
Alexandre Julliard committed
            else pos = vertical ? (pt.y - rect.top) : (pt.x - rect.left);
            if (pos != lastMousePos)
            {
Alexandre Julliard's avatar
Alexandre Julliard committed
                SCROLL_DrawMovingThumb( hdc, &rect, vertical,
                                        arrowSize, thumbSize );
Alexandre Julliard's avatar
Alexandre Julliard committed
                lastMousePos = pos;
Alexandre Julliard's avatar
Alexandre Julliard committed
                SCROLL_TrackingPos = trackThumbPos + pos - lastClickPos;
                SCROLL_TrackingVal = SCROLL_GetThumbVal( infoPtr, &rect,
                                                         vertical,
                                                         SCROLL_TrackingPos );
Alexandre Julliard's avatar
Alexandre Julliard committed
                SendMessage32A( hwndOwner, vertical ? WM_VSCROLL : WM_HSCROLL,
Alexandre Julliard's avatar
Alexandre Julliard committed
                                MAKEWPARAM( SB_THUMBTRACK, SCROLL_TrackingVal),
                                hwndCtl );
Alexandre Julliard's avatar
Alexandre Julliard committed
                SCROLL_DrawMovingThumb( hdc, &rect, vertical,
Alexandre Julliard's avatar
Alexandre Julliard committed
                                        arrowSize, thumbSize );
Alexandre Julliard's avatar
Alexandre Julliard committed
            }
Alexandre Julliard's avatar
Alexandre Julliard committed
        }
Alexandre Julliard's avatar
Alexandre Julliard committed
        break;
        
    case SCROLL_BOTTOM_RECT:
Alexandre Julliard's avatar
Alexandre Julliard committed
        SCROLL_DrawInterior( hwnd, hdc, nBar, &rect, arrowSize, thumbSize,
                             thumbPos, infoPtr->flags, vertical,
Alexandre Julliard's avatar
Alexandre Julliard committed
                             FALSE, (hittest == trackHitTest) );
        if (hittest == trackHitTest)
        {
            if ((msg == WM_LBUTTONDOWN) || (msg == WM_SYSTIMER))
Alexandre Julliard's avatar
Alexandre Julliard committed
            {
Alexandre Julliard's avatar
Alexandre Julliard committed
                SendMessage32A( hwndOwner, vertical ? WM_VSCROLL : WM_HSCROLL,
Alexandre Julliard's avatar
Alexandre Julliard committed
                                SB_PAGEDOWN, hwndCtl );
                SetSystemTimer32( hwnd, SCROLL_TIMER, (msg == WM_LBUTTONDOWN) ?
                                  SCROLL_FIRST_DELAY : SCROLL_REPEAT_DELAY,
                                  (TIMERPROC32)0 );
Alexandre Julliard's avatar
Alexandre Julliard committed
            }
Alexandre Julliard's avatar
Alexandre Julliard committed
        }
Alexandre Julliard's avatar
Alexandre Julliard committed
        else KillSystemTimer32( hwnd, SCROLL_TIMER );
Alexandre Julliard's avatar
Alexandre Julliard committed
        break;
        
    case SCROLL_BOTTOM_ARROW:
        SCROLL_DrawArrows( hdc, infoPtr, &rect, arrowSize, vertical,
                           FALSE, (hittest == trackHitTest) );
        if (hittest == trackHitTest)
        {
            if ((msg == WM_LBUTTONDOWN) || (msg == WM_SYSTIMER))
Alexandre Julliard's avatar
Alexandre Julliard committed
            {
Alexandre Julliard's avatar
Alexandre Julliard committed
                SendMessage32A( hwndOwner, vertical ? WM_VSCROLL : WM_HSCROLL,
Alexandre Julliard's avatar
Alexandre Julliard committed
                                SB_LINEDOWN, hwndCtl );
                SetSystemTimer32( hwnd, SCROLL_TIMER, (msg == WM_LBUTTONDOWN) ?
                                  SCROLL_FIRST_DELAY : SCROLL_REPEAT_DELAY,
                                  (TIMERPROC32)0 );
Alexandre Julliard's avatar
Alexandre Julliard committed
            }
Alexandre Julliard's avatar
Alexandre Julliard committed
        }
Alexandre Julliard's avatar
Alexandre Julliard committed
        else KillSystemTimer32( hwnd, SCROLL_TIMER );
Alexandre Julliard's avatar
Alexandre Julliard committed
        break;
    }

    if (msg == WM_LBUTTONUP)
    {
        if (trackHitTest == SCROLL_THUMB)
        {
Alexandre Julliard's avatar
Alexandre Julliard committed
            UINT32 val = SCROLL_GetThumbVal( infoPtr, &rect, vertical,
Alexandre Julliard's avatar
Alexandre Julliard committed
                                 trackThumbPos + lastMousePos - lastClickPos );
Alexandre Julliard's avatar
Alexandre Julliard committed
            SendMessage32A( hwndOwner, vertical ? WM_VSCROLL : WM_HSCROLL,
Alexandre Julliard's avatar
Alexandre Julliard committed
                            MAKEWPARAM( SB_THUMBPOSITION, val ), hwndCtl );
Alexandre Julliard's avatar
Alexandre Julliard committed
        }
        else
Alexandre Julliard's avatar
Alexandre Julliard committed
            SendMessage32A( hwndOwner, vertical ? WM_VSCROLL : WM_HSCROLL,
Alexandre Julliard's avatar
Alexandre Julliard committed
                            SB_ENDSCROLL, hwndCtl );
Alexandre Julliard's avatar
Alexandre Julliard committed
        trackHitTest = SCROLL_NOWHERE;  /* Terminate tracking */
    }

Alexandre Julliard's avatar
Alexandre Julliard committed
    ReleaseDC32( hwnd, hdc );
Alexandre Julliard's avatar
Alexandre Julliard committed
/***********************************************************************
 *           ScrollBarWndProc
 */
Alexandre Julliard's avatar
Alexandre Julliard committed
LRESULT ScrollBarWndProc( HWND32 hwnd, UINT32 message, WPARAM32 wParam,
                          LPARAM lParam )
Alexandre Julliard's avatar
Alexandre Julliard committed
{
Alexandre Julliard's avatar
Alexandre Julliard committed
    switch(message)
    {
    case WM_CREATE:
        {
Alexandre Julliard's avatar
Alexandre Julliard committed
	    CREATESTRUCT32A *lpCreat = (CREATESTRUCT32A *)lParam;
Alexandre Julliard's avatar
Alexandre Julliard committed
            if (lpCreat->style & SBS_SIZEBOX)
            {
                fprintf( stdnimp, "Unimplemented style SBS_SIZEBOX.\n" );
Alexandre Julliard's avatar
Alexandre Julliard committed
                return 0;  /* FIXME */
Alexandre Julliard's avatar
Alexandre Julliard committed
            }
            
	    if (lpCreat->style & SBS_VERT)
            {
                if (lpCreat->style & SBS_LEFTALIGN)
                    MoveWindow( hwnd, lpCreat->x, lpCreat->y,
                                SYSMETRICS_CXVSCROLL+1, lpCreat->cy, FALSE );
                else if (lpCreat->style & SBS_RIGHTALIGN)
                    MoveWindow( hwnd, 
                                lpCreat->x+lpCreat->cx-SYSMETRICS_CXVSCROLL-1,
                                lpCreat->y,
                                SYSMETRICS_CXVSCROLL + 1, lpCreat->cy, FALSE );
            }
            else  /* SBS_HORZ */
            {
                if (lpCreat->style & SBS_TOPALIGN)
                    MoveWindow( hwnd, lpCreat->x, lpCreat->y,
                                lpCreat->cx, SYSMETRICS_CYHSCROLL+1, FALSE );
                else if (lpCreat->style & SBS_BOTTOMALIGN)
                    MoveWindow( hwnd, 
                                lpCreat->x,
                                lpCreat->y+lpCreat->cy-SYSMETRICS_CYHSCROLL-1,
                                lpCreat->cx, SYSMETRICS_CYHSCROLL+1, FALSE );
            }
        }
        if (!hUpArrow) SCROLL_LoadBitmaps();
Alexandre Julliard's avatar
Alexandre Julliard committed
        dprintf_scroll( stddeb, "ScrollBar creation, hwnd=%04x\n", hwnd );
Alexandre Julliard's avatar
Alexandre Julliard committed
        return 0;
	
    case WM_LBUTTONDOWN:
    case WM_LBUTTONUP:
    case WM_MOUSEMOVE:
    case WM_SYSTIMER:
Alexandre Julliard's avatar
Alexandre Julliard committed
        {
            POINT32 pt;
            CONV_POINT16TO32( (POINT16 *)&lParam, &pt );
            SCROLL_HandleScrollEvent( hwnd, SB_CTL, message, pt );
        }
Alexandre Julliard's avatar
Alexandre Julliard committed
        break;

    case WM_KEYDOWN:
        SCROLL_HandleKbdEvent( hwnd, wParam );
        break;

    case WM_ERASEBKGND:
Alexandre Julliard's avatar
Alexandre Julliard committed
         return 1;

    case WM_GETDLGCODE:
         return DLGC_WANTARROWS; /* Windows returns this value */
Alexandre Julliard's avatar
Alexandre Julliard committed

    case WM_PAINT:
        {
Alexandre Julliard's avatar
Alexandre Julliard committed
            PAINTSTRUCT32 ps;
            HDC32 hdc = BeginPaint32( hwnd, &ps );
            SCROLL_DrawScrollBar( hwnd, hdc, SB_CTL, TRUE );
            EndPaint32( hwnd, &ps );
Alexandre Julliard's avatar
Alexandre Julliard committed
        }
        break;

Alexandre Julliard's avatar
Alexandre Julliard committed
    case SBM_SETPOS16:
    case SBM_SETPOS32:
        return SetScrollPos32( hwnd, SB_CTL, wParam, (BOOL32)lParam );
Alexandre Julliard's avatar
Alexandre Julliard committed

Alexandre Julliard's avatar
Alexandre Julliard committed
    case SBM_GETPOS16:
    case SBM_GETPOS32:
        return GetScrollPos32( hwnd, SB_CTL );
Alexandre Julliard's avatar
Alexandre Julliard committed

Alexandre Julliard's avatar
Alexandre Julliard committed
    case SBM_SETRANGE16:
        SetScrollRange32( hwnd, SB_CTL, LOWORD(lParam), HIWORD(lParam),
                          wParam  /* FIXME: Is this correct? */ );
Alexandre Julliard's avatar
Alexandre Julliard committed
        return 0;

Alexandre Julliard's avatar
Alexandre Julliard committed
    case SBM_SETRANGE32:
        SetScrollRange32( hwnd, SB_CTL, wParam, lParam, FALSE );
        return 0;  /* FIXME: return previous position */
Alexandre Julliard's avatar
Alexandre Julliard committed

Alexandre Julliard's avatar
Alexandre Julliard committed
    case SBM_GETRANGE16:
        /* FIXME */
        fprintf( stderr, "ScrollBar: don't know how to handle SBM_GETRANGE16 (wp=%04x,lp=%08lx)\n",
                 wParam, lParam );
        return 0;

    case SBM_GETRANGE32:
        GetScrollRange32( hwnd, SB_CTL, (LPINT32)wParam, (LPINT32)lParam );
        return 0;

    case SBM_ENABLE_ARROWS16:
    case SBM_ENABLE_ARROWS32:
        return EnableScrollBar32( hwnd, SB_CTL, wParam );

    case SBM_SETRANGEREDRAW32:
        SetScrollRange32( hwnd, SB_CTL, wParam, lParam, TRUE );
        return 0;  /* FIXME: return previous position */
        
    case SBM_SETSCROLLINFO32:
        return SetScrollInfo32( hwnd, SB_CTL, (SCROLLINFO *)lParam, wParam );

    case SBM_GETSCROLLINFO32:
        return GetScrollInfo32( hwnd, SB_CTL, (SCROLLINFO *)lParam );

    case 0x00e5:
    case 0x00e7:
    case 0x00e8:
    case 0x00eb:
    case 0x00ec:
    case 0x00ed:
    case 0x00ee:
    case 0x00ef:
        fprintf(stderr, "ScrollBar: unknown Win32 msg %04x wp=%08x lp=%08lx\n",
                message, wParam, lParam );
Alexandre Julliard's avatar
Alexandre Julliard committed
        break;
Alexandre Julliard's avatar
Alexandre Julliard committed

Alexandre Julliard's avatar
Alexandre Julliard committed
    default:
Alexandre Julliard's avatar
Alexandre Julliard committed
        if (message >= WM_USER)
            fprintf( stderr, "ScrollBar: unknown msg %04x wp=%04x lp=%08lx\n",
                     message, wParam, lParam );
        return DefWindowProc32A( hwnd, message, wParam, lParam );
Alexandre Julliard's avatar
Alexandre Julliard committed
    }
    return 0;
}

Alexandre Julliard's avatar
Alexandre Julliard committed

Alexandre Julliard's avatar
Alexandre Julliard committed
/*************************************************************************
Alexandre Julliard's avatar
Alexandre Julliard committed
 *           SetScrollInfo16   (USER.475)
Alexandre Julliard's avatar
Alexandre Julliard committed
 */
Alexandre Julliard's avatar
Alexandre Julliard committed
INT16 SetScrollInfo16( HWND16 hwnd, INT16 nBar, const SCROLLINFO *info,
                       BOOL16 bRedraw )
{
    return (INT16)SetScrollInfo32( hwnd, nBar, info, bRedraw );
}


/*************************************************************************
 *           SetScrollInfo32   (USER32.500)
 */
INT32 SetScrollInfo32( HWND32 hwnd, INT32 nBar, const SCROLLINFO *info,
                       BOOL32 bRedraw )
Alexandre Julliard's avatar
Alexandre Julliard committed
{
Alexandre Julliard's avatar
Alexandre Julliard committed
    SCROLLBAR_INFO *infoPtr;
Alexandre Julliard's avatar
Alexandre Julliard committed
    UINT32 new_flags;
    BOOL32 repaint_arrows = FALSE;
Alexandre Julliard's avatar
Alexandre Julliard committed

Alexandre Julliard's avatar
Alexandre Julliard committed
    if (!(infoPtr = SCROLL_GetScrollInfo(hwnd, nBar))) return 0;
    if (info->fMask & ~(SIF_ALL | SIF_DISABLENOSCROLL)) return 0;
    if ((info->cbSize != sizeof(*info)) &&
        (info->cbSize != sizeof(*info)-sizeof(info->nTrackPos))) return 0;
Alexandre Julliard's avatar
Alexandre Julliard committed

Alexandre Julliard's avatar
Alexandre Julliard committed
    dprintf_scroll( stddeb, "SetScrollInfo: hwnd=%04x bar=%d", hwnd, nBar );
Alexandre Julliard's avatar
Alexandre Julliard committed

Alexandre Julliard's avatar
Alexandre Julliard committed
    /* Set the page size */

    if (info->fMask & SIF_PAGE)
    {
        dprintf_scroll( stddeb, " page=%d", info->nPage );
        infoPtr->Page = info->nPage;
    }

    /* Set the scroll pos */

    if (info->fMask & SIF_POS)
    {
        dprintf_scroll( stddeb, " pos=%d", info->nPos );
        infoPtr->CurVal = info->nPos;
    }

    /* Set the scroll range */

    if (info->fMask & SIF_RANGE)
    {
        dprintf_scroll( stddeb, " min=%d max=%d", info->nMin, info->nMax );

        /* Invalid range -> range is set to (0,0) */
        if ((info->nMin > info->nMax) ||
            ((UINT32)(info->nMax - info->nMin) >= 0x80000000))
        {
            infoPtr->MinVal = 0;
            infoPtr->MaxVal = 0;
        }
        else
        {
            infoPtr->MinVal = info->nMin;
            infoPtr->MaxVal = info->nMax;
        }
    }

    /* Make sure the page size is valid */

    if (infoPtr->Page < 0) infoPtr->Page = 0;
    else if (infoPtr->Page > infoPtr->MaxVal - infoPtr->MinVal + 1 )
        infoPtr->Page = infoPtr->MaxVal - infoPtr->MinVal + 1;

    /* Make sure the pos is inside the range */

    if (infoPtr->CurVal < infoPtr->MinVal)
        infoPtr->CurVal = infoPtr->MinVal;
    else if (infoPtr->CurVal > infoPtr->MaxVal - MAX( infoPtr->Page-1, 0 ))
        infoPtr->CurVal = infoPtr->MaxVal - MAX( infoPtr->Page-1, 0 );

    dprintf_scroll( stddeb, "\n   new values: page=%d pos=%d min=%d max=%d\n",
                    infoPtr->Page, infoPtr->CurVal,
                    infoPtr->MinVal, infoPtr->MaxVal );

    /* Check if the scrollbar should be hidden or disabled */

    new_flags = infoPtr->flags;
    if (infoPtr->MinVal >= infoPtr->MaxVal - MAX( infoPtr->Page-1, 0 ))
    {
        /* Hide or disable scroll-bar */
        if (info->fMask & SIF_DISABLENOSCROLL) new_flags = ESB_DISABLE_BOTH;
        else if (nBar != SB_CTL)
        {
            ShowScrollBar32( hwnd, nBar, FALSE );
            bRedraw = FALSE;  /* No need to repaint anything */
        }
    }
    else  /* Show and enable scroll-bar */
    {
        new_flags = 0;
        if (nBar != SB_CTL) ShowScrollBar32( hwnd, nBar, TRUE );
    }

    if (infoPtr->flags != new_flags)
    {
        infoPtr->flags = new_flags;
        repaint_arrows = TRUE;