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