]> git.saurik.com Git - wxWidgets.git/blame - src/mac/classic/scrolbar.cpp
cleanup - reformat
[wxWidgets.git] / src / mac / classic / scrolbar.cpp
CommitLineData
2646f485
SC
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
65571936 9// Licence: wxWindows licence
2646f485
SC
10/////////////////////////////////////////////////////////////////////////////
11
2646f485
SC
12#include "wx/defs.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
2646f485
SC
22IMPLEMENT_DYNAMIC_CLASS(wxScrollBar, wxControl)
23
24BEGIN_EVENT_TABLE(wxScrollBar, wxControl)
25END_EVENT_TABLE()
26
2646f485
SC
27extern ControlActionUPP wxMacLiveScrollbarActionUPP ;
28
29// Scrollbar
30bool wxScrollBar::Create(wxWindow *parent, wxWindowID id,
31 const wxPoint& pos,
32 const wxSize& size, long style,
33 const wxValidator& validator,
34 const wxString& name)
35{
36 if ( !wxControl::Create(parent, id, pos, size, style, validator, name) )
37 return FALSE;
38
39 Rect bounds ;
40 Str255 title ;
41
42 MacPreControlCreate( parent , id , wxEmptyString , pos , size ,style, validator , name , &bounds , title ) ;
43
6bc3b8e9 44 m_macControl = (WXWidget) ::NewControl(MAC_WXHWND(parent->MacGetRootWindow()) ,
2646f485
SC
45 &bounds , title , false , 0 , 0 , 100,
46 kControlScrollBarLiveProc , (long) this) ;
47
48 wxASSERT_MSG( (ControlHandle) m_macControl != NULL , wxT("No valid mac control") ) ;
49
50 ::SetControlAction( (ControlHandle) m_macControl , wxMacLiveScrollbarActionUPP ) ;
51
52 MacPostControlCreate() ;
53
54 return TRUE;
55}
56
57wxScrollBar::~wxScrollBar()
58{
59}
60
61void wxScrollBar::SetThumbPosition(int viewStart)
62{
63 ::SetControl32BitValue( (ControlHandle) m_macControl , viewStart ) ;
64}
65
66int wxScrollBar::GetThumbPosition() const
67{
68 return ::GetControl32BitValue( (ControlHandle) m_macControl ) ;
69}
70
71void wxScrollBar::SetScrollbar(int position, int thumbSize, int range, int pageSize,
72 bool refresh)
73{
74 m_pageSize = pageSize;
75 m_viewSize = thumbSize;
76 m_objectSize = range;
77
78 int range1 = wxMax((m_objectSize - m_viewSize), 0) ;
79
80 SetControl32BitMaximum( (ControlHandle) m_macControl , range1 ) ;
81 SetControl32BitMinimum( (ControlHandle) m_macControl , 0 ) ;
82 SetControl32BitValue( (ControlHandle) m_macControl , position ) ;
83
84 if ( UMAGetAppearanceVersion() >= 0x0110 )
85 {
86 if ( SetControlViewSize != (void*) kUnresolvedCFragSymbolAddress )
87 {
88 SetControlViewSize( (ControlHandle) m_macControl , m_viewSize ) ;
89 }
90 }
91 if ( refresh )
92 MacRedrawControl() ;
93}
94
95
96void wxScrollBar::Command(wxCommandEvent& event)
97{
687706f5 98 SetThumbPosition(event.GetInt());
2646f485
SC
99 ProcessCommand(event);
100}
101
102void wxScrollBar::MacHandleControlClick( WXWidget control , wxInt16 controlpart , bool mouseStillDown )
103{
104 if ( (ControlHandle) m_macControl == NULL )
105 return ;
106
107 int position = GetControl32BitValue( (ControlHandle) m_macControl) ;
108 int minPos = GetControl32BitMinimum( (ControlHandle) m_macControl) ;
109 int maxPos = GetControl32BitMaximum( (ControlHandle) m_macControl) ;
110
111 wxEventType scrollEvent = wxEVT_NULL;
112 int nScrollInc = 0;
113
114 // all events have already been reported during mouse down, except for THUMBRELEASE
115 if ( !mouseStillDown && controlpart !=kControlIndicatorPart )
116 return ;
117
118 switch( controlpart )
119 {
120 case kControlUpButtonPart :
121 nScrollInc = -1;
122 scrollEvent = wxEVT_SCROLL_LINEUP;
123 break ;
124 case kControlDownButtonPart :
125 nScrollInc = 1;
126 scrollEvent = wxEVT_SCROLL_LINEDOWN;
127 break ;
128 case kControlPageUpPart :
129 nScrollInc = -m_pageSize;
130 scrollEvent = wxEVT_SCROLL_PAGEUP;
131 break ;
132 case kControlPageDownPart :
133 nScrollInc = m_pageSize;
134 scrollEvent = wxEVT_SCROLL_PAGEDOWN;
135 break ;
136 case kControlIndicatorPart :
137 nScrollInc = 0 ;
138 if ( mouseStillDown )
139 scrollEvent = wxEVT_SCROLL_THUMBTRACK;
140 else
141 scrollEvent = wxEVT_SCROLL_THUMBRELEASE;
142 break ;
143 default :
144 wxFAIL_MSG(wxT("illegal scrollbar selector"));
145 break ;
146 }
147
148 int new_pos = position + nScrollInc;
149
150 if (new_pos < minPos)
151 new_pos = minPos;
152 if (new_pos > maxPos)
153 new_pos = maxPos;
154 if ( nScrollInc )
155 SetThumbPosition(new_pos);
156
157 wxScrollEvent event(scrollEvent, m_windowId);
158 if ( m_windowStyle & wxHORIZONTAL )
159 {
160 event.SetOrientation( wxHORIZONTAL ) ;
161 }
162 else
163 {
164 event.SetOrientation( wxVERTICAL ) ;
165 }
166 event.SetPosition(new_pos);
167 event.SetEventObject( this );
168 wxWindow* window = GetParent() ;
169 if (window && window->MacIsWindowScrollbar(this) )
170 {
171 // this is hardcoded
172 window->MacOnScroll(event);
173 }
174 else
175 GetEventHandler()->ProcessEvent(event);
176}
177