]> git.saurik.com Git - wxWidgets.git/blame_incremental - src/mac/carbon/scrolbar.cpp
cleanup - reformat
[wxWidgets.git] / src / mac / carbon / scrolbar.cpp
... / ...
CommitLineData
1/////////////////////////////////////////////////////////////////////////////
2// Name: 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#ifndef WX_PRECOMP
15 #include "wx/intl.h"
16 #include "wx/log.h"
17#endif // WX_PRECOMP
18
19#include "wx/scrolbar.h"
20#include "wx/mac/uma.h"
21
22IMPLEMENT_DYNAMIC_CLASS(wxScrollBar, wxControl)
23
24BEGIN_EVENT_TABLE(wxScrollBar, wxControl)
25END_EVENT_TABLE()
26
27
28bool wxScrollBar::Create(wxWindow *parent,
29 wxWindowID id,
30 const wxPoint& pos,
31 const wxSize& size,
32 long style,
33 const wxValidator& validator,
34 const wxString& name)
35{
36 m_macIsUserPane = false ;
37
38 if ( !wxControl::Create(parent, id, pos, size, style, validator, name) )
39 return false;
40
41 Rect bounds = wxMacGetBoundsForControl( this , pos , size ) ;
42
43 m_peer = new wxMacControl(this) ;
44 verify_noerr( CreateScrollBarControl( MAC_WXHWND(parent->MacGetTopLevelWindowRef()) , &bounds ,
45 0 , 0 , 100 , 1 , true /* liveTracking */ , GetwxMacLiveScrollbarActionProc() , m_peer->GetControlRefAddr() ) );
46
47 MacPostControlCreate( pos, size ) ;
48
49 return true;
50}
51
52wxScrollBar::~wxScrollBar()
53{
54}
55
56void wxScrollBar::SetThumbPosition(int viewStart)
57{
58 m_peer->SetValue( viewStart ) ;
59}
60
61int wxScrollBar::GetThumbPosition() const
62{
63 return m_peer->GetValue() ;
64}
65
66void wxScrollBar::SetScrollbar(int position, int thumbSize, int range, int pageSize, bool refresh)
67{
68 m_pageSize = pageSize;
69 m_viewSize = thumbSize;
70 m_objectSize = range;
71
72 int range1 = wxMax((m_objectSize - m_viewSize), 0) ;
73
74 m_peer->SetMaximum( range1 ) ;
75 m_peer->SetMinimum( 0 ) ;
76 m_peer->SetValue( position ) ;
77 m_peer->SetViewSize( m_viewSize ) ;
78}
79
80void wxScrollBar::Command(wxCommandEvent& event)
81{
82 SetThumbPosition(event.GetInt());
83 ProcessCommand(event);
84}
85
86void wxScrollBar::MacHandleControlClick( WXWidget control , wxInt16 controlpart , bool mouseStillDown )
87{
88 int position = m_peer->GetValue() ;
89 int minPos = m_peer->GetMinimum() ;
90 int maxPos = m_peer->GetMaximum() ;
91
92 wxEventType scrollEvent = wxEVT_NULL;
93 int nScrollInc = 0;
94
95 // all events have already been reported during mouse down, except for THUMBRELEASE
96 if ( !mouseStillDown && controlpart != kControlIndicatorPart )
97 return ;
98
99 switch ( controlpart )
100 {
101 case kControlUpButtonPart :
102 nScrollInc = -1;
103 scrollEvent = wxEVT_SCROLL_LINEUP;
104 break ;
105
106 case kControlDownButtonPart :
107 nScrollInc = 1;
108 scrollEvent = wxEVT_SCROLL_LINEDOWN;
109 break ;
110
111 case kControlPageUpPart :
112 nScrollInc = -m_pageSize;
113 scrollEvent = wxEVT_SCROLL_PAGEUP;
114 break ;
115
116 case kControlPageDownPart :
117 nScrollInc = m_pageSize;
118 scrollEvent = wxEVT_SCROLL_PAGEDOWN;
119 break ;
120
121 case kControlIndicatorPart :
122 nScrollInc = 0 ;
123 if ( mouseStillDown )
124 scrollEvent = wxEVT_SCROLL_THUMBTRACK;
125 else
126 scrollEvent = wxEVT_SCROLL_THUMBRELEASE;
127 break ;
128
129 default :
130 wxFAIL_MSG(wxT("illegal scrollbar selector"));
131 break ;
132 }
133
134 int new_pos = position + nScrollInc;
135
136 if (new_pos < minPos)
137 new_pos = minPos;
138 else if (new_pos > maxPos)
139 new_pos = maxPos;
140
141 if ( nScrollInc )
142 SetThumbPosition(new_pos);
143
144 wxScrollEvent event(scrollEvent, m_windowId);
145 if ( m_windowStyle & wxHORIZONTAL )
146 event.SetOrientation( wxHORIZONTAL ) ;
147 else
148 event.SetOrientation( wxVERTICAL ) ;
149
150 event.SetPosition(new_pos);
151 event.SetEventObject( this );
152
153 wxWindow* window = GetParent() ;
154 if (window && window->MacIsWindowScrollbar(this) )
155 // this is hardcoded
156 window->MacOnScroll(event);
157 else
158 GetEventHandler()->ProcessEvent(event);
159}
160
161wxInt32 wxScrollBar::MacControlHit( WXEVENTHANDLERREF handler , WXEVENTREF mevent )
162{
163 int position = m_peer->GetValue() ;
164 int minPos = m_peer->GetMinimum() ;
165 int maxPos = m_peer->GetMaximum() ;
166
167 wxEventType scrollEvent = wxEVT_NULL;
168 int nScrollInc = 0;
169
170 wxMacCarbonEvent cEvent( (EventRef) mevent ) ;
171 ControlPartCode controlpart = cEvent.GetParameter<ControlPartCode>(kEventParamControlPart, typeControlPartCode) ;
172
173 // all events have already been reported during mouse down, except for THUMBRELEASE
174 if ( controlpart != kControlIndicatorPart )
175 return eventNotHandledErr ;
176
177 switch ( controlpart )
178 {
179 case kControlIndicatorPart :
180 nScrollInc = 0 ;
181 scrollEvent = wxEVT_SCROLL_THUMBRELEASE;
182 break ;
183
184 default :
185 wxFAIL_MSG(wxT("illegal scrollbar selector"));
186 break ;
187 }
188
189 int new_pos = position + nScrollInc;
190
191 if (new_pos < minPos)
192 new_pos = minPos;
193 else if (new_pos > maxPos)
194 new_pos = maxPos;
195
196 if ( nScrollInc )
197 SetThumbPosition(new_pos);
198
199 wxScrollEvent event(scrollEvent, m_windowId);
200 if ( m_windowStyle & wxHORIZONTAL )
201 event.SetOrientation( wxHORIZONTAL );
202 else
203 event.SetOrientation( wxVERTICAL );
204
205 event.SetPosition(new_pos);
206 event.SetEventObject( this );
207 wxWindow* window = GetParent() ;
208 if (window && window->MacIsWindowScrollbar(this) )
209 // this is hardcoded
210 window->MacOnScroll(event);
211 else
212 GetEventHandler()->ProcessEvent(event);
213
214 return noErr ;
215}