1 /////////////////////////////////////////////////////////////////////////////
2 // Name: src/palmos/slider.cpp
4 // Author: William Osborne - minimal working wxPalmOS port
5 // Modified by: Wlodzimierz ABX Skiba - native implementation
8 // Copyright: (c) William Osborne, Wlodzimierz Skiba
9 // Licence: wxWindows licence
10 /////////////////////////////////////////////////////////////////////////////
12 #if defined(__GNUG__) && !defined(NO_GCC_PRAGMA)
13 #pragma implementation "slider.h"
16 // For compilers that support precompilation, includes "wx.h".
17 #include "wx/wxprec.h"
28 #include "wx/slider.h"
31 #include "wx/toplevel.h"
33 #if wxUSE_EXTENDED_RTTI
34 WX_DEFINE_FLAGS( wxSliderStyle
)
36 wxBEGIN_FLAGS( wxSliderStyle
)
37 // new style border flags, we put them first to
38 // use them for streaming out
39 wxFLAGS_MEMBER(wxBORDER_SIMPLE
)
40 wxFLAGS_MEMBER(wxBORDER_SUNKEN
)
41 wxFLAGS_MEMBER(wxBORDER_DOUBLE
)
42 wxFLAGS_MEMBER(wxBORDER_RAISED
)
43 wxFLAGS_MEMBER(wxBORDER_STATIC
)
44 wxFLAGS_MEMBER(wxBORDER_NONE
)
46 // old style border flags
47 wxFLAGS_MEMBER(wxSIMPLE_BORDER
)
48 wxFLAGS_MEMBER(wxSUNKEN_BORDER
)
49 wxFLAGS_MEMBER(wxDOUBLE_BORDER
)
50 wxFLAGS_MEMBER(wxRAISED_BORDER
)
51 wxFLAGS_MEMBER(wxSTATIC_BORDER
)
52 wxFLAGS_MEMBER(wxBORDER
)
54 // standard window styles
55 wxFLAGS_MEMBER(wxTAB_TRAVERSAL
)
56 wxFLAGS_MEMBER(wxCLIP_CHILDREN
)
57 wxFLAGS_MEMBER(wxTRANSPARENT_WINDOW
)
58 wxFLAGS_MEMBER(wxWANTS_CHARS
)
59 wxFLAGS_MEMBER(wxFULL_REPAINT_ON_RESIZE
)
60 wxFLAGS_MEMBER(wxALWAYS_SHOW_SB
)
61 wxFLAGS_MEMBER(wxVSCROLL
)
62 wxFLAGS_MEMBER(wxHSCROLL
)
64 wxFLAGS_MEMBER(wxSL_HORIZONTAL
)
65 wxFLAGS_MEMBER(wxSL_VERTICAL
)
66 wxFLAGS_MEMBER(wxSL_AUTOTICKS
)
67 wxFLAGS_MEMBER(wxSL_LABELS
)
68 wxFLAGS_MEMBER(wxSL_LEFT
)
69 wxFLAGS_MEMBER(wxSL_TOP
)
70 wxFLAGS_MEMBER(wxSL_RIGHT
)
71 wxFLAGS_MEMBER(wxSL_BOTTOM
)
72 wxFLAGS_MEMBER(wxSL_BOTH
)
73 wxFLAGS_MEMBER(wxSL_SELRANGE
)
75 wxEND_FLAGS( wxSliderStyle
)
77 IMPLEMENT_DYNAMIC_CLASS_XTI(wxSlider
, wxControl
,"wx/scrolbar.h")
79 wxBEGIN_PROPERTIES_TABLE(wxSlider
)
80 wxEVENT_RANGE_PROPERTY( Scroll
, wxEVT_SCROLL_TOP
, wxEVT_SCROLL_ENDSCROLL
, wxScrollEvent
)
81 wxEVENT_PROPERTY( Updated
, wxEVT_COMMAND_SLIDER_UPDATED
, wxCommandEvent
)
83 wxPROPERTY( Value
, int , SetValue
, GetValue
, 0, 0 /*flags*/ , wxT("Helpstring") , wxT("group"))
84 wxPROPERTY( Minimum
, int , SetMin
, GetMin
, 0 , 0 /*flags*/ , wxT("Helpstring") , wxT("group"))
85 wxPROPERTY( Maximum
, int , SetMax
, GetMax
, 0 , 0 /*flags*/ , wxT("Helpstring") , wxT("group"))
86 wxPROPERTY( PageSize
, int , SetPageSize
, GetLineSize
, 1 , 0 /*flags*/ , wxT("Helpstring") , wxT("group"))
87 wxPROPERTY( LineSize
, int , SetLineSize
, GetLineSize
, 1 , 0 /*flags*/ , wxT("Helpstring") , wxT("group"))
88 wxPROPERTY( ThumbLength
, int , SetThumbLength
, GetThumbLength
, 1 , 0 /*flags*/ , wxT("Helpstring") , wxT("group"))
89 wxPROPERTY_FLAGS( WindowStyle
, wxSliderStyle
, long , SetWindowStyleFlag
, GetWindowStyleFlag
, EMPTY_MACROVALUE
, 0 /*flags*/ , wxT("Helpstring") , wxT("group")) // style
90 wxEND_PROPERTIES_TABLE()
92 wxBEGIN_HANDLERS_TABLE(wxSlider
)
93 wxEND_HANDLERS_TABLE()
95 wxCONSTRUCTOR_8( wxSlider
, wxWindow
* , Parent
, wxWindowID
, Id
, int , Value
, int , Minimum
, int , Maximum
, wxPoint
, Position
, wxSize
, Size
, long , WindowStyle
)
97 IMPLEMENT_DYNAMIC_CLASS(wxSlider
, wxControl
)
101 void wxSlider::Init()
103 m_oldValue
= m_oldPos
= 0;
107 bool wxSlider::Create(wxWindow
*parent
, wxWindowID id
,
108 int value
, int minValue
, int maxValue
,
110 const wxSize
& size
, long style
,
111 const wxValidator
& validator
,
112 const wxString
& name
)
114 // wxSL_AUTOTICKS is ignored - always on
115 // wxSL_LABELS is ignored - always off
116 // wxSL_LEFT is ignored - always off
117 // wxSL_RIGHT is ignored - always off
118 // wxSL_TOP is ignored - always off
119 // wxSL_SELRANGE is ignored - always off
120 // wxSL_VERTICAL is impossible in native form
121 wxCHECK_MSG(!(style
& wxSL_VERTICAL
), false, _T("non vertical slider on PalmOS"));
123 if(!wxControl::Create(parent
, id
, pos
, size
, style
, validator
, name
))
126 FormType
* form
= GetParentForm();
130 m_oldValue
= m_oldPos
= value
;
132 wxCoord x
= pos
.x
== wxDefaultCoord
? 0 : pos
.x
,
133 y
= pos
.y
== wxDefaultCoord
? 0 : pos
.y
,
134 w
= size
.x
== wxDefaultCoord
? 1 : size
.x
,
135 h
= size
.y
== wxDefaultCoord
? 1 : size
.y
;
137 AdjustForParentClientOrigin(x
, y
);
139 SliderControlType
*slider
= CtlNewSliderControl (
159 SetInitialBestSize(size
);
164 wxSlider::~wxSlider()
168 int wxSlider::GetMin() const
170 ControlType
*control
= (ControlType
*)GetObjectPtr();
174 CtlGetSliderValues(control
, &ret
, NULL
, NULL
, NULL
);
178 int wxSlider::GetMax() const
180 ControlType
*control
= (ControlType
*)GetObjectPtr();
184 CtlGetSliderValues(control
, NULL
, &ret
, NULL
, NULL
);
188 int wxSlider::GetPageSize() const
190 ControlType
*control
= (ControlType
*)GetObjectPtr();
194 CtlGetSliderValues(control
, NULL
, NULL
, &ret
, NULL
);
198 int wxSlider::PalmInvertOrNot(int value
) const
200 if (m_windowStyle
& wxSL_INVERSE
)
201 return (GetMax() + GetMin()) - value
;
206 int wxSlider::GetValue() const
208 ControlType
*control
= (ControlType
*)GetObjectPtr();
212 CtlGetSliderValues(control
, NULL
, NULL
, NULL
, &ret
);
213 return PalmInvertOrNot(ret
);
216 void wxSlider::SetValue(int value
)
218 SetIntValue(PalmInvertOrNot(value
));
219 m_oldValue
= m_oldPos
= value
;
222 wxSize
wxSlider::DoGetBestSize() const
224 // 15 is taken as used in one of official samples
225 // 45 is dummy height tripled, any idea what's better ?
226 return wxSize(45,15);
230 void wxSlider::SetRange(int WXUNUSED(minValue
), int WXUNUSED(maxValue
))
232 // unsupported feature
235 void wxSlider::SetTickFreq(int WXUNUSED(n
), int WXUNUSED(pos
))
237 // unsupported feature
240 void wxSlider::SetPageSize(int pageSize
)
242 ControlType
*control
= (ControlType
*)GetObjectPtr();
245 uint16_t val
= pageSize
;
246 CtlSetSliderValues(control
, NULL
, NULL
, &val
, NULL
);
249 void wxSlider::ClearSel()
251 // unsupported feature
254 void wxSlider::ClearTicks()
256 // unsupported feature
259 void wxSlider::SetLineSize(int lineSize
)
261 m_lineSize
= lineSize
;
264 int wxSlider::GetLineSize() const
269 int wxSlider::GetSelEnd() const
271 // unsupported feature
275 int wxSlider::GetSelStart() const
277 // unsupported feature
281 void wxSlider::SetSelection(int WXUNUSED(minPos
), int WXUNUSED(maxPos
))
283 // unsupported feature
286 void wxSlider::SetThumbLength(int WXUNUSED(len
))
288 // unsupported feature
291 int wxSlider::GetThumbLength() const
293 // unsupported feature
297 int wxSlider::GetTickFreq() const
299 // unsupported feature
300 return GetPageSize();
303 void wxSlider::SetTick(int WXUNUSED(tickPos
))
305 // unsupported feature
308 // ----------------------------------------------------------------------------
310 // ----------------------------------------------------------------------------
312 bool wxSlider::SendUpdatedEvent()
314 m_oldPos
= GetValue();
317 wxScrollEvent
eventWxTrack(wxEVT_SCROLL_THUMBRELEASE
, GetId());
318 eventWxTrack
.SetPosition(m_oldPos
);
319 eventWxTrack
.SetEventObject(this);
320 bool handled
= GetEventHandler()->ProcessEvent(eventWxTrack
);
322 // then slider event if position changed
323 if( m_oldValue
!= m_oldPos
)
325 m_oldValue
= m_oldPos
;
326 wxCommandEvent
event(wxEVT_COMMAND_SLIDER_UPDATED
, GetId());
327 event
.SetEventObject(this);
328 event
.SetInt(m_oldPos
);
329 return ProcessCommand(event
);
335 bool wxSlider::SendScrollEvent(EventType
* event
)
337 wxEventType scrollEvent
;
338 int newPos
= PalmInvertOrNot(event
->data
.ctlRepeat
.value
);
339 if ( newPos
== m_oldPos
)
341 // nothing changed since last event
348 wxScrollEvent
eventWx(wxEVT_SCROLL_THUMBTRACK
, GetId());
349 eventWx
.SetPosition(newPos
);
350 eventWx
.SetEventObject(this);
351 return GetEventHandler()->ProcessEvent(eventWx
);
354 void wxSlider::Command (wxCommandEvent
& event
)
358 #endif // wxUSE_SLIDER