]> git.saurik.com Git - wxWidgets.git/blob - src/mac/carbon/scrolbar.cpp
splitted wxApp docs in wxApp+wxAppConsole docs; fix the signature of the documented...
[wxWidgets.git] / src / mac / carbon / scrolbar.cpp
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: src/mac/carbon/scrolbar.cpp
3 // Purpose: wxScrollBar
4 // Author: Stefan Csomor
5 // Modified by:
6 // Created: 1998-01-01
7 // RCS-ID: $Id$
8 // Copyright: (c) Stefan Csomor
9 // Licence: wxWindows licence
10 /////////////////////////////////////////////////////////////////////////////
11
12 #include "wx/wxprec.h"
13
14 #include "wx/scrolbar.h"
15
16 #ifndef WX_PRECOMP
17 #include "wx/intl.h"
18 #include "wx/log.h"
19 #include "wx/settings.h"
20 #endif
21
22 #include "wx/mac/uma.h"
23
24 IMPLEMENT_DYNAMIC_CLASS(wxScrollBar, wxControl)
25
26 BEGIN_EVENT_TABLE(wxScrollBar, wxControl)
27 END_EVENT_TABLE()
28
29
30 bool wxScrollBar::Create( wxWindow *parent,
31 wxWindowID id,
32 const wxPoint& pos,
33 const wxSize& size,
34 long style,
35 const wxValidator& validator,
36 const wxString& name )
37 {
38 m_macIsUserPane = false;
39
40 if ( !wxControl::Create( parent, id, pos, size, style, validator, name ) )
41 return false;
42
43 Rect bounds = wxMacGetBoundsForControl( this, pos, size );
44
45 m_peer = new wxMacControl( this );
46 OSStatus err = CreateScrollBarControl(
47 MAC_WXHWND(parent->MacGetTopLevelWindowRef()), &bounds,
48 0, 0, 100, 1, true /* liveTracking */,
49 GetwxMacLiveScrollbarActionProc(),
50 m_peer->GetControlRefAddr() );
51 verify_noerr( err );
52
53 MacPostControlCreate( pos, size );
54
55 return true;
56 }
57
58 wxScrollBar::~wxScrollBar()
59 {
60 }
61
62 void wxScrollBar::SetThumbPosition( int viewStart )
63 {
64 m_peer->SetValue( viewStart );
65 }
66
67 int wxScrollBar::GetThumbPosition() const
68 {
69 return m_peer->GetValue();
70 }
71
72 void wxScrollBar::SetScrollbar( int position,
73 int thumbSize,
74 int range,
75 int pageSize,
76 bool WXUNUSED(refresh) )
77 {
78 m_pageSize = pageSize;
79 m_viewSize = thumbSize;
80 m_objectSize = range;
81
82 int range1 = wxMax( (m_objectSize - m_viewSize), 0 );
83
84 m_peer->SetMinimum( 0 );
85 m_peer->SetMaximum( range1 );
86 m_peer->SetValue( position );
87 m_peer->SetViewSize( m_viewSize );
88 }
89
90 void wxScrollBar::Command( wxCommandEvent& event )
91 {
92 SetThumbPosition( event.GetInt() );
93 ProcessCommand( event );
94 }
95
96 void wxScrollBar::MacHandleControlClick( WXWidget WXUNUSED(control), wxInt16 controlpart, bool mouseStillDown )
97 {
98 int position = m_peer->GetValue();
99 int minPos = m_peer->GetMinimum();
100 int maxPos = m_peer->GetMaximum();
101
102 wxEventType scrollEvent = wxEVT_NULL;
103 int nScrollInc = 0;
104
105 // all events have already been reported during mouse down, except for THUMBRELEASE
106 if ( !mouseStillDown && controlpart != kControlIndicatorPart )
107 return;
108
109 switch ( controlpart )
110 {
111 case kControlUpButtonPart:
112 nScrollInc = -1;
113 scrollEvent = wxEVT_SCROLL_LINEUP;
114 break;
115
116 case kControlDownButtonPart:
117 nScrollInc = 1;
118 scrollEvent = wxEVT_SCROLL_LINEDOWN;
119 break;
120
121 case kControlPageUpPart:
122 nScrollInc = -m_pageSize;
123 scrollEvent = wxEVT_SCROLL_PAGEUP;
124 break;
125
126 case kControlPageDownPart:
127 nScrollInc = m_pageSize;
128 scrollEvent = wxEVT_SCROLL_PAGEDOWN;
129 break;
130
131 case kControlIndicatorPart:
132 nScrollInc = 0;
133 if ( mouseStillDown )
134 scrollEvent = wxEVT_SCROLL_THUMBTRACK;
135 else
136 scrollEvent = wxEVT_SCROLL_THUMBRELEASE;
137 break;
138
139 default:
140 wxFAIL_MSG(wxT("unknown scrollbar selector"));
141 break;
142 }
143
144 int new_pos = position + nScrollInc;
145
146 if (new_pos < minPos)
147 new_pos = minPos;
148 else if (new_pos > maxPos)
149 new_pos = maxPos;
150
151 if ( nScrollInc )
152 SetThumbPosition( new_pos );
153
154 wxScrollEvent event( scrollEvent, m_windowId );
155 if ( m_windowStyle & wxHORIZONTAL )
156 event.SetOrientation( wxHORIZONTAL );
157 else
158 event.SetOrientation( wxVERTICAL );
159
160 event.SetPosition( new_pos );
161 event.SetEventObject( this );
162
163 wxWindow* window = GetParent();
164 if (window && window->MacIsWindowScrollbar( this ))
165 // this is hardcoded
166 window->MacOnScroll( event );
167 else
168 HandleWindowEvent( event );
169 }
170
171 wxInt32 wxScrollBar::MacControlHit( WXEVENTHANDLERREF WXUNUSED(handler), WXEVENTREF mevent )
172 {
173 int position = m_peer->GetValue();
174 int minPos = m_peer->GetMinimum();
175 int maxPos = m_peer->GetMaximum();
176
177 wxEventType scrollEvent = wxEVT_NULL;
178 int nScrollInc = 0;
179
180 wxMacCarbonEvent cEvent( (EventRef)mevent );
181 ControlPartCode controlpart = cEvent.GetParameter<ControlPartCode>(kEventParamControlPart, typeControlPartCode);
182
183 // all events have already been reported during mouse down, except for THUMBRELEASE
184 // NB: this may need to be reviewed in light of the fact that scroll wheel events
185 // aren't being handled properly
186 if ( controlpart != kControlIndicatorPart )
187 return eventNotHandledErr;
188
189 switch ( controlpart )
190 {
191 case kControlIndicatorPart:
192 nScrollInc = 0;
193 scrollEvent = wxEVT_SCROLL_THUMBRELEASE;
194 break;
195
196 default:
197 wxFAIL_MSG(wxT("unknown scrollbar selector"));
198 break;
199 }
200
201 int new_pos = position + nScrollInc;
202
203 if (new_pos < minPos)
204 new_pos = minPos;
205 else if (new_pos > maxPos)
206 new_pos = maxPos;
207
208 if ( nScrollInc )
209 SetThumbPosition( new_pos );
210
211 wxScrollEvent event( scrollEvent, m_windowId );
212 if ( m_windowStyle & wxHORIZONTAL )
213 event.SetOrientation( wxHORIZONTAL );
214 else
215 event.SetOrientation( wxVERTICAL );
216
217 event.SetPosition( new_pos );
218 event.SetEventObject( this );
219 wxWindow* window = GetParent();
220 if (window && window->MacIsWindowScrollbar( this ))
221 // this is hardcoded
222 window->MacOnScroll( event );
223 else
224 HandleWindowEvent( event );
225
226 return noErr;
227 }
228
229
230 wxSize wxScrollBar::DoGetBestSize() const
231 {
232 int w = 100;
233 int h = 100;
234
235 if ( IsVertical() )
236 {
237 w = wxSystemSettings::GetMetric(wxSYS_VSCROLL_X);
238 }
239 else
240 {
241 h = wxSystemSettings::GetMetric(wxSYS_HSCROLL_Y);
242 }
243
244 wxSize best(w, h);
245 CacheBestSize(best);
246 return best;
247 }