source: trunk/src/comctl32/updown.c

Last change on this file was 9370, checked in by sandervl, 23 years ago

Wine resync
File size: 31.5 KB
Line 
1/*
2 * Updown control
3 *
4 * Copyright 1997, 2002 Dimitrie O. Paun
5 *
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
10 *
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
15 *
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
19 *
20 * NOTE
21 *
22 * This code was audited for completeness against the documented features
23 * of Comctl32.dll version 6.0 on Sep. 9, 2002, by Dimitrie O. Paun.
24 *
25 * Unless otherwise noted, we believe this code to be complete, as per
26 * the specification mentioned above.
27 * If you discover missing features, or bugs, please note them below.
28 *
29 */
30
31#include <stdlib.h>
32#include <string.h>
33#include <stdio.h>
34
35#include "windef.h"
36#include "winbase.h"
37#include "wingdi.h"
38#include "winuser.h"
39#include "commctrl.h"
40#include "winnls.h"
41#include "wine/unicode.h"
42#include "wine/debug.h"
43
44WINE_DEFAULT_DEBUG_CHANNEL(updown);
45
46typedef struct
47{
48 HWND Self; /* Handle to this up-down control */
49 UINT AccelCount; /* Number of elements in AccelVect */
50 UDACCEL* AccelVect; /* Vector containing AccelCount elements */
51 INT AccelIndex; /* Current accel index, -1 if not accel'ing */
52 INT Base; /* Base to display nr in the buddy window */
53 INT CurVal; /* Current up-down value */
54 INT MinVal; /* Minimum up-down value */
55 INT MaxVal; /* Maximum up-down value */
56 HWND Buddy; /* Handle to the buddy window */
57 INT BuddyType; /* Remembers the buddy type BUDDY_TYPE_* */
58 INT Flags; /* Internal Flags FLAG_* */
59 BOOL UnicodeFormat; /* Marks the use of Unicode internally */
60} UPDOWN_INFO;
61
62/* Control configuration constants */
63
64#define INITIAL_DELAY 500 /* initial timer until auto-inc kicks in */
65#define AUTOPRESS_DELAY 250 /* time to keep arrow pressed on KEY_DOWN */
66#define REPEAT_DELAY 50 /* delay between auto-increments */
67
68#define DEFAULT_WIDTH 14 /* default width of the ctrl */
69#define DEFAULT_XSEP 0 /* default separation between buddy and ctrl */
70#define DEFAULT_ADDTOP 0 /* amount to extend above the buddy window */
71#define DEFAULT_ADDBOT 0 /* amount to extend below the buddy window */
72#define DEFAULT_BUDDYBORDER 2 /* Width/height of the buddy border */
73#define DEFAULT_BUDDYSPACER 2 /* Spacer between the buddy and the ctrl */
74
75
76/* Work constants */
77
78#define FLAG_INCR 0x01
79#define FLAG_DECR 0x02
80#define FLAG_MOUSEIN 0x04
81#define FLAG_PRESSED 0x08
82#define FLAG_ARROW (FLAG_INCR | FLAG_DECR)
83
84#define BUDDY_TYPE_UNKNOWN 0
85#define BUDDY_TYPE_LISTBOX 1
86#define BUDDY_TYPE_EDIT 2
87
88#define TIMER_AUTOREPEAT 1
89#define TIMER_ACCEL 2
90#define TIMER_AUTOPRESS 3
91
92#define BUDDY_UPDOWN_HWND "buddyUpDownHWND"
93#define BUDDY_SUPERCLASS_WNDPROC "buddySupperClassWndProc"
94
95#define UPDOWN_GetInfoPtr(hwnd) ((UPDOWN_INFO *)GetWindowLongA (hwnd,0))
96#define COUNT_OF(a) (sizeof(a)/sizeof(a[0]))
97
98static void UPDOWN_DoAction (UPDOWN_INFO *infoPtr, int delta, int action);
99
100/***********************************************************************
101 * UPDOWN_IsBuddyEdit
102 * Tests if our buddy is an edit control.
103 */
104static inline BOOL UPDOWN_IsBuddyEdit(UPDOWN_INFO *infoPtr)
105{
106 return infoPtr->BuddyType == BUDDY_TYPE_EDIT;
107}
108
109/***********************************************************************
110 * UPDOWN_IsBuddyListbox
111 * Tests if our buddy is a listbox control.
112 */
113static inline BOOL UPDOWN_IsBuddyListbox(UPDOWN_INFO *infoPtr)
114{
115 return infoPtr->BuddyType == BUDDY_TYPE_LISTBOX;
116}
117
118/***********************************************************************
119 * UPDOWN_InBounds
120 * Tests if a given value 'val' is between the Min&Max limits
121 */
122static BOOL UPDOWN_InBounds(UPDOWN_INFO *infoPtr, int val)
123{
124 if(infoPtr->MaxVal > infoPtr->MinVal)
125 return (infoPtr->MinVal <= val) && (val <= infoPtr->MaxVal);
126 else
127 return (infoPtr->MaxVal <= val) && (val <= infoPtr->MinVal);
128}
129
130/***********************************************************************
131 * UPDOWN_OffsetVal
132 * Change the current value by delta.
133 * It returns TRUE is the value was changed successfuly, or FALSE
134 * if the value was not changed, as it would go out of bounds.
135 */
136static BOOL UPDOWN_OffsetVal(UPDOWN_INFO *infoPtr, int delta)
137{
138 /* check if we can do the modification first */
139 if(!UPDOWN_InBounds (infoPtr, infoPtr->CurVal+delta)) {
140 if (GetWindowLongW (infoPtr->Self, GWL_STYLE) & UDS_WRAP) {
141 delta += (delta < 0 ? -1 : 1) *
142 (infoPtr->MaxVal < infoPtr->MinVal ? -1 : 1) *
143 (infoPtr->MinVal - infoPtr->MaxVal) +
144 (delta < 0 ? 1 : -1);
145 } else return FALSE;
146 }
147
148 infoPtr->CurVal += delta;
149 return TRUE;
150}
151
152/***********************************************************************
153 * UPDOWN_HasBuddyBorder
154 *
155 * When we have a buddy set and that we are aligned on our buddy, we
156 * want to draw a sunken edge to make like we are part of that control.
157 */
158static BOOL UPDOWN_HasBuddyBorder(UPDOWN_INFO* infoPtr)
159{
160 DWORD dwStyle = GetWindowLongW (infoPtr->Self, GWL_STYLE);
161
162 return ( ((dwStyle & (UDS_ALIGNLEFT | UDS_ALIGNRIGHT)) != 0) &&
163 UPDOWN_IsBuddyEdit(infoPtr) );
164}
165
166/***********************************************************************
167 * UPDOWN_GetArrowRect
168 * wndPtr - pointer to the up-down wnd
169 * rect - will hold the rectangle
170 * arrow - FLAG_INCR to get the "increment" rect (up or right)
171 * FLAG_DECR to get the "decrement" rect (down or left)
172 * If both flags are pressent, the envelope is returned.
173 */
174static void UPDOWN_GetArrowRect (UPDOWN_INFO* infoPtr, RECT *rect, int arrow)
175{
176 DWORD dwStyle = GetWindowLongW (infoPtr->Self, GWL_STYLE);
177
178 GetClientRect (infoPtr->Self, rect);
179
180 /*
181 * Make sure we calculate the rectangle to fit even if we draw the
182 * border.
183 */
184 if (UPDOWN_HasBuddyBorder(infoPtr)) {
185 if (dwStyle & UDS_ALIGNLEFT)
186 rect->left += DEFAULT_BUDDYBORDER;
187 else
188 rect->right -= DEFAULT_BUDDYBORDER;
189
190 InflateRect(rect, 0, -DEFAULT_BUDDYBORDER);
191 }
192
193 /* now figure out if we need a space away from the buddy */
194 if ( IsWindow(infoPtr->Buddy) ) {
195 if (dwStyle & UDS_ALIGNLEFT) rect->right -= DEFAULT_BUDDYSPACER;
196 else rect->left += DEFAULT_BUDDYSPACER;
197 }
198
199 /*
200 * We're calculating the midpoint to figure-out where the
201 * separation between the buttons will lay. We make sure that we
202 * round the uneven numbers by adding 1.
203 */
204 if (dwStyle & UDS_HORZ) {
205 int len = rect->right - rect->left + 1; /* compute the width */
206 if (arrow & FLAG_INCR)
207 rect->left = rect->left + len/2;
208 if (arrow & FLAG_DECR)
209 rect->right = rect->left + len/2 - 1;
210 } else {
211 int len = rect->bottom - rect->top + 1; /* compute the height */
212 if (arrow & FLAG_INCR)
213 rect->bottom = rect->top + len/2 - 1;
214 if (arrow & FLAG_DECR)
215 rect->top = rect->top + len/2;
216 }
217}
218
219/***********************************************************************
220 * UPDOWN_GetArrowFromPoint
221 * Returns the rectagle (for the up or down arrow) that contains pt.
222 * If it returns the up rect, it returns TRUE.
223 * If it returns the down rect, it returns FALSE.
224 */
225static BOOL UPDOWN_GetArrowFromPoint (UPDOWN_INFO* infoPtr, RECT *rect, POINT pt)
226{
227 UPDOWN_GetArrowRect (infoPtr, rect, FLAG_INCR);
228 if(PtInRect(rect, pt)) return FLAG_INCR;
229
230 UPDOWN_GetArrowRect (infoPtr, rect, FLAG_DECR);
231 if(PtInRect(rect, pt)) return FLAG_DECR;
232
233 return 0;
234}
235
236
237/***********************************************************************
238 * UPDOWN_GetThousandSep
239 * Returns the thousand sep. If an error occurs, it returns ','.
240 */
241static WCHAR UPDOWN_GetThousandSep()
242{
243 WCHAR sep[2];
244
245 if(GetLocaleInfoW(LOCALE_USER_DEFAULT, LOCALE_STHOUSAND, sep, 2) != 1)
246 sep[0] = ',';
247
248 return sep[0];
249}
250
251/***********************************************************************
252 * UPDOWN_GetBuddyInt
253 * Tries to read the pos from the buddy window and if it succeeds,
254 * it stores it in the control's CurVal
255 * returns:
256 * TRUE - if it read the integer from the buddy successfully
257 * FALSE - if an error occurred
258 */
259static BOOL UPDOWN_GetBuddyInt (UPDOWN_INFO *infoPtr)
260{
261 WCHAR txt[20], sep, *src, *dst;
262 int newVal;
263
264 if (!IsWindow(infoPtr->Buddy))
265 return FALSE;
266
267 /*if the buddy is a list window, we must set curr index */
268 if (UPDOWN_IsBuddyListbox(infoPtr)) {
269 newVal = SendMessageW(infoPtr->Buddy, LB_GETCARETINDEX, 0, 0);
270 if(newVal < 0) return FALSE;
271 } else {
272 /* we have a regular window, so will get the text */
273 if (!GetWindowTextW(infoPtr->Buddy, txt, COUNT_OF(txt))) return FALSE;
274
275 sep = UPDOWN_GetThousandSep();
276
277 /* now get rid of the separators */
278 for(src = dst = txt; *src; src++)
279 if(*src != sep) *dst++ = *src;
280 *dst = 0;
281
282 /* try to convert the number and validate it */
283 newVal = strtolW(txt, &src, infoPtr->Base);
284 if(*src || !UPDOWN_InBounds (infoPtr, newVal)) return FALSE;
285 }
286
287 TRACE("new value(%d) from buddy (old=%d)\n", newVal, infoPtr->CurVal);
288 infoPtr->CurVal = newVal;
289 return TRUE;
290}
291
292
293/***********************************************************************
294 * UPDOWN_SetBuddyInt
295 * Tries to set the pos to the buddy window based on current pos
296 * returns:
297 * TRUE - if it set the caption of the buddy successfully
298 * FALSE - if an error occurred
299 */
300static BOOL UPDOWN_SetBuddyInt (UPDOWN_INFO *infoPtr)
301{
302 WCHAR fmt[3] = { '%', 'd', '\0' };
303 WCHAR txt[20];
304 int len;
305
306 if (!IsWindow(infoPtr->Buddy)) return FALSE;
307
308 TRACE("set new value(%d) to buddy.\n", infoPtr->CurVal);
309
310 /*if the buddy is a list window, we must set curr index */
311 if (UPDOWN_IsBuddyListbox(infoPtr)) {
312 return SendMessageW(infoPtr->Buddy, LB_SETCURSEL, infoPtr->CurVal, 0) != LB_ERR;
313 }
314
315 /* Regular window, so set caption to the number */
316 if (infoPtr->Base == 16) fmt[1] = 'X';
317 len = wsprintfW(txt, fmt, infoPtr->CurVal);
318
319
320 /* Do thousands seperation if necessary */
321 if (!(GetWindowLongW (infoPtr->Self, GWL_STYLE) & UDS_NOTHOUSANDS) && (len > 3)) {
322 WCHAR tmp[COUNT_OF(txt)], *src = tmp, *dst = txt;
323 WCHAR sep = UPDOWN_GetThousandSep();
324 int start = len % 3;
325
326 memcpy(tmp, txt, sizeof(txt));
327 if (start == 0) start = 3;
328 dst += start;
329 src += start;
330 for (len=0; *src; len++) {
331 if (len % 3 == 0) *dst++ = sep;
332 *dst++ = *src++;
333 }
334 *dst = 0;
335 }
336
337 return SetWindowTextW(infoPtr->Buddy, txt);
338}
339
340/***********************************************************************
341 * UPDOWN_Draw
342 *
343 * Draw the arrows. The background need not be erased.
344 */
345static LRESULT UPDOWN_Draw (UPDOWN_INFO *infoPtr, HDC hdc)
346{
347 DWORD dwStyle = GetWindowLongW (infoPtr->Self, GWL_STYLE);
348 BOOL pressed, hot;
349 RECT rect;
350
351 /* Draw the common border between ourselves and our buddy */
352 if (UPDOWN_HasBuddyBorder(infoPtr)) {
353 GetClientRect(infoPtr->Self, &rect);
354 DrawEdge(hdc, &rect, EDGE_SUNKEN,
355 BF_BOTTOM | BF_TOP |
356 (dwStyle & UDS_ALIGNLEFT ? BF_LEFT : BF_RIGHT));
357 }
358
359 /* Draw the incr button */
360 UPDOWN_GetArrowRect (infoPtr, &rect, FLAG_INCR);
361 pressed = (infoPtr->Flags & FLAG_PRESSED) && (infoPtr->Flags & FLAG_INCR);
362 hot = (infoPtr->Flags & FLAG_INCR) && (infoPtr->Flags & FLAG_MOUSEIN);
363 DrawFrameControl(hdc, &rect, DFC_SCROLL,
364 (dwStyle & UDS_HORZ ? DFCS_SCROLLRIGHT : DFCS_SCROLLUP) |
365 ((dwStyle & UDS_HOTTRACK) && hot ? DFCS_HOT : 0) |
366 (pressed ? DFCS_PUSHED : 0) |
367 (dwStyle & WS_DISABLED ? DFCS_INACTIVE : 0) );
368
369 /* Draw the decr button */
370 UPDOWN_GetArrowRect(infoPtr, &rect, FLAG_DECR);
371 pressed = (infoPtr->Flags & FLAG_PRESSED) && (infoPtr->Flags & FLAG_DECR);
372 hot = (infoPtr->Flags & FLAG_DECR) && (infoPtr->Flags & FLAG_MOUSEIN);
373 DrawFrameControl(hdc, &rect, DFC_SCROLL,
374 (dwStyle & UDS_HORZ ? DFCS_SCROLLLEFT : DFCS_SCROLLDOWN) |
375 ((dwStyle & UDS_HOTTRACK) && hot ? DFCS_HOT : 0) |
376 (pressed ? DFCS_PUSHED : 0) |
377 (dwStyle & WS_DISABLED ? DFCS_INACTIVE : 0) );
378
379 return 0;
380}
381
382/***********************************************************************
383 * UPDOWN_Paint
384 *
385 * Asynchronous drawing (must ONLY be used in WM_PAINT).
386 * Calls UPDOWN_Draw.
387 */
388static LRESULT UPDOWN_Paint (UPDOWN_INFO *infoPtr, HDC hdc)
389{
390 PAINTSTRUCT ps;
391 if (hdc) return UPDOWN_Draw (infoPtr, hdc);
392 hdc = BeginPaint (infoPtr->Self, &ps);
393 UPDOWN_Draw (infoPtr, hdc);
394 EndPaint (infoPtr->Self, &ps);
395 return 0;
396}
397
398/***********************************************************************
399 * UPDOWN_KeyPressed
400 *
401 * Handle key presses (up & down) when we have to do so
402 */
403static LRESULT UPDOWN_KeyPressed(UPDOWN_INFO *infoPtr, int key)
404{
405 int arrow;
406
407 if (key == VK_UP) arrow = FLAG_INCR;
408 else if (key == VK_DOWN) arrow = FLAG_DECR;
409 else return 1;
410
411 UPDOWN_GetBuddyInt (infoPtr);
412 infoPtr->Flags &= ~FLAG_ARROW;
413 infoPtr->Flags |= FLAG_PRESSED | arrow;
414 InvalidateRect (infoPtr->Self, NULL, FALSE);
415 SetTimer(infoPtr->Self, TIMER_AUTOPRESS, AUTOPRESS_DELAY, 0);
416 UPDOWN_DoAction (infoPtr, 1, arrow);
417 return 0;
418}
419
420/***********************************************************************
421 * UPDOWN_Buddy_SubclassProc used to handle messages sent to the buddy
422 * control.
423 */
424static LRESULT CALLBACK
425UPDOWN_Buddy_SubclassProc(HWND hwnd, UINT uMsg, WPARAM wParam, LPARAM lParam)
426{
427 WNDPROC superClassWndProc = (WNDPROC)GetPropA(hwnd, BUDDY_SUPERCLASS_WNDPROC);
428 TRACE("hwnd=%p, wndProc=%d, uMsg=%04x, wParam=%d, lParam=%d\n",
429 hwnd, (INT)superClassWndProc, uMsg, wParam, (UINT)lParam);
430
431 if (uMsg == WM_KEYDOWN) {
432 HWND upDownHwnd = GetPropA(hwnd, BUDDY_UPDOWN_HWND);
433
434 UPDOWN_KeyPressed(UPDOWN_GetInfoPtr(upDownHwnd), (int)wParam);
435 }
436
437 return CallWindowProcW( superClassWndProc, hwnd, uMsg, wParam, lParam);
438}
439
440/***********************************************************************
441 * UPDOWN_SetBuddy
442 * Tests if 'bud' is a valid window handle. If not, returns FALSE.
443 * Else, sets it as a new Buddy.
444 * Then, it should subclass the buddy
445 * If window has the UDS_ARROWKEYS, it subcalsses the buddy window to
446 * process the UP/DOWN arrow keys.
447 * If window has the UDS_ALIGNLEFT or UDS_ALIGNRIGHT style
448 * the size/pos of the buddy and the control are adjusted accordingly.
449 */
450static BOOL UPDOWN_SetBuddy (UPDOWN_INFO* infoPtr, HWND bud)
451{
452 DWORD dwStyle = GetWindowLongW (infoPtr->Self, GWL_STYLE);
453 RECT budRect; /* new coord for the buddy */
454 int x, width; /* new x position and width for the up-down */
455 WNDPROC baseWndProc;
456 CHAR buddyClass[40];
457
458 /* Is it a valid bud? */
459 if(!IsWindow(bud)) return FALSE;
460
461 TRACE("(hwnd=%p, bud=%p)\n", infoPtr->Self, bud);
462
463 /* there is already a body assigned */
464 if (infoPtr->Buddy) RemovePropA(infoPtr->Buddy, BUDDY_UPDOWN_HWND);
465
466 /* Store buddy window handle */
467 infoPtr->Buddy = bud;
468
469 /* keep upDown ctrl hwnd in a buddy property */
470 SetPropA( bud, BUDDY_UPDOWN_HWND, infoPtr->Self);
471
472 /* Store buddy window class type */
473 infoPtr->BuddyType = BUDDY_TYPE_UNKNOWN;
474 if (GetClassNameA(bud, buddyClass, COUNT_OF(buddyClass))) {
475 if (lstrcmpiA(buddyClass, "Edit") == 0)
476 infoPtr->BuddyType = BUDDY_TYPE_EDIT;
477 else if (lstrcmpiA(buddyClass, "Listbox") == 0)
478 infoPtr->BuddyType = BUDDY_TYPE_LISTBOX;
479 }
480
481 if(dwStyle & UDS_ARROWKEYS){
482 /* Note that I don't clear the BUDDY_SUPERCLASS_WNDPROC property
483 when we reset the upDown ctrl buddy to another buddy because it is not
484 good to break the window proc chain. */
485 if (!GetPropA(bud, BUDDY_SUPERCLASS_WNDPROC)) {
486 baseWndProc = (WNDPROC)SetWindowLongW(bud, GWL_WNDPROC, (LPARAM)UPDOWN_Buddy_SubclassProc);
487 SetPropA(bud, BUDDY_SUPERCLASS_WNDPROC, (HANDLE)baseWndProc);
488 }
489 }
490
491 /* Get the rect of the buddy relative to its parent */
492 GetWindowRect(infoPtr->Buddy, &budRect);
493 MapWindowPoints(HWND_DESKTOP, GetParent(infoPtr->Buddy), (POINT *)(&budRect.left), 2);
494
495 /* now do the positioning */
496 if (dwStyle & UDS_ALIGNLEFT) {
497 x = budRect.left;
498 budRect.left += DEFAULT_WIDTH + DEFAULT_XSEP;
499 } else if (dwStyle & UDS_ALIGNRIGHT) {
500 budRect.right -= DEFAULT_WIDTH + DEFAULT_XSEP;
501 x = budRect.right+DEFAULT_XSEP;
502 } else {
503 x = budRect.right+DEFAULT_XSEP;
504 }
505
506 /* first adjust the buddy to accomodate the up/down */
507 SetWindowPos(infoPtr->Buddy, 0, budRect.left, budRect.top,
508 budRect.right - budRect.left, budRect.bottom - budRect.top,
509 SWP_NOACTIVATE|SWP_NOZORDER);
510
511 /* now position the up/down */
512 /* Since the UDS_ALIGN* flags were used, */
513 /* we will pick the position and size of the window. */
514 width = DEFAULT_WIDTH;
515
516 /*
517 * If the updown has a buddy border, it has to overlap with the buddy
518 * to look as if it is integrated with the buddy control.
519 * We nudge the control or change it size to overlap.
520 */
521 if (UPDOWN_HasBuddyBorder(infoPtr)) {
522 if(dwStyle & UDS_ALIGNLEFT)
523 width += DEFAULT_BUDDYBORDER;
524 else
525 x -= DEFAULT_BUDDYBORDER;
526 }
527
528 SetWindowPos(infoPtr->Self, infoPtr->Buddy, x,
529 budRect.top - DEFAULT_ADDTOP, width,
530 budRect.bottom - budRect.top + DEFAULT_ADDTOP + DEFAULT_ADDBOT,
531 SWP_NOACTIVATE);
532
533 return TRUE;
534}
535
536/***********************************************************************
537 * UPDOWN_DoAction
538 *
539 * This function increments/decrements the CurVal by the
540 * 'delta' amount according to the 'action' flag which can be a
541 * combination of FLAG_INCR and FLAG_DECR
542 * It notifies the parent as required.
543 * It handles wraping and non-wraping correctly.
544 * It is assumed that delta>0
545 */
546static void UPDOWN_DoAction (UPDOWN_INFO *infoPtr, int delta, int action)
547{
548 DWORD dwStyle = GetWindowLongW (infoPtr->Self, GWL_STYLE);
549 NM_UPDOWN ni;
550
551 TRACE("%d by %d\n", action, delta);
552
553 /* check if we can do the modification first */
554 delta *= (action & FLAG_INCR ? 1 : -1) * (infoPtr->MaxVal < infoPtr->MinVal ? -1 : 1);
555 if ( (action & FLAG_INCR) && (action & FLAG_DECR) ) delta = 0;
556
557 /* We must notify parent now to obtain permission */
558 ni.iPos = infoPtr->CurVal;
559 ni.iDelta = delta;
560 ni.hdr.hwndFrom = infoPtr->Self;
561 ni.hdr.idFrom = GetWindowLongW (infoPtr->Self, GWL_ID);
562 ni.hdr.code = UDN_DELTAPOS;
563 if (!SendMessageW(GetParent (infoPtr->Self), WM_NOTIFY,
564 (WPARAM)ni.hdr.idFrom, (LPARAM)&ni)) {
565 /* Parent said: OK to adjust */
566
567 /* Now adjust value with (maybe new) delta */
568 if (UPDOWN_OffsetVal (infoPtr, ni.iDelta)) {
569 /* Now take care about our buddy */
570 if (dwStyle & UDS_SETBUDDYINT) UPDOWN_SetBuddyInt (infoPtr);
571 }
572 }
573
574 /* Also, notify it. This message is sent in any case. */
575 SendMessageW( GetParent(infoPtr->Self),
576 dwStyle & UDS_HORZ ? WM_HSCROLL : WM_VSCROLL,
577 MAKELONG(SB_THUMBPOSITION, infoPtr->CurVal),
578 (LPARAM)infoPtr->Self);
579}
580
581/***********************************************************************
582 * UPDOWN_IsEnabled
583 *
584 * Returns TRUE if it is enabled as well as its buddy (if any)
585 * FALSE otherwise
586 */
587static BOOL UPDOWN_IsEnabled (UPDOWN_INFO *infoPtr)
588{
589 if(GetWindowLongW (infoPtr->Self, GWL_STYLE) & WS_DISABLED)
590 return FALSE;
591 if(infoPtr->Buddy)
592 return IsWindowEnabled(infoPtr->Buddy);
593 return TRUE;
594}
595
596/***********************************************************************
597 * UPDOWN_CancelMode
598 *
599 * Deletes any timers, releases the mouse and does redraw if necessary.
600 * If the control is not in "capture" mode, it does nothing.
601 * If the control was not in cancel mode, it returns FALSE.
602 * If the control was in cancel mode, it returns TRUE.
603 */
604static BOOL UPDOWN_CancelMode (UPDOWN_INFO *infoPtr)
605{
606 if (!(infoPtr->Flags & FLAG_PRESSED)) return FALSE;
607
608 KillTimer (infoPtr->Self, TIMER_AUTOREPEAT);
609 KillTimer (infoPtr->Self, TIMER_ACCEL);
610 KillTimer (infoPtr->Self, TIMER_AUTOPRESS);
611
612 if (GetCapture() == infoPtr->Self) {
613 NMHDR hdr;
614 hdr.hwndFrom = infoPtr->Self;
615 hdr.idFrom = GetWindowLongW (infoPtr->Self, GWL_ID);
616 hdr.code = NM_RELEASEDCAPTURE;
617 SendMessageW(GetParent (infoPtr->Self), WM_NOTIFY, hdr.idFrom, (LPARAM)&hdr);
618 ReleaseCapture();
619 }
620
621 infoPtr->Flags &= ~FLAG_PRESSED;
622 InvalidateRect (infoPtr->Self, NULL, FALSE);
623
624 return TRUE;
625}
626
627/***********************************************************************
628 * UPDOWN_HandleMouseEvent
629 *
630 * Handle a mouse event for the updown.
631 * 'pt' is the location of the mouse event in client or
632 * windows coordinates.
633 */
634static void UPDOWN_HandleMouseEvent (UPDOWN_INFO *infoPtr, UINT msg, POINTS pts)
635{
636 DWORD dwStyle = GetWindowLongW (infoPtr->Self, GWL_STYLE);
637 POINT pt = { pts.x, pts.y };
638 RECT rect;
639 int temp, arrow;
640
641 switch(msg)
642 {
643 case WM_LBUTTONDOWN: /* Initialise mouse tracking */
644 /* If we are inside an arrow, then nothing to do */
645 if(!(infoPtr->Flags & FLAG_MOUSEIN)) return;
646
647 /* If the buddy is an edit, will set focus to it */
648 if (UPDOWN_IsBuddyEdit(infoPtr)) SetFocus(infoPtr->Buddy);
649
650 /* Now see which one is the 'active' arrow */
651 if (infoPtr->Flags & FLAG_ARROW) {
652
653 /* Update the CurVal if necessary */
654 if (dwStyle & UDS_SETBUDDYINT) UPDOWN_GetBuddyInt (infoPtr);
655
656 /* Set up the correct flags */
657 infoPtr->Flags |= FLAG_PRESSED;
658
659 /* repaint the control */
660 InvalidateRect (infoPtr->Self, NULL, FALSE);
661
662 /* process the click */
663 UPDOWN_DoAction (infoPtr, 1, infoPtr->Flags & FLAG_ARROW);
664
665 /* now capture all mouse messages */
666 SetCapture (infoPtr->Self);
667
668 /* and startup the first timer */
669 SetTimer(infoPtr->Self, TIMER_AUTOREPEAT, INITIAL_DELAY, 0);
670 }
671 break;
672
673 case WM_MOUSEMOVE:
674 /* save the flags to see if any got modified */
675 temp = infoPtr->Flags;
676
677 /* Now see which one is the 'active' arrow */
678 arrow = UPDOWN_GetArrowFromPoint (infoPtr, &rect, pt);
679
680 /* Update the flags if we are in/out */
681 infoPtr->Flags &= ~(FLAG_MOUSEIN | FLAG_ARROW);
682 if(arrow) {
683 infoPtr->Flags |= FLAG_MOUSEIN | arrow;
684 } else {
685 if(infoPtr->AccelIndex != -1) infoPtr->AccelIndex = 0;
686 }
687
688 /* If state changed, redraw the control */
689 if(temp != infoPtr->Flags)
690 InvalidateRect (infoPtr->Self, &rect, FALSE);
691 break;
692
693 default:
694 ERR("Impossible case (msg=%x)!\n", msg);
695 }
696
697}
698
699/***********************************************************************
700 * UpDownWndProc
701 */
702static LRESULT WINAPI UpDownWindowProc(HWND hwnd, UINT message, WPARAM wParam,
703 LPARAM lParam)
704{
705 UPDOWN_INFO *infoPtr = UPDOWN_GetInfoPtr (hwnd);
706 DWORD dwStyle = GetWindowLongW (hwnd, GWL_STYLE);
707 int temp;
708
709 if (!infoPtr && (message != WM_CREATE))
710 return DefWindowProcW (hwnd, message, wParam, lParam);
711
712 switch(message)
713 {
714 case WM_CREATE:
715 SetWindowLongW (hwnd, GWL_STYLE, dwStyle & ~WS_BORDER);
716 infoPtr = (UPDOWN_INFO*)COMCTL32_Alloc (sizeof(UPDOWN_INFO));
717 SetWindowLongW (hwnd, 0, (DWORD)infoPtr);
718
719 /* initialize the info struct */
720 infoPtr->Self = hwnd;
721 infoPtr->AccelCount = 0;
722 infoPtr->AccelVect = 0;
723 infoPtr->AccelIndex = -1;
724 infoPtr->CurVal = 0;
725 infoPtr->MinVal = 0;
726 infoPtr->MaxVal = 9999;
727 infoPtr->Base = 10; /* Default to base 10 */
728 infoPtr->Buddy = 0; /* No buddy window yet */
729 infoPtr->Flags = 0; /* And no flags */
730
731 /* Do we pick the buddy win ourselves? */
732 if (dwStyle & UDS_AUTOBUDDY)
733 UPDOWN_SetBuddy (infoPtr, GetWindow (hwnd, GW_HWNDPREV));
734
735 TRACE("UpDown Ctrl creation, hwnd=%p\n", hwnd);
736 break;
737
738 case WM_DESTROY:
739 if(infoPtr->AccelVect) COMCTL32_Free (infoPtr->AccelVect);
740
741 if(infoPtr->Buddy) RemovePropA(infoPtr->Buddy, BUDDY_UPDOWN_HWND);
742
743 COMCTL32_Free (infoPtr);
744 SetWindowLongW (hwnd, 0, 0);
745 TRACE("UpDown Ctrl destruction, hwnd=%p\n", hwnd);
746 break;
747
748 case WM_ENABLE:
749 if (dwStyle & WS_DISABLED) UPDOWN_CancelMode (infoPtr);
750 InvalidateRect (infoPtr->Self, NULL, FALSE);
751 break;
752
753 case WM_TIMER:
754 /* is this the auto-press timer? */
755 if(wParam == TIMER_AUTOPRESS) {
756 KillTimer(hwnd, TIMER_AUTOPRESS);
757 infoPtr->Flags &= ~(FLAG_PRESSED | FLAG_ARROW);
758 InvalidateRect(infoPtr->Self, NULL, FALSE);
759 }
760
761 /* if initial timer, kill it and start the repeat timer */
762 if(wParam == TIMER_AUTOREPEAT) {
763 KillTimer(hwnd, TIMER_AUTOREPEAT);
764 /* if no accel info given, used default timer */
765 if(infoPtr->AccelCount==0 || infoPtr->AccelVect==0) {
766 infoPtr->AccelIndex = -1;
767 temp = REPEAT_DELAY;
768 } else {
769 infoPtr->AccelIndex = 0; /* otherwise, use it */
770 temp = infoPtr->AccelVect[infoPtr->AccelIndex].nSec * 1000 + 1;
771 }
772 SetTimer(hwnd, TIMER_ACCEL, temp, 0);
773 }
774
775 /* now, if the mouse is above us, do the thing...*/
776 if(infoPtr->Flags & FLAG_MOUSEIN) {
777 temp = infoPtr->AccelIndex == -1 ? 1 : infoPtr->AccelVect[infoPtr->AccelIndex].nInc;
778 UPDOWN_DoAction(infoPtr, temp, infoPtr->Flags & FLAG_ARROW);
779
780 if(infoPtr->AccelIndex != -1 && infoPtr->AccelIndex < infoPtr->AccelCount-1) {
781 KillTimer(hwnd, TIMER_ACCEL);
782 infoPtr->AccelIndex++; /* move to the next accel info */
783 temp = infoPtr->AccelVect[infoPtr->AccelIndex].nSec * 1000 + 1;
784 /* make sure we have at least 1ms intervals */
785 SetTimer(hwnd, TIMER_ACCEL, temp, 0);
786 }
787 }
788 break;
789
790 case WM_CANCELMODE:
791 return UPDOWN_CancelMode (infoPtr);
792
793 case WM_LBUTTONUP:
794 if (GetCapture() != infoPtr->Self) break;
795
796 if ( (infoPtr->Flags & FLAG_MOUSEIN) &&
797 (infoPtr->Flags & FLAG_ARROW) ) {
798
799 SendMessageW( GetParent(hwnd),
800 dwStyle & UDS_HORZ ? WM_HSCROLL : WM_VSCROLL,
801 MAKELONG(SB_ENDSCROLL, infoPtr->CurVal),
802 (LPARAM)hwnd);
803 if (UPDOWN_IsBuddyEdit(infoPtr))
804 SendMessageW(infoPtr->Buddy, EM_SETSEL, 0, MAKELONG(0, -1));
805 }
806 UPDOWN_CancelMode(infoPtr);
807 break;
808
809 case WM_LBUTTONDOWN:
810 case WM_MOUSEMOVE:
811 if(UPDOWN_IsEnabled(infoPtr))
812 UPDOWN_HandleMouseEvent (infoPtr, message, MAKEPOINTS(lParam));
813 break;
814
815 case WM_KEYDOWN:
816 if((dwStyle & UDS_ARROWKEYS) && UPDOWN_IsEnabled(infoPtr))
817 return UPDOWN_KeyPressed(infoPtr, (int)wParam);
818 break;
819
820 case WM_PAINT:
821 return UPDOWN_Paint (infoPtr, (HDC)wParam);
822
823 case UDM_GETACCEL:
824 if (wParam==0 && lParam==0) return infoPtr->AccelCount;
825 if (wParam && lParam) {
826 temp = min(infoPtr->AccelCount, wParam);
827 memcpy((void *)lParam, infoPtr->AccelVect, temp*sizeof(UDACCEL));
828 return temp;
829 }
830 return 0;
831
832 case UDM_SETACCEL:
833 TRACE("UpDown Ctrl new accel info, hwnd=%p\n", hwnd);
834 if(infoPtr->AccelVect) {
835 COMCTL32_Free (infoPtr->AccelVect);
836 infoPtr->AccelCount = 0;
837 infoPtr->AccelVect = 0;
838 }
839 if(wParam==0) return TRUE;
840 infoPtr->AccelVect = COMCTL32_Alloc (wParam*sizeof(UDACCEL));
841 if(infoPtr->AccelVect == 0) return FALSE;
842 memcpy(infoPtr->AccelVect, (void*)lParam, wParam*sizeof(UDACCEL));
843 return TRUE;
844
845 case UDM_GETBASE:
846 return infoPtr->Base;
847
848 case UDM_SETBASE:
849 TRACE("UpDown Ctrl new base(%d), hwnd=%p\n", wParam, hwnd);
850 if (wParam==10 || wParam==16) {
851 temp = infoPtr->Base;
852 infoPtr->Base = wParam;
853 return temp;
854 }
855 break;
856
857 case UDM_GETBUDDY:
858 return (LRESULT)infoPtr->Buddy;
859
860 case UDM_SETBUDDY:
861 temp = (int)infoPtr->Buddy;
862 UPDOWN_SetBuddy (infoPtr, (HWND)wParam);
863 return temp;
864
865 case UDM_GETPOS:
866 temp = UPDOWN_GetBuddyInt (infoPtr);
867 return MAKELONG(infoPtr->CurVal, temp ? 0 : 1);
868
869 case UDM_SETPOS:
870 temp = SLOWORD(lParam);
871 TRACE("UpDown Ctrl new value(%d), hwnd=%p\n", temp, hwnd);
872 if(!UPDOWN_InBounds(infoPtr, temp)) {
873 if(temp < infoPtr->MinVal) temp = infoPtr->MinVal;
874 if(temp > infoPtr->MaxVal) temp = infoPtr->MaxVal;
875 }
876 wParam = infoPtr->CurVal;
877 infoPtr->CurVal = temp;
878 if(dwStyle & UDS_SETBUDDYINT) UPDOWN_SetBuddyInt (infoPtr);
879 return wParam; /* return prev value */
880
881 case UDM_GETRANGE:
882 return MAKELONG(infoPtr->MaxVal, infoPtr->MinVal);
883
884 case UDM_SETRANGE:
885 /* we must have: */
886 infoPtr->MaxVal = SLOWORD(lParam); /* UD_MINVAL <= Max <= UD_MAXVAL */
887 infoPtr->MinVal = SHIWORD(lParam); /* UD_MINVAL <= Min <= UD_MAXVAL */
888 /* |Max-Min| <= UD_MAXVAL */
889 TRACE("UpDown Ctrl new range(%d to %d), hwnd=%p\n",
890 infoPtr->MinVal, infoPtr->MaxVal, hwnd);
891 break;
892
893 case UDM_GETRANGE32:
894 if (wParam) *(LPINT)wParam = infoPtr->MinVal;
895 if (lParam) *(LPINT)lParam = infoPtr->MaxVal;
896 break;
897
898 case UDM_SETRANGE32:
899 infoPtr->MinVal = (INT)wParam;
900 infoPtr->MaxVal = (INT)lParam;
901 if (infoPtr->MaxVal <= infoPtr->MinVal)
902 infoPtr->MaxVal = infoPtr->MinVal + 1;
903 TRACE("UpDown Ctrl new range(%d to %d), hwnd=%p\n",
904 infoPtr->MinVal, infoPtr->MaxVal, hwnd);
905 break;
906
907 case UDM_GETPOS32:
908 if ((LPBOOL)lParam != NULL) *((LPBOOL)lParam) = TRUE;
909 return infoPtr->CurVal;
910
911 case UDM_SETPOS32:
912 if(!UPDOWN_InBounds(infoPtr, (int)lParam)) {
913 if((int)lParam < infoPtr->MinVal) lParam = infoPtr->MinVal;
914 if((int)lParam > infoPtr->MaxVal) lParam = infoPtr->MaxVal;
915 }
916 temp = infoPtr->CurVal; /* save prev value */
917 infoPtr->CurVal = (int)lParam; /* set the new value */
918 if(dwStyle & UDS_SETBUDDYINT) UPDOWN_SetBuddyInt (infoPtr);
919 return temp; /* return prev value */
920
921 case UDM_GETUNICODEFORMAT:
922 /* we lie a bit here, we're always using Unicode internally */
923 return infoPtr->UnicodeFormat;
924
925 case UDM_SETUNICODEFORMAT:
926 /* do we really need to honour this flag? */
927 temp = infoPtr->UnicodeFormat;
928 infoPtr->UnicodeFormat = (BOOL)wParam;
929 return temp;
930
931 default:
932 if ((message >= WM_USER) && (message < WM_APP))
933 ERR("unknown msg %04x wp=%04x lp=%08lx\n", message, wParam, lParam);
934 return DefWindowProcW (hwnd, message, wParam, lParam);
935 }
936
937 return 0;
938}
939
940/***********************************************************************
941 * UPDOWN_Register [Internal]
942 *
943 * Registers the updown window class.
944 */
945void UPDOWN_Register(void)
946{
947 WNDCLASSW wndClass;
948
949 ZeroMemory( &wndClass, sizeof( WNDCLASSW ) );
950 wndClass.style = CS_GLOBALCLASS | CS_VREDRAW;
951 wndClass.lpfnWndProc = (WNDPROC)UpDownWindowProc;
952 wndClass.cbClsExtra = 0;
953 wndClass.cbWndExtra = sizeof(UPDOWN_INFO*);
954 wndClass.hCursor = LoadCursorW( 0, IDC_ARROWW );
955 wndClass.hbrBackground = (HBRUSH)(COLOR_3DFACE + 1);
956 wndClass.lpszClassName = UPDOWN_CLASSW;
957
958 RegisterClassW( &wndClass );
959}
960
961
962/***********************************************************************
963 * UPDOWN_Unregister [Internal]
964 *
965 * Unregisters the updown window class.
966 */
967void UPDOWN_Unregister (void)
968{
969 UnregisterClassW (UPDOWN_CLASSW, (HINSTANCE)NULL);
970}
Note: See TracBrowser for help on using the repository browser.