1 /////////////////////////////////////////////////////////////////////////////
2 // Name: generic/scrolwin.cpp
3 // Purpose: wxGenericScrolledWindow implementation
4 // Author: Julian Smart
5 // Modified by: Vadim Zeitlin on 31.08.00: wxScrollHelper allows to implement.
6 // Ron Lee on 10.4.02: virtual size / auto scrollbars et al.
9 // Copyright: (c) wxWindows team
10 // Licence: wxWindows licence
11 /////////////////////////////////////////////////////////////////////////////
13 // ============================================================================
15 // ============================================================================
17 // ----------------------------------------------------------------------------
19 // ----------------------------------------------------------------------------
22 #pragma implementation "genscrolwin.h"
26 #define XtDisplay XTDISPLAY
29 // For compilers that support precompilation, includes "wx.h".
30 #include "wx/wxprec.h"
36 #if !defined(__WXGTK__) || defined(__WXUNIVERSAL__)
39 #include "wx/dcclient.h"
41 #include "wx/scrolwin.h"
47 #include <windows.h> // for DLGC_WANTARROWS
51 // For wxRETAINED implementation
52 #ifdef __VMS__ //VMS's Xm.h is not (yet) compatible with C++
53 //This code switches off the compiler warnings
54 # pragma message disable nosimpint
58 # pragma message enable nosimpint
62 IMPLEMENT_CLASS(wxScrolledWindow
, wxGenericScrolledWindow
)
64 // ----------------------------------------------------------------------------
65 // wxScrollHelperEvtHandler: intercept the events from the window and forward
66 // them to wxScrollHelper
67 // ----------------------------------------------------------------------------
69 class WXDLLEXPORT wxScrollHelperEvtHandler
: public wxEvtHandler
72 wxScrollHelperEvtHandler(wxScrollHelper
*scrollHelper
)
74 m_scrollHelper
= scrollHelper
;
77 virtual bool ProcessEvent(wxEvent
& event
);
79 void ResetDrawnFlag() { m_hasDrawnWindow
= FALSE
; }
82 wxScrollHelper
*m_scrollHelper
;
84 bool m_hasDrawnWindow
;
86 DECLARE_NO_COPY_CLASS(wxScrollHelperEvtHandler
)
89 // ----------------------------------------------------------------------------
90 // wxAutoScrollTimer: the timer used to generate a stream of scroll events when
91 // a captured mouse is held outside the window
92 // ----------------------------------------------------------------------------
94 class wxAutoScrollTimer
: public wxTimer
97 wxAutoScrollTimer(wxWindow
*winToScroll
, wxScrollHelper
*scroll
,
98 wxEventType eventTypeToSend
,
101 virtual void Notify();
105 wxScrollHelper
*m_scrollHelper
;
106 wxEventType m_eventType
;
110 DECLARE_NO_COPY_CLASS(wxAutoScrollTimer
)
113 // ============================================================================
115 // ============================================================================
117 // ----------------------------------------------------------------------------
119 // ----------------------------------------------------------------------------
121 wxAutoScrollTimer::wxAutoScrollTimer(wxWindow
*winToScroll
,
122 wxScrollHelper
*scroll
,
123 wxEventType eventTypeToSend
,
127 m_scrollHelper
= scroll
;
128 m_eventType
= eventTypeToSend
;
133 void wxAutoScrollTimer::Notify()
135 // only do all this as long as the window is capturing the mouse
136 if ( wxWindow::GetCapture() != m_win
)
140 else // we still capture the mouse, continue generating events
142 // first scroll the window if we are allowed to do it
143 wxScrollWinEvent
event1(m_eventType
, m_pos
, m_orient
);
144 event1
.SetEventObject(m_win
);
145 if ( m_scrollHelper
->SendAutoScrollEvents(event1
) &&
146 m_win
->GetEventHandler()->ProcessEvent(event1
) )
148 // and then send a pseudo mouse-move event to refresh the selection
149 wxMouseEvent
event2(wxEVT_MOTION
);
150 wxGetMousePosition(&event2
.m_x
, &event2
.m_y
);
152 // the mouse event coordinates should be client, not screen as
153 // returned by wxGetMousePosition
154 wxWindow
*parentTop
= m_win
;
155 while ( parentTop
->GetParent() )
156 parentTop
= parentTop
->GetParent();
157 wxPoint ptOrig
= parentTop
->GetPosition();
158 event2
.m_x
-= ptOrig
.x
;
159 event2
.m_y
-= ptOrig
.y
;
161 event2
.SetEventObject(m_win
);
163 // FIXME: we don't fill in the other members - ok?
165 m_win
->GetEventHandler()->ProcessEvent(event2
);
167 else // can't scroll further, stop
174 // ----------------------------------------------------------------------------
175 // wxScrollHelperEvtHandler
176 // ----------------------------------------------------------------------------
178 bool wxScrollHelperEvtHandler::ProcessEvent(wxEvent
& event
)
180 wxEventType evType
= event
.GetEventType();
182 // the explanation of wxEVT_PAINT processing hack: for historic reasons
183 // there are 2 ways to process this event in classes deriving from
184 // wxScrolledWindow. The user code may
186 // 1. override wxScrolledWindow::OnDraw(dc)
187 // 2. define its own OnPaint() handler
189 // In addition, in wxUniversal wxWindow defines OnPaint() itself and
190 // always processes the draw event, so we can't just try the window
191 // OnPaint() first and call our HandleOnPaint() if it doesn't process it
192 // (the latter would never be called in wxUniversal).
194 // So the solution is to have a flag telling us whether the user code drew
195 // anything in the window. We set it to true here but reset it to false in
196 // wxScrolledWindow::OnPaint() handler (which wouldn't be called if the
197 // user code defined OnPaint() in the derived class)
198 m_hasDrawnWindow
= TRUE
;
200 // pass it on to the real handler
201 bool processed
= wxEvtHandler::ProcessEvent(event
);
203 // always process the size events ourselves, even if the user code handles
204 // them as well, as we need to AdjustScrollbars()
206 // NB: it is important to do it after processing the event in the normal
207 // way as HandleOnSize() may generate a wxEVT_SIZE itself if the
208 // scrollbar[s] (dis)appear and it should be seen by the user code
210 if ( evType
== wxEVT_SIZE
)
212 m_scrollHelper
->HandleOnSize((wxSizeEvent
&)event
);
219 // normally, nothing more to do here - except if it was a paint event
220 // which wasn't really processed, then we'll try to call our
221 // OnDraw() below (from HandleOnPaint)
222 if ( m_hasDrawnWindow
)
228 // reset the skipped flag to FALSE as it might have been set to TRUE in
229 // ProcessEvent() above
232 if ( evType
== wxEVT_PAINT
)
234 m_scrollHelper
->HandleOnPaint((wxPaintEvent
&)event
);
238 if ( evType
== wxEVT_SCROLLWIN_TOP
||
239 evType
== wxEVT_SCROLLWIN_BOTTOM
||
240 evType
== wxEVT_SCROLLWIN_LINEUP
||
241 evType
== wxEVT_SCROLLWIN_LINEDOWN
||
242 evType
== wxEVT_SCROLLWIN_PAGEUP
||
243 evType
== wxEVT_SCROLLWIN_PAGEDOWN
||
244 evType
== wxEVT_SCROLLWIN_THUMBTRACK
||
245 evType
== wxEVT_SCROLLWIN_THUMBRELEASE
)
247 m_scrollHelper
->HandleOnScroll((wxScrollWinEvent
&)event
);
248 return !event
.GetSkipped();
251 if ( evType
== wxEVT_ENTER_WINDOW
)
253 m_scrollHelper
->HandleOnMouseEnter((wxMouseEvent
&)event
);
255 else if ( evType
== wxEVT_LEAVE_WINDOW
)
257 m_scrollHelper
->HandleOnMouseLeave((wxMouseEvent
&)event
);
260 else if ( evType
== wxEVT_MOUSEWHEEL
)
262 m_scrollHelper
->HandleOnMouseWheel((wxMouseEvent
&)event
);
264 #endif // wxUSE_MOUSEWHEEL
265 else if ( evType
== wxEVT_CHAR
)
267 m_scrollHelper
->HandleOnChar((wxKeyEvent
&)event
);
268 return !event
.GetSkipped();
274 // ----------------------------------------------------------------------------
275 // wxScrollHelper construction
276 // ----------------------------------------------------------------------------
278 wxScrollHelper::wxScrollHelper(wxWindow
*win
)
280 m_xScrollPixelsPerLine
=
281 m_yScrollPixelsPerLine
=
286 m_xScrollLinesPerPage
=
287 m_yScrollLinesPerPage
= 0;
289 m_xScrollingEnabled
=
290 m_yScrollingEnabled
= TRUE
;
299 m_targetWindow
= (wxWindow
*)NULL
;
301 m_timerAutoScroll
= (wxTimer
*)NULL
;
309 wxScrollHelper::~wxScrollHelper()
316 // ----------------------------------------------------------------------------
317 // setting scrolling parameters
318 // ----------------------------------------------------------------------------
320 void wxScrollHelper::SetScrollbars(int pixelsPerUnitX
,
330 CalcUnscrolledPosition(xPos
, yPos
, &xpos
, &ypos
);
333 (noUnitsX
!= 0 && m_xScrollLines
== 0) ||
334 (noUnitsX
< m_xScrollLines
&& xpos
> pixelsPerUnitX
* noUnitsX
) ||
336 (noUnitsY
!= 0 && m_yScrollLines
== 0) ||
337 (noUnitsY
< m_yScrollLines
&& ypos
> pixelsPerUnitY
* noUnitsY
) ||
338 (xPos
!= m_xScrollPosition
) ||
339 (yPos
!= m_yScrollPosition
)
342 m_xScrollPixelsPerLine
= pixelsPerUnitX
;
343 m_yScrollPixelsPerLine
= pixelsPerUnitY
;
344 m_xScrollPosition
= xPos
;
345 m_yScrollPosition
= yPos
;
347 int w
= noUnitsX
* pixelsPerUnitX
;
348 int h
= noUnitsY
* pixelsPerUnitY
;
350 // For better backward compatibility we set persisting limits
351 // here not just the size. It makes SetScrollbars 'sticky'
352 // emulating the old non-autoscroll behaviour.
354 m_targetWindow
->SetVirtualSizeHints( w
, h
);
356 // The above should arguably be deprecated, this however we still need.
358 m_targetWindow
->SetVirtualSize( w
, h
);
360 if (do_refresh
&& !noRefresh
)
361 m_targetWindow
->Refresh(TRUE
, GetRect());
363 // TODO: check if we can use AdjustScrollbars always.
364 #ifdef __WXUNIVERSAL__
367 // This is also done by AdjustScrollbars, above
369 m_targetWindow
->MacUpdateImmediately() ;
374 // ----------------------------------------------------------------------------
375 // [target] window handling
376 // ----------------------------------------------------------------------------
378 void wxScrollHelper::DeleteEvtHandler()
380 // search for m_handler in the handler list
381 if ( m_win
&& m_handler
)
383 if ( m_win
->RemoveEventHandler(m_handler
) )
387 //else: something is very wrong, so better [maybe] leak memory than
388 // risk a crash because of double deletion
394 void wxScrollHelper::SetWindow(wxWindow
*win
)
396 wxCHECK_RET( win
, _T("wxScrollHelper needs a window to scroll") );
400 // by default, the associated window is also the target window
401 DoSetTargetWindow(win
);
404 void wxScrollHelper::DoSetTargetWindow(wxWindow
*target
)
406 m_targetWindow
= target
;
408 // install the event handler which will intercept the events we're
409 // interested in (but only do it for our real window, not the target window
410 // which we scroll - we don't need to hijack its events)
411 if ( m_targetWindow
== m_win
)
413 // if we already have a handler, delete it first
416 m_handler
= new wxScrollHelperEvtHandler(this);
417 m_targetWindow
->PushEventHandler(m_handler
);
421 void wxScrollHelper::SetTargetWindow(wxWindow
*target
)
423 wxCHECK_RET( target
, wxT("target window must not be NULL") );
425 if ( target
== m_targetWindow
)
428 DoSetTargetWindow(target
);
431 wxWindow
*wxScrollHelper::GetTargetWindow() const
433 return m_targetWindow
;
436 // ----------------------------------------------------------------------------
437 // scrolling implementation itself
438 // ----------------------------------------------------------------------------
440 void wxScrollHelper::HandleOnScroll(wxScrollWinEvent
& event
)
442 int nScrollInc
= CalcScrollInc(event
);
443 if ( nScrollInc
== 0 )
445 // can't scroll further
451 int orient
= event
.GetOrientation();
452 if (orient
== wxHORIZONTAL
)
454 m_xScrollPosition
+= nScrollInc
;
455 m_win
->SetScrollPos(wxHORIZONTAL
, m_xScrollPosition
);
459 m_yScrollPosition
+= nScrollInc
;
460 m_win
->SetScrollPos(wxVERTICAL
, m_yScrollPosition
);
463 bool needsRefresh
= FALSE
;
466 if (orient
== wxHORIZONTAL
)
468 if ( m_xScrollingEnabled
)
470 dx
= -m_xScrollPixelsPerLine
* nScrollInc
;
479 if ( m_yScrollingEnabled
)
481 dy
= -m_yScrollPixelsPerLine
* nScrollInc
;
491 m_targetWindow
->Refresh(TRUE
, GetRect());
495 m_targetWindow
->ScrollWindow(dx
, dy
, GetRect());
499 m_targetWindow
->MacUpdateImmediately() ;
503 int wxScrollHelper::CalcScrollInc(wxScrollWinEvent
& event
)
505 int pos
= event
.GetPosition();
506 int orient
= event
.GetOrientation();
509 if (event
.GetEventType() == wxEVT_SCROLLWIN_TOP
)
511 if (orient
== wxHORIZONTAL
)
512 nScrollInc
= - m_xScrollPosition
;
514 nScrollInc
= - m_yScrollPosition
;
516 if (event
.GetEventType() == wxEVT_SCROLLWIN_BOTTOM
)
518 if (orient
== wxHORIZONTAL
)
519 nScrollInc
= m_xScrollLines
- m_xScrollPosition
;
521 nScrollInc
= m_yScrollLines
- m_yScrollPosition
;
523 if (event
.GetEventType() == wxEVT_SCROLLWIN_LINEUP
)
527 if (event
.GetEventType() == wxEVT_SCROLLWIN_LINEDOWN
)
531 if (event
.GetEventType() == wxEVT_SCROLLWIN_PAGEUP
)
533 if (orient
== wxHORIZONTAL
)
534 nScrollInc
= -GetScrollPageSize(wxHORIZONTAL
);
536 nScrollInc
= -GetScrollPageSize(wxVERTICAL
);
538 if (event
.GetEventType() == wxEVT_SCROLLWIN_PAGEDOWN
)
540 if (orient
== wxHORIZONTAL
)
541 nScrollInc
= GetScrollPageSize(wxHORIZONTAL
);
543 nScrollInc
= GetScrollPageSize(wxVERTICAL
);
545 if ((event
.GetEventType() == wxEVT_SCROLLWIN_THUMBTRACK
) ||
546 (event
.GetEventType() == wxEVT_SCROLLWIN_THUMBRELEASE
))
548 if (orient
== wxHORIZONTAL
)
549 nScrollInc
= pos
- m_xScrollPosition
;
551 nScrollInc
= pos
- m_yScrollPosition
;
554 if (orient
== wxHORIZONTAL
)
556 if (m_xScrollPixelsPerLine
> 0)
559 GetTargetSize(&w
, &h
);
561 int nMaxWidth
= m_xScrollLines
*m_xScrollPixelsPerLine
;
562 int noPositions
= (int) ( ((nMaxWidth
- w
)/(double)m_xScrollPixelsPerLine
) + 0.5 );
566 if ( (m_xScrollPosition
+ nScrollInc
) < 0 )
567 nScrollInc
= -m_xScrollPosition
; // As -ve as we can go
568 else if ( (m_xScrollPosition
+ nScrollInc
) > noPositions
)
569 nScrollInc
= noPositions
- m_xScrollPosition
; // As +ve as we can go
572 m_targetWindow
->Refresh(TRUE
, GetRect());
576 if ( m_yScrollPixelsPerLine
> 0 )
578 if ( m_yScrollPosition
+ nScrollInc
< 0 )
580 // As -ve as we can go
581 nScrollInc
= -m_yScrollPosition
;
583 else // check for the other bound
585 const int posMax
= m_yScrollLines
- m_yScrollLinesPerPage
;
586 if ( m_yScrollPosition
+ nScrollInc
> posMax
)
588 // As +ve as we can go
589 nScrollInc
= posMax
- m_yScrollPosition
;
595 // VZ: why do we do this? (FIXME)
596 m_targetWindow
->Refresh(TRUE
, GetRect());
603 // Adjust the scrollbars - new version.
604 void wxScrollHelper::AdjustScrollbars()
607 m_targetWindow
->MacUpdateImmediately();
613 int oldXScroll
= m_xScrollPosition
;
614 int oldYScroll
= m_yScrollPosition
;
616 // VZ: at least under Windows this loop is useless because when scrollbars
617 // [dis]appear we get a WM_SIZE resulting in another call to
618 // AdjustScrollbars() anyhow. As it doesn't seem to do any harm I leave
619 // it here for now but it would be better to ensure that all ports
620 // generate EVT_SIZE when scrollbars [dis]appear, emulating it if
621 // necessary, and remove it later
624 GetTargetSize(&w
, 0);
626 if (m_xScrollPixelsPerLine
== 0)
629 m_xScrollPosition
= 0;
630 m_win
->SetScrollbar (wxHORIZONTAL
, 0, 0, 0, FALSE
);
634 m_xScrollLines
= m_targetWindow
->GetVirtualSize().GetWidth() / m_xScrollPixelsPerLine
;
636 // Calculate page size i.e. number of scroll units you get on the
637 // current client window
638 int noPagePositions
= (int) ( (w
/(double)m_xScrollPixelsPerLine
) + 0.5 );
639 if (noPagePositions
< 1) noPagePositions
= 1;
640 if ( noPagePositions
> m_xScrollLines
)
641 noPagePositions
= m_xScrollLines
;
643 // Correct position if greater than extent of canvas minus
644 // the visible portion of it or if below zero
645 m_xScrollPosition
= wxMin( m_xScrollLines
- noPagePositions
, m_xScrollPosition
);
646 m_xScrollPosition
= wxMax( 0, m_xScrollPosition
);
648 m_win
->SetScrollbar(wxHORIZONTAL
, m_xScrollPosition
, noPagePositions
, m_xScrollLines
);
649 // The amount by which we scroll when paging
650 SetScrollPageSize(wxHORIZONTAL
, noPagePositions
);
653 GetTargetSize(0, &h
);
655 // scroll lines per page: if 0, no scrolling is needed
658 if ( m_yScrollPixelsPerLine
== 0 )
660 // scrolling is disabled
662 m_yScrollPosition
= 0;
665 else // might need scrolling
667 int hVirt
= m_targetWindow
->GetVirtualSize().GetHeight();
668 m_yScrollLines
= hVirt
/ m_yScrollPixelsPerLine
;
670 // Calculate page size i.e. number of scroll units you get on the
671 // current client window
672 linesPerPage
= h
/ m_yScrollPixelsPerLine
;
673 if ( linesPerPage
>= m_yScrollLines
)
675 // we're big enough to not need scrolling
678 m_yScrollPosition
= 0;
680 else // we do need a scrollbar
682 if ( linesPerPage
< 1 )
685 // Correct position if greater than extent of canvas minus
686 // the visible portion of it or if below zero
687 const int posMax
= m_yScrollLines
- linesPerPage
;
688 if ( m_yScrollPosition
> posMax
)
689 m_yScrollPosition
= posMax
;
690 else if ( m_yScrollPosition
< 0 )
691 m_yScrollPosition
= 0;
695 m_win
->SetScrollbar(wxVERTICAL
, m_yScrollPosition
,
696 linesPerPage
, m_yScrollLines
);
698 // The amount by which we scroll when paging
699 SetScrollPageSize(wxVERTICAL
, linesPerPage
);
702 // If a scrollbar (dis)appeared as a result of this, adjust them again.
706 GetTargetSize( &w
, &h
);
707 } while ( w
!= oldw
&& h
!= oldh
);
710 // Sorry, some Motif-specific code to implement a backing pixmap
711 // for the wxRETAINED style. Implementing a backing store can't
712 // be entirely generic because it relies on the wxWindowDC implementation
713 // to duplicate X drawing calls for the backing pixmap.
715 if ( m_targetWindow
->GetWindowStyle() & wxRETAINED
)
717 Display
* dpy
= XtDisplay((Widget
)m_targetWindow
->GetMainWidget());
719 int totalPixelWidth
= m_xScrollLines
* m_xScrollPixelsPerLine
;
720 int totalPixelHeight
= m_yScrollLines
* m_yScrollPixelsPerLine
;
721 if (m_targetWindow
->GetBackingPixmap() &&
722 !((m_targetWindow
->GetPixmapWidth() == totalPixelWidth
) &&
723 (m_targetWindow
->GetPixmapHeight() == totalPixelHeight
)))
725 XFreePixmap (dpy
, (Pixmap
) m_targetWindow
->GetBackingPixmap());
726 m_targetWindow
->SetBackingPixmap((WXPixmap
) 0);
729 if (!m_targetWindow
->GetBackingPixmap() &&
730 (m_xScrollLines
!= 0) && (m_yScrollLines
!= 0))
732 int depth
= wxDisplayDepth();
733 m_targetWindow
->SetPixmapWidth(totalPixelWidth
);
734 m_targetWindow
->SetPixmapHeight(totalPixelHeight
);
735 m_targetWindow
->SetBackingPixmap((WXPixmap
) XCreatePixmap (dpy
, RootWindow (dpy
, DefaultScreen (dpy
)),
736 m_targetWindow
->GetPixmapWidth(), m_targetWindow
->GetPixmapHeight(), depth
));
742 if (oldXScroll
!= m_xScrollPosition
)
744 if (m_xScrollingEnabled
)
745 m_targetWindow
->ScrollWindow( m_xScrollPixelsPerLine
* (oldXScroll
- m_xScrollPosition
), 0,
748 m_targetWindow
->Refresh(TRUE
, GetRect());
751 if (oldYScroll
!= m_yScrollPosition
)
753 if (m_yScrollingEnabled
)
754 m_targetWindow
->ScrollWindow( 0, m_yScrollPixelsPerLine
* (oldYScroll
-m_yScrollPosition
),
757 m_targetWindow
->Refresh(TRUE
, GetRect());
761 m_targetWindow
->MacUpdateImmediately();
765 void wxScrollHelper::DoPrepareDC(wxDC
& dc
)
767 wxPoint pt
= dc
.GetDeviceOrigin();
768 dc
.SetDeviceOrigin( pt
.x
- m_xScrollPosition
* m_xScrollPixelsPerLine
,
769 pt
.y
- m_yScrollPosition
* m_yScrollPixelsPerLine
);
770 dc
.SetUserScale( m_scaleX
, m_scaleY
);
773 void wxScrollHelper::SetScrollRate( int xstep
, int ystep
)
775 int old_x
= m_xScrollPixelsPerLine
* m_xScrollPosition
;
776 int old_y
= m_yScrollPixelsPerLine
* m_yScrollPosition
;
778 m_xScrollPixelsPerLine
= xstep
;
779 m_yScrollPixelsPerLine
= ystep
;
781 int new_x
= m_xScrollPixelsPerLine
* m_xScrollPosition
;
782 int new_y
= m_yScrollPixelsPerLine
* m_yScrollPosition
;
784 m_win
->SetScrollPos( wxHORIZONTAL
, m_xScrollPosition
);
785 m_win
->SetScrollPos( wxVERTICAL
, m_yScrollPosition
);
786 m_targetWindow
->ScrollWindow( old_x
- new_x
, old_y
- new_y
);
791 void wxScrollHelper::GetScrollPixelsPerUnit (int *x_unit
, int *y_unit
) const
794 *x_unit
= m_xScrollPixelsPerLine
;
796 *y_unit
= m_yScrollPixelsPerLine
;
799 int wxScrollHelper::GetScrollPageSize(int orient
) const
801 if ( orient
== wxHORIZONTAL
)
802 return m_xScrollLinesPerPage
;
804 return m_yScrollLinesPerPage
;
807 void wxScrollHelper::SetScrollPageSize(int orient
, int pageSize
)
809 if ( orient
== wxHORIZONTAL
)
810 m_xScrollLinesPerPage
= pageSize
;
812 m_yScrollLinesPerPage
= pageSize
;
816 * Scroll to given position (scroll position, not pixel position)
818 void wxScrollHelper::Scroll( int x_pos
, int y_pos
)
823 if (((x_pos
== -1) || (x_pos
== m_xScrollPosition
)) &&
824 ((y_pos
== -1) || (y_pos
== m_yScrollPosition
))) return;
827 m_targetWindow
->MacUpdateImmediately();
831 GetTargetSize(&w
, &h
);
833 if ((x_pos
!= -1) && (m_xScrollPixelsPerLine
))
835 int old_x
= m_xScrollPosition
;
836 m_xScrollPosition
= x_pos
;
838 // Calculate page size i.e. number of scroll units you get on the
839 // current client window
840 int noPagePositions
= (int) ( (w
/(double)m_xScrollPixelsPerLine
) + 0.5 );
841 if (noPagePositions
< 1) noPagePositions
= 1;
843 // Correct position if greater than extent of canvas minus
844 // the visible portion of it or if below zero
845 m_xScrollPosition
= wxMin( m_xScrollLines
-noPagePositions
, m_xScrollPosition
);
846 m_xScrollPosition
= wxMax( 0, m_xScrollPosition
);
848 if (old_x
!= m_xScrollPosition
) {
849 m_win
->SetScrollPos( wxHORIZONTAL
, m_xScrollPosition
);
850 m_targetWindow
->ScrollWindow( (old_x
-m_xScrollPosition
)*m_xScrollPixelsPerLine
, 0,
854 if ((y_pos
!= -1) && (m_yScrollPixelsPerLine
))
856 int old_y
= m_yScrollPosition
;
857 m_yScrollPosition
= y_pos
;
859 // Calculate page size i.e. number of scroll units you get on the
860 // current client window
861 int noPagePositions
= (int) ( (h
/(double)m_yScrollPixelsPerLine
) + 0.5 );
862 if (noPagePositions
< 1) noPagePositions
= 1;
864 // Correct position if greater than extent of canvas minus
865 // the visible portion of it or if below zero
866 m_yScrollPosition
= wxMin( m_yScrollLines
-noPagePositions
, m_yScrollPosition
);
867 m_yScrollPosition
= wxMax( 0, m_yScrollPosition
);
869 if (old_y
!= m_yScrollPosition
) {
870 m_win
->SetScrollPos( wxVERTICAL
, m_yScrollPosition
);
871 m_targetWindow
->ScrollWindow( 0, (old_y
-m_yScrollPosition
)*m_yScrollPixelsPerLine
,
877 m_targetWindow
->MacUpdateImmediately();
882 void wxScrollHelper::EnableScrolling (bool x_scroll
, bool y_scroll
)
884 m_xScrollingEnabled
= x_scroll
;
885 m_yScrollingEnabled
= y_scroll
;
888 // Where the current view starts from
889 void wxScrollHelper::GetViewStart (int *x
, int *y
) const
892 *x
= m_xScrollPosition
;
894 *y
= m_yScrollPosition
;
897 void wxScrollHelper::DoCalcScrolledPosition(int x
, int y
, int *xx
, int *yy
) const
900 *xx
= x
- m_xScrollPosition
* m_xScrollPixelsPerLine
;
902 *yy
= y
- m_yScrollPosition
* m_yScrollPixelsPerLine
;
905 void wxScrollHelper::DoCalcUnscrolledPosition(int x
, int y
, int *xx
, int *yy
) const
908 *xx
= x
+ m_xScrollPosition
* m_xScrollPixelsPerLine
;
910 *yy
= y
+ m_yScrollPosition
* m_yScrollPixelsPerLine
;
913 // ----------------------------------------------------------------------------
915 // ----------------------------------------------------------------------------
917 // Default OnSize resets scrollbars, if any
918 void wxScrollHelper::HandleOnSize(wxSizeEvent
& WXUNUSED(event
))
920 if( m_win
->GetAutoLayout() || m_targetWindow
->GetAutoLayout() )
922 if ( m_targetWindow
!= m_win
)
923 m_targetWindow
->FitInside();
927 // FIXME: Something is really weird here... This should be
928 // called by FitInside above (and apparently is), yet the
929 // scrollsub sample will get the scrollbar wrong if resized
930 // quickly. This masks the bug, but is surely not the right
938 // This calls OnDraw, having adjusted the origin according to the current
940 void wxScrollHelper::HandleOnPaint(wxPaintEvent
& WXUNUSED(event
))
942 // don't use m_targetWindow here, this is always called for ourselves
949 // kbd handling: notice that we use OnChar() and not OnKeyDown() for
950 // compatibility here - if we used OnKeyDown(), the programs which process
951 // arrows themselves in their OnChar() would never get the message and like
952 // this they always have the priority
953 void wxScrollHelper::HandleOnChar(wxKeyEvent
& event
)
955 int stx
, sty
, // view origin
956 szx
, szy
, // view size (total)
957 clix
, cliy
; // view size (on screen)
959 GetViewStart(&stx
, &sty
);
960 GetTargetSize(&clix
, &cliy
);
961 m_targetWindow
->GetVirtualSize(&szx
, &szy
);
963 if( m_xScrollPixelsPerLine
)
965 clix
/= m_xScrollPixelsPerLine
;
966 szx
/= m_xScrollPixelsPerLine
;
973 if( m_yScrollPixelsPerLine
)
975 cliy
/= m_yScrollPixelsPerLine
;
976 szy
/= m_yScrollPixelsPerLine
;
984 int xScrollOld
= m_xScrollPosition
,
985 yScrollOld
= m_yScrollPosition
;
988 switch ( event
.GetKeyCode() )
992 dsty
= sty
- (5 * cliy
/ 6);
993 Scroll(-1, (dsty
== -1) ? 0 : dsty
);
998 Scroll(-1, sty
+ (5 * cliy
/ 6));
1002 Scroll(0, event
.ControlDown() ? 0 : -1);
1006 Scroll(szx
- clix
, event
.ControlDown() ? szy
- cliy
: -1);
1010 Scroll(-1, sty
- 1);
1014 Scroll(-1, sty
+ 1);
1018 Scroll(stx
- 1, -1);
1022 Scroll(stx
+ 1, -1);
1030 if ( m_xScrollPosition
!= xScrollOld
)
1032 wxScrollWinEvent
event(wxEVT_SCROLLWIN_THUMBTRACK
, m_xScrollPosition
,
1034 event
.SetEventObject(m_win
);
1035 m_win
->GetEventHandler()->ProcessEvent(event
);
1038 if ( m_yScrollPosition
!= yScrollOld
)
1040 wxScrollWinEvent
event(wxEVT_SCROLLWIN_THUMBTRACK
, m_yScrollPosition
,
1042 event
.SetEventObject(m_win
);
1043 m_win
->GetEventHandler()->ProcessEvent(event
);
1047 // ----------------------------------------------------------------------------
1048 // autoscroll stuff: these functions deal with sending fake scroll events when
1049 // a captured mouse is being held outside the window
1050 // ----------------------------------------------------------------------------
1052 bool wxScrollHelper::SendAutoScrollEvents(wxScrollWinEvent
& event
) const
1054 // only send the event if the window is scrollable in this direction
1055 wxWindow
*win
= (wxWindow
*)event
.GetEventObject();
1056 return win
->HasScrollbar(event
.GetOrientation());
1059 void wxScrollHelper::StopAutoScrolling()
1061 if ( m_timerAutoScroll
)
1063 delete m_timerAutoScroll
;
1064 m_timerAutoScroll
= (wxTimer
*)NULL
;
1068 void wxScrollHelper::HandleOnMouseEnter(wxMouseEvent
& event
)
1070 StopAutoScrolling();
1075 void wxScrollHelper::HandleOnMouseLeave(wxMouseEvent
& event
)
1077 // don't prevent the usual processing of the event from taking place
1080 // when a captured mouse leave a scrolled window we start generate
1081 // scrolling events to allow, for example, extending selection beyond the
1082 // visible area in some controls
1083 if ( wxWindow::GetCapture() == m_targetWindow
)
1085 // where is the mouse leaving?
1087 wxPoint pt
= event
.GetPosition();
1090 orient
= wxHORIZONTAL
;
1093 else if ( pt
.y
< 0 )
1095 orient
= wxVERTICAL
;
1098 else // we're lower or to the right of the window
1100 wxSize size
= m_targetWindow
->GetClientSize();
1101 if ( pt
.x
> size
.x
)
1103 orient
= wxHORIZONTAL
;
1104 pos
= m_xScrollLines
;
1106 else if ( pt
.y
> size
.y
)
1108 orient
= wxVERTICAL
;
1109 pos
= m_yScrollLines
;
1111 else // this should be impossible
1113 // but seems to happen sometimes under wxMSW - maybe it's a bug
1114 // there but for now just ignore it
1116 //wxFAIL_MSG( _T("can't understand where has mouse gone") );
1122 // only start the auto scroll timer if the window can be scrolled in
1124 if ( !m_targetWindow
->HasScrollbar(orient
) )
1127 delete m_timerAutoScroll
;
1128 m_timerAutoScroll
= new wxAutoScrollTimer
1130 m_targetWindow
, this,
1131 pos
== 0 ? wxEVT_SCROLLWIN_LINEUP
1132 : wxEVT_SCROLLWIN_LINEDOWN
,
1136 m_timerAutoScroll
->Start(50); // FIXME: make configurable
1140 #if wxUSE_MOUSEWHEEL
1142 void wxScrollHelper::HandleOnMouseWheel(wxMouseEvent
& event
)
1144 m_wheelRotation
+= event
.GetWheelRotation();
1145 int lines
= m_wheelRotation
/ event
.GetWheelDelta();
1146 m_wheelRotation
-= lines
* event
.GetWheelDelta();
1151 wxScrollWinEvent newEvent
;
1153 newEvent
.SetPosition(0);
1154 newEvent
.SetOrientation(wxVERTICAL
);
1155 newEvent
.m_eventObject
= m_win
;
1157 if (event
.IsPageScroll())
1160 newEvent
.m_eventType
= wxEVT_SCROLLWIN_PAGEUP
;
1162 newEvent
.m_eventType
= wxEVT_SCROLLWIN_PAGEDOWN
;
1164 m_win
->GetEventHandler()->ProcessEvent(newEvent
);
1168 lines
*= event
.GetLinesPerAction();
1170 newEvent
.m_eventType
= wxEVT_SCROLLWIN_LINEUP
;
1172 newEvent
.m_eventType
= wxEVT_SCROLLWIN_LINEDOWN
;
1174 int times
= abs(lines
);
1175 for (; times
> 0; times
--)
1176 m_win
->GetEventHandler()->ProcessEvent(newEvent
);
1181 #endif // wxUSE_MOUSEWHEEL
1183 // ----------------------------------------------------------------------------
1184 // wxGenericScrolledWindow implementation
1185 // ----------------------------------------------------------------------------
1187 IMPLEMENT_DYNAMIC_CLASS(wxGenericScrolledWindow
, wxPanel
)
1189 BEGIN_EVENT_TABLE(wxGenericScrolledWindow
, wxPanel
)
1190 EVT_PAINT(wxGenericScrolledWindow::OnPaint
)
1193 bool wxGenericScrolledWindow::Create(wxWindow
*parent
,
1198 const wxString
& name
)
1200 m_targetWindow
= this;
1202 bool ok
= wxPanel::Create(parent
, id
, pos
, size
, style
, name
);
1207 wxGenericScrolledWindow::~wxGenericScrolledWindow()
1211 bool wxGenericScrolledWindow::Layout()
1213 if (GetSizer() && m_targetWindow
== this)
1215 // If we're the scroll target, take into account the
1216 // virtual size and scrolled position of the window.
1219 CalcScrolledPosition(0,0, &x
,&y
);
1220 GetVirtualSize(&w
, &h
);
1221 GetSizer()->SetDimension(x
, y
, w
, h
);
1225 // fall back to default for LayoutConstraints
1226 return wxPanel::Layout();
1229 void wxGenericScrolledWindow::DoSetVirtualSize(int x
, int y
)
1231 wxPanel::DoSetVirtualSize( x
, y
);
1234 #if wxUSE_CONSTRAINTS
1235 if (GetAutoLayout())
1240 void wxGenericScrolledWindow::OnPaint(wxPaintEvent
& event
)
1242 // the user code didn't really draw the window if we got here, so set this
1243 // flag to try to call OnDraw() later
1244 m_handler
->ResetDrawnFlag();
1251 wxGenericScrolledWindow::MSWWindowProc(WXUINT nMsg
,
1255 long rc
= wxPanel::MSWWindowProc(nMsg
, wParam
, lParam
);
1257 // we need to process arrows ourselves for scrolling
1258 if ( nMsg
== WM_GETDLGCODE
)
1260 rc
|= DLGC_WANTARROWS
;
1268 #if WXWIN_COMPATIBILITY
1270 void wxGenericScrolledWindow::GetScrollUnitsPerPage (int *x_page
, int *y_page
) const
1272 *x_page
= GetScrollPageSize(wxHORIZONTAL
);
1273 *y_page
= GetScrollPageSize(wxVERTICAL
);
1276 void wxGenericScrolledWindow::CalcUnscrolledPosition(int x
, int y
, float *xx
, float *yy
) const
1279 *xx
= (float)(x
+ m_xScrollPosition
* m_xScrollPixelsPerLine
);
1281 *yy
= (float)(y
+ m_yScrollPosition
* m_yScrollPixelsPerLine
);
1284 #endif // WXWIN_COMPATIBILITY