4 * Copyright 1997, 2002 Dimitrie O. Paun
5 * Copyright 1998, 1999 Eric Kohl
7 * This library is free software; you can redistribute it and/or
8 * modify it under the terms of the GNU Lesser General Public
9 * License as published by the Free Software Foundation; either
10 * version 2.1 of the License, or (at your option) any later version.
12 * This library is distributed in the hope that it will be useful,
13 * but WITHOUT ANY WARRANTY; without even the implied warranty of
14 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 * Lesser General Public License for more details.
17 * You should have received a copy of the GNU Lesser General Public
18 * License along with this library; if not, write to the Free Software
19 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
23 * This code was audited for completeness against the documented features
24 * of Comctl32.dll version 6.0 on Sep. 9, 2002, by Dimitrie O. Paun.
26 * Unless otherwise noted, we believe this code to be complete, as per
27 * the specification mentioned above.
28 * If you discover missing features, or bugs, please note them below.
41 #include "wine/debug.h"
43 WINE_DEFAULT_DEBUG_CHANNEL(progress
);
47 HWND Self
; /* The window handle for this control */
48 INT CurVal
; /* Current progress value */
49 INT MinVal
; /* Minimum progress value */
50 INT MaxVal
; /* Maximum progress value */
51 INT Step
; /* Step to use on PMB_STEPIT */
52 INT MarqueePos
; /* Marquee animation position */
53 BOOL Marquee
; /* Whether the marquee animation is enabled */
54 COLORREF ColorBar
; /* Bar color */
55 COLORREF ColorBk
; /* Background color */
56 HFONT Font
; /* Handle to font (not unused) */
59 /* Control configuration constants */
62 #define MARQUEE_LEDS 5
63 #define ID_MARQUEE_TIMER 1
65 /***********************************************************************
68 * Invalide the range between old and new pos.
70 static void PROGRESS_Invalidate( PROGRESS_INFO
*infoPtr
, INT old
, INT
new )
72 LONG style
= GetWindowLongW (infoPtr
->Self
, GWL_STYLE
);
74 int oldPos
, newPos
, ledWidth
;
76 GetClientRect (infoPtr
->Self
, &rect
);
77 InflateRect(&rect
, -1, -1);
79 if (style
& PBS_VERTICAL
)
81 oldPos
= rect
.bottom
- MulDiv (old
- infoPtr
->MinVal
, rect
.bottom
- rect
.top
,
82 infoPtr
->MaxVal
- infoPtr
->MinVal
);
83 newPos
= rect
.bottom
- MulDiv (new - infoPtr
->MinVal
, rect
.bottom
- rect
.top
,
84 infoPtr
->MaxVal
- infoPtr
->MinVal
);
85 ledWidth
= MulDiv (rect
.right
- rect
.left
, 2, 3);
86 rect
.top
= min( oldPos
, newPos
);
87 rect
.bottom
= max( oldPos
, newPos
);
88 if (!(style
& PBS_SMOOTH
)) rect
.top
-= ledWidth
;
89 InvalidateRect( infoPtr
->Self
, &rect
, oldPos
< newPos
);
93 oldPos
= rect
.left
+ MulDiv (old
- infoPtr
->MinVal
, rect
.right
- rect
.left
,
94 infoPtr
->MaxVal
- infoPtr
->MinVal
);
95 newPos
= rect
.left
+ MulDiv (new - infoPtr
->MinVal
, rect
.right
- rect
.left
,
96 infoPtr
->MaxVal
- infoPtr
->MinVal
);
97 ledWidth
= MulDiv (rect
.bottom
- rect
.top
, 2, 3);
98 rect
.left
= min( oldPos
, newPos
);
99 rect
.right
= max( oldPos
, newPos
);
100 if (!(style
& PBS_SMOOTH
)) rect
.right
+= ledWidth
;
101 InvalidateRect( infoPtr
->Self
, &rect
, oldPos
> newPos
);
106 /***********************************************************************
108 * Draws the progress bar.
110 static LRESULT
PROGRESS_Draw (PROGRESS_INFO
*infoPtr
, HDC hdc
)
112 HBRUSH hbrBar
, hbrBk
;
113 int rightBar
, rightMost
, ledWidth
;
117 TRACE("(infoPtr=%p, hdc=%p)\n", infoPtr
, hdc
);
119 /* get the required bar brush */
120 if (infoPtr
->ColorBar
== CLR_DEFAULT
)
121 hbrBar
= GetSysColorBrush(COLOR_HIGHLIGHT
);
123 hbrBar
= CreateSolidBrush (infoPtr
->ColorBar
);
125 if (infoPtr
->ColorBk
== CLR_DEFAULT
)
126 hbrBk
= GetSysColorBrush(COLOR_3DFACE
);
128 hbrBk
= CreateSolidBrush(infoPtr
->ColorBk
);
130 /* get client rectangle */
131 GetClientRect (infoPtr
->Self
, &rect
);
132 FrameRect( hdc
, &rect
, hbrBk
);
133 InflateRect(&rect
, -1, -1);
135 /* get the window style */
136 dwStyle
= GetWindowLongW (infoPtr
->Self
, GWL_STYLE
);
138 /* compute extent of progress bar */
139 if (dwStyle
& PBS_VERTICAL
) {
140 rightBar
= rect
.bottom
-
141 MulDiv (infoPtr
->CurVal
- infoPtr
->MinVal
,
142 rect
.bottom
- rect
.top
,
143 infoPtr
->MaxVal
- infoPtr
->MinVal
);
144 ledWidth
= MulDiv (rect
.right
- rect
.left
, 2, 3);
145 rightMost
= rect
.top
;
147 rightBar
= rect
.left
+
148 MulDiv (infoPtr
->CurVal
- infoPtr
->MinVal
,
149 rect
.right
- rect
.left
,
150 infoPtr
->MaxVal
- infoPtr
->MinVal
);
151 ledWidth
= MulDiv (rect
.bottom
- rect
.top
, 2, 3);
152 rightMost
= rect
.right
;
155 /* now draw the bar */
156 if (dwStyle
& PBS_SMOOTH
)
158 if (dwStyle
& PBS_VERTICAL
)
160 if (dwStyle
& PBS_MARQUEE
)
162 INT old_top
, old_bottom
, ledMStart
, leds
;
164 old_bottom
= rect
.bottom
;
166 leds
= rect
.bottom
- rect
.top
;
167 ledMStart
= (infoPtr
->MarqueePos
+ MARQUEE_LEDS
) - leds
;
171 rect
.top
= max(rect
.bottom
- ledMStart
, old_top
);
172 FillRect(hdc
, &rect
, hbrBar
);
173 rect
.bottom
= rect
.top
;
175 if(infoPtr
->MarqueePos
> 0)
177 rect
.top
= max(old_bottom
- infoPtr
->MarqueePos
, old_top
);
178 FillRect(hdc
, &rect
, hbrBk
);
179 rect
.bottom
= rect
.top
;
181 if(rect
.top
>= old_top
)
183 rect
.top
= max(rect
.bottom
- MARQUEE_LEDS
, old_top
);
184 FillRect(hdc
, &rect
, hbrBar
);
185 rect
.bottom
= rect
.top
;
187 if(rect
.top
>= old_top
)
190 FillRect(hdc
, &rect
, hbrBk
);
195 INT old_top
= rect
.top
;
197 FillRect(hdc
, &rect
, hbrBar
);
198 rect
.bottom
= rect
.top
;
200 FillRect(hdc
, &rect
, hbrBk
);
205 if (dwStyle
& PBS_MARQUEE
)
207 INT old_left
, old_right
, ledMStart
, leds
;
208 old_left
= rect
.left
;
209 old_right
= rect
.right
;
211 leds
= rect
.right
- rect
.left
;
212 ledMStart
= (infoPtr
->MarqueePos
+ MARQUEE_LEDS
) - leds
;
213 rect
.right
= rect
.left
;
217 rect
.right
= min(rect
.left
+ ledMStart
, old_right
);
218 FillRect(hdc
, &rect
, hbrBar
);
219 rect
.left
= rect
.right
;
221 if(infoPtr
->MarqueePos
> 0)
223 rect
.right
= min(old_left
+ infoPtr
->MarqueePos
, old_right
);
224 FillRect(hdc
, &rect
, hbrBk
);
225 rect
.left
= rect
.right
;
227 if(rect
.right
< old_right
)
229 rect
.right
= min(rect
.left
+ MARQUEE_LEDS
, old_right
);
230 FillRect(hdc
, &rect
, hbrBar
);
231 rect
.left
= rect
.right
;
233 if(rect
.right
< old_right
)
235 rect
.right
= old_right
;
236 FillRect(hdc
, &rect
, hbrBk
);
241 INT old_right
= rect
.right
;
242 rect
.right
= rightBar
;
243 FillRect(hdc
, &rect
, hbrBar
);
244 rect
.left
= rect
.right
;
245 rect
.right
= old_right
;
246 FillRect(hdc
, &rect
, hbrBk
);
250 if (dwStyle
& PBS_VERTICAL
) {
251 if (dwStyle
& PBS_MARQUEE
)
253 INT i
, old_top
, old_bottom
, ledMStart
, leds
;
255 old_bottom
= rect
.bottom
;
257 leds
= ((rect
.bottom
- rect
.top
) + (ledWidth
+ LED_GAP
) - 1) / (ledWidth
+ LED_GAP
);
258 ledMStart
= (infoPtr
->MarqueePos
+ MARQUEE_LEDS
) - leds
;
262 rect
.top
= max(rect
.bottom
- ledWidth
, old_top
);
263 FillRect(hdc
, &rect
, hbrBar
);
264 rect
.bottom
= rect
.top
;
266 if (rect
.top
<= old_top
) break;
267 FillRect(hdc
, &rect
, hbrBk
);
268 rect
.bottom
= rect
.top
;
271 if(infoPtr
->MarqueePos
> 0)
273 rect
.top
= max(old_bottom
- (infoPtr
->MarqueePos
* (ledWidth
+ LED_GAP
)), old_top
);
274 FillRect(hdc
, &rect
, hbrBk
);
275 rect
.bottom
= rect
.top
;
277 for(i
= 0; i
< MARQUEE_LEDS
&& rect
.top
>= old_top
; i
++)
279 rect
.top
= max(rect
.bottom
- ledWidth
, old_top
);
280 FillRect(hdc
, &rect
, hbrBar
);
281 rect
.bottom
= rect
.top
;
283 if (rect
.top
<= old_top
) break;
284 FillRect(hdc
, &rect
, hbrBk
);
285 rect
.bottom
= rect
.top
;
287 if(rect
.top
>= old_top
)
290 FillRect(hdc
, &rect
, hbrBk
);
295 while(rect
.bottom
> rightBar
) {
296 rect
.top
= rect
.bottom
- ledWidth
;
297 if (rect
.top
< rightMost
)
298 rect
.top
= rightMost
;
299 FillRect(hdc
, &rect
, hbrBar
);
300 rect
.bottom
= rect
.top
;
302 if (rect
.top
<= rightBar
) break;
303 FillRect(hdc
, &rect
, hbrBk
);
304 rect
.bottom
= rect
.top
;
307 rect
.top
= rightMost
;
308 FillRect(hdc
, &rect
, hbrBk
);
310 if (dwStyle
& PBS_MARQUEE
)
312 INT i
, old_right
, old_left
, ledMStart
, leds
;
313 old_left
= rect
.left
;
314 old_right
= rect
.right
;
316 leds
= ((rect
.right
- rect
.left
) + ledWidth
- 1) / (ledWidth
+ LED_GAP
);
317 ledMStart
= (infoPtr
->MarqueePos
+ MARQUEE_LEDS
) - leds
;
318 rect
.right
= rect
.left
;
322 rect
.right
= min(rect
.left
+ ledWidth
, old_right
);
323 FillRect(hdc
, &rect
, hbrBar
);
324 rect
.left
= rect
.right
;
325 rect
.right
+= LED_GAP
;
326 if (rect
.right
> old_right
) break;
327 FillRect(hdc
, &rect
, hbrBk
);
328 rect
.left
= rect
.right
;
331 if(infoPtr
->MarqueePos
> 0)
333 rect
.right
= min(old_left
+ (infoPtr
->MarqueePos
* (ledWidth
+ LED_GAP
)), old_right
);
334 FillRect(hdc
, &rect
, hbrBk
);
335 rect
.left
= rect
.right
;
337 for(i
= 0; i
< MARQUEE_LEDS
&& rect
.right
< old_right
; i
++)
339 rect
.right
= min(rect
.left
+ ledWidth
, old_right
);
340 FillRect(hdc
, &rect
, hbrBar
);
341 rect
.left
= rect
.right
;
342 rect
.right
+= LED_GAP
;
343 if (rect
.right
> old_right
) break;
344 FillRect(hdc
, &rect
, hbrBk
);
345 rect
.left
= rect
.right
;
347 if(rect
.right
< old_right
)
349 rect
.right
= old_right
;
350 FillRect(hdc
, &rect
, hbrBk
);
355 while(rect
.left
< rightBar
) {
356 rect
.right
= rect
.left
+ ledWidth
;
357 if (rect
.right
> rightMost
)
358 rect
.right
= rightMost
;
359 FillRect(hdc
, &rect
, hbrBar
);
360 rect
.left
= rect
.right
;
361 rect
.right
+= LED_GAP
;
362 if (rect
.right
>= rightBar
) break;
363 FillRect(hdc
, &rect
, hbrBk
);
364 rect
.left
= rect
.right
;
366 rect
.right
= rightMost
;
367 FillRect(hdc
, &rect
, hbrBk
);
372 /* delete bar brush */
373 if (infoPtr
->ColorBar
!= CLR_DEFAULT
) DeleteObject (hbrBar
);
374 if (infoPtr
->ColorBk
!= CLR_DEFAULT
) DeleteObject (hbrBk
);
380 /***********************************************************************
382 * Draw the progress bar. The background need not be erased.
383 * If dc!=0, it draws on it
385 static LRESULT
PROGRESS_Paint (PROGRESS_INFO
*infoPtr
, HDC hdc
)
388 if (hdc
) return PROGRESS_Draw (infoPtr
, hdc
);
389 hdc
= BeginPaint (infoPtr
->Self
, &ps
);
390 PROGRESS_Draw (infoPtr
, hdc
);
391 EndPaint (infoPtr
->Self
, &ps
);
396 /***********************************************************************
398 * Handle the marquee timer messages
400 static LRESULT
PROGRESS_Timer (PROGRESS_INFO
*infoPtr
, INT idTimer
)
402 if(idTimer
== ID_MARQUEE_TIMER
)
404 LONG style
= GetWindowLongW (infoPtr
->Self
, GWL_STYLE
);
408 GetClientRect (infoPtr
->Self
, &rect
);
409 InflateRect(&rect
, -1, -1);
411 if(!(style
& PBS_SMOOTH
))
415 if(style
& PBS_VERTICAL
)
417 width
= rect
.bottom
- rect
.top
;
418 height
= rect
.right
- rect
.left
;
422 height
= rect
.bottom
- rect
.top
;
423 width
= rect
.right
- rect
.left
;
425 ledWidth
= MulDiv (height
, 2, 3);
426 leds
= (width
+ ledWidth
- 1) / (ledWidth
+ LED_GAP
);
431 if(style
& PBS_VERTICAL
)
433 leds
= rect
.bottom
- rect
.top
;
437 leds
= rect
.right
- rect
.left
;
441 /* increment the marquee progress */
442 if(++infoPtr
->MarqueePos
>= leds
)
444 infoPtr
->MarqueePos
= 0;
447 InvalidateRect(infoPtr
->Self
, &rect
, TRUE
);
453 /***********************************************************************
455 * Makes sure the current position (CurVal) is within bounds.
457 static void PROGRESS_CoercePos(PROGRESS_INFO
*infoPtr
)
459 if(infoPtr
->CurVal
< infoPtr
->MinVal
)
460 infoPtr
->CurVal
= infoPtr
->MinVal
;
461 if(infoPtr
->CurVal
> infoPtr
->MaxVal
)
462 infoPtr
->CurVal
= infoPtr
->MaxVal
;
466 /***********************************************************************
468 * Set new Font for progress bar
470 static HFONT
PROGRESS_SetFont (PROGRESS_INFO
*infoPtr
, HFONT hFont
, BOOL bRedraw
)
472 HFONT hOldFont
= infoPtr
->Font
;
473 infoPtr
->Font
= hFont
;
474 /* Since infoPtr->Font is not used, there is no need for repaint */
478 static DWORD
PROGRESS_SetRange (PROGRESS_INFO
*infoPtr
, int low
, int high
)
480 DWORD res
= MAKELONG(LOWORD(infoPtr
->MinVal
), LOWORD(infoPtr
->MaxVal
));
482 /* if nothing changes, simply return */
483 if(infoPtr
->MinVal
== low
&& infoPtr
->MaxVal
== high
) return res
;
485 infoPtr
->MinVal
= low
;
486 infoPtr
->MaxVal
= high
;
487 PROGRESS_CoercePos(infoPtr
);
488 InvalidateRect(infoPtr
->Self
, NULL
, TRUE
);
492 /***********************************************************************
495 static LRESULT WINAPI
ProgressWindowProc(HWND hwnd
, UINT message
,
496 WPARAM wParam
, LPARAM lParam
)
498 PROGRESS_INFO
*infoPtr
;
500 TRACE("hwnd=%p msg=%04x wparam=%x lParam=%lx\n", hwnd
, message
, wParam
, lParam
);
502 infoPtr
= (PROGRESS_INFO
*)GetWindowLongPtrW(hwnd
, 0);
504 if (!infoPtr
&& message
!= WM_CREATE
)
505 return DefWindowProcW( hwnd
, message
, wParam
, lParam
);
510 DWORD dwExStyle
= GetWindowLongW (hwnd
, GWL_EXSTYLE
);
511 dwExStyle
&= ~(WS_EX_CLIENTEDGE
| WS_EX_WINDOWEDGE
);
512 dwExStyle
|= WS_EX_STATICEDGE
;
513 SetWindowLongW (hwnd
, GWL_EXSTYLE
, dwExStyle
);
514 /* Force recalculation of a non-client area */
515 SetWindowPos(hwnd
, 0, 0, 0, 0, 0,
516 SWP_FRAMECHANGED
| SWP_NOSIZE
| SWP_NOMOVE
| SWP_NOZORDER
| SWP_NOACTIVATE
);
518 /* allocate memory for info struct */
519 infoPtr
= (PROGRESS_INFO
*)Alloc (sizeof(PROGRESS_INFO
));
520 if (!infoPtr
) return -1;
521 SetWindowLongPtrW (hwnd
, 0, (DWORD_PTR
)infoPtr
);
523 /* initialize the info struct */
524 infoPtr
->Self
= hwnd
;
526 infoPtr
->MaxVal
= 100;
529 infoPtr
->MarqueePos
= 0;
530 infoPtr
->Marquee
= FALSE
;
531 infoPtr
->ColorBar
= CLR_DEFAULT
;
532 infoPtr
->ColorBk
= CLR_DEFAULT
;
534 TRACE("Progress Ctrl creation, hwnd=%p\n", hwnd
);
539 TRACE("Progress Ctrl destruction, hwnd=%p\n", hwnd
);
541 SetWindowLongPtrW(hwnd
, 0, 0);
545 return (LRESULT
)infoPtr
->Font
;
548 return (LRESULT
)PROGRESS_SetFont(infoPtr
, (HFONT
)wParam
, (BOOL
)lParam
);
551 return PROGRESS_Paint (infoPtr
, (HDC
)wParam
);
554 return PROGRESS_Timer (infoPtr
, (INT
)wParam
);
559 oldVal
= infoPtr
->CurVal
;
561 infoPtr
->CurVal
+= (INT
)wParam
;
562 PROGRESS_CoercePos (infoPtr
);
563 TRACE("PBM_DELTAPOS: current pos changed from %d to %d\n", oldVal
, infoPtr
->CurVal
);
564 PROGRESS_Invalidate( infoPtr
, oldVal
, infoPtr
->CurVal
);
572 oldVal
= infoPtr
->CurVal
;
573 if(oldVal
!= wParam
) {
574 infoPtr
->CurVal
= (INT
)wParam
;
575 PROGRESS_CoercePos(infoPtr
);
576 TRACE("PBM_SETPOS: current pos changed from %d to %d\n", oldVal
, infoPtr
->CurVal
);
577 PROGRESS_Invalidate( infoPtr
, oldVal
, infoPtr
->CurVal
);
583 return PROGRESS_SetRange (infoPtr
, (int)LOWORD(lParam
), (int)HIWORD(lParam
));
588 oldStep
= infoPtr
->Step
;
589 infoPtr
->Step
= (INT
)wParam
;
596 oldVal
= infoPtr
->CurVal
;
597 infoPtr
->CurVal
+= infoPtr
->Step
;
598 if(infoPtr
->CurVal
> infoPtr
->MaxVal
)
599 infoPtr
->CurVal
= infoPtr
->MinVal
;
600 if(oldVal
!= infoPtr
->CurVal
)
602 TRACE("PBM_STEPIT: current pos changed from %d to %d\n", oldVal
, infoPtr
->CurVal
);
603 PROGRESS_Invalidate( infoPtr
, oldVal
, infoPtr
->CurVal
);
609 return PROGRESS_SetRange (infoPtr
, (int)wParam
, (int)lParam
);
613 ((PPBRANGE
)lParam
)->iLow
= infoPtr
->MinVal
;
614 ((PPBRANGE
)lParam
)->iHigh
= infoPtr
->MaxVal
;
616 return wParam
? infoPtr
->MinVal
: infoPtr
->MaxVal
;
619 return infoPtr
->CurVal
;
621 case PBM_SETBARCOLOR
:
622 infoPtr
->ColorBar
= (COLORREF
)lParam
;
623 InvalidateRect(hwnd
, NULL
, TRUE
);
627 infoPtr
->ColorBk
= (COLORREF
)lParam
;
628 InvalidateRect(hwnd
, NULL
, TRUE
);
634 infoPtr
->Marquee
= TRUE
;
635 SetTimer(infoPtr
->Self
, ID_MARQUEE_TIMER
, (UINT
)lParam
, NULL
);
639 infoPtr
->Marquee
= FALSE
;
640 KillTimer(infoPtr
->Self
, ID_MARQUEE_TIMER
);
642 return infoPtr
->Marquee
;
645 if ((message
>= WM_USER
) && (message
< WM_APP
))
646 ERR("unknown msg %04x wp=%04x lp=%08lx\n", message
, wParam
, lParam
);
647 return DefWindowProcW( hwnd
, message
, wParam
, lParam
);
652 /***********************************************************************
653 * PROGRESS_Register [Internal]
655 * Registers the progress bar window class.
657 VOID
PROGRESS_Register (void)
661 ZeroMemory (&wndClass
, sizeof(wndClass
));
662 wndClass
.style
= CS_GLOBALCLASS
| CS_VREDRAW
| CS_HREDRAW
;
663 wndClass
.lpfnWndProc
= (WNDPROC
)ProgressWindowProc
;
664 wndClass
.cbClsExtra
= 0;
665 wndClass
.cbWndExtra
= sizeof (PROGRESS_INFO
*);
666 wndClass
.hCursor
= LoadCursorW (0, (LPWSTR
)IDC_ARROW
);
667 wndClass
.lpszClassName
= PROGRESS_CLASSW
;
669 RegisterClassW (&wndClass
);
673 /***********************************************************************
674 * PROGRESS_Unregister [Internal]
676 * Unregisters the progress bar window class.
678 VOID
PROGRESS_Unregister (void)
680 UnregisterClassW (PROGRESS_CLASSW
, NULL
);