git.oblomov.eu Git - wine/blob - dlls/comctl32/tests/tab.c

   1 /* Unit test suite for tab control.
   2  *
   3  * Copyright 2003 Vitaliy Margolen
   4  *
   5  * This library is free software; you can redistribute it and/or
   6  * modify it under the terms of the GNU Lesser General Public
   7  * License as published by the Free Software Foundation; either
   8  * version 2.1 of the License, or (at your option) any later version.
   9  *
  10  * This library is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  13  * Lesser General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU Lesser General Public
  16  * License along with this library; if not, write to the Free Software
  17  * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
  18  */
  19
  20 #include <assert.h>
  21 #include <windows.h>
  22 #include <commctrl.h>
  23
  24 #include "wine/test.h"
  25
  26 #define DEFAULT_MIN_TAB_WIDTH 54
  27 #define TAB_DEFAULT_WIDTH 96
  28 #define TAB_PADDING_X 6
  29 #define EXTRA_ICON_PADDING 3
  30
  31 #define TabWidthPadded(padd_x, num) (DEFAULT_MIN_TAB_WIDTH - (TAB_PADDING_X - (padd_x)) * num)
  32
  33 #define TabCheckSetSize(hwnd, SetWidth, SetHeight, ExpWidth, ExpHeight, Msg)\
  34     SendMessage (hwnd, TCM_SETITEMSIZE, 0,\
  35         (LPARAM) MAKELPARAM((SetWidth >= 0) ? SetWidth:0, (SetHeight >= 0) ? SetHeight:0));\
  36     if (winetest_interactive) RedrawWindow (hwnd, NULL, 0, RDW_UPDATENOW);\
  37     CheckSize(hwnd, ExpWidth, ExpHeight, Msg);
  38
  39 #define CheckSize(hwnd,width,height,msg)\
  40     SendMessage (hwnd, TCM_GETITEMRECT, 0, (LPARAM) &rTab);\
  41     if ((width  >= 0) && (height < 0))\
  42         ok (width  == rTab.right  - rTab.left, "%s: Expected width [%d] got [%d]\n",\
  43         msg, (int)width,  rTab.right  - rTab.left);\
  44     else if ((height >= 0) && (width  < 0))\
  45         ok (height == rTab.bottom - rTab.top,  "%s: Expected height [%d] got [%d]\n",\
  46         msg, (int)height, rTab.bottom - rTab.top);\
  47     else\
  48         ok ((width  == rTab.right  - rTab.left) &&\
  49             (height == rTab.bottom - rTab.top ),\
  50             "%s: Expected [%d,%d] got [%d,%d]\n", msg, (int)width, (int)height,\
  51             rTab.right - rTab.left, rTab.bottom - rTab.top);
  52
  53 static HFONT hFont = 0;
  54
  55 static HWND
  56 create_tabcontrol (DWORD style, DWORD mask)
  57 {
  58     HWND handle;
  59     TCITEM tcNewTab;
  60     static char text1[] = "Tab 1",
  61     text2[] = "Wide Tab 2",
  62     text3[] = "T 3";
  63
  64     handle = CreateWindow (
  65         WC_TABCONTROLA,
  66         "TestTab",
  67         WS_CLIPSIBLINGS | WS_CLIPCHILDREN | TCS_FOCUSNEVER | style,
  68         10, 10, 300, 100,
  69         NULL, NULL, NULL, 0);
  70
  71     assert (handle);
  72
  73     SetWindowLong(handle, GWL_STYLE, WS_CLIPSIBLINGS | WS_CLIPCHILDREN | TCS_FOCUSNEVER | style);
  74     SendMessage (handle, WM_SETFONT, 0, (LPARAM) hFont);
  75
  76     tcNewTab.mask = mask;
  77     tcNewTab.pszText = text1;
  78     tcNewTab.iImage = 0;
  79     SendMessage (handle, TCM_INSERTITEM, 0, (LPARAM) &tcNewTab);
  80     tcNewTab.pszText = text2;
  81     tcNewTab.iImage = 1;
  82     SendMessage (handle, TCM_INSERTITEM, 1, (LPARAM) &tcNewTab);
  83     tcNewTab.pszText = text3;
  84     tcNewTab.iImage = 2;
  85     SendMessage (handle, TCM_INSERTITEM, 2, (LPARAM) &tcNewTab);
  86
  87     if (winetest_interactive)
  88     {
  89         ShowWindow (handle, SW_SHOW);
  90         RedrawWindow (handle, NULL, 0, RDW_UPDATENOW);
  91         Sleep (1000);
  92     }
  93
  94     return handle;
  95 }
  96
  97 static void test_tab(INT nMinTabWidth)
  98 {
  99     HWND hwTab;
 100     RECT rTab;
 101     HIMAGELIST himl = ImageList_Create(21, 21, ILC_COLOR, 3, 4);
 102     SIZE size;
 103     HDC hdc;
 104     HFONT hOldFont;
 105     INT i;
 106
 107     hwTab = create_tabcontrol(TCS_FIXEDWIDTH, TCIF_TEXT|TCIF_IMAGE);
 108     SendMessage(hwTab, TCM_SETMINTABWIDTH, 0, nMinTabWidth);
 109
 110     hdc = GetDC(hwTab);
 111     hOldFont = SelectObject(hdc, (HFONT)SendMessage(hwTab, WM_GETFONT, 0, 0));
 112     GetTextExtentPoint32A(hdc, "Tab 1", strlen("Tab 1"), &size);
 113     trace("Tab1 text size: size.cx=%d size.cy=%d\n", size.cx, size.cy);
 114     SelectObject(hdc, hOldFont);
 115     ReleaseDC(hwTab, hdc);
 116
 117     trace ("  TCS_FIXEDWIDTH tabs no icon...\n");
 118     CheckSize(hwTab, TAB_DEFAULT_WIDTH, -1, "default width");
 119     TabCheckSetSize(hwTab, 50, 20, 50, 20, "set size");
 120     TabCheckSetSize(hwTab, 0, 1, 0, 1, "min size");
 121
 122     SendMessage(hwTab, TCM_SETIMAGELIST, 0, (LPARAM)himl);
 123
 124     trace ("  TCS_FIXEDWIDTH tabs with icon...\n");
 125     TabCheckSetSize(hwTab, 50, 30, 50, 30, "set size > icon");
 126     TabCheckSetSize(hwTab, 20, 20, 25, 20, "set size < icon");
 127     TabCheckSetSize(hwTab, 0, 1, 25, 1, "min size");
 128
 129     DestroyWindow (hwTab);
 130
 131     hwTab = create_tabcontrol(TCS_FIXEDWIDTH | TCS_BUTTONS, TCIF_TEXT|TCIF_IMAGE);
 132     SendMessage(hwTab, TCM_SETMINTABWIDTH, 0, nMinTabWidth);
 133
 134     trace ("  TCS_FIXEDWIDTH buttons no icon...\n");
 135     CheckSize(hwTab, TAB_DEFAULT_WIDTH, -1, "default width");
 136     TabCheckSetSize(hwTab, 20, 20, 20, 20, "set size 1");
 137     TabCheckSetSize(hwTab, 10, 50, 10, 50, "set size 2");
 138     TabCheckSetSize(hwTab, 0, 1, 0, 1, "min size");
 139
 140     SendMessage(hwTab, TCM_SETIMAGELIST, 0, (LPARAM)himl);
 141
 142     trace ("  TCS_FIXEDWIDTH buttons with icon...\n");
 143     TabCheckSetSize(hwTab, 50, 30, 50, 30, "set size > icon");
 144     TabCheckSetSize(hwTab, 20, 20, 25, 20, "set size < icon");
 145     TabCheckSetSize(hwTab, 0, 1, 25, 1, "min size");
 146     SendMessage(hwTab, TCM_SETPADDING, 0, MAKELPARAM(4,4));
 147     TabCheckSetSize(hwTab, 0, 1, 25, 1, "set padding, min size");
 148
 149     DestroyWindow (hwTab);
 150
 151     hwTab = create_tabcontrol(TCS_FIXEDWIDTH | TCS_BOTTOM, TCIF_TEXT|TCIF_IMAGE);
 152     SendMessage(hwTab, TCM_SETMINTABWIDTH, 0, nMinTabWidth);
 153
 154     trace ("  TCS_FIXEDWIDTH | TCS_BOTTOM tabs...\n");
 155     CheckSize(hwTab, TAB_DEFAULT_WIDTH, -1, "no icon, default width");
 156
 157     TabCheckSetSize(hwTab, 20, 20, 20, 20, "no icon, set size 1");
 158     TabCheckSetSize(hwTab, 10, 50, 10, 50, "no icon, set size 2");
 159     TabCheckSetSize(hwTab, 0, 1, 0, 1, "no icon, min size");
 160
 161     SendMessage(hwTab, TCM_SETIMAGELIST, 0, (LPARAM)himl);
 162
 163     TabCheckSetSize(hwTab, 50, 30, 50, 30, "with icon, set size > icon");
 164     TabCheckSetSize(hwTab, 20, 20, 25, 20, "with icon, set size < icon");
 165     TabCheckSetSize(hwTab, 0, 1, 25, 1, "with icon, min size");
 166     SendMessage(hwTab, TCM_SETPADDING, 0, MAKELPARAM(4,4));
 167     TabCheckSetSize(hwTab, 0, 1, 25, 1, "set padding, min size");
 168
 169     DestroyWindow (hwTab);
 170
 171     hwTab = create_tabcontrol(0, TCIF_TEXT|TCIF_IMAGE);
 172     SendMessage(hwTab, TCM_SETMINTABWIDTH, 0, nMinTabWidth);
 173
 174     trace ("  non fixed width, with text...\n");
 175     CheckSize(hwTab, max(size.cx +TAB_PADDING_X*2, (nMinTabWidth < 0) ? DEFAULT_MIN_TAB_WIDTH : nMinTabWidth), -1,
 176               "no icon, default width");
 177     for (i=0; i<8; i++)
 178     {
 179         INT nTabWidth = (nMinTabWidth < 0) ? TabWidthPadded(i, 2) : nMinTabWidth;
 180
 181         SendMessage(hwTab, TCM_SETIMAGELIST, 0, 0);
 182         SendMessage(hwTab, TCM_SETPADDING, 0, MAKELPARAM(i,i));
 183
 184         TabCheckSetSize(hwTab, 50, 20, max(size.cx + i*2, nTabWidth), 20, "no icon, set size");
 185         TabCheckSetSize(hwTab, 0, 1, max(size.cx + i*2, nTabWidth), 1, "no icon, min size");
 186
 187         SendMessage(hwTab, TCM_SETIMAGELIST, 0, (LPARAM)himl);
 188         nTabWidth = (nMinTabWidth < 0) ? TabWidthPadded(i, 3) : nMinTabWidth;
 189
 190         TabCheckSetSize(hwTab, 50, 30, max(size.cx + 21 + i*3, nTabWidth), 30, "with icon, set size > icon");
 191         TabCheckSetSize(hwTab, 20, 20, max(size.cx + 21 + i*3, nTabWidth), 20, "with icon, set size < icon");
 192         TabCheckSetSize(hwTab, 0, 1, max(size.cx + 21 + i*3, nTabWidth), 1, "with icon, min size");
 193     }
 194     DestroyWindow (hwTab);
 195
 196     hwTab = create_tabcontrol(0, TCIF_IMAGE);
 197     SendMessage(hwTab, TCM_SETMINTABWIDTH, 0, nMinTabWidth);
 198
 199     trace ("  non fixed width, no text...\n");
 200     CheckSize(hwTab, (nMinTabWidth < 0) ? DEFAULT_MIN_TAB_WIDTH : nMinTabWidth, -1, "no icon, default width");
 201     for (i=0; i<8; i++)
 202     {
 203         INT nTabWidth = (nMinTabWidth < 0) ? TabWidthPadded(i, 2) : nMinTabWidth;
 204
 205         SendMessage(hwTab, TCM_SETIMAGELIST, 0, 0);
 206         SendMessage(hwTab, TCM_SETPADDING, 0, MAKELPARAM(i,i));
 207
 208         TabCheckSetSize(hwTab, 50, 20, nTabWidth, 20, "no icon, set size");
 209         TabCheckSetSize(hwTab, 0, 1, nTabWidth, 1, "no icon, min size");
 210
 211         SendMessage(hwTab, TCM_SETIMAGELIST, 0, (LPARAM)himl);
 212         if (i > 1 && nMinTabWidth > 0 && nMinTabWidth < DEFAULT_MIN_TAB_WIDTH)
 213             nTabWidth += EXTRA_ICON_PADDING *(i-1);
 214
 215         TabCheckSetSize(hwTab, 50, 30, nTabWidth, 30, "with icon, set size > icon");
 216         TabCheckSetSize(hwTab, 20, 20, nTabWidth, 20, "with icon, set size < icon");
 217         TabCheckSetSize(hwTab, 0, 1, nTabWidth, 1, "with icon, min size");
 218     }
 219
 220     DestroyWindow (hwTab);
 221
 222     ImageList_Destroy(himl);
 223     DeleteObject(hFont);
 224 }
 225
 226 START_TEST(tab)
 227 {
 228     LOGFONTA logfont;
 229
 230     lstrcpyA(logfont.lfFaceName, "Arial");
 231     memset(&logfont, 0, sizeof(logfont));
 232     logfont.lfHeight = -12;
 233     logfont.lfWeight = FW_NORMAL;
 234     logfont.lfCharSet = ANSI_CHARSET;
 235     hFont = CreateFontIndirectA(&logfont);
 236
 237     InitCommonControls();
 238
 239     trace ("Testing with default MinWidth\n");
 240     test_tab(-1);
 241     trace ("Testing with MinWidth set to -3\n");
 242     test_tab(-3);
 243     trace ("Testing with MinWidth set to 24\n");
 244     test_tab(24);
 245     trace ("Testing with MinWidth set to 54\n");
 246     test_tab(54);
 247     trace ("Testing with MinWidth set to 94\n");
 248     test_tab(94);
 249 }