projects / reactos.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
[CMAKE]
[reactos.git] / dll / win32 / comctl32 / tab.c
1 /*
2 * Tab control
3 *
4 * Copyright 1998 Anders Carlsson
5 * Copyright 1999 Alex Priem <alexp@sci.kun.nl>
6 * Copyright 1999 Francis Beaudet
7 * Copyright 2003 Vitaliy Margolen
8 *
9 * This library is free software; you can redistribute it and/or
10 * modify it under the terms of the GNU Lesser General Public
11 * License as published by the Free Software Foundation; either
12 * version 2.1 of the License, or (at your option) any later version.
13 *
14 * This library is distributed in the hope that it will be useful,
15 * but WITHOUT ANY WARRANTY; without even the implied warranty of
16 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
17 * Lesser General Public License for more details.
18 *
19 * You should have received a copy of the GNU Lesser General Public
20 * License along with this library; if not, write to the Free Software
21 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
22 *
23 * NOTES
24 *
25 * This code was audited for completeness against the documented features
26 * of Comctl32.dll version 6.0 on May. 20, 2005, by James Hawkins.
27 *
28 * Unless otherwise noted, we believe this code to be complete, as per
29 * the specification mentioned above.
30 * If you discover missing features, or bugs, please note them below.
31 *
32 * TODO:
33 *
34 * Styles:
35 * TCS_MULTISELECT - implement for VK_SPACE selection
36 * TCS_RIGHT
37 * TCS_RIGHTJUSTIFY
38 * TCS_SCROLLOPPOSITE
39 * TCS_SINGLELINE
40 * TCIF_RTLREADING
41 *
42 * Extended Styles:
43 * TCS_EX_REGISTERDROP
44 *
45 * Notifications:
46 * NM_RELEASEDCAPTURE
47 * TCN_FOCUSCHANGE
48 * TCN_GETOBJECT
49 *
50 * Macros:
51 * TabCtrl_AdjustRect
52 *
53 */
54
55 #include <stdarg.h>
56 #include <string.h>
57
58 #include "windef.h"
59 #include "winbase.h"
60 #include "wingdi.h"
61 #include "winuser.h"
62 #include "winnls.h"
63 #include "commctrl.h"
64 #include "comctl32.h"
65 #include "uxtheme.h"
66 #include "tmschema.h"
67 #include "wine/debug.h"
68 #include <math.h>
69
70 WINE_DEFAULT_DEBUG_CHANNEL(tab);
71
72 typedef struct
73 {
74 DWORD dwState;
75 LPWSTR pszText;
76 INT iImage;
77 RECT rect; /* bounding rectangle of the item relative to the
78 * leftmost item (the leftmost item, 0, would have a
79 * "left" member of 0 in this rectangle)
80 *
81 * additionally the top member holds the row number
82 * and bottom is unused and should be 0 */
83 BYTE extra[1]; /* Space for caller supplied info, variable size */
84 } TAB_ITEM;
85
86 /* The size of a tab item depends on how much extra data is requested */
87 #define TAB_ITEM_SIZE(infoPtr) (FIELD_OFFSET(TAB_ITEM, extra[(infoPtr)->cbInfo]))
88
89 typedef struct
90 {
91 HWND hwnd; /* Tab control window */
92 HWND hwndNotify; /* notification window (parent) */
93 UINT uNumItem; /* number of tab items */
94 UINT uNumRows; /* number of tab rows */
95 INT tabHeight; /* height of the tab row */
96 INT tabWidth; /* width of tabs */
97 INT tabMinWidth; /* minimum width of items */
98 USHORT uHItemPadding; /* amount of horizontal padding, in pixels */
99 USHORT uVItemPadding; /* amount of vertical padding, in pixels */
100 USHORT uHItemPadding_s; /* Set amount of horizontal padding, in pixels */
101 USHORT uVItemPadding_s; /* Set amount of vertical padding, in pixels */
102 HFONT hFont; /* handle to the current font */
103 HCURSOR hcurArrow; /* handle to the current cursor */
104 HIMAGELIST himl; /* handle to an image list (may be 0) */
105 HWND hwndToolTip; /* handle to tab's tooltip */
106 INT leftmostVisible; /* Used for scrolling, this member contains
107 * the index of the first visible item */
108 INT iSelected; /* the currently selected item */
109 INT iHotTracked; /* the highlighted item under the mouse */
110 INT uFocus; /* item which has the focus */
111 TAB_ITEM* items; /* pointer to an array of TAB_ITEM's */
112 BOOL DoRedraw; /* flag for redrawing when tab contents is changed*/
113 BOOL needsScrolling; /* TRUE if the size of the tabs is greater than
114 * the size of the control */
115 BOOL fHeightSet; /* was the height of the tabs explicitly set? */
116 BOOL bUnicode; /* Unicode control? */
117 HWND hwndUpDown; /* Updown control used for scrolling */
118 INT cbInfo; /* Number of bytes of caller supplied info per tab */
119
120 DWORD exStyle; /* Extended style used, currently:
121 TCS_EX_FLATSEPARATORS, TCS_EX_REGISTERDROP */
122 DWORD dwStyle; /* the cached window GWL_STYLE */
123 } TAB_INFO;
124
125 /******************************************************************************
126 * Positioning constants
127 */
128 #define SELECTED_TAB_OFFSET 2
129 #define ROUND_CORNER_SIZE 2
130 #define DISPLAY_AREA_PADDINGX 2
131 #define DISPLAY_AREA_PADDINGY 2
132 #define CONTROL_BORDER_SIZEX 2
133 #define CONTROL_BORDER_SIZEY 2
134 #define BUTTON_SPACINGX 3
135 #define BUTTON_SPACINGY 3
136 #define FLAT_BTN_SPACINGX 8
137 #define DEFAULT_MIN_TAB_WIDTH 54
138 #define DEFAULT_PADDING_X 6
139 #define EXTRA_ICON_PADDING 3
140
141 #define TAB_GetInfoPtr(hwnd) ((TAB_INFO *)GetWindowLongPtrW(hwnd,0))
142 /* Since items are variable sized, cannot directly access them */
143 #define TAB_GetItem(info,i) \
144 ((TAB_ITEM*)((LPBYTE)info->items + (i) * TAB_ITEM_SIZE(info)))
145
146 #define GET_DEFAULT_MIN_TAB_WIDTH(infoPtr) (DEFAULT_MIN_TAB_WIDTH - (DEFAULT_PADDING_X - (infoPtr)->uHItemPadding) * 2)
147
148 /******************************************************************************
149 * Hot-tracking timer constants
150 */
151 #define TAB_HOTTRACK_TIMER 1
152 #define TAB_HOTTRACK_TIMER_INTERVAL 100 /* milliseconds */
153
154 static const WCHAR themeClass[] = { 'T','a','b',0 };
155
156 /******************************************************************************
157 * Prototypes
158 */
159 static void TAB_InvalidateTabArea(const TAB_INFO *);
160 static void TAB_EnsureSelectionVisible(TAB_INFO *);
161 static void TAB_DrawItemInterior(const TAB_INFO *, HDC, INT, RECT*);
162 static LRESULT TAB_DeselectAll(TAB_INFO *, BOOL);
163 static BOOL TAB_InternalGetItemRect(const TAB_INFO *, INT, RECT*, RECT*);
164
165 static BOOL
166 TAB_SendSimpleNotify (const TAB_INFO *infoPtr, UINT code)
167 {
168 NMHDR nmhdr;
169
170 nmhdr.hwndFrom = infoPtr->hwnd;
171 nmhdr.idFrom = GetWindowLongPtrW(infoPtr->hwnd, GWLP_ID);
172 nmhdr.code = code;
173
174 return (BOOL) SendMessageW (infoPtr->hwndNotify, WM_NOTIFY,
175 nmhdr.idFrom, (LPARAM) &nmhdr);
176 }
177
178 static void
179 TAB_RelayEvent (HWND hwndTip, HWND hwndMsg, UINT uMsg,
180 WPARAM wParam, LPARAM lParam)
181 {
182 MSG msg;
183
184 msg.hwnd = hwndMsg;
185 msg.message = uMsg;
186 msg.wParam = wParam;
187 msg.lParam = lParam;
188 msg.time = GetMessageTime ();
189 msg.pt.x = (short)LOWORD(GetMessagePos ());
190 msg.pt.y = (short)HIWORD(GetMessagePos ());
191
192 SendMessageW (hwndTip, TTM_RELAYEVENT, 0, (LPARAM)&msg);
193 }
194
195 static void
196 TAB_DumpItemExternalT(const TCITEMW *pti, UINT iItem, BOOL isW)
197 {
198 if (TRACE_ON(tab)) {
199 TRACE("external tab %d, mask=0x%08x, dwState=0x%08x, dwStateMask=0x%08x, cchTextMax=0x%08x\n",
200 iItem, pti->mask, pti->dwState, pti->dwStateMask, pti->cchTextMax);
201 TRACE("external tab %d, iImage=%d, lParam=0x%08lx, pszTextW=%s\n",
202 iItem, pti->iImage, pti->lParam, isW ? debugstr_w(pti->pszText) : debugstr_a((LPSTR)pti->pszText));
203 }
204 }
205
206 static void
207 TAB_DumpItemInternal(const TAB_INFO *infoPtr, UINT iItem)
208 {
209 if (TRACE_ON(tab)) {
210 TAB_ITEM *ti;
211
212 ti = TAB_GetItem(infoPtr, iItem);
213 TRACE("tab %d, dwState=0x%08x, pszText=%s, iImage=%d\n",
214 iItem, ti->dwState, debugstr_w(ti->pszText), ti->iImage);
215 TRACE("tab %d, rect.left=%d, rect.top(row)=%d\n",
216 iItem, ti->rect.left, ti->rect.top);
217 }
218 }
219
220 /* RETURNS
221 * the index of the selected tab, or -1 if no tab is selected. */
222 static inline LRESULT TAB_GetCurSel (const TAB_INFO *infoPtr)
223 {
224 TRACE("(%p)\n", infoPtr);
225 return infoPtr->iSelected;
226 }
227
228 /* RETURNS
229 * the index of the tab item that has the focus. */
230 static inline LRESULT
231 TAB_GetCurFocus (const TAB_INFO *infoPtr)
232 {
233 TRACE("(%p)\n", infoPtr);
234 return infoPtr->uFocus;
235 }
236
237 static inline LRESULT TAB_GetToolTips (const TAB_INFO *infoPtr)
238 {
239 TRACE("(%p)\n", infoPtr);
240 return (LRESULT)infoPtr->hwndToolTip;
241 }
242
243 static inline LRESULT TAB_SetCurSel (TAB_INFO *infoPtr, INT iItem)
244 {
245 INT prevItem = infoPtr->iSelected;
246
247 TRACE("(%p %d)\n", infoPtr, iItem);
248
249 if (iItem < 0)
250 infoPtr->iSelected = -1;
251 else if (iItem >= infoPtr->uNumItem)
252 return -1;
253 else {
254 if (prevItem != iItem) {
255 if (prevItem != -1)
256 TAB_GetItem(infoPtr, prevItem)->dwState &= ~TCIS_BUTTONPRESSED;
257 TAB_GetItem(infoPtr, iItem)->dwState |= TCIS_BUTTONPRESSED;
258
259 infoPtr->iSelected = iItem;
260 infoPtr->uFocus = iItem;
261 TAB_EnsureSelectionVisible(infoPtr);
262 TAB_InvalidateTabArea(infoPtr);
263 }
264 }
265 return prevItem;
266 }
267
268 static LRESULT TAB_SetCurFocus (TAB_INFO *infoPtr, INT iItem)
269 {
270 TRACE("(%p %d)\n", infoPtr, iItem);
271
272 if (iItem < 0) {
273 infoPtr->uFocus = -1;
274 if (infoPtr->iSelected != -1) {
275 infoPtr->iSelected = -1;
276 TAB_SendSimpleNotify(infoPtr, TCN_SELCHANGE);
277 TAB_InvalidateTabArea(infoPtr);
278 }
279 }
280 else if (iItem < infoPtr->uNumItem) {
281 if (infoPtr->dwStyle & TCS_BUTTONS) {
282 /* set focus to new item, leave selection as is */
283 if (infoPtr->uFocus != iItem) {
284 INT prev_focus = infoPtr->uFocus;
285 RECT r;
286
287 infoPtr->uFocus = iItem;
288
289 if (prev_focus != infoPtr->iSelected) {
290 if (TAB_InternalGetItemRect(infoPtr, prev_focus, &r, NULL))
291 InvalidateRect(infoPtr->hwnd, &r, FALSE);
292 }
293
294 if (TAB_InternalGetItemRect(infoPtr, iItem, &r, NULL))
295 InvalidateRect(infoPtr->hwnd, &r, FALSE);
296
297 TAB_SendSimpleNotify(infoPtr, TCN_FOCUSCHANGE);
298 }
299 } else {
300 INT oldFocus = infoPtr->uFocus;
301 if (infoPtr->iSelected != iItem || oldFocus == -1 ) {
302 infoPtr->uFocus = iItem;
303 if (oldFocus != -1) {
304 if (!TAB_SendSimpleNotify(infoPtr, TCN_SELCHANGING)) {
305 infoPtr->iSelected = iItem;
306 TAB_SendSimpleNotify(infoPtr, TCN_SELCHANGE);
307 }
308 else
309 infoPtr->iSelected = iItem;
310 TAB_EnsureSelectionVisible(infoPtr);
311 TAB_InvalidateTabArea(infoPtr);
312 }
313 }
314 }
315 }
316 return 0;
317 }
318
319 static inline LRESULT
320 TAB_SetToolTips (TAB_INFO *infoPtr, HWND hwndToolTip)
321 {
322 TRACE("%p %p\n", infoPtr, hwndToolTip);
323 infoPtr->hwndToolTip = hwndToolTip;
324 return 0;
325 }
326
327 static inline LRESULT
328 TAB_SetPadding (TAB_INFO *infoPtr, LPARAM lParam)
329 {
330 TRACE("(%p %d %d)\n", infoPtr, LOWORD(lParam), HIWORD(lParam));
331 infoPtr->uHItemPadding_s = LOWORD(lParam);
332 infoPtr->uVItemPadding_s = HIWORD(lParam);
333
334 return 0;
335 }
336
337 /******************************************************************************
338 * TAB_InternalGetItemRect
339 *
340 * This method will calculate the rectangle representing a given tab item in
341 * client coordinates. This method takes scrolling into account.
342 *
343 * This method returns TRUE if the item is visible in the window and FALSE
344 * if it is completely outside the client area.
345 */
346 static BOOL TAB_InternalGetItemRect(
347 const TAB_INFO* infoPtr,
348 INT itemIndex,
349 RECT* itemRect,
350 RECT* selectedRect)
351 {
352 RECT tmpItemRect,clientRect;
353
354 /* Perform a sanity check and a trivial visibility check. */
355 if ( (infoPtr->uNumItem <= 0) ||
356 (itemIndex >= infoPtr->uNumItem) ||
357 (!(((infoPtr->dwStyle & TCS_MULTILINE) || (infoPtr->dwStyle & TCS_VERTICAL))) &&
358 (itemIndex < infoPtr->leftmostVisible)))
359 {
360 TRACE("Not Visible\n");
361 /* need to initialize these to empty rects */
362 if (itemRect)
363 {
364 memset(itemRect,0,sizeof(RECT));
365 itemRect->bottom = infoPtr->tabHeight;
366 }
367 if (selectedRect)
368 memset(selectedRect,0,sizeof(RECT));
369 return FALSE;
370 }
371
372 /*
373 * Avoid special cases in this procedure by assigning the "out"
374 * parameters if the caller didn't supply them
375 */
376 if (itemRect == NULL)
377 itemRect = &tmpItemRect;
378
379 /* Retrieve the unmodified item rect. */
380 *itemRect = TAB_GetItem(infoPtr,itemIndex)->rect;
381
382 /* calculate the times bottom and top based on the row */
383 GetClientRect(infoPtr->hwnd, &clientRect);
384
385 if ((infoPtr->dwStyle & TCS_BOTTOM) && (infoPtr->dwStyle & TCS_VERTICAL))
386 {
387 itemRect->right = clientRect.right - SELECTED_TAB_OFFSET - itemRect->left * infoPtr->tabHeight -
388 ((infoPtr->dwStyle & TCS_BUTTONS) ? itemRect->left * BUTTON_SPACINGX : 0);
389 itemRect->left = itemRect->right - infoPtr->tabHeight;
390 }
391 else if (infoPtr->dwStyle & TCS_VERTICAL)
392 {
393 itemRect->left = clientRect.left + SELECTED_TAB_OFFSET + itemRect->left * infoPtr->tabHeight +
394 ((infoPtr->dwStyle & TCS_BUTTONS) ? itemRect->left * BUTTON_SPACINGX : 0);
395 itemRect->right = itemRect->left + infoPtr->tabHeight;
396 }
397 else if (infoPtr->dwStyle & TCS_BOTTOM)
398 {
399 itemRect->bottom = clientRect.bottom - itemRect->top * infoPtr->tabHeight -
400 ((infoPtr->dwStyle & TCS_BUTTONS) ? itemRect->top * BUTTON_SPACINGY : SELECTED_TAB_OFFSET);
401 itemRect->top = itemRect->bottom - infoPtr->tabHeight;
402 }
403 else /* not TCS_BOTTOM and not TCS_VERTICAL */
404 {
405 itemRect->top = clientRect.top + itemRect->top * infoPtr->tabHeight +
406 ((infoPtr->dwStyle & TCS_BUTTONS) ? itemRect->top * BUTTON_SPACINGY : SELECTED_TAB_OFFSET);
407 itemRect->bottom = itemRect->top + infoPtr->tabHeight;
408 }
409
410 /*
411 * "scroll" it to make sure the item at the very left of the
412 * tab control is the leftmost visible tab.
413 */
414 if(infoPtr->dwStyle & TCS_VERTICAL)
415 {
416 OffsetRect(itemRect,
417 0,
418 -TAB_GetItem(infoPtr, infoPtr->leftmostVisible)->rect.top);
419
420 /*
421 * Move the rectangle so the first item is slightly offset from
422 * the bottom of the tab control.
423 */
424 OffsetRect(itemRect,
425 0,
426 SELECTED_TAB_OFFSET);
427
428 } else
429 {
430 OffsetRect(itemRect,
431 -TAB_GetItem(infoPtr, infoPtr->leftmostVisible)->rect.left,
432 0);
433
434 /*
435 * Move the rectangle so the first item is slightly offset from
436 * the left of the tab control.
437 */
438 OffsetRect(itemRect,
439 SELECTED_TAB_OFFSET,
440 0);
441 }
442 TRACE("item %d tab h=%d, rect=(%s)\n",
443 itemIndex, infoPtr->tabHeight, wine_dbgstr_rect(itemRect));
444
445 /* Now, calculate the position of the item as if it were selected. */
446 if (selectedRect!=NULL)
447 {
448 CopyRect(selectedRect, itemRect);
449
450 /* The rectangle of a selected item is a bit wider. */
451 if(infoPtr->dwStyle & TCS_VERTICAL)
452 InflateRect(selectedRect, 0, SELECTED_TAB_OFFSET);
453 else
454 InflateRect(selectedRect, SELECTED_TAB_OFFSET, 0);
455
456 /* If it also a bit higher. */
457 if ((infoPtr->dwStyle & TCS_BOTTOM) && (infoPtr->dwStyle & TCS_VERTICAL))
458 {
459 selectedRect->left -= 2; /* the border is thicker on the right */
460 selectedRect->right += SELECTED_TAB_OFFSET;
461 }
462 else if (infoPtr->dwStyle & TCS_VERTICAL)
463 {
464 selectedRect->left -= SELECTED_TAB_OFFSET;
465 selectedRect->right += 1;
466 }
467 else if (infoPtr->dwStyle & TCS_BOTTOM)
468 {
469 selectedRect->bottom += SELECTED_TAB_OFFSET;
470 }
471 else /* not TCS_BOTTOM and not TCS_VERTICAL */
472 {
473 selectedRect->top -= SELECTED_TAB_OFFSET;
474 selectedRect->bottom -= 1;
475 }
476 }
477
478 /* Check for visibility */
479 if (infoPtr->dwStyle & TCS_VERTICAL)
480 return (itemRect->top < clientRect.bottom) && (itemRect->bottom > clientRect.top);
481 else
482 return (itemRect->left < clientRect.right) && (itemRect->right > clientRect.left);
483 }
484
485 static inline BOOL
486 TAB_GetItemRect(const TAB_INFO *infoPtr, INT item, RECT *rect)
487 {
488 TRACE("(%p, %d, %p)\n", infoPtr, item, rect);
489 return TAB_InternalGetItemRect(infoPtr, item, rect, NULL);
490 }
491
492 /******************************************************************************
493 * TAB_KeyDown
494 *
495 * This method is called to handle keyboard input
496 */
497 static LRESULT TAB_KeyDown(TAB_INFO* infoPtr, WPARAM keyCode, LPARAM lParam)
498 {
499 INT newItem = -1;
500 NMTCKEYDOWN nm;
501
502 /* TCN_KEYDOWN notification sent always */
503 nm.hdr.hwndFrom = infoPtr->hwnd;
504 nm.hdr.idFrom = GetWindowLongPtrW(infoPtr->hwnd, GWLP_ID);
505 nm.hdr.code = TCN_KEYDOWN;
506 nm.wVKey = keyCode;
507 nm.flags = lParam;
508 SendMessageW(infoPtr->hwndNotify, WM_NOTIFY, nm.hdr.idFrom, (LPARAM)&nm);
509
510 switch (keyCode)
511 {
512 case VK_LEFT:
513 newItem = infoPtr->uFocus - 1;
514 break;
515 case VK_RIGHT:
516 newItem = infoPtr->uFocus + 1;
517 break;
518 }
519
520 /* If we changed to a valid item, change focused item */
521 if (newItem >= 0 && newItem < infoPtr->uNumItem && infoPtr->uFocus != newItem)
522 TAB_SetCurFocus(infoPtr, newItem);
523
524 return 0;
525 }
526
527 /*
528 * WM_KILLFOCUS handler
529 */
530 static void TAB_KillFocus(TAB_INFO *infoPtr)
531 {
532 /* clear current focused item back to selected for TCS_BUTTONS */
533 if ((infoPtr->dwStyle & TCS_BUTTONS) && (infoPtr->uFocus != infoPtr->iSelected))
534 {
535 RECT r;
536
537 if (TAB_InternalGetItemRect(infoPtr, infoPtr->uFocus, &r, NULL))
538 InvalidateRect(infoPtr->hwnd, &r, FALSE);
539
540 infoPtr->uFocus = infoPtr->iSelected;
541 }
542 }
543
544 /******************************************************************************
545 * TAB_FocusChanging
546 *
547 * This method is called whenever the focus goes in or out of this control
548 * it is used to update the visual state of the control.
549 */
550 static void TAB_FocusChanging(const TAB_INFO *infoPtr)
551 {
552 RECT selectedRect;
553 BOOL isVisible;
554
555 /*
556 * Get the rectangle for the item.
557 */
558 isVisible = TAB_InternalGetItemRect(infoPtr,
559 infoPtr->uFocus,
560 NULL,
561 &selectedRect);
562
563 /*
564 * If the rectangle is not completely invisible, invalidate that
565 * portion of the window.
566 */
567 if (isVisible)
568 {
569 TRACE("invalidate (%s)\n", wine_dbgstr_rect(&selectedRect));
570 InvalidateRect(infoPtr->hwnd, &selectedRect, TRUE);
571 }
572 }
573
574 static INT TAB_InternalHitTest (const TAB_INFO *infoPtr, POINT pt, UINT *flags)
575 {
576 RECT rect;
577 INT iCount;
578
579 for (iCount = 0; iCount < infoPtr->uNumItem; iCount++)
580 {
581 TAB_InternalGetItemRect(infoPtr, iCount, &rect, NULL);
582
583 if (PtInRect(&rect, pt))
584 {
585 *flags = TCHT_ONITEM;
586 return iCount;
587 }
588 }
589
590 *flags = TCHT_NOWHERE;
591 return -1;
592 }
593
594 static inline LRESULT
595 TAB_HitTest (const TAB_INFO *infoPtr, LPTCHITTESTINFO lptest)
596 {
597 TRACE("(%p, %p)\n", infoPtr, lptest);
598 return TAB_InternalHitTest (infoPtr, lptest->pt, &lptest->flags);
599 }
600
601 /******************************************************************************
602 * TAB_NCHitTest
603 *
604 * Napster v2b5 has a tab control for its main navigation which has a client
605 * area that covers the whole area of the dialog pages.
606 * That's why it receives all msgs for that area and the underlying dialog ctrls
607 * are dead.
608 * So I decided that we should handle WM_NCHITTEST here and return
609 * HTTRANSPARENT if we don't hit the tab control buttons.
610 * FIXME: WM_NCHITTEST handling correct ? Fix it if you know that Windows
611 * doesn't do it that way. Maybe depends on tab control styles ?
612 */
613 static inline LRESULT
614 TAB_NCHitTest (const TAB_INFO *infoPtr, LPARAM lParam)
615 {
616 POINT pt;
617 UINT dummyflag;
618
619 pt.x = (short)LOWORD(lParam);
620 pt.y = (short)HIWORD(lParam);
621 ScreenToClient(infoPtr->hwnd, &pt);
622
623 if (TAB_InternalHitTest(infoPtr, pt, &dummyflag) == -1)
624 return HTTRANSPARENT;
625 else
626 return HTCLIENT;
627 }
628
629 static LRESULT
630 TAB_LButtonDown (TAB_INFO *infoPtr, WPARAM wParam, LPARAM lParam)
631 {
632 POINT pt;
633 INT newItem;
634 UINT dummy;
635
636 if (infoPtr->hwndToolTip)
637 TAB_RelayEvent (infoPtr->hwndToolTip, infoPtr->hwnd,
638 WM_LBUTTONDOWN, wParam, lParam);
639
640 if (!(infoPtr->dwStyle & TCS_FOCUSNEVER)) {
641 SetFocus (infoPtr->hwnd);
642 }
643
644 if (infoPtr->hwndToolTip)
645 TAB_RelayEvent (infoPtr->hwndToolTip, infoPtr->hwnd,
646 WM_LBUTTONDOWN, wParam, lParam);
647
648 pt.x = (short)LOWORD(lParam);
649 pt.y = (short)HIWORD(lParam);
650
651 newItem = TAB_InternalHitTest (infoPtr, pt, &dummy);
652
653 TRACE("On Tab, item %d\n", newItem);
654
655 if ((newItem != -1) && (infoPtr->iSelected != newItem))
656 {
657 if ((infoPtr->dwStyle & TCS_BUTTONS) && (infoPtr->dwStyle & TCS_MULTISELECT) &&
658 (wParam & MK_CONTROL))
659 {
660 RECT r;
661
662 /* toggle multiselection */
663 TAB_GetItem(infoPtr, newItem)->dwState ^= TCIS_BUTTONPRESSED;
664 if (TAB_InternalGetItemRect (infoPtr, newItem, &r, NULL))
665 InvalidateRect (infoPtr->hwnd, &r, TRUE);
666 }
667 else
668 {
669 INT i;
670 BOOL pressed = FALSE;
671
672 /* any button pressed ? */
673 for (i = 0; i < infoPtr->uNumItem; i++)
674 if ((TAB_GetItem (infoPtr, i)->dwState & TCIS_BUTTONPRESSED) &&
675 (infoPtr->iSelected != i))
676 {
677 pressed = TRUE;
678 break;
679 }
680
681 TAB_SendSimpleNotify(infoPtr, TCN_SELCHANGING);
682
683 if (pressed)
684 TAB_DeselectAll (infoPtr, FALSE);
685 else
686 TAB_SetCurSel(infoPtr, newItem);
687
688 TAB_SendSimpleNotify(infoPtr, TCN_SELCHANGE);
689 }
690 }
691
692 return 0;
693 }
694
695 static inline LRESULT
696 TAB_LButtonUp (const TAB_INFO *infoPtr)
697 {
698 TAB_SendSimpleNotify(infoPtr, NM_CLICK);
699
700 return 0;
701 }
702
703 static inline LRESULT
704 TAB_RButtonDown (const TAB_INFO *infoPtr)
705 {
706 TAB_SendSimpleNotify(infoPtr, NM_RCLICK);
707 return 0;
708 }
709
710 /******************************************************************************
711 * TAB_DrawLoneItemInterior
712 *
713 * This calls TAB_DrawItemInterior. However, TAB_DrawItemInterior is normally
714 * called by TAB_DrawItem which is normally called by TAB_Refresh which sets
715 * up the device context and font. This routine does the same setup but
716 * only calls TAB_DrawItemInterior for the single specified item.
717 */
718 static void
719 TAB_DrawLoneItemInterior(const TAB_INFO* infoPtr, int iItem)
720 {
721 HDC hdc = GetDC(infoPtr->hwnd);
722 RECT r, rC;
723
724 /* Clip UpDown control to not draw over it */
725 if (infoPtr->needsScrolling)
726 {
727 GetWindowRect(infoPtr->hwnd, &rC);
728 GetWindowRect(infoPtr->hwndUpDown, &r);
729 ExcludeClipRect(hdc, r.left - rC.left, r.top - rC.top, r.right - rC.left, r.bottom - rC.top);
730 }
731 TAB_DrawItemInterior(infoPtr, hdc, iItem, NULL);
732 ReleaseDC(infoPtr->hwnd, hdc);
733 }
734
735 /* update a tab after hottracking - invalidate it or just redraw the interior,
736 * based on whether theming is used or not */
737 static inline void hottrack_refresh(const TAB_INFO *infoPtr, int tabIndex)
738 {
739 if (tabIndex == -1) return;
740
741 if (GetWindowTheme (infoPtr->hwnd))
742 {
743 RECT rect;
744 TAB_InternalGetItemRect(infoPtr, tabIndex, &rect, NULL);
745 InvalidateRect (infoPtr->hwnd, &rect, FALSE);
746 }
747 else
748 TAB_DrawLoneItemInterior(infoPtr, tabIndex);
749 }
750
751 /******************************************************************************
752 * TAB_HotTrackTimerProc
753 *
754 * When a mouse-move event causes a tab to be highlighted (hot-tracking), a
755 * timer is setup so we can check if the mouse is moved out of our window.
756 * (We don't get an event when the mouse leaves, the mouse-move events just
757 * stop being delivered to our window and just start being delivered to
758 * another window.) This function is called when the timer triggers so
759 * we can check if the mouse has left our window. If so, we un-highlight
760 * the hot-tracked tab.
761 */
762 static void CALLBACK
763 TAB_HotTrackTimerProc
764 (
765 HWND hwnd, /* handle of window for timer messages */
766 UINT uMsg, /* WM_TIMER message */
767 UINT_PTR idEvent, /* timer identifier */
768 DWORD dwTime /* current system time */
769 )
770 {
771 TAB_INFO* infoPtr = TAB_GetInfoPtr(hwnd);
772
773 if (infoPtr != NULL && infoPtr->iHotTracked >= 0)
774 {
775 POINT pt;
776
777 /*
778 ** If we can't get the cursor position, or if the cursor is outside our
779 ** window, we un-highlight the hot-tracked tab. Note that the cursor is
780 ** "outside" even if it is within our bounding rect if another window
781 ** overlaps. Note also that the case where the cursor stayed within our
782 ** window but has moved off the hot-tracked tab will be handled by the
783 ** WM_MOUSEMOVE event.
784 */
785 if (!GetCursorPos(&pt) || WindowFromPoint(pt) != hwnd)
786 {
787 /* Redraw iHotTracked to look normal */
788 INT iRedraw = infoPtr->iHotTracked;
789 infoPtr->iHotTracked = -1;
790 hottrack_refresh (infoPtr, iRedraw);
791
792 /* Kill this timer */
793 KillTimer(hwnd, TAB_HOTTRACK_TIMER);
794 }
795 }
796 }
797
798 /******************************************************************************
799 * TAB_RecalcHotTrack
800 *
801 * If a tab control has the TCS_HOTTRACK style, then the tab under the mouse
802 * should be highlighted. This function determines which tab in a tab control,
803 * if any, is under the mouse and records that information. The caller may
804 * supply output parameters to receive the item number of the tab item which
805 * was highlighted but isn't any longer and of the tab item which is now
806 * highlighted but wasn't previously. The caller can use this information to
807 * selectively redraw those tab items.
808 *
809 * If the caller has a mouse position, it can supply it through the pos
810 * parameter. For example, TAB_MouseMove does this. Otherwise, the caller
811 * supplies NULL and this function determines the current mouse position
812 * itself.
813 */
814 static void
815 TAB_RecalcHotTrack
816 (
817 TAB_INFO* infoPtr,
818 const LPARAM* pos,
819 int* out_redrawLeave,
820 int* out_redrawEnter
821 )
822 {
823 int item = -1;
824
825
826 if (out_redrawLeave != NULL)
827 *out_redrawLeave = -1;
828 if (out_redrawEnter != NULL)
829 *out_redrawEnter = -1;
830
831 if ((infoPtr->dwStyle & TCS_HOTTRACK) || GetWindowTheme(infoPtr->hwnd))
832 {
833 POINT pt;
834 UINT flags;
835
836 if (pos == NULL)
837 {
838 GetCursorPos(&pt);
839 ScreenToClient(infoPtr->hwnd, &pt);
840 }
841 else
842 {
843 pt.x = (short)LOWORD(*pos);
844 pt.y = (short)HIWORD(*pos);
845 }
846
847 item = TAB_InternalHitTest(infoPtr, pt, &flags);
848 }
849
850 if (item != infoPtr->iHotTracked)
851 {
852 if (infoPtr->iHotTracked >= 0)
853 {
854 /* Mark currently hot-tracked to be redrawn to look normal */
855 if (out_redrawLeave != NULL)
856 *out_redrawLeave = infoPtr->iHotTracked;
857
858 if (item < 0)
859 {
860 /* Kill timer which forces recheck of mouse pos */
861 KillTimer(infoPtr->hwnd, TAB_HOTTRACK_TIMER);
862 }
863 }
864 else
865 {
866 /* Start timer so we recheck mouse pos */
867 UINT timerID = SetTimer
868 (
869 infoPtr->hwnd,
870 TAB_HOTTRACK_TIMER,
871 TAB_HOTTRACK_TIMER_INTERVAL,
872 TAB_HotTrackTimerProc
873 );
874
875 if (timerID == 0)
876 return; /* Hot tracking not available */
877 }
878
879 infoPtr->iHotTracked = item;
880
881 if (item >= 0)
882 {
883 /* Mark new hot-tracked to be redrawn to look highlighted */
884 if (out_redrawEnter != NULL)
885 *out_redrawEnter = item;
886 }
887 }
888 }
889
890 /******************************************************************************
891 * TAB_MouseMove
892 *
893 * Handles the mouse-move event. Updates tooltips. Updates hot-tracking.
894 */
895 static LRESULT
896 TAB_MouseMove (TAB_INFO *infoPtr, WPARAM wParam, LPARAM lParam)
897 {
898 int redrawLeave;
899 int redrawEnter;
900
901 if (infoPtr->hwndToolTip)
902 TAB_RelayEvent (infoPtr->hwndToolTip, infoPtr->hwnd,
903 WM_LBUTTONDOWN, wParam, lParam);
904
905 /* Determine which tab to highlight. Redraw tabs which change highlight
906 ** status. */
907 TAB_RecalcHotTrack(infoPtr, &lParam, &redrawLeave, &redrawEnter);
908
909 hottrack_refresh (infoPtr, redrawLeave);
910 hottrack_refresh (infoPtr, redrawEnter);
911
912 return 0;
913 }
914
915 /******************************************************************************
916 * TAB_AdjustRect
917 *
918 * Calculates the tab control's display area given the window rectangle or
919 * the window rectangle given the requested display rectangle.
920 */
921 static LRESULT TAB_AdjustRect(const TAB_INFO *infoPtr, WPARAM fLarger, LPRECT prc)
922 {
923 LONG *iRightBottom, *iLeftTop;
924
925 TRACE ("hwnd=%p fLarger=%ld (%s)\n", infoPtr->hwnd, fLarger,
926 wine_dbgstr_rect(prc));
927
928 if (!prc) return -1;
929
930 if(infoPtr->dwStyle & TCS_VERTICAL)
931 {
932 iRightBottom = &(prc->right);
933 iLeftTop = &(prc->left);
934 }
935 else
936 {
937 iRightBottom = &(prc->bottom);
938 iLeftTop = &(prc->top);
939 }
940
941 if (fLarger) /* Go from display rectangle */
942 {
943 /* Add the height of the tabs. */
944 if (infoPtr->dwStyle & TCS_BOTTOM)
945 *iRightBottom += infoPtr->tabHeight * infoPtr->uNumRows;
946 else
947 *iLeftTop -= infoPtr->tabHeight * infoPtr->uNumRows +
948 ((infoPtr->dwStyle & TCS_BUTTONS)? 3 * (infoPtr->uNumRows - 1) : 0);
949
950 /* Inflate the rectangle for the padding */
951 InflateRect(prc, DISPLAY_AREA_PADDINGX, DISPLAY_AREA_PADDINGY);
952
953 /* Inflate for the border */
954 InflateRect(prc, CONTROL_BORDER_SIZEX, CONTROL_BORDER_SIZEY);
955 }
956 else /* Go from window rectangle. */
957 {
958 /* Deflate the rectangle for the border */
959 InflateRect(prc, -CONTROL_BORDER_SIZEX, -CONTROL_BORDER_SIZEY);
960
961 /* Deflate the rectangle for the padding */
962 InflateRect(prc, -DISPLAY_AREA_PADDINGX, -DISPLAY_AREA_PADDINGY);
963
964 /* Remove the height of the tabs. */
965 if (infoPtr->dwStyle & TCS_BOTTOM)
966 *iRightBottom -= infoPtr->tabHeight * infoPtr->uNumRows;
967 else
968 *iLeftTop += (infoPtr->tabHeight) * infoPtr->uNumRows +
969 ((infoPtr->dwStyle & TCS_BUTTONS)? 3 * (infoPtr->uNumRows - 1) : 0);
970 }
971
972 return 0;
973 }
974
975 /******************************************************************************
976 * TAB_OnHScroll
977 *
978 * This method will handle the notification from the scroll control and
979 * perform the scrolling operation on the tab control.
980 */
981 static LRESULT TAB_OnHScroll(TAB_INFO *infoPtr, int nScrollCode, int nPos)
982 {
983 if(nScrollCode == SB_THUMBPOSITION && nPos != infoPtr->leftmostVisible)
984 {
985 if(nPos < infoPtr->leftmostVisible)
986 infoPtr->leftmostVisible--;
987 else
988 infoPtr->leftmostVisible++;
989
990 TAB_RecalcHotTrack(infoPtr, NULL, NULL, NULL);
991 TAB_InvalidateTabArea(infoPtr);
992 SendMessageW(infoPtr->hwndUpDown, UDM_SETPOS, 0,
993 MAKELONG(infoPtr->leftmostVisible, 0));
994 }
995
996 return 0;
997 }
998
999 /******************************************************************************
1000 * TAB_SetupScrolling
1001 *
1002 * This method will check the current scrolling state and make sure the
1003 * scrolling control is displayed (or not).
1004 */
1005 static void TAB_SetupScrolling(
1006 TAB_INFO* infoPtr,
1007 const RECT* clientRect)
1008 {
1009 static const WCHAR emptyW[] = { 0 };
1010 INT maxRange = 0;
1011
1012 if (infoPtr->needsScrolling)
1013 {
1014 RECT controlPos;
1015 INT vsize, tabwidth;
1016
1017 /*
1018 * Calculate the position of the scroll control.
1019 */
1020 if(infoPtr->dwStyle & TCS_VERTICAL)
1021 {
1022 controlPos.right = clientRect->right;
1023 controlPos.left = controlPos.right - 2 * GetSystemMetrics(SM_CXHSCROLL);
1024
1025 if (infoPtr->dwStyle & TCS_BOTTOM)
1026 {
1027 controlPos.top = clientRect->bottom - infoPtr->tabHeight;
1028 controlPos.bottom = controlPos.top + GetSystemMetrics(SM_CYHSCROLL);
1029 }
1030 else
1031 {
1032 controlPos.bottom = clientRect->top + infoPtr->tabHeight;
1033 controlPos.top = controlPos.bottom - GetSystemMetrics(SM_CYHSCROLL);
1034 }
1035 }
1036 else
1037 {
1038 controlPos.right = clientRect->right;
1039 controlPos.left = controlPos.right - 2 * GetSystemMetrics(SM_CXHSCROLL);
1040
1041 if (infoPtr->dwStyle & TCS_BOTTOM)
1042 {
1043 controlPos.top = clientRect->bottom - infoPtr->tabHeight;
1044 controlPos.bottom = controlPos.top + GetSystemMetrics(SM_CYHSCROLL);
1045 }
1046 else
1047 {
1048 controlPos.bottom = clientRect->top + infoPtr->tabHeight;
1049 controlPos.top = controlPos.bottom - GetSystemMetrics(SM_CYHSCROLL);
1050 }
1051 }
1052
1053 /*
1054 * If we don't have a scroll control yet, we want to create one.
1055 * If we have one, we want to make sure it's positioned properly.
1056 */
1057 if (infoPtr->hwndUpDown==0)
1058 {
1059 infoPtr->hwndUpDown = CreateWindowW(UPDOWN_CLASSW, emptyW,
1060 WS_VISIBLE | WS_CHILD | UDS_HORZ,
1061 controlPos.left, controlPos.top,
1062 controlPos.right - controlPos.left,
1063 controlPos.bottom - controlPos.top,
1064 infoPtr->hwnd, NULL, NULL, NULL);
1065 }
1066 else
1067 {
1068 SetWindowPos(infoPtr->hwndUpDown,
1069 NULL,
1070 controlPos.left, controlPos.top,
1071 controlPos.right - controlPos.left,
1072 controlPos.bottom - controlPos.top,
1073 SWP_SHOWWINDOW | SWP_NOZORDER);
1074 }
1075
1076 /* Now calculate upper limit of the updown control range.
1077 * We do this by calculating how many tabs will be offscreen when the
1078 * last tab is visible.
1079 */
1080 if(infoPtr->uNumItem)
1081 {
1082 vsize = clientRect->right - (controlPos.right - controlPos.left + 1);
1083 maxRange = infoPtr->uNumItem;
1084 tabwidth = TAB_GetItem(infoPtr, infoPtr->uNumItem - 1)->rect.right;
1085
1086 for(; maxRange > 0; maxRange--)
1087 {
1088 if(tabwidth - TAB_GetItem(infoPtr,maxRange - 1)->rect.left > vsize)
1089 break;
1090 }
1091
1092 if(maxRange == infoPtr->uNumItem)
1093 maxRange--;
1094 }
1095 }
1096 else
1097 {
1098 /* If we once had a scroll control... hide it */
1099 if (infoPtr->hwndUpDown)
1100 ShowWindow(infoPtr->hwndUpDown, SW_HIDE);
1101 }
1102 if (infoPtr->hwndUpDown)
1103 SendMessageW(infoPtr->hwndUpDown, UDM_SETRANGE32, 0, maxRange);
1104 }
1105
1106 /******************************************************************************
1107 * TAB_SetItemBounds
1108 *
1109 * This method will calculate the position rectangles of all the items in the
1110 * control. The rectangle calculated starts at 0 for the first item in the
1111 * list and ignores scrolling and selection.
1112 * It also uses the current font to determine the height of the tab row and
1113 * it checks if all the tabs fit in the client area of the window. If they
1114 * don't, a scrolling control is added.
1115 */
1116 static void TAB_SetItemBounds (TAB_INFO *infoPtr)
1117 {
1118 TEXTMETRICW fontMetrics;
1119 UINT curItem;
1120 INT curItemLeftPos;
1121 INT curItemRowCount;
1122 HFONT hFont, hOldFont;
1123 HDC hdc;
1124 RECT clientRect;
1125 INT iTemp;
1126 RECT* rcItem;
1127 INT iIndex;
1128 INT icon_width = 0;
1129
1130 /*
1131 * We need to get text information so we need a DC and we need to select
1132 * a font.
1133 */
1134 hdc = GetDC(infoPtr->hwnd);
1135
1136 hFont = infoPtr->hFont ? infoPtr->hFont : GetStockObject (SYSTEM_FONT);
1137 hOldFont = SelectObject (hdc, hFont);
1138
1139 /*
1140 * We will base the rectangle calculations on the client rectangle
1141 * of the control.
1142 */
1143 GetClientRect(infoPtr->hwnd, &clientRect);
1144
1145 /* if TCS_VERTICAL then swap the height and width so this code places the
1146 tabs along the top of the rectangle and we can just rotate them after
1147 rather than duplicate all of the below code */
1148 if(infoPtr->dwStyle & TCS_VERTICAL)
1149 {
1150 iTemp = clientRect.bottom;
1151 clientRect.bottom = clientRect.right;
1152 clientRect.right = iTemp;
1153 }
1154
1155 /* Now use hPadding and vPadding */
1156 infoPtr->uHItemPadding = infoPtr->uHItemPadding_s;
1157 infoPtr->uVItemPadding = infoPtr->uVItemPadding_s;
1158
1159 /* The leftmost item will be "0" aligned */
1160 curItemLeftPos = 0;
1161 curItemRowCount = infoPtr->uNumItem ? 1 : 0;
1162
1163 if (!(infoPtr->fHeightSet))
1164 {
1165 int item_height;
1166 int icon_height = 0;
1167
1168 /* Use the current font to determine the height of a tab. */
1169 GetTextMetricsW(hdc, &fontMetrics);
1170
1171 /* Get the icon height */
1172 if (infoPtr->himl)
1173 ImageList_GetIconSize(infoPtr->himl, 0, &icon_height);
1174
1175 /* Take the highest between font or icon */
1176 if (fontMetrics.tmHeight > icon_height)
1177 item_height = fontMetrics.tmHeight + 2;
1178 else
1179 item_height = icon_height;
1180
1181 /*
1182 * Make sure there is enough space for the letters + icon + growing the
1183 * selected item + extra space for the selected item.
1184 */
1185 infoPtr->tabHeight = item_height +
1186 ((infoPtr->dwStyle & TCS_BUTTONS) ? 2 : 1) *
1187 infoPtr->uVItemPadding;
1188
1189 TRACE("tabH=%d, tmH=%d, iconh=%d\n",
1190 infoPtr->tabHeight, fontMetrics.tmHeight, icon_height);
1191 }
1192
1193 TRACE("client right=%d\n", clientRect.right);
1194
1195 /* Get the icon width */
1196 if (infoPtr->himl)
1197 {
1198 ImageList_GetIconSize(infoPtr->himl, &icon_width, 0);
1199
1200 if (infoPtr->dwStyle & TCS_FIXEDWIDTH)
1201 icon_width += 4;
1202 else
1203 /* Add padding if icon is present */
1204 icon_width += infoPtr->uHItemPadding;
1205 }
1206
1207 for (curItem = 0; curItem < infoPtr->uNumItem; curItem++)
1208 {
1209 TAB_ITEM *curr = TAB_GetItem(infoPtr, curItem);
1210
1211 /* Set the leftmost position of the tab. */
1212 curr->rect.left = curItemLeftPos;
1213
1214 if (infoPtr->dwStyle & TCS_FIXEDWIDTH)
1215 {
1216 curr->rect.right = curr->rect.left +
1217 max(infoPtr->tabWidth, icon_width);
1218 }
1219 else if (!curr->pszText)
1220 {
1221 /* If no text use minimum tab width including padding. */
1222 if (infoPtr->tabMinWidth < 0)
1223 curr->rect.right = curr->rect.left + GET_DEFAULT_MIN_TAB_WIDTH(infoPtr);
1224 else
1225 {
1226 curr->rect.right = curr->rect.left + infoPtr->tabMinWidth;
1227
1228 /* Add extra padding if icon is present */
1229 if (infoPtr->himl && infoPtr->tabMinWidth > 0 && infoPtr->tabMinWidth < DEFAULT_MIN_TAB_WIDTH
1230 && infoPtr->uHItemPadding > 1)
1231 curr->rect.right += EXTRA_ICON_PADDING * (infoPtr->uHItemPadding-1);
1232 }
1233 }
1234 else
1235 {
1236 int tabwidth;
1237 SIZE size;
1238 /* Calculate how wide the tab is depending on the text it contains */
1239 GetTextExtentPoint32W(hdc, curr->pszText,
1240 lstrlenW(curr->pszText), &size);
1241
1242 tabwidth = size.cx + icon_width + 2 * infoPtr->uHItemPadding;
1243
1244 if (infoPtr->tabMinWidth < 0)
1245 tabwidth = max(tabwidth, GET_DEFAULT_MIN_TAB_WIDTH(infoPtr));
1246 else
1247 tabwidth = max(tabwidth, infoPtr->tabMinWidth);
1248
1249 curr->rect.right = curr->rect.left + tabwidth;
1250 TRACE("for <%s>, l,r=%d,%d\n",
1251 debugstr_w(curr->pszText), curr->rect.left, curr->rect.right);
1252 }
1253
1254 /*
1255 * Check if this is a multiline tab control and if so
1256 * check to see if we should wrap the tabs
1257 *
1258 * Wrap all these tabs. We will arrange them evenly later.
1259 *
1260 */
1261
1262 if (((infoPtr->dwStyle & TCS_MULTILINE) || (infoPtr->dwStyle & TCS_VERTICAL)) &&
1263 (curr->rect.right >
1264 (clientRect.right - CONTROL_BORDER_SIZEX - DISPLAY_AREA_PADDINGX)))
1265 {
1266 curr->rect.right -= curr->rect.left;
1267
1268 curr->rect.left = 0;
1269 curItemRowCount++;
1270 TRACE("wrapping <%s>, l,r=%d,%d\n", debugstr_w(curr->pszText),
1271 curr->rect.left, curr->rect.right);
1272 }
1273
1274 curr->rect.bottom = 0;
1275 curr->rect.top = curItemRowCount - 1;
1276
1277 TRACE("Rect: %s\n", wine_dbgstr_rect(&curr->rect));
1278
1279 /*
1280 * The leftmost position of the next item is the rightmost position
1281 * of this one.
1282 */
1283 if (infoPtr->dwStyle & TCS_BUTTONS)
1284 {
1285 curItemLeftPos = curr->rect.right + BUTTON_SPACINGX;
1286 if (infoPtr->dwStyle & TCS_FLATBUTTONS)
1287 curItemLeftPos += FLAT_BTN_SPACINGX;
1288 }
1289 else
1290 curItemLeftPos = curr->rect.right;
1291 }
1292
1293 if (!((infoPtr->dwStyle & TCS_MULTILINE) || (infoPtr->dwStyle & TCS_VERTICAL)))
1294 {
1295 /*
1296 * Check if we need a scrolling control.
1297 */
1298 infoPtr->needsScrolling = (curItemLeftPos + (2 * SELECTED_TAB_OFFSET) >
1299 clientRect.right);
1300
1301 /* Don't need scrolling, then update infoPtr->leftmostVisible */
1302 if(!infoPtr->needsScrolling)
1303 infoPtr->leftmostVisible = 0;
1304 }
1305 else
1306 {
1307 /*
1308 * No scrolling in Multiline or Vertical styles.
1309 */
1310 infoPtr->needsScrolling = FALSE;
1311 infoPtr->leftmostVisible = 0;
1312 }
1313 TAB_SetupScrolling(infoPtr, &clientRect);
1314
1315 /* Set the number of rows */
1316 infoPtr->uNumRows = curItemRowCount;
1317
1318 /* Arrange all tabs evenly if style says so */
1319 if (!(infoPtr->dwStyle & TCS_RAGGEDRIGHT) &&
1320 ((infoPtr->dwStyle & TCS_MULTILINE) || (infoPtr->dwStyle & TCS_VERTICAL)) &&
1321 (infoPtr->uNumItem > 0) &&
1322 (infoPtr->uNumRows > 1))
1323 {
1324 INT tabPerRow,remTab,iRow;
1325 UINT iItm;
1326 INT iCount=0;
1327
1328 /*
1329 * Ok windows tries to even out the rows. place the same
1330 * number of tabs in each row. So lets give that a shot
1331 */
1332
1333 tabPerRow = infoPtr->uNumItem / (infoPtr->uNumRows);
1334 remTab = infoPtr->uNumItem % (infoPtr->uNumRows);
1335
1336 for (iItm=0,iRow=0,iCount=0,curItemLeftPos=0;
1337 iItm<infoPtr->uNumItem;
1338 iItm++,iCount++)
1339 {
1340 /* normalize the current rect */
1341 TAB_ITEM *curr = TAB_GetItem(infoPtr, iItm);
1342
1343 /* shift the item to the left side of the clientRect */
1344 curr->rect.right -= curr->rect.left;
1345 curr->rect.left = 0;
1346
1347 TRACE("r=%d, cl=%d, cl.r=%d, iCount=%d, iRow=%d, uNumRows=%d, remTab=%d, tabPerRow=%d\n",
1348 curr->rect.right, curItemLeftPos, clientRect.right,
1349 iCount, iRow, infoPtr->uNumRows, remTab, tabPerRow);
1350
1351 /* if we have reached the maximum number of tabs on this row */
1352 /* move to the next row, reset our current item left position and */
1353 /* the count of items on this row */
1354
1355 if (infoPtr->dwStyle & TCS_VERTICAL) {
1356 /* Vert: Add the remaining tabs in the *last* remainder rows */
1357 if (iCount >= ((iRow>=(INT)infoPtr->uNumRows - remTab)?tabPerRow + 1:tabPerRow)) {
1358 iRow++;
1359 curItemLeftPos = 0;
1360 iCount = 0;
1361 }
1362 } else {
1363 /* Horz: Add the remaining tabs in the *first* remainder rows */
1364 if (iCount >= ((iRow<remTab)?tabPerRow + 1:tabPerRow)) {
1365 iRow++;
1366 curItemLeftPos = 0;
1367 iCount = 0;
1368 }
1369 }
1370
1371 /* shift the item to the right to place it as the next item in this row */
1372 curr->rect.left += curItemLeftPos;
1373 curr->rect.right += curItemLeftPos;
1374 curr->rect.top = iRow;
1375 if (infoPtr->dwStyle & TCS_BUTTONS)
1376 {
1377 curItemLeftPos = curr->rect.right + 1;
1378 if (infoPtr->dwStyle & TCS_FLATBUTTONS)
1379 curItemLeftPos += FLAT_BTN_SPACINGX;
1380 }
1381 else
1382 curItemLeftPos = curr->rect.right;
1383
1384 TRACE("arranging <%s>, l,r=%d,%d, row=%d\n",
1385 debugstr_w(curr->pszText), curr->rect.left,
1386 curr->rect.right, curr->rect.top);
1387 }
1388
1389 /*
1390 * Justify the rows
1391 */
1392 {
1393 INT widthDiff, iIndexStart=0, iIndexEnd=0;
1394 INT remainder;
1395 INT iCount=0;
1396
1397 while(iIndexStart < infoPtr->uNumItem)
1398 {
1399 TAB_ITEM *start = TAB_GetItem(infoPtr, iIndexStart);
1400
1401 /*
1402 * find the index of the row
1403 */
1404 /* find the first item on the next row */
1405 for (iIndexEnd=iIndexStart;
1406 (iIndexEnd < infoPtr->uNumItem) &&
1407 (TAB_GetItem(infoPtr, iIndexEnd)->rect.top ==
1408 start->rect.top) ;
1409 iIndexEnd++)
1410 /* intentionally blank */;
1411
1412 /*
1413 * we need to justify these tabs so they fill the whole given
1414 * client area
1415 *
1416 */
1417 /* find the amount of space remaining on this row */
1418 widthDiff = clientRect.right - (2 * SELECTED_TAB_OFFSET) -
1419 TAB_GetItem(infoPtr, iIndexEnd - 1)->rect.right;
1420
1421 /* iCount is the number of tab items on this row */
1422 iCount = iIndexEnd - iIndexStart;
1423
1424 if (iCount > 1)
1425 {
1426 remainder = widthDiff % iCount;
1427 widthDiff = widthDiff / iCount;
1428 /* add widthDiff/iCount, or extra space/items on row, to each item on this row */
1429 for (iIndex=iIndexStart, iCount=0; iIndex < iIndexEnd; iIndex++, iCount++)
1430 {
1431 TAB_ITEM *item = TAB_GetItem(infoPtr, iIndex);
1432
1433 item->rect.left += iCount * widthDiff;
1434 item->rect.right += (iCount + 1) * widthDiff;
1435
1436 TRACE("adjusting 1 <%s>, l,r=%d,%d\n",
1437 debugstr_w(item->pszText),
1438 item->rect.left, item->rect.right);
1439
1440 }
1441 TAB_GetItem(infoPtr, iIndex - 1)->rect.right += remainder;
1442 }
1443 else /* we have only one item on this row, make it take up the entire row */
1444 {
1445 start->rect.left = clientRect.left;
1446 start->rect.right = clientRect.right - 4;
1447
1448 TRACE("adjusting 2 <%s>, l,r=%d,%d\n",
1449 debugstr_w(start->pszText),
1450 start->rect.left, start->rect.right);
1451
1452 }
1453
1454
1455 iIndexStart = iIndexEnd;
1456 }
1457 }
1458 }
1459
1460 /* if TCS_VERTICAL rotate the tabs so they are along the side of the clientRect */
1461 if(infoPtr->dwStyle & TCS_VERTICAL)
1462 {
1463 RECT rcOriginal;
1464 for(iIndex = 0; iIndex < infoPtr->uNumItem; iIndex++)
1465 {
1466 rcItem = &TAB_GetItem(infoPtr, iIndex)->rect;
1467
1468 rcOriginal = *rcItem;
1469
1470 /* this is rotating the items by 90 degrees clockwise around the center of the control */
1471 rcItem->top = (rcOriginal.left - clientRect.left);
1472 rcItem->bottom = rcItem->top + (rcOriginal.right - rcOriginal.left);
1473 rcItem->left = rcOriginal.top;
1474 rcItem->right = rcOriginal.bottom;
1475 }
1476 }
1477
1478 TAB_EnsureSelectionVisible(infoPtr);
1479 TAB_RecalcHotTrack(infoPtr, NULL, NULL, NULL);
1480
1481 /* Cleanup */
1482 SelectObject (hdc, hOldFont);
1483 ReleaseDC (infoPtr->hwnd, hdc);
1484 }
1485
1486
1487 static void
1488 TAB_EraseTabInterior(const TAB_INFO *infoPtr, HDC hdc, INT iItem, const RECT *drawRect)
1489 {
1490 HBRUSH hbr = CreateSolidBrush (comctl32_color.clrBtnFace);
1491 BOOL deleteBrush = TRUE;
1492 RECT rTemp = *drawRect;
1493
1494 if (infoPtr->dwStyle & TCS_BUTTONS)
1495 {
1496 if (iItem == infoPtr->iSelected)
1497 {
1498 /* Background color */
1499 if (!(infoPtr->dwStyle & TCS_OWNERDRAWFIXED))
1500 {
1501 DeleteObject(hbr);
1502 hbr = GetSysColorBrush(COLOR_SCROLLBAR);
1503
1504 SetTextColor(hdc, comctl32_color.clr3dFace);
1505 SetBkColor(hdc, comctl32_color.clr3dHilight);
1506
1507 /* if COLOR_WINDOW happens to be the same as COLOR_3DHILIGHT
1508 * we better use 0x55aa bitmap brush to make scrollbar's background
1509 * look different from the window background.
1510 */
1511 if (comctl32_color.clr3dHilight == comctl32_color.clrWindow)
1512 hbr = COMCTL32_hPattern55AABrush;
1513
1514 deleteBrush = FALSE;
1515 }
1516 FillRect(hdc, &rTemp, hbr);
1517 }
1518 else /* ! selected */
1519 {
1520 if (infoPtr->dwStyle & TCS_FLATBUTTONS)
1521 {
1522 InflateRect(&rTemp, 2, 2);
1523 FillRect(hdc, &rTemp, hbr);
1524 if (iItem == infoPtr->iHotTracked ||
1525 (iItem != infoPtr->iSelected && iItem == infoPtr->uFocus))
1526 DrawEdge(hdc, &rTemp, BDR_RAISEDINNER, BF_RECT);
1527 }
1528 else
1529 FillRect(hdc, &rTemp, hbr);
1530 }
1531
1532 }
1533 else /* !TCS_BUTTONS */
1534 {
1535 InflateRect(&rTemp, -2, -2);
1536 if (!GetWindowTheme (infoPtr->hwnd))
1537 FillRect(hdc, &rTemp, hbr);
1538 }
1539
1540 /* highlighting is drawn on top of previous fills */
1541 if (TAB_GetItem(infoPtr, iItem)->dwState & TCIS_HIGHLIGHTED)
1542 {
1543 if (deleteBrush)
1544 {
1545 DeleteObject(hbr);
1546 deleteBrush = FALSE;
1547 }
1548 hbr = GetSysColorBrush(COLOR_HIGHLIGHT);
1549 FillRect(hdc, &rTemp, hbr);
1550 }
1551
1552 /* Cleanup */
1553 if (deleteBrush) DeleteObject(hbr);
1554 }
1555
1556 /******************************************************************************
1557 * TAB_DrawItemInterior
1558 *
1559 * This method is used to draw the interior (text and icon) of a single tab
1560 * into the tab control.
1561 */
1562 static void
1563 TAB_DrawItemInterior(const TAB_INFO *infoPtr, HDC hdc, INT iItem, RECT *drawRect)
1564 {
1565 RECT localRect;
1566
1567 HPEN htextPen;
1568 HPEN holdPen;
1569 INT oldBkMode;
1570 HFONT hOldFont;
1571
1572 /* if (drawRect == NULL) */
1573 {
1574 BOOL isVisible;
1575 RECT itemRect;
1576 RECT selectedRect;
1577
1578 /*
1579 * Get the rectangle for the item.
1580 */
1581 isVisible = TAB_InternalGetItemRect(infoPtr, iItem, &itemRect, &selectedRect);
1582 if (!isVisible)
1583 return;
1584
1585 /*
1586 * Make sure drawRect points to something valid; simplifies code.
1587 */
1588 drawRect = &localRect;
1589
1590 /*
1591 * This logic copied from the part of TAB_DrawItem which draws
1592 * the tab background. It's important to keep it in sync. I
1593 * would have liked to avoid code duplication, but couldn't figure
1594 * out how without making spaghetti of TAB_DrawItem.
1595 */
1596 if (iItem == infoPtr->iSelected)
1597 *drawRect = selectedRect;
1598 else
1599 *drawRect = itemRect;
1600
1601 if (infoPtr->dwStyle & TCS_BUTTONS)
1602 {
1603 if (iItem == infoPtr->iSelected)
1604 {
1605 drawRect->left += 4;
1606 drawRect->top += 4;
1607 drawRect->right -= 4;
1608
1609 if (infoPtr->dwStyle & TCS_VERTICAL)
1610 {
1611 if (!(infoPtr->dwStyle & TCS_BOTTOM)) drawRect->right += 1;
1612 drawRect->bottom -= 4;
1613 }
1614 else
1615 {
1616 if (infoPtr->dwStyle & TCS_BOTTOM)
1617 {
1618 drawRect->top -= 2;
1619 drawRect->bottom -= 4;
1620 }
1621 else
1622 drawRect->bottom -= 1;
1623 }
1624 }
1625 else
1626 {
1627 drawRect->left += 2;
1628 drawRect->top += 2;
1629 drawRect->right -= 2;
1630 drawRect->bottom -= 2;
1631 }
1632 }
1633 else
1634 {
1635 if ((infoPtr->dwStyle & TCS_VERTICAL) && (infoPtr->dwStyle & TCS_BOTTOM))
1636 {
1637 if (iItem != infoPtr->iSelected)
1638 {
1639 drawRect->left += 2;
1640 drawRect->top += 2;
1641 drawRect->bottom -= 2;
1642 }
1643 }
1644 else if (infoPtr->dwStyle & TCS_VERTICAL)
1645 {
1646 if (iItem == infoPtr->iSelected)
1647 {
1648 drawRect->right += 1;
1649 }
1650 else
1651 {
1652 drawRect->top += 2;
1653 drawRect->right -= 2;
1654 drawRect->bottom -= 2;
1655 }
1656 }
1657 else if (infoPtr->dwStyle & TCS_BOTTOM)
1658 {
1659 if (iItem == infoPtr->iSelected)
1660 {
1661 drawRect->top -= 2;
1662 }
1663 else
1664 {
1665 InflateRect(drawRect, -2, -2);
1666 drawRect->bottom += 2;
1667 }
1668 }
1669 else
1670 {
1671 if (iItem == infoPtr->iSelected)
1672 {
1673 drawRect->bottom += 3;
1674 }
1675 else
1676 {
1677 drawRect->bottom -= 2;
1678 InflateRect(drawRect, -2, 0);
1679 }
1680 }
1681 }
1682 }
1683 TRACE("drawRect=(%s)\n", wine_dbgstr_rect(drawRect));
1684
1685 /* Clear interior */
1686 TAB_EraseTabInterior (infoPtr, hdc, iItem, drawRect);
1687
1688 /* Draw the focus rectangle */
1689 if (!(infoPtr->dwStyle & TCS_FOCUSNEVER) &&
1690 (GetFocus() == infoPtr->hwnd) &&
1691 (iItem == infoPtr->uFocus) )
1692 {
1693 RECT rFocus = *drawRect;
1694
1695 if (!(infoPtr->dwStyle & TCS_BUTTONS)) InflateRect(&rFocus, -3, -3);
1696 if (infoPtr->dwStyle & TCS_BOTTOM && !(infoPtr->dwStyle & TCS_VERTICAL))
1697 rFocus.top -= 3;
1698
1699 /* focus should stay on selected item for TCS_BUTTONS style */
1700 if (!((infoPtr->dwStyle & TCS_BUTTONS) && (infoPtr->iSelected != iItem)))
1701 DrawFocusRect(hdc, &rFocus);
1702 }
1703
1704 /*
1705 * Text pen
1706 */
1707 htextPen = CreatePen( PS_SOLID, 1, comctl32_color.clrBtnText );
1708 holdPen = SelectObject(hdc, htextPen);
1709 hOldFont = SelectObject(hdc, infoPtr->hFont);
1710
1711 /*
1712 * Setup for text output
1713 */
1714 oldBkMode = SetBkMode(hdc, TRANSPARENT);
1715 if (!GetWindowTheme (infoPtr->hwnd) || (infoPtr->dwStyle & TCS_BUTTONS))
1716 {
1717 if ((infoPtr->dwStyle & TCS_HOTTRACK) && (iItem == infoPtr->iHotTracked) &&
1718 !(infoPtr->dwStyle & TCS_FLATBUTTONS))
1719 SetTextColor(hdc, comctl32_color.clrHighlight);
1720 else if (TAB_GetItem(infoPtr, iItem)->dwState & TCIS_HIGHLIGHTED)
1721 SetTextColor(hdc, comctl32_color.clrHighlightText);
1722 else
1723 SetTextColor(hdc, comctl32_color.clrBtnText);
1724 }
1725
1726 /*
1727 * if owner draw, tell the owner to draw
1728 */
1729 if ((infoPtr->dwStyle & TCS_OWNERDRAWFIXED) && GetParent(infoPtr->hwnd))
1730 {
1731 DRAWITEMSTRUCT dis;
1732 UINT id;
1733
1734 drawRect->top += 2;
1735 drawRect->right -= 1;
1736 if ( iItem == infoPtr->iSelected )
1737 {
1738 drawRect->right -= 1;
1739 drawRect->left += 1;
1740 }
1741
1742 /*
1743 * get the control id
1744 */
1745 id = (UINT)GetWindowLongPtrW( infoPtr->hwnd, GWLP_ID );
1746
1747 /*
1748 * put together the DRAWITEMSTRUCT
1749 */
1750 dis.CtlType = ODT_TAB;
1751 dis.CtlID = id;
1752 dis.itemID = iItem;
1753 dis.itemAction = ODA_DRAWENTIRE;
1754 dis.itemState = 0;
1755 if ( iItem == infoPtr->iSelected )
1756 dis.itemState |= ODS_SELECTED;
1757 if (infoPtr->uFocus == iItem)
1758 dis.itemState |= ODS_FOCUS;
1759 dis.hwndItem = infoPtr->hwnd;
1760 dis.hDC = hdc;
1761 CopyRect(&dis.rcItem,drawRect);
1762 dis.itemData = (ULONG_PTR)TAB_GetItem(infoPtr, iItem)->extra;
1763
1764 /*
1765 * send the draw message
1766 */
1767 SendMessageW( infoPtr->hwndNotify, WM_DRAWITEM, id, (LPARAM)&dis );
1768 }
1769 else
1770 {
1771 TAB_ITEM *item = TAB_GetItem(infoPtr, iItem);
1772 RECT rcTemp;
1773 RECT rcImage;
1774
1775 /* used to center the icon and text in the tab */
1776 RECT rcText;
1777 INT center_offset_h, center_offset_v;
1778
1779 /* set rcImage to drawRect, we will use top & left in our ImageList_Draw call */
1780 rcImage = *drawRect;
1781
1782 rcTemp = *drawRect;
1783
1784 rcText.left = rcText.top = rcText.right = rcText.bottom = 0;
1785
1786 /* get the rectangle that the text fits in */
1787 if (item->pszText)
1788 {
1789 DrawTextW(hdc, item->pszText, -1, &rcText, DT_CALCRECT);
1790 }
1791 /*
1792 * If not owner draw, then do the drawing ourselves.
1793 *
1794 * Draw the icon.
1795 */
1796 if (infoPtr->himl && item->iImage != -1)
1797 {
1798 INT cx;
1799 INT cy;
1800
1801 ImageList_GetIconSize(infoPtr->himl, &cx, &cy);
1802
1803 if(infoPtr->dwStyle & TCS_VERTICAL)
1804 {
1805 center_offset_h = ((drawRect->bottom - drawRect->top) - (cy + infoPtr->uHItemPadding + (rcText.right - rcText.left))) / 2;
1806 center_offset_v = ((drawRect->right - drawRect->left) - cx) / 2;
1807 }
1808 else
1809 {
1810 center_offset_h = ((drawRect->right - drawRect->left) - (cx + infoPtr->uHItemPadding + (rcText.right - rcText.left))) / 2;
1811 center_offset_v = ((drawRect->bottom - drawRect->top) - cy) / 2;
1812 }
1813
1814 /* if an item is selected, the icon is shifted up instead of down */
1815 if (iItem == infoPtr->iSelected)
1816 center_offset_v -= infoPtr->uVItemPadding / 2;
1817 else
1818 center_offset_v += infoPtr->uVItemPadding / 2;
1819
1820 if (infoPtr->dwStyle & TCS_FIXEDWIDTH && infoPtr->dwStyle & (TCS_FORCELABELLEFT | TCS_FORCEICONLEFT))
1821 center_offset_h = infoPtr->uHItemPadding;
1822
1823 if (center_offset_h < 2)
1824 center_offset_h = 2;
1825
1826 if (center_offset_v < 0)
1827 center_offset_v = 0;
1828
1829 TRACE("for <%s>, c_o_h=%d, c_o_v=%d, draw=(%s), textlen=%d\n",
1830 debugstr_w(item->pszText), center_offset_h, center_offset_v,
1831 wine_dbgstr_rect(drawRect), (rcText.right-rcText.left));
1832
1833 if((infoPtr->dwStyle & TCS_VERTICAL) && (infoPtr->dwStyle & TCS_BOTTOM))
1834 {
1835 rcImage.top = drawRect->top + center_offset_h;
1836 /* if tab is TCS_VERTICAL and TCS_BOTTOM, the text is drawn from the */
1837 /* right side of the tab, but the image still uses the left as its x position */
1838 /* this keeps the image always drawn off of the same side of the tab */
1839 rcImage.left = drawRect->right - cx - center_offset_v;
1840 drawRect->top += cy + infoPtr->uHItemPadding;
1841 }
1842 else if(infoPtr->dwStyle & TCS_VERTICAL)
1843 {
1844 rcImage.top = drawRect->bottom - cy - center_offset_h;
1845 rcImage.left = drawRect->left + center_offset_v;
1846 drawRect->bottom -= cy + infoPtr->uHItemPadding;
1847 }
1848 else /* normal style, whether TCS_BOTTOM or not */
1849 {
1850 rcImage.left = drawRect->left + center_offset_h;
1851 rcImage.top = drawRect->top + center_offset_v;
1852 drawRect->left += cx + infoPtr->uHItemPadding;
1853 }
1854
1855 TRACE("drawing image=%d, left=%d, top=%d\n",
1856 item->iImage, rcImage.left, rcImage.top-1);
1857 ImageList_Draw
1858 (
1859 infoPtr->himl,
1860 item->iImage,
1861 hdc,
1862 rcImage.left,
1863 rcImage.top,
1864 ILD_NORMAL
1865 );
1866 }
1867
1868 /* Now position text */
1869 if (infoPtr->dwStyle & TCS_FIXEDWIDTH && infoPtr->dwStyle & TCS_FORCELABELLEFT)
1870 center_offset_h = infoPtr->uHItemPadding;
1871 else
1872 if(infoPtr->dwStyle & TCS_VERTICAL)
1873 center_offset_h = ((drawRect->bottom - drawRect->top) - (rcText.right - rcText.left)) / 2;
1874 else
1875 center_offset_h = ((drawRect->right - drawRect->left) - (rcText.right - rcText.left)) / 2;
1876
1877 if(infoPtr->dwStyle & TCS_VERTICAL)
1878 {
1879 if(infoPtr->dwStyle & TCS_BOTTOM)
1880 drawRect->top+=center_offset_h;
1881 else
1882 drawRect->bottom-=center_offset_h;
1883
1884 center_offset_v = ((drawRect->right - drawRect->left) - (rcText.bottom - rcText.top)) / 2;
1885 }
1886 else
1887 {
1888 drawRect->left += center_offset_h;
1889 center_offset_v = ((drawRect->bottom - drawRect->top) - (rcText.bottom - rcText.top)) / 2;
1890 }
1891
1892 /* if an item is selected, the text is shifted up instead of down */
1893 if (iItem == infoPtr->iSelected)
1894 center_offset_v -= infoPtr->uVItemPadding / 2;
1895 else
1896 center_offset_v += infoPtr->uVItemPadding / 2;
1897
1898 if (center_offset_v < 0)
1899 center_offset_v = 0;
1900
1901 if(infoPtr->dwStyle & TCS_VERTICAL)
1902 drawRect->left += center_offset_v;
1903 else
1904 drawRect->top += center_offset_v;
1905
1906 /* Draw the text */
1907 if(infoPtr->dwStyle & TCS_VERTICAL) /* if we are vertical rotate the text and each character */
1908 {
1909 static const WCHAR ArialW[] = { 'A','r','i','a','l',0 };
1910 LOGFONTW logfont;
1911 HFONT hFont = 0;
1912 INT nEscapement = 900;
1913 INT nOrientation = 900;
1914
1915 if(infoPtr->dwStyle & TCS_BOTTOM)
1916 {
1917 nEscapement = -900;
1918 nOrientation = -900;
1919 }
1920
1921 /* to get a font with the escapement and orientation we are looking for, we need to */
1922 /* call CreateFontIndirectA, which requires us to set the values of the logfont we pass in */
1923 if (!GetObjectW((infoPtr->hFont) ?
1924 infoPtr->hFont : GetStockObject(SYSTEM_FONT),
1925 sizeof(LOGFONTW),&logfont))
1926 {
1927 INT iPointSize = 9;
1928
1929 lstrcpyW(logfont.lfFaceName, ArialW);
1930 logfont.lfHeight = -MulDiv(iPointSize, GetDeviceCaps(hdc, LOGPIXELSY),
1931 72);
1932 logfont.lfWeight = FW_NORMAL;
1933 logfont.lfItalic = 0;
1934 logfont.lfUnderline = 0;
1935 logfont.lfStrikeOut = 0;
1936 }
1937
1938 logfont.lfEscapement = nEscapement;
1939 logfont.lfOrientation = nOrientation;
1940 hFont = CreateFontIndirectW(&logfont);
1941 SelectObject(hdc, hFont);
1942
1943 if (item->pszText)
1944 {
1945 ExtTextOutW(hdc,
1946 (infoPtr->dwStyle & TCS_BOTTOM) ? drawRect->right : drawRect->left,
1947 (!(infoPtr->dwStyle & TCS_BOTTOM)) ? drawRect->bottom : drawRect->top,
1948 ETO_CLIPPED,
1949 drawRect,
1950 item->pszText,
1951 lstrlenW(item->pszText),
1952 0);
1953 }
1954
1955 DeleteObject(hFont);
1956 }
1957 else
1958 {
1959 TRACE("for <%s>, c_o_h=%d, c_o_v=%d, draw=(%s), textlen=%d\n",
1960 debugstr_w(item->pszText), center_offset_h, center_offset_v,
1961 wine_dbgstr_rect(drawRect), (rcText.right-rcText.left));
1962 if (item->pszText)
1963 {
1964 DrawTextW
1965 (
1966 hdc,
1967 item->pszText,
1968 lstrlenW(item->pszText),
1969 drawRect,
1970 DT_LEFT | DT_SINGLELINE
1971 );
1972 }
1973 }
1974
1975 *drawRect = rcTemp; /* restore drawRect */
1976 }
1977
1978 /*
1979 * Cleanup
1980 */
1981 SelectObject(hdc, hOldFont);
1982 SetBkMode(hdc, oldBkMode);
1983 SelectObject(hdc, holdPen);
1984 DeleteObject( htextPen );
1985 }
1986
1987 /******************************************************************************
1988 * TAB_DrawItem
1989 *
1990 * This method is used to draw a single tab into the tab control.
1991 */
1992 static void TAB_DrawItem(const TAB_INFO *infoPtr, HDC hdc, INT iItem)
1993 {
1994 RECT itemRect;
1995 RECT selectedRect;
1996 BOOL isVisible;
1997 RECT r, fillRect, r1;
1998 INT clRight = 0;
1999 INT clBottom = 0;
2000 COLORREF bkgnd, corner;
2001 HTHEME theme;
2002
2003 /*
2004 * Get the rectangle for the item.
2005 */
2006 isVisible = TAB_InternalGetItemRect(infoPtr,
2007 iItem,
2008 &itemRect,
2009 &selectedRect);
2010
2011 if (isVisible)
2012 {
2013 RECT rUD, rC;
2014
2015 /* Clip UpDown control to not draw over it */
2016 if (infoPtr->needsScrolling)
2017 {
2018 GetWindowRect(infoPtr->hwnd, &rC);
2019 GetWindowRect(infoPtr->hwndUpDown, &rUD);
2020 ExcludeClipRect(hdc, rUD.left - rC.left, rUD.top - rC.top, rUD.right - rC.left, rUD.bottom - rC.top);
2021 }
2022
2023 /* If you need to see what the control is doing,
2024 * then override these variables. They will change what
2025 * fill colors are used for filling the tabs, and the
2026 * corners when drawing the edge.
2027 */
2028 bkgnd = comctl32_color.clrBtnFace;
2029 corner = comctl32_color.clrBtnFace;
2030
2031 if (infoPtr->dwStyle & TCS_BUTTONS)
2032 {
2033 /* Get item rectangle */
2034 r = itemRect;
2035
2036 /* Separators between flat buttons */
2037 if ((infoPtr->dwStyle & TCS_FLATBUTTONS) && (infoPtr->exStyle & TCS_EX_FLATSEPARATORS))
2038 {
2039 r1 = r;
2040 r1.right += (FLAT_BTN_SPACINGX -2);
2041 DrawEdge(hdc, &r1, EDGE_ETCHED, BF_RIGHT);
2042 }
2043
2044 if (iItem == infoPtr->iSelected)
2045 {
2046 DrawEdge(hdc, &r, EDGE_SUNKEN, BF_SOFT|BF_RECT);
2047
2048 OffsetRect(&r, 1, 1);
2049 }
2050 else /* ! selected */
2051 {
2052 DWORD state = TAB_GetItem(infoPtr, iItem)->dwState;
2053
2054 if ((state & TCIS_BUTTONPRESSED) || (iItem == infoPtr->uFocus))
2055 DrawEdge(hdc, &r, EDGE_SUNKEN, BF_SOFT|BF_RECT);
2056 else
2057 if (!(infoPtr->dwStyle & TCS_FLATBUTTONS))
2058 DrawEdge(hdc, &r, EDGE_RAISED, BF_SOFT|BF_RECT);
2059 }
2060 }
2061 else /* !TCS_BUTTONS */
2062 {
2063 /* We draw a rectangle of different sizes depending on the selection
2064 * state. */
2065 if (iItem == infoPtr->iSelected) {
2066 RECT rect;
2067 GetClientRect (infoPtr->hwnd, &rect);
2068 clRight = rect.right;
2069 clBottom = rect.bottom;
2070 r = selectedRect;
2071 }
2072 else
2073 r = itemRect;
2074
2075 /*
2076 * Erase the background. (Delay it but setup rectangle.)
2077 * This is necessary when drawing the selected item since it is larger
2078 * than the others, it might overlap with stuff already drawn by the
2079 * other tabs
2080 */
2081 fillRect = r;
2082
2083 /* Draw themed tabs - but only if they are at the top.
2084 * Windows draws even side or bottom tabs themed, with wacky results.
2085 * However, since in Wine apps may get themed that did not opt in via
2086 * a manifest avoid theming when we know the result will be wrong */
2087 if ((theme = GetWindowTheme (infoPtr->hwnd))
2088 && ((infoPtr->dwStyle & (TCS_VERTICAL | TCS_BOTTOM)) == 0))
2089 {
2090 static const int partIds[8] = {
2091 /* Normal item */
2092 TABP_TABITEM,
2093 TABP_TABITEMLEFTEDGE,
2094 TABP_TABITEMRIGHTEDGE,
2095 TABP_TABITEMBOTHEDGE,
2096 /* Selected tab */
2097 TABP_TOPTABITEM,
2098 TABP_TOPTABITEMLEFTEDGE,
2099 TABP_TOPTABITEMRIGHTEDGE,
2100 TABP_TOPTABITEMBOTHEDGE,
2101 };
2102 int partIndex = 0;
2103 int stateId = TIS_NORMAL;
2104
2105 /* selected and unselected tabs have different parts */
2106 if (iItem == infoPtr->iSelected)
2107 partIndex += 4;
2108 /* The part also differs on the position of a tab on a line.
2109 * "Visually" determining the position works well enough. */
2110 if(selectedRect.left == 0)
2111 partIndex += 1;
2112 if(selectedRect.right == clRight)
2113 partIndex += 2;
2114
2115 if (iItem == infoPtr->iSelected)
2116 stateId = TIS_SELECTED;
2117 else if (iItem == infoPtr->iHotTracked)
2118 stateId = TIS_HOT;
2119 else if (iItem == infoPtr->uFocus)
2120 stateId = TIS_FOCUSED;
2121
2122 /* Adjust rectangle for bottommost row */
2123 if (TAB_GetItem(infoPtr, iItem)->rect.top == infoPtr->uNumRows-1)
2124 r.bottom += 3;
2125
2126 DrawThemeBackground (theme, hdc, partIds[partIndex], stateId, &r, NULL);
2127 GetThemeBackgroundContentRect (theme, hdc, partIds[partIndex], stateId, &r, &r);
2128 }
2129 else if(infoPtr->dwStyle & TCS_VERTICAL)
2130 {
2131 /* These are for adjusting the drawing of a Selected tab */
2132 /* The initial values are for the normal case of non-Selected */
2133 int ZZ = 1; /* Do not stretch if selected */
2134 if (iItem == infoPtr->iSelected) {
2135 ZZ = 0;
2136
2137 /* if leftmost draw the line longer */
2138 if(selectedRect.top == 0)
2139 fillRect.top += CONTROL_BORDER_SIZEY;
2140 /* if rightmost draw the line longer */
2141 if(selectedRect.bottom == clBottom)
2142 fillRect.bottom -= CONTROL_BORDER_SIZEY;
2143 }
2144
2145 if (infoPtr->dwStyle & TCS_BOTTOM)
2146 {
2147 /* Adjust both rectangles to match native */
2148 r.left += (1-ZZ);
2149
2150 TRACE("<right> item=%d, fill=(%s), edge=(%s)\n",
2151 iItem, wine_dbgstr_rect(&fillRect), wine_dbgstr_rect(&r));
2152
2153 /* Clear interior */
2154 SetBkColor(hdc, bkgnd);
2155 ExtTextOutW(hdc, 0, 0, 2, &fillRect, NULL, 0, 0);
2156
2157 /* Draw rectangular edge around tab */
2158 DrawEdge(hdc, &r, EDGE_RAISED, BF_SOFT|BF_RIGHT|BF_TOP|BF_BOTTOM);
2159
2160 /* Now erase the top corner and draw diagonal edge */
2161 SetBkColor(hdc, corner);
2162 r1.left = r.right - ROUND_CORNER_SIZE - 1;
2163 r1.top = r.top;
2164 r1.right = r.right;
2165 r1.bottom = r1.top + ROUND_CORNER_SIZE;
2166 ExtTextOutW(hdc, 0, 0, 2, &r1, NULL, 0, 0);
2167 r1.right--;
2168 DrawEdge(hdc, &r1, EDGE_RAISED, BF_SOFT|BF_DIAGONAL_ENDTOPLEFT);
2169
2170 /* Now erase the bottom corner and draw diagonal edge */
2171 r1.left = r.right - ROUND_CORNER_SIZE - 1;
2172 r1.bottom = r.bottom;
2173 r1.right = r.right;
2174 r1.top = r1.bottom - ROUND_CORNER_SIZE;
2175 ExtTextOutW(hdc, 0, 0, 2, &r1, NULL, 0, 0);
2176 r1.right--;
2177 DrawEdge(hdc, &r1, EDGE_RAISED, BF_SOFT|BF_DIAGONAL_ENDBOTTOMLEFT);
2178
2179 if ((iItem == infoPtr->iSelected) && (selectedRect.top == 0)) {
2180 r1 = r;
2181 r1.right = r1.left;
2182 r1.left--;
2183 DrawEdge(hdc, &r1, EDGE_RAISED, BF_SOFT|BF_TOP);
2184 }
2185
2186 }
2187 else
2188 {
2189 TRACE("<left> item=%d, fill=(%s), edge=(%s)\n",
2190 iItem, wine_dbgstr_rect(&fillRect), wine_dbgstr_rect(&r));
2191
2192 /* Clear interior */
2193 SetBkColor(hdc, bkgnd);
2194 ExtTextOutW(hdc, 0, 0, 2, &fillRect, NULL, 0, 0);
2195
2196 /* Draw rectangular edge around tab */
2197 DrawEdge(hdc, &r, EDGE_RAISED, BF_SOFT|BF_LEFT|BF_TOP|BF_BOTTOM);
2198
2199 /* Now erase the top corner and draw diagonal edge */
2200 SetBkColor(hdc, corner);
2201 r1.left = r.left;
2202 r1.top = r.top;
2203 r1.right = r1.left + ROUND_CORNER_SIZE + 1;
2204 r1.bottom = r1.top + ROUND_CORNER_SIZE;
2205 ExtTextOutW(hdc, 0, 0, 2, &r1, NULL, 0, 0);
2206 r1.left++;
2207 DrawEdge(hdc, &r1, EDGE_RAISED, BF_SOFT|BF_DIAGONAL_ENDTOPRIGHT);
2208
2209 /* Now erase the bottom corner and draw diagonal edge */
2210 r1.left = r.left;
2211 r1.bottom = r.bottom;
2212 r1.right = r1.left + ROUND_CORNER_SIZE + 1;
2213 r1.top = r1.bottom - ROUND_CORNER_SIZE;
2214 ExtTextOutW(hdc, 0, 0, 2, &r1, NULL, 0, 0);
2215 r1.left++;
2216 DrawEdge(hdc, &r1, EDGE_SUNKEN, BF_DIAGONAL_ENDTOPLEFT);
2217 }
2218 }
2219 else /* ! TCS_VERTICAL */
2220 {
2221 /* These are for adjusting the drawing of a Selected tab */
2222 /* The initial values are for the normal case of non-Selected */
2223 if (iItem == infoPtr->iSelected) {
2224 /* if leftmost draw the line longer */
2225 if(selectedRect.left == 0)
2226 fillRect.left += CONTROL_BORDER_SIZEX;
2227 /* if rightmost draw the line longer */
2228 if(selectedRect.right == clRight)
2229 fillRect.right -= CONTROL_BORDER_SIZEX;
2230 }
2231
2232 if (infoPtr->dwStyle & TCS_BOTTOM)
2233 {
2234 /* Adjust both rectangles for topmost row */
2235 if (TAB_GetItem(infoPtr, iItem)->rect.top == infoPtr->uNumRows-1)
2236 {
2237 fillRect.top -= 2;
2238 r.top -= 1;
2239 }
2240
2241 TRACE("<bottom> item=%d, fill=(%s), edge=(%s)\n",
2242 iItem, wine_dbgstr_rect(&fillRect), wine_dbgstr_rect(&r));
2243
2244 /* Clear interior */
2245 SetBkColor(hdc, bkgnd);
2246 ExtTextOutW(hdc, 0, 0, 2, &fillRect, NULL, 0, 0);
2247
2248 /* Draw rectangular edge around tab */
2249 DrawEdge(hdc, &r, EDGE_RAISED, BF_SOFT|BF_LEFT|BF_BOTTOM|BF_RIGHT);
2250
2251 /* Now erase the righthand corner and draw diagonal edge */
2252 SetBkColor(hdc, corner);
2253 r1.left = r.right - ROUND_CORNER_SIZE;
2254 r1.bottom = r.bottom;
2255 r1.right = r.right;
2256 r1.top = r1.bottom - ROUND_CORNER_SIZE - 1;
2257 ExtTextOutW(hdc, 0, 0, 2, &r1, NULL, 0, 0);
2258 r1.bottom--;
2259 DrawEdge(hdc, &r1, EDGE_RAISED, BF_SOFT|BF_DIAGONAL_ENDBOTTOMLEFT);
2260
2261 /* Now erase the lefthand corner and draw diagonal edge */
2262 r1.left = r.left;
2263 r1.bottom = r.bottom;
2264 r1.right = r1.left + ROUND_CORNER_SIZE;
2265 r1.top = r1.bottom - ROUND_CORNER_SIZE - 1;
2266 ExtTextOutW(hdc, 0, 0, 2, &r1, NULL, 0, 0);
2267 r1.bottom--;
2268 DrawEdge(hdc, &r1, EDGE_RAISED, BF_SOFT|BF_DIAGONAL_ENDTOPLEFT);
2269
2270 if (iItem == infoPtr->iSelected)
2271 {
2272 r.top += 2;
2273 r.left += 1;
2274 if (selectedRect.left == 0)
2275 {
2276 r1 = r;
2277 r1.bottom = r1.top;
2278 r1.top--;
2279 DrawEdge(hdc, &r1, EDGE_RAISED, BF_SOFT|BF_LEFT);
2280 }
2281 }
2282
2283 }
2284 else
2285 {
2286 /* Adjust both rectangles for bottommost row */
2287 if (TAB_GetItem(infoPtr, iItem)->rect.top == infoPtr->uNumRows-1)
2288 {
2289 fillRect.bottom += 3;
2290 r.bottom += 2;
2291 }
2292
2293 TRACE("<top> item=%d, fill=(%s), edge=(%s)\n",
2294 iItem, wine_dbgstr_rect(&fillRect), wine_dbgstr_rect(&r));
2295
2296 /* Clear interior */
2297 SetBkColor(hdc, bkgnd);
2298 ExtTextOutW(hdc, 0, 0, 2, &fillRect, NULL, 0, 0);
2299
2300 /* Draw rectangular edge around tab */
2301 DrawEdge(hdc, &r, EDGE_RAISED, BF_SOFT|BF_LEFT|BF_TOP|BF_RIGHT);
2302
2303 /* Now erase the righthand corner and draw diagonal edge */
2304 SetBkColor(hdc, corner);
2305 r1.left = r.right - ROUND_CORNER_SIZE;
2306 r1.top = r.top;
2307 r1.right = r.right;
2308 r1.bottom = r1.top + ROUND_CORNER_SIZE + 1;
2309 ExtTextOutW(hdc, 0, 0, 2, &r1, NULL, 0, 0);
2310 r1.top++;
2311 DrawEdge(hdc, &r1, EDGE_RAISED, BF_SOFT|BF_DIAGONAL_ENDBOTTOMRIGHT);
2312
2313 /* Now erase the lefthand corner and draw diagonal edge */
2314 r1.left = r.left;
2315 r1.top = r.top;
2316 r1.right = r1.left + ROUND_CORNER_SIZE;
2317 r1.bottom = r1.top + ROUND_CORNER_SIZE + 1;
2318 ExtTextOutW(hdc, 0, 0, 2, &r1, NULL, 0, 0);
2319 r1.top++;
2320 DrawEdge(hdc, &r1, EDGE_RAISED, BF_SOFT|BF_DIAGONAL_ENDTOPRIGHT);
2321 }
2322 }
2323 }
2324
2325 TAB_DumpItemInternal(infoPtr, iItem);
2326
2327 /* This modifies r to be the text rectangle. */
2328 TAB_DrawItemInterior(infoPtr, hdc, iItem, &r);
2329 }
2330 }
2331
2332 /******************************************************************************
2333 * TAB_DrawBorder
2334 *
2335 * This method is used to draw the raised border around the tab control
2336 * "content" area.
2337 */
2338 static void TAB_DrawBorder(const TAB_INFO *infoPtr, HDC hdc)
2339 {
2340 RECT rect;
2341 HTHEME theme = GetWindowTheme (infoPtr->hwnd);
2342
2343 GetClientRect (infoPtr->hwnd, &rect);
2344
2345 /*
2346 * Adjust for the style
2347 */
2348
2349 if (infoPtr->uNumItem)
2350 {
2351 if ((infoPtr->dwStyle & TCS_BOTTOM) && !(infoPtr->dwStyle & TCS_VERTICAL))
2352 rect.bottom -= infoPtr->tabHeight * infoPtr->uNumRows + CONTROL_BORDER_SIZEX;
2353 else if((infoPtr->dwStyle & TCS_BOTTOM) && (infoPtr->dwStyle & TCS_VERTICAL))
2354 rect.right -= infoPtr->tabHeight * infoPtr->uNumRows + CONTROL_BORDER_SIZEX;
2355 else if(infoPtr->dwStyle & TCS_VERTICAL)
2356 rect.left += infoPtr->tabHeight * infoPtr->uNumRows + CONTROL_BORDER_SIZEX;
2357 else /* not TCS_VERTICAL and not TCS_BOTTOM */
2358 rect.top += infoPtr->tabHeight * infoPtr->uNumRows + CONTROL_BORDER_SIZEX;
2359 }
2360
2361 TRACE("border=(%s)\n", wine_dbgstr_rect(&rect));
2362
2363 if (theme)
2364 DrawThemeBackground (theme, hdc, TABP_PANE, 0, &rect, NULL);
2365 else
2366 DrawEdge(hdc, &rect, EDGE_RAISED, BF_SOFT|BF_RECT);
2367 }
2368
2369 /******************************************************************************
2370 * TAB_Refresh
2371 *
2372 * This method repaints the tab control..
2373 */
2374 static void TAB_Refresh (const TAB_INFO *infoPtr, HDC hdc)
2375 {
2376 HFONT hOldFont;
2377 INT i;
2378
2379 if (!infoPtr->DoRedraw)
2380 return;
2381
2382 hOldFont = SelectObject (hdc, infoPtr->hFont);
2383
2384 if (infoPtr->dwStyle & TCS_BUTTONS)
2385 {
2386 for (i = 0; i < infoPtr->uNumItem; i++)
2387 TAB_DrawItem (infoPtr, hdc, i);
2388 }
2389 else
2390 {
2391 /* Draw all the non selected item first */
2392 for (i = 0; i < infoPtr->uNumItem; i++)
2393 {
2394 if (i != infoPtr->iSelected)
2395 TAB_DrawItem (infoPtr, hdc, i);
2396 }
2397
2398 /* Now, draw the border, draw it before the selected item
2399 * since the selected item overwrites part of the border. */
2400 TAB_DrawBorder (infoPtr, hdc);
2401
2402 /* Then, draw the selected item */
2403 TAB_DrawItem (infoPtr, hdc, infoPtr->iSelected);
2404 }
2405
2406 SelectObject (hdc, hOldFont);
2407 }
2408
2409 static inline DWORD TAB_GetRowCount (const TAB_INFO *infoPtr)
2410 {
2411 TRACE("(%p)\n", infoPtr);
2412 return infoPtr->uNumRows;
2413 }
2414
2415 static inline LRESULT TAB_SetRedraw (TAB_INFO *infoPtr, BOOL doRedraw)
2416 {
2417 infoPtr->DoRedraw = doRedraw;
2418 return 0;
2419 }
2420
2421 /******************************************************************************
2422 * TAB_EnsureSelectionVisible
2423 *
2424 * This method will make sure that the current selection is completely
2425 * visible by scrolling until it is.
2426 */
2427 static void TAB_EnsureSelectionVisible(
2428 TAB_INFO* infoPtr)
2429 {
2430 INT iSelected = infoPtr->iSelected;
2431 INT iOrigLeftmostVisible = infoPtr->leftmostVisible;
2432
2433 /* set the items row to the bottommost row or topmost row depending on
2434 * style */
2435 if ((infoPtr->uNumRows > 1) && !(infoPtr->dwStyle & TCS_BUTTONS))
2436 {
2437 TAB_ITEM *selected = TAB_GetItem(infoPtr, iSelected);
2438 INT newselected;
2439 INT iTargetRow;
2440
2441 if(infoPtr->dwStyle & TCS_VERTICAL)
2442 newselected = selected->rect.left;
2443 else
2444 newselected = selected->rect.top;
2445
2446 /* the target row is always (number of rows - 1)
2447 as row 0 is furthest from the clientRect */
2448 iTargetRow = infoPtr->uNumRows - 1;
2449
2450 if (newselected != iTargetRow)
2451 {
2452 UINT i;
2453 if(infoPtr->dwStyle & TCS_VERTICAL)
2454 {
2455 for (i=0; i < infoPtr->uNumItem; i++)
2456 {
2457 /* move everything in the row of the selected item to the iTargetRow */
2458 TAB_ITEM *item = TAB_GetItem(infoPtr, i);
2459
2460 if (item->rect.left == newselected )
2461 item->rect.left = iTargetRow;
2462 else
2463 {
2464 if (item->rect.left > newselected)
2465 item->rect.left-=1;
2466 }
2467 }
2468 }
2469 else
2470 {
2471 for (i=0; i < infoPtr->uNumItem; i++)
2472 {
2473 TAB_ITEM *item = TAB_GetItem(infoPtr, i);
2474
2475 if (item->rect.top == newselected )
2476 item->rect.top = iTargetRow;
2477 else
2478 {
2479 if (item->rect.top > newselected)
2480 item->rect.top-=1;
2481 }
2482 }
2483 }
2484 TAB_RecalcHotTrack(infoPtr, NULL, NULL, NULL);
2485 }
2486 }
2487
2488 /*
2489 * Do the trivial cases first.
2490 */
2491 if ( (!infoPtr->needsScrolling) ||
2492 (infoPtr->hwndUpDown==0) || (infoPtr->dwStyle & TCS_VERTICAL))
2493 return;
2494
2495 if (infoPtr->leftmostVisible >= iSelected)
2496 {
2497 infoPtr->leftmostVisible = iSelected;
2498 }
2499 else
2500 {
2501 TAB_ITEM *selected = TAB_GetItem(infoPtr, iSelected);
2502 RECT r;
2503 INT width;
2504 UINT i;
2505
2506 /* Calculate the part of the client area that is visible */
2507 GetClientRect(infoPtr->hwnd, &r);
2508 width = r.right;
2509
2510 GetClientRect(infoPtr->hwndUpDown, &r);
2511 width -= r.right;
2512
2513 if ((selected->rect.right -
2514 selected->rect.left) >= width )
2515 {
2516 /* Special case: width of selected item is greater than visible
2517 * part of control.
2518 */
2519 infoPtr->leftmostVisible = iSelected;
2520 }
2521 else
2522 {
2523 for (i = infoPtr->leftmostVisible; i < infoPtr->uNumItem; i++)
2524 {
2525 if ((selected->rect.right - TAB_GetItem(infoPtr, i)->rect.left) < width)
2526 break;
2527 }
2528 infoPtr->leftmostVisible = i;
2529 }
2530 }
2531
2532 if (infoPtr->leftmostVisible != iOrigLeftmostVisible)
2533 TAB_RecalcHotTrack(infoPtr, NULL, NULL, NULL);
2534
2535 SendMessageW(infoPtr->hwndUpDown, UDM_SETPOS, 0,
2536 MAKELONG(infoPtr->leftmostVisible, 0));
2537 }
2538
2539 /******************************************************************************
2540 * TAB_InvalidateTabArea
2541 *
2542 * This method will invalidate the portion of the control that contains the
2543 * tabs. It is called when the state of the control changes and needs
2544 * to be redisplayed
2545 */
2546 static void TAB_InvalidateTabArea(const TAB_INFO *infoPtr)
2547 {
2548 RECT clientRect, rInvalidate, rAdjClient;
2549 INT lastRow = infoPtr->uNumRows - 1;
2550 RECT rect;
2551
2552 if (lastRow < 0) return;
2553
2554 GetClientRect(infoPtr->hwnd, &clientRect);
2555 rInvalidate = clientRect;
2556 rAdjClient = clientRect;
2557
2558 TAB_AdjustRect(infoPtr, 0, &rAdjClient);
2559
2560 TAB_InternalGetItemRect(infoPtr, infoPtr->uNumItem-1 , &rect, NULL);
2561 if ((infoPtr->dwStyle & TCS_BOTTOM) && (infoPtr->dwStyle & TCS_VERTICAL))
2562 {
2563 rInvalidate.left = rAdjClient.right;
2564 if (infoPtr->uNumRows == 1)
2565 rInvalidate.bottom = clientRect.top + rect.bottom + 2 * SELECTED_TAB_OFFSET;
2566 }
2567 else if(infoPtr->dwStyle & TCS_VERTICAL)
2568 {
2569 rInvalidate.right = rAdjClient.left;
2570 if (infoPtr->uNumRows == 1)
2571 rInvalidate.bottom = clientRect.top + rect.bottom + 2 * SELECTED_TAB_OFFSET;
2572 }
2573 else if (infoPtr->dwStyle & TCS_BOTTOM)
2574 {
2575 rInvalidate.top = rAdjClient.bottom;
2576 if (infoPtr->uNumRows == 1)
2577 rInvalidate.right = clientRect.left + rect.right + 2 * SELECTED_TAB_OFFSET;
2578 }
2579 else
2580 {
2581 rInvalidate.bottom = rAdjClient.top;
2582 if (infoPtr->uNumRows == 1)
2583 rInvalidate.right = clientRect.left + rect.right + 2 * SELECTED_TAB_OFFSET;
2584 }
2585
2586 /* Punch out the updown control */
2587 if (infoPtr->needsScrolling && (rInvalidate.right > 0)) {
2588 RECT r;
2589 GetClientRect(infoPtr->hwndUpDown, &r);
2590 if (rInvalidate.right > clientRect.right - r.left)
2591 rInvalidate.right = rInvalidate.right - (r.right - r.left);
2592 else
2593 rInvalidate.right = clientRect.right - r.left;
2594 }
2595
2596 TRACE("invalidate (%s)\n", wine_dbgstr_rect(&rInvalidate));
2597
2598 InvalidateRect(infoPtr->hwnd, &rInvalidate, TRUE);
2599 }
2600
2601 static inline LRESULT TAB_Paint (TAB_INFO *infoPtr, HDC hdcPaint)
2602 {
2603 HDC hdc;
2604 PAINTSTRUCT ps;
2605
2606 if (hdcPaint)
2607 hdc = hdcPaint;
2608 else
2609 {
2610 hdc = BeginPaint (infoPtr->hwnd, &ps);
2611 TRACE("erase %d, rect=(%s)\n", ps.fErase, wine_dbgstr_rect(&ps.rcPaint));
2612 }
2613
2614 TAB_Refresh (infoPtr, hdc);
2615
2616 if (!hdcPaint)
2617 EndPaint (infoPtr->hwnd, &ps);
2618
2619 return 0;
2620 }
2621
2622 static LRESULT
2623 TAB_InsertItemT (TAB_INFO *infoPtr, INT iItem, TCITEMW *pti, BOOL bUnicode)
2624 {
2625 TAB_ITEM *item;
2626 RECT rect;
2627
2628 GetClientRect (infoPtr->hwnd, &rect);
2629 TRACE("Rect: %p %s\n", infoPtr->hwnd, wine_dbgstr_rect(&rect));
2630
2631 if (iItem < 0) return -1;
2632 if (iItem > infoPtr->uNumItem)
2633 iItem = infoPtr->uNumItem;
2634
2635 TAB_DumpItemExternalT(pti, iItem, bUnicode);
2636
2637
2638 if (infoPtr->uNumItem == 0) {
2639 infoPtr->items = Alloc (TAB_ITEM_SIZE(infoPtr));
2640 infoPtr->uNumItem++;
2641 infoPtr->iSelected = 0;
2642 }
2643 else {
2644 LPBYTE oldItems = (LPBYTE)infoPtr->items;
2645
2646 infoPtr->uNumItem++;
2647 infoPtr->items = Alloc (TAB_ITEM_SIZE(infoPtr) * infoPtr->uNumItem);
2648
2649 /* pre insert copy */
2650 if (iItem > 0) {
2651 memcpy (infoPtr->items, oldItems,
2652 iItem * TAB_ITEM_SIZE(infoPtr));
2653 }
2654
2655 /* post insert copy */
2656 if (iItem < infoPtr->uNumItem - 1) {
2657 memcpy (TAB_GetItem(infoPtr, iItem + 1),
2658 oldItems + iItem * TAB_ITEM_SIZE(infoPtr),
2659 (infoPtr->uNumItem - iItem - 1) * TAB_ITEM_SIZE(infoPtr));
2660
2661 }
2662
2663 if (iItem <= infoPtr->iSelected)
2664 infoPtr->iSelected++;
2665
2666 Free (oldItems);
2667 }
2668
2669 item = TAB_GetItem(infoPtr, iItem);
2670
2671 item->pszText = NULL;
2672
2673 if (pti->mask & TCIF_TEXT)
2674 {
2675 if (bUnicode)
2676 Str_SetPtrW (&item->pszText, pti->pszText);
2677 else
2678 Str_SetPtrAtoW (&item->pszText, (LPSTR)pti->pszText);
2679 }
2680
2681 if (pti->mask & TCIF_IMAGE)
2682 item->iImage = pti->iImage;
2683 else
2684 item->iImage = -1;
2685
2686 if (pti->mask & TCIF_PARAM)
2687 memcpy(item->extra, &pti->lParam, infoPtr->cbInfo);
2688 else
2689 memset(item->extra, 0, infoPtr->cbInfo);
2690
2691 TAB_SetItemBounds(infoPtr);
2692 if (infoPtr->uNumItem > 1)
2693 TAB_InvalidateTabArea(infoPtr);
2694 else
2695 InvalidateRect(infoPtr->hwnd, NULL, TRUE);
2696
2697 TRACE("[%p]: added item %d %s\n",
2698 infoPtr->hwnd, iItem, debugstr_w(item->pszText));
2699
2700 /* If we haven't set the current focus yet, set it now. */
2701 if (infoPtr->uFocus == -1)
2702 TAB_SetCurFocus(infoPtr, iItem);
2703
2704 return iItem;
2705 }
2706
2707 static LRESULT
2708 TAB_SetItemSize (TAB_INFO *infoPtr, INT cx, INT cy)
2709 {
2710 LONG lResult = 0;
2711 BOOL bNeedPaint = FALSE;
2712
2713 lResult = MAKELONG(infoPtr->tabWidth, infoPtr->tabHeight);
2714
2715 /* UNDOCUMENTED: If requested Width or Height is 0 this means that program wants to use auto size. */
2716 if (infoPtr->dwStyle & TCS_FIXEDWIDTH && (infoPtr->tabWidth != cx))
2717 {
2718 infoPtr->tabWidth = cx;
2719 bNeedPaint = TRUE;
2720 }
2721
2722 if (infoPtr->tabHeight != cy)
2723 {
2724 if ((infoPtr->fHeightSet = (cy != 0)))
2725 infoPtr->tabHeight = cy;
2726
2727 bNeedPaint = TRUE;
2728 }
2729 TRACE("was h=%d,w=%d, now h=%d,w=%d\n",
2730 HIWORD(lResult), LOWORD(lResult),
2731 infoPtr->tabHeight, infoPtr->tabWidth);
2732
2733 if (bNeedPaint)
2734 {
2735 TAB_SetItemBounds(infoPtr);
2736 RedrawWindow(infoPtr->hwnd, NULL, NULL, RDW_ERASE | RDW_INVALIDATE | RDW_UPDATENOW);
2737 }
2738
2739 return lResult;
2740 }
2741
2742 static inline LRESULT TAB_SetMinTabWidth (TAB_INFO *infoPtr, INT cx)
2743 {
2744 INT oldcx = 0;
2745
2746 TRACE("(%p,%d)\n", infoPtr, cx);
2747
2748 if (infoPtr->tabMinWidth < 0)
2749 oldcx = DEFAULT_MIN_TAB_WIDTH;
2750 else
2751 oldcx = infoPtr->tabMinWidth;
2752 infoPtr->tabMinWidth = cx;
2753 TAB_SetItemBounds(infoPtr);
2754 return oldcx;
2755 }
2756
2757 static inline LRESULT
2758 TAB_HighlightItem (TAB_INFO *infoPtr, INT iItem, BOOL fHighlight)
2759 {
2760 LPDWORD lpState;
2761 DWORD oldState;
2762 RECT r;
2763
2764 TRACE("(%p,%d,%s)\n", infoPtr, iItem, fHighlight ? "true" : "false");
2765
2766 if (iItem < 0 || iItem >= infoPtr->uNumItem)
2767 return FALSE;
2768
2769 lpState = &TAB_GetItem(infoPtr, iItem)->dwState;
2770 oldState = *lpState;
2771
2772 if (fHighlight)
2773 *lpState |= TCIS_HIGHLIGHTED;
2774 else
2775 *lpState &= ~TCIS_HIGHLIGHTED;
2776
2777 if ((oldState != *lpState) && TAB_InternalGetItemRect (infoPtr, iItem, &r, NULL))
2778 InvalidateRect (infoPtr->hwnd, &r, TRUE);
2779
2780 return TRUE;
2781 }
2782
2783 static LRESULT
2784 TAB_SetItemT (TAB_INFO *infoPtr, INT iItem, LPTCITEMW tabItem, BOOL bUnicode)
2785 {
2786 TAB_ITEM *wineItem;
2787
2788 TRACE("(%p,%d,%p,%s)\n", infoPtr, iItem, tabItem, bUnicode ? "true" : "false");
2789
2790 if (iItem < 0 || iItem >= infoPtr->uNumItem)
2791 return FALSE;
2792
2793 TAB_DumpItemExternalT(tabItem, iItem, bUnicode);
2794
2795 wineItem = TAB_GetItem(infoPtr, iItem);
2796
2797 if (tabItem->mask & TCIF_IMAGE)
2798 wineItem->iImage = tabItem->iImage;
2799
2800 if (tabItem->mask & TCIF_PARAM)
2801 memcpy(wineItem->extra, &tabItem->lParam, infoPtr->cbInfo);
2802
2803 if (tabItem->mask & TCIF_RTLREADING)
2804 FIXME("TCIF_RTLREADING\n");
2805
2806 if (tabItem->mask & TCIF_STATE)
2807 wineItem->dwState = (wineItem->dwState & ~tabItem->dwStateMask) |
2808 ( tabItem->dwState & tabItem->dwStateMask);
2809
2810 if (tabItem->mask & TCIF_TEXT)
2811 {
2812 Free(wineItem->pszText);
2813 wineItem->pszText = NULL;
2814 if (bUnicode)
2815 Str_SetPtrW(&wineItem->pszText, tabItem->pszText);
2816 else
2817 Str_SetPtrAtoW(&wineItem->pszText, (LPSTR)tabItem->pszText);
2818 }
2819
2820 /* Update and repaint tabs */
2821 TAB_SetItemBounds(infoPtr);
2822 TAB_InvalidateTabArea(infoPtr);
2823
2824 return TRUE;
2825 }
2826
2827 static inline LRESULT TAB_GetItemCount (const TAB_INFO *infoPtr)
2828 {
2829 TRACE("\n");
2830 return infoPtr->uNumItem;
2831 }
2832
2833
2834 static LRESULT
2835 TAB_GetItemT (TAB_INFO *infoPtr, INT iItem, LPTCITEMW tabItem, BOOL bUnicode)
2836 {
2837 TAB_ITEM *wineItem;
2838
2839 TRACE("(%p,%d,%p,%s)\n", infoPtr, iItem, tabItem, bUnicode ? "true" : "false");
2840
2841 if (!tabItem) return FALSE;
2842
2843 if (iItem < 0 || iItem >= infoPtr->uNumItem)
2844 {
2845 /* init requested fields */
2846 if (tabItem->mask & TCIF_IMAGE) tabItem->iImage = 0;
2847 if (tabItem->mask & TCIF_PARAM) tabItem->lParam = 0;
2848 if (tabItem->mask & TCIF_STATE) tabItem->dwState = 0;
2849 return FALSE;
2850 }
2851
2852 wineItem = TAB_GetItem(infoPtr, iItem);
2853
2854 if (tabItem->mask & TCIF_IMAGE)
2855 tabItem->iImage = wineItem->iImage;
2856
2857 if (tabItem->mask & TCIF_PARAM)
2858 memcpy(&tabItem->lParam, wineItem->extra, infoPtr->cbInfo);
2859
2860 if (tabItem->mask & TCIF_RTLREADING)
2861 FIXME("TCIF_RTLREADING\n");
2862
2863 if (tabItem->mask & TCIF_STATE)
2864 tabItem->dwState = wineItem->dwState & tabItem->dwStateMask;
2865
2866 if (tabItem->mask & TCIF_TEXT)
2867 {
2868 if (bUnicode)
2869 Str_GetPtrW (wineItem->pszText, tabItem->pszText, tabItem->cchTextMax);
2870 else
2871 Str_GetPtrWtoA (wineItem->pszText, (LPSTR)tabItem->pszText, tabItem->cchTextMax);
2872 }
2873
2874 TAB_DumpItemExternalT(tabItem, iItem, bUnicode);
2875
2876 return TRUE;
2877 }
2878
2879
2880 static LRESULT TAB_DeleteItem (TAB_INFO *infoPtr, INT iItem)
2881 {
2882 BOOL bResult = FALSE;
2883
2884 TRACE("(%p, %d)\n", infoPtr, iItem);
2885
2886 if ((iItem >= 0) && (iItem < infoPtr->uNumItem))
2887 {
2888 TAB_ITEM *item = TAB_GetItem(infoPtr, iItem);
2889 LPBYTE oldItems = (LPBYTE)infoPtr->items;
2890
2891 TAB_InvalidateTabArea(infoPtr);
2892 Free(item->pszText);
2893 infoPtr->uNumItem--;
2894
2895 if (!infoPtr->uNumItem)
2896 {
2897 infoPtr->items = NULL;
2898 if (infoPtr->iHotTracked >= 0)
2899 {
2900 KillTimer(infoPtr->hwnd, TAB_HOTTRACK_TIMER);
2901 infoPtr->iHotTracked = -1;
2902 }
2903 }
2904 else
2905 {
2906 infoPtr->items = Alloc(TAB_ITEM_SIZE(infoPtr) * infoPtr->uNumItem);
2907
2908 if (iItem > 0)
2909 memcpy(infoPtr->items, oldItems, iItem * TAB_ITEM_SIZE(infoPtr));
2910
2911 if (iItem < infoPtr->uNumItem)
2912 memcpy(TAB_GetItem(infoPtr, iItem),
2913 oldItems + (iItem + 1) * TAB_ITEM_SIZE(infoPtr),
2914 (infoPtr->uNumItem - iItem) * TAB_ITEM_SIZE(infoPtr));
2915
2916 if (iItem <= infoPtr->iHotTracked)
2917 {
2918 /* When tabs move left/up, the hot track item may change */
2919 FIXME("Recalc hot track\n");
2920 }
2921 }
2922 Free(oldItems);
2923
2924 /* Readjust the selected index */
2925 if (iItem == infoPtr->iSelected)
2926 infoPtr->iSelected = -1;
2927 else if (iItem < infoPtr->iSelected)
2928 infoPtr->iSelected--;
2929
2930 if (infoPtr->uNumItem == 0)
2931 infoPtr->iSelected = -1;
2932
2933 /* Reposition and repaint tabs */
2934 TAB_SetItemBounds(infoPtr);
2935
2936 bResult = TRUE;
2937 }
2938
2939 return bResult;
2940 }
2941
2942 static inline LRESULT TAB_DeleteAllItems (TAB_INFO *infoPtr)
2943 {
2944 TRACE("(%p)\n", infoPtr);
2945 while (infoPtr->uNumItem)
2946 TAB_DeleteItem (infoPtr, 0);
2947 return TRUE;
2948 }
2949
2950
2951 static inline LRESULT TAB_GetFont (const TAB_INFO *infoPtr)
2952 {
2953 TRACE("(%p) returning %p\n", infoPtr, infoPtr->hFont);
2954 return (LRESULT)infoPtr->hFont;
2955 }
2956
2957 static inline LRESULT TAB_SetFont (TAB_INFO *infoPtr, HFONT hNewFont)
2958 {
2959 TRACE("(%p,%p)\n", infoPtr, hNewFont);
2960
2961 infoPtr->hFont = hNewFont;
2962
2963 TAB_SetItemBounds(infoPtr);
2964
2965 TAB_InvalidateTabArea(infoPtr);
2966
2967 return 0;
2968 }
2969
2970
2971 static inline LRESULT TAB_GetImageList (const TAB_INFO *infoPtr)
2972 {
2973 TRACE("\n");
2974 return (LRESULT)infoPtr->himl;
2975 }
2976
2977 static inline LRESULT TAB_SetImageList (TAB_INFO *infoPtr, HIMAGELIST himlNew)
2978 {
2979 HIMAGELIST himlPrev = infoPtr->himl;
2980 TRACE("himl=%p\n", himlNew);
2981 infoPtr->himl = himlNew;
2982 TAB_SetItemBounds(infoPtr);
2983 InvalidateRect(infoPtr->hwnd, NULL, TRUE);
2984 return (LRESULT)himlPrev;
2985 }
2986
2987 static inline LRESULT TAB_GetUnicodeFormat (const TAB_INFO *infoPtr)
2988 {
2989 TRACE("(%p)\n", infoPtr);
2990 return infoPtr->bUnicode;
2991 }
2992
2993 static inline LRESULT TAB_SetUnicodeFormat (TAB_INFO *infoPtr, BOOL bUnicode)
2994 {
2995 BOOL bTemp = infoPtr->bUnicode;
2996
2997 TRACE("(%p %d)\n", infoPtr, bUnicode);
2998 infoPtr->bUnicode = bUnicode;
2999
3000 return bTemp;
3001 }
3002
3003 static inline LRESULT TAB_Size (TAB_INFO *infoPtr)
3004 {
3005 /* I'm not really sure what the following code was meant to do.
3006 This is what it is doing:
3007 When WM_SIZE is sent with SIZE_RESTORED, the control
3008 gets positioned in the top left corner.
3009
3010 RECT parent_rect;
3011 HWND parent;
3012 UINT uPosFlags,cx,cy;
3013
3014 uPosFlags=0;
3015 if (!wParam) {
3016 parent = GetParent (hwnd);
3017 GetClientRect(parent, &parent_rect);
3018 cx=LOWORD (lParam);
3019 cy=HIWORD (lParam);
3020 if (GetWindowLongW(hwnd, GWL_STYLE) & CCS_NORESIZE)
3021 uPosFlags |= (SWP_NOSIZE | SWP_NOMOVE);
3022
3023 SetWindowPos (hwnd, 0, parent_rect.left, parent_rect.top,
3024 cx, cy, uPosFlags | SWP_NOZORDER);
3025 } else {
3026 FIXME("WM_SIZE flag %x %lx not handled\n", wParam, lParam);
3027 } */
3028
3029 /* Recompute the size/position of the tabs. */
3030 TAB_SetItemBounds (infoPtr);
3031
3032 /* Force a repaint of the control. */
3033 InvalidateRect(infoPtr->hwnd, NULL, TRUE);
3034
3035 return 0;
3036 }
3037
3038
3039 static LRESULT TAB_Create (HWND hwnd, LPARAM lParam)
3040 {
3041 TAB_INFO *infoPtr;
3042 TEXTMETRICW fontMetrics;
3043 HDC hdc;
3044 HFONT hOldFont;
3045 DWORD dwStyle;
3046
3047 infoPtr = Alloc (sizeof(TAB_INFO));
3048
3049 SetWindowLongPtrW(hwnd, 0, (DWORD_PTR)infoPtr);
3050
3051 infoPtr->hwnd = hwnd;
3052 infoPtr->hwndNotify = ((LPCREATESTRUCTW)lParam)->hwndParent;
3053 infoPtr->uNumItem = 0;
3054 infoPtr->uNumRows = 0;
3055 infoPtr->uHItemPadding = 6;
3056 infoPtr->uVItemPadding = 3;
3057 infoPtr->uHItemPadding_s = 6;
3058 infoPtr->uVItemPadding_s = 3;
3059 infoPtr->hFont = 0;
3060 infoPtr->items = 0;
3061 infoPtr->hcurArrow = LoadCursorW (0, (LPWSTR)IDC_ARROW);
3062 infoPtr->iSelected = -1;
3063 infoPtr->iHotTracked = -1;
3064 infoPtr->uFocus = -1;
3065 infoPtr->hwndToolTip = 0;
3066 infoPtr->DoRedraw = TRUE;
3067 infoPtr->needsScrolling = FALSE;
3068 infoPtr->hwndUpDown = 0;
3069 infoPtr->leftmostVisible = 0;
3070 infoPtr->fHeightSet = FALSE;
3071 infoPtr->bUnicode = IsWindowUnicode (hwnd);
3072 infoPtr->cbInfo = sizeof(LPARAM);
3073
3074 TRACE("Created tab control, hwnd [%p]\n", hwnd);
3075
3076 /* The tab control always has the WS_CLIPSIBLINGS style. Even
3077 if you don't specify it in CreateWindow. This is necessary in
3078 order for paint to work correctly. This follows windows behaviour. */
3079 dwStyle = GetWindowLongW(hwnd, GWL_STYLE);
3080 SetWindowLongW(hwnd, GWL_STYLE, dwStyle|WS_CLIPSIBLINGS);
3081
3082 infoPtr->dwStyle = dwStyle | WS_CLIPSIBLINGS;
3083 infoPtr->exStyle = (dwStyle & TCS_FLATBUTTONS) ? TCS_EX_FLATSEPARATORS : 0;
3084
3085 if (infoPtr->dwStyle & TCS_TOOLTIPS) {
3086 /* Create tooltip control */
3087 infoPtr->hwndToolTip =
3088 CreateWindowExW (0, TOOLTIPS_CLASSW, NULL, WS_POPUP,
3089 CW_USEDEFAULT, CW_USEDEFAULT,
3090 CW_USEDEFAULT, CW_USEDEFAULT,
3091 hwnd, 0, 0, 0);
3092
3093 /* Send NM_TOOLTIPSCREATED notification */
3094 if (infoPtr->hwndToolTip) {
3095 NMTOOLTIPSCREATED nmttc;
3096
3097 nmttc.hdr.hwndFrom = hwnd;
3098 nmttc.hdr.idFrom = GetWindowLongPtrW(hwnd, GWLP_ID);
3099 nmttc.hdr.code = NM_TOOLTIPSCREATED;
3100 nmttc.hwndToolTips = infoPtr->hwndToolTip;
3101
3102 SendMessageW (infoPtr->hwndNotify, WM_NOTIFY,
3103 GetWindowLongPtrW(hwnd, GWLP_ID), (LPARAM)&nmttc);
3104 }
3105 }
3106
3107 OpenThemeData (infoPtr->hwnd, themeClass);
3108
3109 /*
3110 * We need to get text information so we need a DC and we need to select
3111 * a font.
3112 */
3113 hdc = GetDC(hwnd);
3114 hOldFont = SelectObject (hdc, GetStockObject (SYSTEM_FONT));
3115
3116 /* Use the system font to determine the initial height of a tab. */
3117 GetTextMetricsW(hdc, &fontMetrics);
3118
3119 /*
3120 * Make sure there is enough space for the letters + growing the
3121 * selected item + extra space for the selected item.
3122 */
3123 infoPtr->tabHeight = fontMetrics.tmHeight + SELECTED_TAB_OFFSET +
3124 ((infoPtr->dwStyle & TCS_BUTTONS) ? 2 : 1) *
3125 infoPtr->uVItemPadding;
3126
3127 /* Initialize the width of a tab. */
3128 if (infoPtr->dwStyle & TCS_FIXEDWIDTH)
3129 infoPtr->tabWidth = GetDeviceCaps(hdc, LOGPIXELSX);
3130
3131 infoPtr->tabMinWidth = -1;
3132
3133 TRACE("tabH=%d, tabW=%d\n", infoPtr->tabHeight, infoPtr->tabWidth);
3134
3135 SelectObject (hdc, hOldFont);
3136 ReleaseDC(hwnd, hdc);
3137
3138 return 0;
3139 }
3140
3141 static LRESULT
3142 TAB_Destroy (TAB_INFO *infoPtr)
3143 {
3144 UINT iItem;
3145
3146 SetWindowLongPtrW(infoPtr->hwnd, 0, 0);
3147
3148 if (infoPtr->items) {
3149 for (iItem = 0; iItem < infoPtr->uNumItem; iItem++) {
3150 Free (TAB_GetItem(infoPtr, iItem)->pszText);
3151 }
3152 Free (infoPtr->items);
3153 }
3154
3155 if (infoPtr->hwndToolTip)
3156 DestroyWindow (infoPtr->hwndToolTip);
3157
3158 if (infoPtr->hwndUpDown)
3159 DestroyWindow(infoPtr->hwndUpDown);
3160
3161 if (infoPtr->iHotTracked >= 0)
3162 KillTimer(infoPtr->hwnd, TAB_HOTTRACK_TIMER);
3163
3164 CloseThemeData (GetWindowTheme (infoPtr->hwnd));
3165
3166 Free (infoPtr);
3167 return 0;
3168 }
3169
3170 /* update theme after a WM_THEMECHANGED message */
3171 static LRESULT theme_changed(const TAB_INFO *infoPtr)
3172 {
3173 HTHEME theme = GetWindowTheme (infoPtr->hwnd);
3174 CloseThemeData (theme);
3175 OpenThemeData (infoPtr->hwnd, themeClass);
3176 return 0;
3177 }
3178
3179 static LRESULT TAB_NCCalcSize(WPARAM wParam)
3180 {
3181 if (!wParam)
3182 return 0;
3183 return WVR_ALIGNTOP;
3184 }
3185
3186 static inline LRESULT
3187 TAB_SetItemExtra (TAB_INFO *infoPtr, INT cbInfo)
3188 {
3189 TRACE("(%p %d)\n", infoPtr, cbInfo);
3190
3191 if (cbInfo <= 0)
3192 return FALSE;
3193
3194 if (infoPtr->uNumItem)
3195 {
3196 /* FIXME: MSDN says this is not allowed, but this hasn't been verified */
3197 return FALSE;
3198 }
3199
3200 infoPtr->cbInfo = cbInfo;
3201 return TRUE;
3202 }
3203
3204 static LRESULT TAB_RemoveImage (TAB_INFO *infoPtr, INT image)
3205 {
3206 TRACE("%p %d\n", infoPtr, image);
3207
3208 if (ImageList_Remove (infoPtr->himl, image))
3209 {
3210 INT i, *idx;
3211 RECT r;
3212
3213 /* shift indices, repaint items if needed */
3214 for (i = 0; i < infoPtr->uNumItem; i++)
3215 {
3216 idx = &TAB_GetItem(infoPtr, i)->iImage;
3217 if (*idx >= image)
3218 {
3219 if (*idx == image)
3220 *idx = -1;
3221 else
3222 (*idx)--;
3223
3224 /* repaint item */
3225 if (TAB_InternalGetItemRect (infoPtr, i, &r, NULL))
3226 InvalidateRect (infoPtr->hwnd, &r, TRUE);
3227 }
3228 }
3229 }
3230
3231 return 0;
3232 }
3233
3234 static LRESULT
3235 TAB_SetExtendedStyle (TAB_INFO *infoPtr, DWORD exMask, DWORD exStyle)
3236 {
3237 DWORD prevstyle = infoPtr->exStyle;
3238
3239 /* zero mask means all styles */
3240 if (exMask == 0) exMask = ~0;
3241
3242 if (exMask & TCS_EX_REGISTERDROP)
3243 {
3244 FIXME("TCS_EX_REGISTERDROP style unimplemented\n");
3245 exMask &= ~TCS_EX_REGISTERDROP;
3246 exStyle &= ~TCS_EX_REGISTERDROP;
3247 }
3248
3249 if (exMask & TCS_EX_FLATSEPARATORS)
3250 {
3251 if ((prevstyle ^ exStyle) & TCS_EX_FLATSEPARATORS)
3252 {
3253 infoPtr->exStyle ^= TCS_EX_FLATSEPARATORS;
3254 TAB_InvalidateTabArea(infoPtr);
3255 }
3256 }
3257
3258 return prevstyle;
3259 }
3260
3261 static inline LRESULT
3262 TAB_GetExtendedStyle (const TAB_INFO *infoPtr)
3263 {
3264 return infoPtr->exStyle;
3265 }
3266
3267 static LRESULT
3268 TAB_DeselectAll (TAB_INFO *infoPtr, BOOL excludesel)
3269 {
3270 BOOL paint = FALSE;
3271 INT i, selected = infoPtr->iSelected;
3272
3273 TRACE("(%p, %d)\n", infoPtr, excludesel);
3274
3275 if (!(infoPtr->dwStyle & TCS_BUTTONS))
3276 return 0;
3277
3278 for (i = 0; i < infoPtr->uNumItem; i++)
3279 {
3280 if ((TAB_GetItem(infoPtr, i)->dwState & TCIS_BUTTONPRESSED) &&
3281 (selected != i))
3282 {
3283 TAB_GetItem(infoPtr, i)->dwState &= ~TCIS_BUTTONPRESSED;
3284 paint = TRUE;
3285 }
3286 }
3287
3288 if (!excludesel && (selected != -1))
3289 {
3290 TAB_GetItem(infoPtr, selected)->dwState &= ~TCIS_BUTTONPRESSED;
3291 infoPtr->iSelected = -1;
3292 paint = TRUE;
3293 }
3294
3295 if (paint)
3296 TAB_InvalidateTabArea (infoPtr);
3297
3298 return 0;
3299 }
3300
3301 /***
3302 * DESCRIPTION:
3303 * Processes WM_STYLECHANGED messages.
3304 *
3305 * PARAMETER(S):
3306 * [I] infoPtr : valid pointer to the tab data structure
3307 * [I] wStyleType : window style type (normal or extended)
3308 * [I] lpss : window style information
3309 *
3310 * RETURN:
3311 * Zero
3312 */
3313 static INT TAB_StyleChanged(TAB_INFO *infoPtr, WPARAM wStyleType,
3314 const STYLESTRUCT *lpss)
3315 {
3316 TRACE("(styletype=%lx, styleOld=0x%08x, styleNew=0x%08x)\n",
3317 wStyleType, lpss->styleOld, lpss->styleNew);
3318
3319 if (wStyleType != GWL_STYLE) return 0;
3320
3321 infoPtr->dwStyle = lpss->styleNew;
3322
3323 TAB_SetItemBounds (infoPtr);
3324 InvalidateRect(infoPtr->hwnd, NULL, TRUE);
3325
3326 return 0;
3327 }
3328
3329 static LRESULT WINAPI
3330 TAB_WindowProc (HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
3331 {
3332 TAB_INFO *infoPtr = TAB_GetInfoPtr(hwnd);
3333
3334 TRACE("hwnd=%p msg=%x wParam=%lx lParam=%lx\n", hwnd, uMsg, wParam, lParam);
3335 if (!infoPtr && (uMsg != WM_CREATE))
3336 return DefWindowProcW (hwnd, uMsg, wParam, lParam);
3337
3338 switch (uMsg)
3339 {
3340 case TCM_GETIMAGELIST:
3341 return TAB_GetImageList (infoPtr);
3342
3343 case TCM_SETIMAGELIST:
3344 return TAB_SetImageList (infoPtr, (HIMAGELIST)lParam);
3345
3346 case TCM_GETITEMCOUNT:
3347 return TAB_GetItemCount (infoPtr);
3348
3349 case TCM_GETITEMA:
3350 case TCM_GETITEMW:
3351 return TAB_GetItemT (infoPtr, (INT)wParam, (LPTCITEMW)lParam, uMsg == TCM_GETITEMW);
3352
3353 case TCM_SETITEMA:
3354 case TCM_SETITEMW:
3355 return TAB_SetItemT (infoPtr, (INT)wParam, (LPTCITEMW)lParam, uMsg == TCM_SETITEMW);
3356
3357 case TCM_DELETEITEM:
3358 return TAB_DeleteItem (infoPtr, (INT)wParam);
3359
3360 case TCM_DELETEALLITEMS:
3361 return TAB_DeleteAllItems (infoPtr);
3362
3363 case TCM_GETITEMRECT:
3364 return TAB_GetItemRect (infoPtr, (INT)wParam, (LPRECT)lParam);
3365
3366 case TCM_GETCURSEL:
3367 return TAB_GetCurSel (infoPtr);
3368
3369 case TCM_HITTEST:
3370 return TAB_HitTest (infoPtr, (LPTCHITTESTINFO)lParam);
3371
3372 case TCM_SETCURSEL:
3373 return TAB_SetCurSel (infoPtr, (INT)wParam);
3374
3375 case TCM_INSERTITEMA:
3376 case TCM_INSERTITEMW:
3377 return TAB_InsertItemT (infoPtr, (INT)wParam, (TCITEMW*)lParam, uMsg == TCM_INSERTITEMW);
3378
3379 case TCM_SETITEMEXTRA:
3380 return TAB_SetItemExtra (infoPtr, (INT)wParam);
3381
3382 case TCM_ADJUSTRECT:
3383 return TAB_AdjustRect (infoPtr, (BOOL)wParam, (LPRECT)lParam);
3384
3385 case TCM_SETITEMSIZE:
3386 return TAB_SetItemSize (infoPtr, (INT)LOWORD(lParam), (INT)HIWORD(lParam));
3387
3388 case TCM_REMOVEIMAGE:
3389 return TAB_RemoveImage (infoPtr, (INT)wParam);
3390
3391 case TCM_SETPADDING:
3392 return TAB_SetPadding (infoPtr, lParam);
3393
3394 case TCM_GETROWCOUNT:
3395 return TAB_GetRowCount(infoPtr);
3396
3397 case TCM_GETUNICODEFORMAT:
3398 return TAB_GetUnicodeFormat (infoPtr);
3399
3400 case TCM_SETUNICODEFORMAT:
3401 return TAB_SetUnicodeFormat (infoPtr, (BOOL)wParam);
3402
3403 case TCM_HIGHLIGHTITEM:
3404 return TAB_HighlightItem (infoPtr, (INT)wParam, (BOOL)LOWORD(lParam));
3405
3406 case TCM_GETTOOLTIPS:
3407 return TAB_GetToolTips (infoPtr);
3408
3409 case TCM_SETTOOLTIPS:
3410 return TAB_SetToolTips (infoPtr, (HWND)wParam);
3411
3412 case TCM_GETCURFOCUS:
3413 return TAB_GetCurFocus (infoPtr);
3414
3415 case TCM_SETCURFOCUS:
3416 return TAB_SetCurFocus (infoPtr, (INT)wParam);
3417
3418 case TCM_SETMINTABWIDTH:
3419 return TAB_SetMinTabWidth(infoPtr, (INT)lParam);
3420
3421 case TCM_DESELECTALL:
3422 return TAB_DeselectAll (infoPtr, (BOOL)wParam);
3423
3424 case TCM_GETEXTENDEDSTYLE:
3425 return TAB_GetExtendedStyle (infoPtr);
3426
3427 case TCM_SETEXTENDEDSTYLE:
3428 return TAB_SetExtendedStyle (infoPtr, wParam, lParam);
3429
3430 case WM_GETFONT:
3431 return TAB_GetFont (infoPtr);
3432
3433 case WM_SETFONT:
3434 return TAB_SetFont (infoPtr, (HFONT)wParam);
3435
3436 case WM_CREATE:
3437 return TAB_Create (hwnd, lParam);
3438
3439 case WM_NCDESTROY:
3440 return TAB_Destroy (infoPtr);
3441
3442 case WM_GETDLGCODE:
3443 return DLGC_WANTARROWS | DLGC_WANTCHARS;
3444
3445 case WM_LBUTTONDOWN:
3446 return TAB_LButtonDown (infoPtr, wParam, lParam);
3447
3448 case WM_LBUTTONUP:
3449 return TAB_LButtonUp (infoPtr);
3450
3451 case WM_NOTIFY:
3452 return SendMessageW(infoPtr->hwndNotify, WM_NOTIFY, wParam, lParam);
3453
3454 case WM_RBUTTONDOWN:
3455 return TAB_RButtonDown (infoPtr);
3456
3457 case WM_MOUSEMOVE:
3458 return TAB_MouseMove (infoPtr, wParam, lParam);
3459
3460 case WM_PRINTCLIENT:
3461 case WM_PAINT:
3462 return TAB_Paint (infoPtr, (HDC)wParam);
3463
3464 case WM_SIZE:
3465 return TAB_Size (infoPtr);
3466
3467 case WM_SETREDRAW:
3468 return TAB_SetRedraw (infoPtr, (BOOL)wParam);
3469
3470 case WM_HSCROLL:
3471 return TAB_OnHScroll(infoPtr, (int)LOWORD(wParam), (int)HIWORD(wParam));
3472
3473 case WM_STYLECHANGED:
3474 return TAB_StyleChanged(infoPtr, wParam, (LPSTYLESTRUCT)lParam);
3475
3476 case WM_SYSCOLORCHANGE:
3477 COMCTL32_RefreshSysColors();
3478 return 0;
3479
3480 case WM_THEMECHANGED:
3481 return theme_changed (infoPtr);
3482
3483 case WM_KILLFOCUS:
3484 TAB_KillFocus(infoPtr);
3485 case WM_SETFOCUS:
3486 TAB_FocusChanging(infoPtr);
3487 break; /* Don't disturb normal focus behavior */
3488
3489 case WM_KEYDOWN:
3490 return TAB_KeyDown(infoPtr, wParam, lParam);
3491
3492 case WM_NCHITTEST:
3493 return TAB_NCHitTest(infoPtr, lParam);
3494
3495 case WM_NCCALCSIZE:
3496 return TAB_NCCalcSize(wParam);
3497
3498 default:
3499 if (uMsg >= WM_USER && uMsg < WM_APP && !COMCTL32_IsReflectedMessage(uMsg))
3500 WARN("unknown msg %04x wp=%08lx lp=%08lx\n",
3501 uMsg, wParam, lParam);
3502 break;
3503 }
3504 return DefWindowProcW(hwnd, uMsg, wParam, lParam);
3505 }
3506
3507
3508 void
3509 TAB_Register (void)
3510 {
3511 WNDCLASSW wndClass;
3512
3513 ZeroMemory (&wndClass, sizeof(WNDCLASSW));
3514 wndClass.style = CS_GLOBALCLASS | CS_DBLCLKS | CS_HREDRAW | CS_VREDRAW;
3515 wndClass.lpfnWndProc = TAB_WindowProc;
3516 wndClass.cbClsExtra = 0;
3517 wndClass.cbWndExtra = sizeof(TAB_INFO *);
3518 wndClass.hCursor = LoadCursorW (0, (LPWSTR)IDC_ARROW);
3519 wndClass.hbrBackground = (HBRUSH)(COLOR_BTNFACE+1);
3520 wndClass.lpszClassName = WC_TABCONTROLW;
3521
3522 RegisterClassW (&wndClass);
3523 }
3524
3525
3526 void
3527 TAB_Unregister (void)
3528 {
3529 UnregisterClassW (WC_TABCONTROLW, NULL);
3530 }
A free Windows-compatible Operating System