system/wine
system/wine
1
0
Fork 0
mirror of git://source.winehq.org/git/wine.git synced 2024-09-14 17:36:20 +00:00
Code Issues Packages Projects Releases Wiki Activity

uxtheme/tests: Add theme tests.

Browse source
This commit is contained in:
Zhiyi Zhang 2022-08-31 21:40:30 +08:00 committed by Alexandre Julliard
parent 5d9f0be001
commit b710458069
1 changed files with 45 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

45
dlls/uxtheme/tests/system.c
View file

@ -2550,6 +2550,50 @@ static void test_GetThemeBackgroundRegion(void)
DestroyWindow(hwnd);
}
static void test_theme(void)
{
BOOL transparent;
HTHEME htheme;
HRESULT hr;
HWND hwnd;
if (!IsThemeActive())
{
skip("Theming is inactive.\n");
return;
}
hwnd = CreateWindowA(WC_STATICA, "", WS_POPUP, 0, 0, 1, 1, 0, 0, 0, NULL);
ok(!!hwnd, "CreateWindowA failed, error %#lx.\n", GetLastError());
/* Test that scrollbar arrow parts are transparent */
htheme = OpenThemeData(hwnd, L"ScrollBar");
ok(!!htheme, "OpenThemeData failed.\n");
transparent = FALSE;
hr = GetThemeBool(htheme, SBP_ARROWBTN, 0, TMT_TRANSPARENT, &transparent);
/* XP does use opaque scrollbar arrow parts and TMT_TRANSPARENT is FALSE */
if (LOBYTE(LOWORD(GetVersion())) < 6)
{
ok(hr == E_PROP_ID_UNSUPPORTED, "Got unexpected hr %#lx.\n", hr);
transparent = IsThemeBackgroundPartiallyTransparent(htheme, SBP_ARROWBTN, 0);
ok(!transparent, "Expected opaque.\n");
}
/* > XP use opaque scrollbar arrow parts, but TMT_TRANSPARENT is TRUE */
else
{
ok(hr == S_OK, "Got unexpected hr %#lx,\n", hr);
ok(transparent, "Expected transparent.\n");
transparent = IsThemeBackgroundPartiallyTransparent(htheme, SBP_ARROWBTN, 0);
ok(transparent, "Expected transparent.\n");
}
CloseThemeData(htheme);
DestroyWindow(hwnd);
}
START_TEST(system)
{
ULONG_PTR ctx_cookie;
@ -2574,6 +2618,7 @@ START_TEST(system)
test_DrawThemeParentBackground();
test_DrawThemeBackgroundEx();
test_GetThemeBackgroundRegion();
test_theme();
if (load_v6_module(&ctx_cookie, &ctx))
{