git.oblomov.eu Git - wine/blob - dlls/user32/tests/scroll.c

   1 /*
   2  * Unit tests for scrollbar
   3  *
   4  * Copyright 2008 Lyutin Anatoly (Etersoft)
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  19  */
  20
  21 #include <assert.h>
  22 #include <stdarg.h>
  23 #include <stdio.h>
  24 #include <windows.h>
  25
  26 #include "wine/test.h"
  27
  28 static HWND hScroll, hMainWnd;
  29 static BOOL bThemeActive = FALSE;
  30
  31 static LRESULT CALLBACK MyWndProc( HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam )
  32 {
  33     switch(msg)
  34     {
  35
  36     case WM_CREATE:
  37     {
  38         hScroll = CreateWindowA( "SCROLLBAR", "", WS_CHILD | WS_VISIBLE, 0, 0, 120, 100, hWnd, (HMENU)100, GetModuleHandleA(0), 0 );
  39
  40         return 0;
  41     }
  42     case WM_DESTROY:
  43         PostQuitMessage(0);
  44         break;
  45
  46     default:
  47         return DefWindowProcA(hWnd, msg, wParam, lParam);
  48     }
  49     return 0;
  50 }
  51
  52 static void scrollbar_test1(void)
  53 {
  54     BOOL ret;
  55
  56     ret = EnableScrollBar( hScroll, SB_CTL, ESB_DISABLE_BOTH );
  57     ok( ret, "The scrollbar should be disabled.\n" );
  58     ok( !IsWindowEnabled( hScroll ), "The scrollbar window should be disabled.\n" );
  59
  60     ret = EnableScrollBar( hScroll, SB_CTL, ESB_ENABLE_BOTH );
  61     ok( ret, "The scrollbar should be enabled.\n" );
  62     ok( IsWindowEnabled( hScroll ), "The scrollbar window should be enabled.\n" );
  63
  64     /* test buttons separately */
  65     ret = EnableScrollBar( hScroll, SB_CTL, ESB_DISABLE_LTUP );
  66     ok( ret, "The scrollbar LTUP button should be disabled.\n" );
  67     ok( IsWindowEnabled( hScroll ), "The scrollbar window should be enabled.\n" );
  68     ret = EnableScrollBar( hScroll, SB_CTL, ESB_ENABLE_BOTH );
  69     ok( ret, "The scrollbar should be enabled.\n" );
  70     ok( IsWindowEnabled( hScroll ), "The scrollbar window should be enabled.\n" );
  71
  72     ret = EnableScrollBar( hScroll, SB_CTL, ESB_DISABLE_RTDN );
  73     ok( ret, "The scrollbar RTDN button should be disabled.\n" );
  74     ok( IsWindowEnabled( hScroll ), "The scrollbar window should be enabled.\n" );
  75     ret = EnableScrollBar( hScroll, SB_CTL, ESB_ENABLE_BOTH );
  76     ok( ret, "The scrollbar should be enabled.\n" );
  77     ok( IsWindowEnabled( hScroll ), "The scrollbar window should be enabled.\n" );
  78 }
  79
  80 static void scrollbar_test2(void)
  81 {
  82     int ret;
  83
  84     trace("The scrollbar is disabled.\n");
  85
  86     EnableWindow( hScroll, FALSE );
  87     ok( !IsWindowEnabled( hScroll ), "The scroll should be disabled.\n" );
  88
  89     ret = SetScrollPos( hScroll, SB_CTL, 30, TRUE);
  90     ok( !ret, "The position should not be set.\n" );
  91
  92     ret = GetScrollPos( hScroll, SB_CTL);
  93     ok( !ret, "The position should be equal to zero\n");
  94
  95     ret = SetScrollRange( hScroll, SB_CTL, 0, 100, TRUE );
  96     ok( ret, "The range should be set.\n" );
  97
  98     ret = SetScrollPos( hScroll, SB_CTL, 30, TRUE);
  99     ok( !ret , "The position should not be set.\n" );
 100
 101     ret = GetScrollPos( hScroll, SB_CTL);
 102     ok( ret == 30, "The position should be set!!!\n");
 103
 104     trace("The scrollbar is enabled.\n");
 105
 106     EnableWindow( hScroll, TRUE );
 107     ok( IsWindowEnabled( hScroll ), "The scroll should be enabled.\n" );
 108
 109     ret = SetScrollPos( hScroll, SB_CTL, 30, TRUE);
 110     ok( ret == 30, "The position should be set.\n" );
 111
 112     ret = GetScrollPos( hScroll, SB_CTL);
 113     ok( ret == 30, "The position should not be equal to zero\n");
 114
 115     ret = SetScrollRange( hScroll, SB_CTL, 0, 100, TRUE );
 116     ok( ret, "The range should be set.\n" );
 117
 118     ret = SetScrollPos( hScroll, SB_CTL, 30, TRUE);
 119     ok( ret == 30, "The position should be set.\n" );
 120
 121     ret = GetScrollPos( hScroll, SB_CTL);
 122     ok( ret == 30, "The position should not be equal to zero\n");
 123 }
 124
 125 static void scrollbar_test3(void)
 126 {
 127     BOOL    ret;
 128
 129     ret = ShowScrollBar( hScroll, SB_CTL, FALSE );
 130     ok( ret, "The ShowScrollBar() should not failed.\n" );
 131     ok( !IsWindowVisible( hScroll ), "The scrollbar window should not be visible\n" );
 132
 133     ret = ShowScrollBar( hScroll, SB_CTL, TRUE );
 134     ok( ret, "The ShowScrollBar() should not failed.\n" );
 135     ok( !IsWindowVisible( hScroll ), "The scrollbar window should be visible\n" );
 136
 137     ret = ShowScrollBar( NULL, SB_CTL, TRUE );
 138     ok( !ret, "The ShowScrollBar() should failed.\n" );
 139
 140 }
 141
 142 static void scrollbar_test4(void)
 143 {
 144     BOOL ret;
 145     SCROLLBARINFO sbi;
 146     RECT rect;
 147     BOOL (WINAPI *pGetScrollBarInfo)(HWND, LONG, LPSCROLLBARINFO);
 148
 149     pGetScrollBarInfo = (void*)GetProcAddress(GetModuleHandleA("user32.dll"), "GetScrollBarInfo");
 150     if (!pGetScrollBarInfo)
 151     {
 152         win_skip("GetScrollBarInfo is not available\n");
 153         return;
 154     }
 155
 156     /* Test GetScrollBarInfo to make sure it returns rcScrollBar in screen
 157      * coordinates. */
 158     sbi.cbSize = sizeof(sbi);
 159     ret = pGetScrollBarInfo( hScroll, OBJID_CLIENT, &sbi);
 160     ok( ret, "The GetScrollBarInfo() call should not fail.\n" );
 161     GetWindowRect( hScroll, &rect );
 162     ok( ret, "The GetWindowRect() call should not fail.\n" );
 163     ok( !(sbi.rgstate[0] & (STATE_SYSTEM_INVISIBLE|STATE_SYSTEM_OFFSCREEN)),
 164         "unexpected rgstate(0x%x)\n", sbi.rgstate[0]);
 165     ok( EqualRect(&rect, &sbi.rcScrollBar),
 166         "WindowRect(%d, %d, %d, %d) != rcScrollBar(%d, %d, %d, %d)\n",
 167         rect.top, rect.left, rect.bottom, rect.right,
 168         sbi.rcScrollBar.top, sbi.rcScrollBar.left,
 169         sbi.rcScrollBar.bottom, sbi.rcScrollBar.right );
 170
 171     /* Test windows horizontal and vertical scrollbar to make sure rcScrollBar
 172      * is still returned in screen coordinates by moving the window, and
 173      * making sure that it shifts the rcScrollBar value. */
 174     ShowWindow( hMainWnd, SW_SHOW );
 175     sbi.cbSize = sizeof(sbi);
 176     ret = pGetScrollBarInfo( hMainWnd, OBJID_HSCROLL, &sbi);
 177     ok( ret, "The GetScrollBarInfo() call should not fail.\n" );
 178     GetWindowRect( hMainWnd, &rect );
 179     ok( ret, "The GetWindowRect() call should not fail.\n" );
 180     MoveWindow( hMainWnd, rect.left+5, rect.top+5,
 181                 rect.right-rect.left, rect.bottom-rect.top, TRUE );
 182     rect = sbi.rcScrollBar;
 183     OffsetRect(&rect, 5, 5);
 184     ret = pGetScrollBarInfo( hMainWnd, OBJID_HSCROLL, &sbi);
 185     ok( ret, "The GetScrollBarInfo() call should not fail.\n" );
 186     ok( EqualRect(&rect, &sbi.rcScrollBar),
 187         "PreviousRect(%d, %d, %d, %d) != CurrentRect(%d, %d, %d, %d)\n",
 188         rect.top, rect.left, rect.bottom, rect.right,
 189         sbi.rcScrollBar.top, sbi.rcScrollBar.left,
 190         sbi.rcScrollBar.bottom, sbi.rcScrollBar.right );
 191
 192     sbi.cbSize = sizeof(sbi);
 193     ret = pGetScrollBarInfo( hMainWnd, OBJID_VSCROLL, &sbi);
 194     ok( ret, "The GetScrollBarInfo() call should not fail.\n" );
 195     GetWindowRect( hMainWnd, &rect );
 196     ok( ret, "The GetWindowRect() call should not fail.\n" );
 197     MoveWindow( hMainWnd, rect.left+5, rect.top+5,
 198                 rect.right-rect.left, rect.bottom-rect.top, TRUE );
 199     rect = sbi.rcScrollBar;
 200     OffsetRect(&rect, 5, 5);
 201     ret = pGetScrollBarInfo( hMainWnd, OBJID_VSCROLL, &sbi);
 202     ok( ret, "The GetScrollBarInfo() call should not fail.\n" );
 203     ok( EqualRect(&rect, &sbi.rcScrollBar),
 204         "PreviousRect(%d, %d, %d, %d) != CurrentRect(%d, %d, %d, %d)\n",
 205         rect.top, rect.left, rect.bottom, rect.right,
 206         sbi.rcScrollBar.top, sbi.rcScrollBar.left,
 207         sbi.rcScrollBar.bottom, sbi.rcScrollBar.right );
 208 }
 209
 210 /* some tests designed to show that Horizontal and Vertical
 211  * window scroll bar info are not created independently */
 212 static void scrollbar_test_default( DWORD style)
 213 {
 214     INT min, max, ret;
 215     DWORD winstyle;
 216     HWND hwnd;
 217     SCROLLINFO si = { sizeof( SCROLLINFO), SIF_TRACKPOS };
 218
 219     hwnd = CreateWindowExA( 0, "static", "", WS_POPUP | style,
 220                 0, 0, 10, 10, 0, 0, 0, NULL);
 221     assert( hwnd != 0);
 222
 223     ret = GetScrollRange( hwnd, SB_VERT, &min, &max);
 224     ok( ret ||
 225             broken( !ret) /* Win 98/ME */ , "GetScrollRange failed.\n");
 226     /* range is 0,0 if there are no H or V scroll bars. 0,100 otherwise */
 227     if( !( style & ( WS_VSCROLL | WS_HSCROLL)))
 228         ok( min == 0 && max == 0,
 229                 "Scroll bar range is %d,%d. Expected 0,0. Style %08x\n", min, max, style);
 230     else
 231 todo_wine
 232         ok( min == 0 && max == 100,
 233                 "Scroll bar range is %d,%d. Expected 0,100. Style %08x\n", min, max, style);
 234     ret = GetScrollRange( hwnd, SB_HORZ, &min, &max);
 235     ok( ret ||
 236             broken( !ret) /* Win 98/ME */ , "GetScrollRange failed.\n");
 237     /* range is 0,0 if there are no H or V scroll bars. 0,100 otherwise */
 238     if( !( style & ( WS_VSCROLL | WS_HSCROLL)))
 239         ok( min == 0 && max == 0,
 240                 "Scroll bar range is %d,%d. Expected 0,0. Style %08x\n", min, max, style);
 241     else
 242 todo_wine
 243         ok( min == 0 && max == 100,
 244                 "Scroll bar range is %d,%d. Expected 0,100. Style %08x\n", min, max, style);
 245     /* test GetScrollInfo, vist for vertical SB */
 246     ret = GetScrollInfo( hwnd, SB_VERT, &si);
 247     /* should fail if no H orV scroll bar styles are present. Succeed otherwise */
 248     if( !( style & ( WS_VSCROLL | WS_HSCROLL)))
 249         ok( !ret, "GetScrollInfo succeeded unexpectedly. Style is %08x\n", style);
 250     else
 251 todo_wine
 252         ok( ret, "GetScrollInfo failed unexpectedly. Style is %08x\n", style);
 253     /* Same for Horizontal SB */
 254     ret = GetScrollInfo( hwnd, SB_HORZ, &si);
 255     /* should fail if no H orV scroll bar styles are present. Succeed otherwise */
 256     if( !( style & ( WS_VSCROLL | WS_HSCROLL)))
 257         ok( !ret, "GetScrollInfo succeeded unexpectedly. Style is %08x\n", style);
 258     else
 259 todo_wine
 260         ok( ret, "GetScrollInfo failed unexpectedly. Style is %08x\n", style);
 261     /* now set the Vertical Scroll range to something that could be the default value it
 262      * already has */;
 263     ret = SetScrollRange( hwnd, SB_VERT, 0, 100, FALSE);
 264     ok( ret, "SetScrollRange failed.\n");
 265     /* and request the Horizontal range */
 266     ret = GetScrollRange( hwnd, SB_HORZ, &min, &max);
 267     ok( ret, "GetScrollRange failed.\n");
 268     /* now the range should be 0,100 in ALL cases */
 269     ok( min == 0 && max == 100,
 270             "Scroll bar range is %d,%d. Expected 0,100. Style %08x\n", min, max, style);
 271     /* See what is different now for GetScrollRange */
 272     ret = GetScrollInfo( hwnd, SB_HORZ, &si);
 273     /* should succeed in ALL cases */
 274     ok( ret, "GetScrollInfo failed unexpectedly. Style is %08x\n", style);
 275     ret = GetScrollInfo( hwnd, SB_VERT, &si);
 276     /* should succeed in ALL cases */
 277     ok( ret, "GetScrollInfo failed unexpectedly. Style is %08x\n", style);
 278     /* report the windows style */
 279     winstyle = GetWindowLongW( hwnd, GWL_STYLE );
 280     /* WS_VSCROLL added to the window style */
 281     if( !(style & WS_VSCROLL))
 282     {
 283         if (bThemeActive || style != WS_HSCROLL)
 284 todo_wine
 285             ok( (winstyle & (WS_HSCROLL|WS_VSCROLL)) == ( style | WS_VSCROLL),
 286                     "unexpected style change %8lx expected %8lx\n",
 287                     (winstyle & (WS_HSCROLL|WS_VSCROLL)), style | WS_VSCROLL);
 288         else
 289             ok( (winstyle & (WS_HSCROLL|WS_VSCROLL)) == style,
 290                     "unexpected style change %8lx expected %8x\n",
 291                     (winstyle & (WS_HSCROLL|WS_VSCROLL)), style);
 292     }
 293     /* do the test again with H and V reversed.
 294      * Start with a clean window */
 295     DestroyWindow( hwnd);
 296     hwnd = CreateWindowExA( 0, "static", "", WS_POPUP | style,
 297                 0, 0, 10, 10, 0, 0, 0, NULL);
 298     assert( hwnd != 0);
 299     /* Set Horizonta Scroll range to something that could be the default value it
 300      * already has */;
 301     ret = SetScrollRange( hwnd, SB_HORZ, 0, 100, FALSE);
 302     ok( ret, "SetScrollRange failed.\n");
 303     /* and request the Vertical range */
 304     ret = GetScrollRange( hwnd, SB_VERT, &min, &max);
 305     ok( ret, "GetScrollRange failed.\n");
 306     /* now the range should be 0,100 in ALL cases */
 307     ok( min == 0 && max == 100,
 308             "Scroll bar range is %d,%d. Expected 0,100. Style %08x\n", min, max, style);
 309     /* See what is different now for GetScrollRange */
 310     ret = GetScrollInfo( hwnd, SB_HORZ, &si);
 311     /* should succeed in ALL cases */
 312     ok( ret, "GetScrollInfo failed unexpectedly. Style is %08x\n", style);
 313     ret = GetScrollInfo( hwnd, SB_VERT, &si);
 314     /* should succeed in ALL cases */
 315     ok( ret, "GetScrollInfo failed unexpectedly. Style is %08x\n", style);
 316     /* report the windows style */
 317     winstyle = GetWindowLongW( hwnd, GWL_STYLE );
 318     /* WS_HSCROLL added to the window style */
 319     if( !(style & WS_HSCROLL))
 320     {
 321         if (bThemeActive || style != WS_VSCROLL)
 322 todo_wine
 323             ok( (winstyle & (WS_HSCROLL|WS_VSCROLL)) == ( style | WS_HSCROLL),
 324                     "unexpected style change %8lx expected %8lx\n",
 325                     (winstyle & (WS_HSCROLL|WS_VSCROLL)), style | WS_HSCROLL);
 326         else
 327             ok( (winstyle & (WS_HSCROLL|WS_VSCROLL)) == style,
 328                     "unexpected style change %8lx expected %8x\n",
 329                     (winstyle & (WS_HSCROLL|WS_VSCROLL)), style);
 330     }
 331     /* Slightly change the test to use SetScrollInfo
 332      * Start with a clean window */
 333     DestroyWindow( hwnd);
 334     hwnd = CreateWindowExA( 0, "static", "", WS_POPUP | style,
 335                 0, 0, 10, 10, 0, 0, 0, NULL);
 336     assert( hwnd != 0);
 337     /* set Horizontal position with SetScrollInfo */
 338     si.nPos = 0;
 339     si.nMin = 11;
 340     si.nMax = 22;
 341     si.fMask |= SIF_RANGE;
 342     ret = SetScrollInfo( hwnd, SB_HORZ, &si, FALSE);
 343     ok( ret, "SetScrollInfo failed. Style is %08x\n", style);
 344     /* and request the Vertical range */
 345     ret = GetScrollRange( hwnd, SB_VERT, &min, &max);
 346     ok( ret, "GetScrollRange failed.\n");
 347     /* now the range should be 0,100 in ALL cases */
 348     ok( min == 0 && max == 100,
 349             "Scroll bar range is %d,%d. Expected 0,100. Style %08x\n", min, max, style);
 350     /* See what is different now for GetScrollRange */
 351     ret = GetScrollInfo( hwnd, SB_HORZ, &si);
 352     /* should succeed in ALL cases */
 353     ok( ret, "GetScrollInfo failed unexpectedly. Style is %08x\n", style);
 354     ret = GetScrollInfo( hwnd, SB_VERT, &si);
 355     /* should succeed in ALL cases */
 356     ok( ret, "GetScrollInfo failed unexpectedly. Style is %08x\n", style);
 357     /* also test if the window scroll bars are enabled */
 358     ret = EnableScrollBar( hwnd, SB_VERT, ESB_ENABLE_BOTH);
 359     ok( !ret, "Vertical window scroll bar was not enabled\n");
 360     ret = EnableScrollBar( hwnd, SB_HORZ, ESB_ENABLE_BOTH);
 361     ok( !ret, "Horizontal window scroll bar was not enabled\n");
 362     DestroyWindow( hwnd);
 363     /* finally, check if adding a WS_[HV]SColl style of a  window makes the scroll info
 364      * available */
 365     if( style & (WS_HSCROLL | WS_VSCROLL)) return;/* only test if not yet set */
 366     /* Start with a clean window */
 367     DestroyWindow( hwnd);
 368     hwnd = CreateWindowExA( 0, "static", "", WS_POPUP ,
 369                 0, 0, 10, 10, 0, 0, 0, NULL);
 370     assert( hwnd != 0);
 371     ret = GetScrollInfo( hwnd, SB_VERT, &si);
 372     /* should fail */
 373     ok( !ret, "GetScrollInfo succeeded unexpectedly. Style is %08x\n", style);
 374     /* add scroll styles */
 375     winstyle = GetWindowLongW( hwnd, GWL_STYLE );
 376     SetWindowLongW( hwnd, GWL_STYLE, winstyle | WS_VSCROLL | WS_HSCROLL);
 377     ret = GetScrollInfo( hwnd, SB_VERT, &si);
 378     /* should still fail */
 379     ok( !ret, "GetScrollInfo succeeded unexpectedly. Style is %08x\n", style);
 380     /* clean up */
 381     DestroyWindow( hwnd);
 382 }
 383
 384 START_TEST ( scroll )
 385 {
 386     WNDCLASSA wc;
 387     HMODULE hUxtheme;
 388     BOOL (WINAPI * pIsThemeActive)(VOID);
 389
 390     wc.style = CS_HREDRAW | CS_VREDRAW;
 391     wc.cbClsExtra = 0;
 392     wc.cbWndExtra = 0;
 393     wc.hInstance = GetModuleHandleA(NULL);
 394     wc.hIcon = NULL;
 395     wc.hCursor = LoadCursorA(NULL, IDC_IBEAM);
 396     wc.hbrBackground = GetSysColorBrush(COLOR_WINDOW);
 397     wc.lpszMenuName = NULL;
 398     wc.lpszClassName = "MyTestWnd";
 399     wc.lpfnWndProc = MyWndProc;
 400     RegisterClassA(&wc);
 401
 402     hMainWnd = CreateWindowExA( 0, "MyTestWnd", "Scroll",
 403       WS_OVERLAPPEDWINDOW|WS_VSCROLL|WS_HSCROLL,
 404       CW_USEDEFAULT, CW_USEDEFAULT, 100, 100, NULL, NULL, GetModuleHandleA(NULL), 0 );
 405
 406     if ( !ok( hMainWnd != NULL, "Failed to create parent window. Tests aborted.\n" ) )
 407         return;
 408
 409     assert( hScroll );
 410
 411     scrollbar_test1();
 412     scrollbar_test2();
 413     scrollbar_test3();
 414     scrollbar_test4();
 415
 416     /* Some test results vary depending of theming being active or not */
 417     hUxtheme = LoadLibraryA("uxtheme.dll");
 418     if (hUxtheme)
 419     {
 420         pIsThemeActive = (void*)GetProcAddress(hUxtheme, "IsThemeActive");
 421         if (pIsThemeActive)
 422             bThemeActive = pIsThemeActive();
 423         FreeLibrary(hUxtheme);
 424     }
 425
 426     scrollbar_test_default( 0);
 427     scrollbar_test_default( WS_HSCROLL);
 428     scrollbar_test_default( WS_VSCROLL);
 429     scrollbar_test_default( WS_HSCROLL | WS_VSCROLL);
 430
 431     DestroyWindow(hScroll);
 432     DestroyWindow(hMainWnd);
 433 }