1 /////////////////////////////////////////////////////////////////////////////
3 // Purpose: wxSlider95, using the Win95 trackbar control
4 // Author: Julian Smart
8 // Copyright: (c) Julian Smart
9 // Licence: wxWindows licence
10 /////////////////////////////////////////////////////////////////////////////
12 #if defined(__GNUG__) && !defined(NO_GCC_PRAGMA)
13 #pragma implementation "slider95.h"
16 // For compilers that support precompilation, includes "wx.h".
17 #include "wx/wxprec.h"
28 #include "wx/slider.h"
33 #include "wx/msw/slider95.h"
34 #include "wx/msw/private.h"
36 #if defined(__WIN95__) && !(defined(__GNUWIN32_OLD__) && !defined(__CYGWIN10__))
40 #if wxUSE_EXTENDED_RTTI
41 WX_DEFINE_FLAGS( wxSliderStyle
)
43 WX_BEGIN_FLAGS( wxSliderStyle
)
44 // new style border flags, we put them first to
45 // use them for streaming out
46 WX_FLAGS_MEMBER(wxBORDER_SIMPLE
)
47 WX_FLAGS_MEMBER(wxBORDER_SUNKEN
)
48 WX_FLAGS_MEMBER(wxBORDER_DOUBLE
)
49 WX_FLAGS_MEMBER(wxBORDER_RAISED
)
50 WX_FLAGS_MEMBER(wxBORDER_STATIC
)
51 WX_FLAGS_MEMBER(wxBORDER_NONE
)
53 // old style border flags
54 WX_FLAGS_MEMBER(wxSIMPLE_BORDER
)
55 WX_FLAGS_MEMBER(wxSUNKEN_BORDER
)
56 WX_FLAGS_MEMBER(wxDOUBLE_BORDER
)
57 WX_FLAGS_MEMBER(wxRAISED_BORDER
)
58 WX_FLAGS_MEMBER(wxSTATIC_BORDER
)
59 WX_FLAGS_MEMBER(wxNO_BORDER
)
61 // standard window styles
62 WX_FLAGS_MEMBER(wxTAB_TRAVERSAL
)
63 WX_FLAGS_MEMBER(wxCLIP_CHILDREN
)
64 WX_FLAGS_MEMBER(wxTRANSPARENT_WINDOW
)
65 WX_FLAGS_MEMBER(wxWANTS_CHARS
)
66 WX_FLAGS_MEMBER(wxNO_FULL_REPAINT_ON_RESIZE
)
67 WX_FLAGS_MEMBER(wxALWAYS_SHOW_SB
)
68 WX_FLAGS_MEMBER(wxVSCROLL
)
69 WX_FLAGS_MEMBER(wxHSCROLL
)
71 WX_FLAGS_MEMBER(wxSL_HORIZONTAL
)
72 WX_FLAGS_MEMBER(wxSL_VERTICAL
)
73 WX_FLAGS_MEMBER(wxSL_AUTOTICKS
)
74 WX_FLAGS_MEMBER(wxSL_LABELS
)
75 WX_FLAGS_MEMBER(wxSL_LEFT
)
76 WX_FLAGS_MEMBER(wxSL_TOP
)
77 WX_FLAGS_MEMBER(wxSL_RIGHT
)
78 WX_FLAGS_MEMBER(wxSL_BOTTOM
)
79 WX_FLAGS_MEMBER(wxSL_BOTH
)
80 WX_FLAGS_MEMBER(wxSL_SELRANGE
)
82 WX_END_FLAGS( wxSliderStyle
)
84 IMPLEMENT_DYNAMIC_CLASS_XTI(wxSlider95
, wxControl
,"wx/scrolbar.h")
86 WX_BEGIN_PROPERTIES_TABLE(wxSlider95
)
87 WX_DELEGATE_RANGE( OnScroll
, wxEVT_SCROLL_TOP
, wxEVT_SCROLL_ENDSCROLL
, wxScrollEvent
)
88 WX_DELEGATE( OnUpdated
, wxEVT_COMMAND_SLIDER_UPDATED
, wxCommandEvent
)
90 WX_PROPERTY( Value
, int , SetValue
, GetValue
, 0, 0 /*flags*/ , wxT("Helpstring") , wxT("group"))
91 WX_PROPERTY( Minimum
, int , SetMin
, GetMin
, 0 , 0 /*flags*/ , wxT("Helpstring") , wxT("group"))
92 WX_PROPERTY( Maximum
, int , SetMax
, GetMax
, 0 , 0 /*flags*/ , wxT("Helpstring") , wxT("group"))
93 WX_PROPERTY( PageSize
, int , SetPageSize
, GetLineSize
, 1 , 0 /*flags*/ , wxT("Helpstring") , wxT("group"))
94 WX_PROPERTY( LineSize
, int , SetLineSize
, GetLineSize
, 1 , 0 /*flags*/ , wxT("Helpstring") , wxT("group"))
95 WX_PROPERTY( ThumbLength
, int , SetThumbLength
, GetThumbLength
, 1 , 0 /*flags*/ , wxT("Helpstring") , wxT("group"))
96 WX_PROPERTY_FLAGS( WindowStyle
, wxSliderStyle
, long , SetWindowStyleFlag
, GetWindowStyleFlag
, , 0 /*flags*/ , wxT("Helpstring") , wxT("group")) // style
97 WX_END_PROPERTIES_TABLE()
99 WX_BEGIN_HANDLERS_TABLE(wxSlider95
)
100 WX_END_HANDLERS_TABLE()
102 WX_CONSTRUCTOR_8( wxSlider95
, wxWindow
* , Parent
, wxWindowID
, Id
, int , Value
, int , Minimum
, int , Maximum
, wxPoint
, Position
, wxSize
, Size
, long , WindowStyle
)
104 IMPLEMENT_DYNAMIC_CLASS(wxSlider95
, wxControl
)
108 wxSlider95::wxSlider95()
110 m_staticValue
= (WXHWND
) NULL
;
111 m_staticMin
= (WXHWND
) NULL
;
112 m_staticMax
= (WXHWND
) NULL
;
120 bool wxSlider95::Create(wxWindow
*parent
, wxWindowID id
,
121 int value
, int minValue
, int maxValue
,
123 const wxSize
& size
, long style
,
124 const wxValidator
& validator
,
125 const wxString
& name
)
127 if ( (style
& wxBORDER_MASK
) == wxBORDER_DEFAULT
)
128 style
|= wxBORDER_NONE
;
132 SetValidator(validator
);
133 #endif // wxUSE_VALIDATORS
135 if (parent
) parent
->AddChild(this);
137 SetBackgroundColour(parent
->GetBackgroundColour()) ;
138 SetForegroundColour(parent
->GetForegroundColour()) ;
140 m_staticValue
= (WXHWND
) NULL
;;
141 m_staticMin
= (WXHWND
) NULL
;;
142 m_staticMax
= (WXHWND
) NULL
;;
145 m_windowStyle
= style
;
149 m_windowId
= (int)NewControlId();
161 if ( m_windowStyle
& wxSL_LABELS
)
163 msStyle
|= SS_CENTER
;
166 long valueStyle
= m_windowStyle
& ~wxBORDER_MASK
;
167 valueStyle
|= wxBORDER_SUNKEN
;
168 msStyle
|= MSWGetStyle(valueStyle
, & exStyle
) ;
170 m_staticValue
= (WXHWND
) CreateWindowEx
172 exStyle
, wxT("STATIC"), NULL
,
174 0, 0, 0, 0, (HWND
) parent
->GetHWND(), (HMENU
)NewControlId(),
175 wxGetInstance(), NULL
178 // Now create min static control
180 minLabel
.Printf(wxT("%d"), minValue
);
181 wstyle
= STATIC_FLAGS
;
182 if ( m_windowStyle
& wxCLIP_SIBLINGS
)
183 msStyle
|= WS_CLIPSIBLINGS
;
184 m_staticMin
= (WXHWND
) CreateWindowEx
186 0, wxT("STATIC"), minLabel
,
188 0, 0, 0, 0, (HWND
) parent
->GetHWND(), (HMENU
)NewControlId(),
189 wxGetInstance(), NULL
195 msStyle
= MSWGetStyle(GetWindowStyle(), & exStyle
) ;
197 if (m_windowStyle
& wxSL_VERTICAL
)
198 msStyle
= TBS_VERT
| WS_CHILD
| WS_VISIBLE
| WS_TABSTOP
;
200 msStyle
= TBS_HORZ
| WS_CHILD
| WS_VISIBLE
| WS_TABSTOP
;
202 if ( m_windowStyle
& wxSL_AUTOTICKS
)
203 msStyle
|= TBS_AUTOTICKS
;
205 if ( m_windowStyle
& wxSL_LEFT
)
207 else if ( m_windowStyle
& wxSL_RIGHT
)
208 msStyle
|= TBS_RIGHT
;
209 else if ( m_windowStyle
& wxSL_TOP
)
211 else if ( m_windowStyle
& wxSL_BOTTOM
)
212 msStyle
|= TBS_BOTTOM
;
213 else if ( m_windowStyle
& wxSL_BOTH
)
215 else if ( ! (m_windowStyle
& wxSL_AUTOTICKS
) )
216 msStyle
|= TBS_NOTICKS
;
218 if ( m_windowStyle
& wxSL_SELRANGE
)
219 msStyle
|= TBS_ENABLESELRANGE
;
221 HWND scroll_bar
= CreateWindowEx
223 exStyle
, TRACKBAR_CLASS
, wxEmptyString
,
225 0, 0, 0, 0, (HWND
) parent
->GetHWND(), (HMENU
)m_windowId
,
226 wxGetInstance(), NULL
229 m_rangeMax
= maxValue
;
230 m_rangeMin
= minValue
;
232 m_pageSize
= (int)((maxValue
-minValue
)/10);
234 ::SendMessage(scroll_bar
, TBM_SETRANGE
, TRUE
, MAKELONG(minValue
, maxValue
));
235 ::SendMessage(scroll_bar
, TBM_SETPOS
, TRUE
, (LPARAM
)value
);
236 ::SendMessage(scroll_bar
, TBM_SETPAGESIZE
, 0, (LPARAM
)m_pageSize
);
238 m_hWnd
= (WXHWND
)scroll_bar
;
240 SubclassWin(GetHWND());
242 ::SetWindowText((HWND
) m_hWnd
, wxEmptyString
);
244 SetFont(parent
->GetFont());
246 if ( m_windowStyle
& wxSL_LABELS
)
248 // Finally, create max value static item
250 maxLabel
.Printf(wxT("%d"), maxValue
);
251 wstyle
= STATIC_FLAGS
;
253 if ( m_windowStyle
& wxCLIP_SIBLINGS
)
254 msStyle
|= WS_CLIPSIBLINGS
;
256 m_staticMax
= (WXHWND
) CreateWindowEx
258 0, wxT("STATIC"), maxLabel
,
260 0, 0, 0, 0, (HWND
) parent
->GetHWND(), (HMENU
)NewControlId(),
261 wxGetInstance(), NULL
267 if (GetFont().GetResourceHandle())
270 ::SendMessage((HWND
) m_staticMin
, WM_SETFONT
,
271 (WPARAM
) GetFont().GetResourceHandle(), 0L);
274 ::SendMessage((HWND
) m_staticMax
, WM_SETFONT
,
275 (WPARAM
) GetFont().GetResourceHandle(), 0L);
278 ::SendMessage((HWND
) m_staticValue
, WM_SETFONT
,
279 (WPARAM
) GetFont().GetResourceHandle(), 0L);
284 SetSize(x
, y
, width
, height
);
290 bool wxSlider95::MSWOnScroll(int WXUNUSED(orientation
), WXWORD wParam
,
291 WXWORD
WXUNUSED(pos
), WXHWND control
)
293 wxEventType scrollEvent
;
297 scrollEvent
= wxEVT_SCROLL_TOP
;
301 scrollEvent
= wxEVT_SCROLL_BOTTOM
;
305 scrollEvent
= wxEVT_SCROLL_LINEUP
;
309 scrollEvent
= wxEVT_SCROLL_LINEDOWN
;
313 scrollEvent
= wxEVT_SCROLL_PAGEUP
;
317 scrollEvent
= wxEVT_SCROLL_PAGEDOWN
;
321 scrollEvent
= wxEVT_SCROLL_THUMBTRACK
;
324 case SB_THUMBPOSITION
:
325 scrollEvent
= wxEVT_SCROLL_THUMBRELEASE
;
329 scrollEvent
= wxEVT_SCROLL_ENDSCROLL
;
333 // unknown scroll event?
337 int newPos
= (int) ::SendMessage((HWND
) control
, TBM_GETPOS
, 0, 0);
338 if ( (newPos
< GetMin()) || (newPos
> GetMax()) )
340 // out of range - but we did process it
346 wxScrollEvent
event(scrollEvent
, m_windowId
);
347 event
.SetPosition(newPos
);
348 event
.SetEventObject( this );
349 GetEventHandler()->ProcessEvent(event
);
351 wxCommandEvent
cevent( wxEVT_COMMAND_SLIDER_UPDATED
, GetId() );
352 cevent
.SetInt( newPos
);
353 cevent
.SetEventObject( this );
355 return GetEventHandler()->ProcessEvent( cevent
);
358 wxSlider95::~wxSlider95()
362 ::DestroyWindow((HWND
) m_staticMin
);
363 m_staticMin
= (WXHWND
) NULL
;
368 ::DestroyWindow((HWND
) m_staticMax
);
369 m_staticMax
= (WXHWND
) NULL
;
374 ::DestroyWindow((HWND
) m_staticValue
);
375 m_staticValue
= (WXHWND
) NULL
;
379 int wxSlider95::GetValue() const
381 return ::SendMessage(GetHwnd(), TBM_GETPOS
, 0, 0);
384 void wxSlider95::SetValue(int value
)
386 ::SendMessage(GetHwnd(), TBM_SETPOS
, (WPARAM
)TRUE
, (LPARAM
)value
);
391 str
.Printf(wxT("%d"), value
);
392 ::SetWindowText((HWND
) m_staticValue
, str
);
396 void wxSlider95::DoGetSize(int *width
, int *height
) const
398 GetSize(width
, height
);
401 void wxSlider95::GetSize(int *width
, int *height
) const
404 rect
.left
= -1; rect
.right
= -1; rect
.top
= -1; rect
.bottom
= -1;
406 wxFindMaxSize(GetHWND(), &rect
);
409 wxFindMaxSize(m_staticMin
, &rect
);
412 wxFindMaxSize(m_staticMax
, &rect
);
415 wxFindMaxSize(m_staticValue
, &rect
);
417 *width
= rect
.right
- rect
.left
;
418 *height
= rect
.bottom
- rect
.top
;
421 void wxSlider95::GetPosition(int *x
, int *y
) const
423 wxWindow
*parent
= GetParent();
425 rect
.left
= -1; rect
.right
= -1; rect
.top
= -1; rect
.bottom
= -1;
427 wxFindMaxSize(GetHWND(), &rect
);
430 wxFindMaxSize(m_staticMin
, &rect
);
432 wxFindMaxSize(m_staticMax
, &rect
);
434 wxFindMaxSize(m_staticValue
, &rect
);
436 // Since we now have the absolute screen coords,
437 // if there's a parent we must subtract its top left corner
442 ::ScreenToClient((HWND
) parent
->GetHWND(), &point
);
444 // We may be faking the client origin.
445 // So a window that's really at (0, 30) may appear
446 // (to wxWin apps) to be at (0, 0).
449 wxPoint
pt(GetParent()->GetClientAreaOrigin());
458 // TODO one day, make sense of all this horros and replace it with a readable
460 void wxSlider95::DoSetSize(int x
, int y
, int width
, int height
, int sizeFlags
)
467 int currentX
, currentY
;
468 GetPosition(¤tX
, ¤tY
);
469 if (x
== -1 && !(sizeFlags
& wxSIZE_ALLOW_MINUS_ONE
))
471 if (y
== -1 && !(sizeFlags
& wxSIZE_ALLOW_MINUS_ONE
))
474 AdjustForParentClientOrigin(x1
, y1
, sizeFlags
);
481 int cx
; // slider,min,max sizes
485 wxGetCharSize(GetHWND(), &cx
, &cy
, & this->GetFont());
487 if ((m_windowStyle
& wxSL_VERTICAL
) != wxSL_VERTICAL
)
489 if ( m_windowStyle
& wxSL_LABELS
)
493 ::GetWindowText((HWND
) m_staticMin
, buf
, 300);
494 GetTextExtent(buf
, &min_len
, &cyf
,NULL
,NULL
, & this->GetFont());
498 ::GetWindowText((HWND
) m_staticMax
, buf
, 300);
499 GetTextExtent(buf
, &max_len
, &cyf
,NULL
,NULL
, & this->GetFont());
502 int new_width
= (int)(wxMax(min_len
, max_len
));
503 int valueHeight
= (int)cyf
;
505 // For some reason, under Win95, the text edit control has
506 // a lot of space before the first character
509 // The height needs to be a bit bigger under Win95 if
510 // using native 3D effects.
511 valueHeight
= (int) (valueHeight
* 1.5) ;
512 ::MoveWindow((HWND
) m_staticValue
, x_offset
, y_offset
,
513 new_width
, valueHeight
, TRUE
);
514 x_offset
+= new_width
+ cx
;
517 MoveWindow((HWND
) m_staticMin
, x_offset
, y_offset
,
518 (int) min_len
, cy
, TRUE
);
519 x_offset
+= (int)(min_len
+ cx
);
521 int slider_length
= (int)(w1
- x_offset
- max_len
- cx
);
523 int slider_height
= h1
;
524 if (slider_height
< 0 )
527 // Slider must have a minimum/default length/height
528 if (slider_length
< 100)
531 ::MoveWindow(GetHwnd(), x_offset
, y_offset
,
532 slider_length
, slider_height
, TRUE
);
533 x_offset
+= slider_length
+ cx
;
535 MoveWindow((HWND
) m_staticMax
, x_offset
, y_offset
,
536 (int) max_len
, cy
, TRUE
);
541 // If we're prepared to use the existing size, then...
546 && ((sizeFlags
& wxSIZE_AUTO
) != wxSIZE_AUTO
)
557 ::MoveWindow(GetHwnd(), x1
, y1
, w1
, h1
, TRUE
);
562 if ( m_windowStyle
& wxSL_LABELS
)
565 ::GetWindowText((HWND
) m_staticMin
, buf
, 300);
566 GetTextExtent(buf
, &min_len
, &cyf
,NULL
,NULL
, & this->GetFont());
569 ::GetWindowText((HWND
) m_staticMax
, buf
, 300);
570 GetTextExtent(buf
, &max_len
, &cyf
,NULL
,NULL
, & this->GetFont());
574 int new_width
= (int)(wxMax(min_len
, max_len
));
575 int valueHeight
= (int)cyf
;
576 /*** Suggested change by George Tasker - remove this block...
578 // For some reason, under Win95, the text edit control has
579 // a lot of space before the first character
582 ... and replace with following line: */
585 // The height needs to be a bit bigger under Win95 if
586 // using native 3D effects.
587 valueHeight
= (int) (valueHeight
* 1.5) ;
589 ::MoveWindow((HWND
) m_staticValue
, x_offset
, y_offset
,
590 new_width
, valueHeight
, TRUE
);
591 y_offset
+= valueHeight
;
594 ::MoveWindow((HWND
) m_staticMin
, x_offset
, y_offset
,
595 (int) min_len
, cy
, TRUE
);
598 int slider_length
= (int)(h1
- y_offset
- cy
- cy
);
600 int slider_width
= w1
;
601 if (slider_width
< 0 )
604 // Slider must have a minimum/default length
605 if (slider_length
< 100)
608 ::MoveWindow(GetHwnd(), x_offset
, y_offset
,
609 slider_width
, slider_length
, TRUE
);
610 y_offset
+= slider_length
;
612 ::MoveWindow((HWND
) m_staticMax
, x_offset
, y_offset
,
613 (int)max_len
, cy
, TRUE
);
618 // If we're prepared to use the existing size, then...
621 width
== -1 && height
== -1
622 && ((sizeFlags
& wxSIZE_AUTO
) != wxSIZE_AUTO
)
633 ::MoveWindow(GetHwnd(), x1
, y1
, w1
, h1
, TRUE
);
638 void wxSlider95::SetRange(int minValue
, int maxValue
)
640 m_rangeMin
= minValue
;
641 m_rangeMax
= maxValue
;
643 ::SendMessage(GetHwnd(), TBM_SETRANGE
, TRUE
, MAKELONG(minValue
, maxValue
));
648 wxSprintf(buf
, wxT("%d"), m_rangeMin
);
649 ::SetWindowText((HWND
) m_staticMin
, buf
);
654 wxSprintf(buf
, wxT("%d"), m_rangeMax
);
655 ::SetWindowText((HWND
) m_staticMax
, buf
);
659 WXHBRUSH
wxSlider95::OnCtlColor(WXHDC pDC
, WXHWND pWnd
, WXUINT nCtlColor
,
660 WXUINT message
, WXWPARAM wParam
, WXLPARAM lParam
)
663 if ( nCtlColor
== CTLCOLOR_SCROLLBAR
)
666 if ( nCtlColor
!= CTLCOLOR_STATIC
)
669 // Otherwise, it's a static
670 return wxControl::OnCtlColor(pDC
, pWnd
, nCtlColor
, message
, wParam
, lParam
);
673 // For trackbars only
674 void wxSlider95::SetTickFreq(int n
, int pos
)
677 ::SendMessage( GetHwnd(), TBM_SETTICFREQ
, (WPARAM
) n
, (LPARAM
) pos
);
680 void wxSlider95::SetPageSize(int pageSize
)
682 ::SendMessage( GetHwnd(), TBM_SETPAGESIZE
, (WPARAM
) 0, (LPARAM
) pageSize
);
683 m_pageSize
= pageSize
;
686 int wxSlider95::GetPageSize() const
691 void wxSlider95::ClearSel()
693 ::SendMessage( GetHwnd(), TBM_CLEARSEL
, (WPARAM
) TRUE
, (LPARAM
) 0 );
696 void wxSlider95::ClearTicks()
698 ::SendMessage( GetHwnd(), TBM_CLEARTICS
, (WPARAM
) TRUE
, (LPARAM
) 0 );
701 void wxSlider95::SetLineSize(int lineSize
)
703 m_lineSize
= lineSize
;
704 ::SendMessage( GetHwnd(), TBM_SETLINESIZE
, (WPARAM
) 0, (LPARAM
) lineSize
);
707 int wxSlider95::GetLineSize() const
709 return (int) ::SendMessage( GetHwnd(), TBM_GETLINESIZE
,
710 (WPARAM
) 0, (LPARAM
) 0 );
713 int wxSlider95::GetSelEnd() const
715 return (int) ::SendMessage( GetHwnd(), TBM_SETSELEND
,
716 (WPARAM
) 0, (LPARAM
) 0 );
719 int wxSlider95::GetSelStart() const
721 return (int) ::SendMessage( GetHwnd(), TBM_GETSELSTART
,
722 (WPARAM
) 0, (LPARAM
) 0 );
725 void wxSlider95::SetSelection(int minPos
, int maxPos
)
727 ::SendMessage(GetHwnd(), TBM_SETSEL
,
728 (WPARAM
) TRUE
, (LPARAM
) MAKELONG( minPos
, maxPos
) );
731 void wxSlider95::SetThumbLength(int len
)
733 ::SendMessage( GetHwnd(), TBM_SETTHUMBLENGTH
, (WPARAM
) len
, (LPARAM
) 0 );
736 int wxSlider95::GetThumbLength() const
738 return (int) ::SendMessage( GetHwnd(), TBM_GETTHUMBLENGTH
,
739 (WPARAM
) 0, (LPARAM
) 0 );
742 void wxSlider95::SetTick(int tickPos
)
744 ::SendMessage( GetHwnd(), TBM_SETTIC
, (WPARAM
) 0, (LPARAM
) tickPos
);
747 bool wxSlider95::ContainsHWND(WXHWND hWnd
) const
751 hWnd
== GetStaticMin()
752 || hWnd
== GetStaticMax()
753 || hWnd
== GetEditValue()
757 void wxSlider95::Command (wxCommandEvent
& event
)
759 SetValue (event
.GetInt());
760 ProcessCommand (event
);
763 bool wxSlider95::Show(bool show
)
765 wxWindow::Show(show
);
774 ShowWindow((HWND
) m_staticValue
, (BOOL
)cshow
);
777 ShowWindow((HWND
) m_staticMin
, (BOOL
)cshow
);
780 ShowWindow((HWND
) m_staticMax
, (BOOL
)cshow
);
788 #endif // wxUSE_SLIDER