[wxWidgets.git] / samples / scrollsub / scrollsub.cpp

/*
 * Program: scrollsub
 *
 * Author: Robert Roebling
 *
 * Copyright: (C) 1999, Robert Roebling
 *
 */

// For compilers that support precompilation, includes "wx/wx.h".
#include "wx/wxprec.h"

#ifdef __BORLANDC__
#pragma hdrstop
#endif

#ifndef WX_PRECOMP
#include "wx/wx.h"
#endif

#include "wx/image.h"
#include "wx/listctrl.h"
#include "wx/sizer.h"
#include "wx/log.h"


// derived classes

class MyFrame;
class MyScrolledWindow;
class MyCanvas;
class MyApp;

// MyScrolledWindow

class MyScrolledWindow: public wxScrolledWindow
{
public:
    MyScrolledWindow(){};
    MyScrolledWindow( wxWindow *parent, wxWindowID id, const wxPoint &pos, const wxSize &size );
    ~MyScrolledWindow(){};
    void OnPaint( wxPaintEvent &event );
    void OnSize( wxSizeEvent &event );
private:
    MyCanvas    *m_canvas;

    DECLARE_DYNAMIC_CLASS(MyScrolledWindow)
    DECLARE_EVENT_TABLE()
};

// MyTopLabels

class MyTopLabels: public wxWindow
{
public:
    MyTopLabels() {}
    MyTopLabels( wxScrolledWindow *parent, wxWindowID id, const wxPoint &pos, const wxSize &size );

    void OnPaint( wxPaintEvent &event );

private:
    wxScrolledWindow   *m_owner;

    DECLARE_DYNAMIC_CLASS(MyTopLabels)
    DECLARE_EVENT_TABLE()
};

// MyRightLabels

class MyRightLabels: public wxWindow
{
public:
    MyRightLabels() {}
    MyRightLabels( wxScrolledWindow *parent, wxWindowID id, const wxPoint &pos, const wxSize &size );

    void OnPaint( wxPaintEvent &event );

private:
    wxScrolledWindow   *m_owner;

    DECLARE_DYNAMIC_CLASS(MyRightLabels)
    DECLARE_EVENT_TABLE()
};

// MyCanvas

class MyCanvas: public wxPanel
{
public:
    MyCanvas(){};
    MyCanvas( wxScrolledWindow *parent, MyTopLabels *top, MyRightLabels *right,
              wxWindowID id, const wxPoint &pos, const wxSize &size );
    ~MyCanvas(){};
    void OnPaint( wxPaintEvent &event );
    void ScrollWindow( int dx, int dy, const wxRect *rect );

private:
    wxScrolledWindow   *m_owner;
    MyTopLabels        *m_topLabels;
    MyRightLabels      *m_rightLabels;

    DECLARE_DYNAMIC_CLASS(MyCanvas)
    DECLARE_EVENT_TABLE()
};

// MyFrame

class MyFrame: public wxFrame
{
public:
    MyFrame();

    void OnAbout( wxCommandEvent &event );
    void OnQuit( wxCommandEvent &event );
    void OnFullScreen( wxCommandEvent &event );

    wxScrolledWindow   *m_scrolled;
#if wxUSE_LOG
    wxTextCtrl         *m_log;
#endif // wxUSE_LOG

private:
    DECLARE_DYNAMIC_CLASS(MyFrame)
    DECLARE_EVENT_TABLE()
};

// MyApp

class MyApp: public wxApp
{
public:
    virtual bool OnInit();
};

// main program

IMPLEMENT_APP(MyApp)

// MyScrolledWindow

IMPLEMENT_DYNAMIC_CLASS(MyScrolledWindow, wxScrolledWindow)

BEGIN_EVENT_TABLE(MyScrolledWindow, wxScrolledWindow)
  EVT_PAINT(      MyScrolledWindow::OnPaint)
  EVT_SIZE(       MyScrolledWindow::OnSize)
END_EVENT_TABLE()

MyScrolledWindow::MyScrolledWindow( wxWindow *parent, wxWindowID id,
                    const wxPoint &pos, const wxSize &size )
        : wxScrolledWindow( parent, id, pos, size, wxSUNKEN_BORDER, _T("test canvas") )
{
    MyTopLabels *top = new MyTopLabels( this, wxID_ANY, wxDefaultPosition, wxSize(wxDefaultCoord,25) );
    MyRightLabels *right = new MyRightLabels( this, wxID_ANY, wxDefaultPosition, wxSize(60,wxDefaultCoord) );

    m_canvas = new MyCanvas( this, top, right, wxID_ANY, wxDefaultPosition, wxDefaultSize );

    SetTargetWindow( m_canvas );

    SetBackgroundColour( wxT("WHEAT") );

    SetCursor( wxCursor( wxCURSOR_HAND ) );

    wxBoxSizer *mainsizer = new wxBoxSizer( wxVERTICAL );

    wxBoxSizer *topsizer = new wxBoxSizer( wxHORIZONTAL );
    topsizer->Add( 60,25 );
    topsizer->Add( top, 1, wxEXPAND );

    mainsizer->Add( topsizer, 0, wxEXPAND );

    wxBoxSizer *middlesizer = new wxBoxSizer( wxHORIZONTAL );
    middlesizer->Add( right, 0, wxEXPAND );
    middlesizer->Add( m_canvas, 1, wxEXPAND );

    mainsizer->Add( middlesizer, 1, wxEXPAND );

    SetAutoLayout( true );
    SetSizer( mainsizer );
}

void MyScrolledWindow::OnSize( wxSizeEvent &WXUNUSED(event) )
{
    // We need to override OnSize so that our scrolled
    // window a) does call Layout() to use sizers for
    // positioning the controls but b) does not query
    // the sizer for their size and use that for setting
    // the scrollable area as set that ourselves by
    // calling SetScrollbar() further down.

    Layout();

    AdjustScrollbars();
}

void MyScrolledWindow::OnPaint( wxPaintEvent &WXUNUSED(event) )
{
    wxPaintDC dc( this );

/*
    wxSize size( GetClientSize() );

    long w,h;
    dc.GetTextExtent( wxT("Headline"), &w, &h );

    dc.DrawText( wxT("Headline"), long (size.x / 2 - w / 2), 10 );
*/
}

// MyTopLabels

IMPLEMENT_DYNAMIC_CLASS(MyTopLabels,wxWindow)

BEGIN_EVENT_TABLE(MyTopLabels, wxWindow)
  EVT_PAINT(      MyTopLabels::OnPaint)
END_EVENT_TABLE()

MyTopLabels::MyTopLabels( wxScrolledWindow *parent, wxWindowID id, const wxPoint &pos, const wxSize &size )
  : wxWindow( parent, id, pos, size )
{
    m_owner = parent;
}

void MyTopLabels::OnPaint( wxPaintEvent& WXUNUSED(event) )
{
    wxPaintDC dc(this);

    // This is wrong..  it will translate both x and y if the
    // window is scrolled, the label windows are active in one
    // direction only.  Do the action below instead -- RL.
    //m_owner->PrepareDC( dc );

    int xScrollUnits, xOrigin;

    m_owner->GetViewStart( &xOrigin, 0 );
    m_owner->GetScrollPixelsPerUnit( &xScrollUnits, 0 );
    dc.SetDeviceOrigin( -xOrigin * xScrollUnits, 0 );

    dc.DrawText( _T("Column 1"), 5, 5 );
    dc.DrawText( _T("Column 2"), 105, 5 );
    dc.DrawText( _T("Column 3"), 205, 5 );
}

// MyRightLabels

IMPLEMENT_DYNAMIC_CLASS(MyRightLabels,wxWindow)

BEGIN_EVENT_TABLE(MyRightLabels, wxWindow)
  EVT_PAINT(      MyRightLabels::OnPaint)
END_EVENT_TABLE()

MyRightLabels::MyRightLabels( wxScrolledWindow *parent, wxWindowID id, const wxPoint &pos, const wxSize &size )
  : wxWindow( parent, id, pos, size )
{
    m_owner = parent;
}

void MyRightLabels::OnPaint( wxPaintEvent& WXUNUSED(event) )
{
    wxPaintDC dc(this);

    // This is wrong..  it will translate both x and y if the
    // window is scrolled, the label windows are active in one
    // direction only.  Do the action below instead -- RL.
    //m_owner->PrepareDC( dc );

    int yScrollUnits, yOrigin;

    m_owner->GetViewStart( 0, &yOrigin );
    m_owner->GetScrollPixelsPerUnit( 0, &yScrollUnits );
    dc.SetDeviceOrigin( 0, -yOrigin * yScrollUnits );

    dc.DrawText( _T("Row 1"), 5, 5 );
    dc.DrawText( _T("Row 2"), 5, 30 );
    dc.DrawText( _T("Row 3"), 5, 55 );
    dc.DrawText( _T("Row 4"), 5, 80 );
    dc.DrawText( _T("Row 5"), 5, 105 );
    dc.DrawText( _T("Row 6"), 5, 130 );
}

// MyCanvas

IMPLEMENT_DYNAMIC_CLASS(MyCanvas, wxPanel)

BEGIN_EVENT_TABLE(MyCanvas, wxPanel)
  EVT_PAINT(      MyCanvas::OnPaint)
END_EVENT_TABLE()

MyCanvas::MyCanvas( wxScrolledWindow *parent, MyTopLabels *top, MyRightLabels *right,
    wxWindowID id, const wxPoint &pos, const wxSize &size )
        : wxPanel( parent, id, pos, size, wxSUNKEN_BORDER, _T("test canvas") )
{
    m_owner = parent;
    m_topLabels = top;
    m_rightLabels = right;

    (void)new wxButton( this, wxID_ANY, _T("Hallo I"), wxPoint(0,50), wxSize(100,25) );
    (void)new wxButton( this, wxID_ANY, _T("Hallo II"), wxPoint(200,50), wxSize(100,25) );

    (void)new wxTextCtrl( this, wxID_ANY, _T("Text I"), wxPoint(0,100), wxSize(100,25) );
    (void)new wxTextCtrl( this, wxID_ANY, _T("Text II"), wxPoint(200,100), wxSize(100,25) );

    (void)new wxComboBox( this, wxID_ANY, _T("ComboBox I"), wxPoint(0,150), wxSize(100,25));
    (void)new wxComboBox( this, wxID_ANY, _T("ComboBox II"), wxPoint(200,150), wxSize(100,25));

    SetBackgroundColour( wxT("WHEAT") );

    SetCursor( wxCursor( wxCURSOR_IBEAM ) );
}

void MyCanvas::OnPaint( wxPaintEvent &WXUNUSED(event) )
{
    wxPaintDC dc( this );
    m_owner->PrepareDC( dc );

    dc.SetPen( *wxBLACK_PEN );

    // OK, let's assume we are a grid control and we have two
    // grid cells. Here in OnPaint we want to know which cell
    // to redraw so that we prevent redrawing cells that don't
    // need to get redrawn. We have one cell at (0,0) and one
    // more at (200,0), both having a size of (100,25).

    // We can query how much the window has been scrolled
    // by calling CalcUnscrolledPosition()

    int scroll_x = 0;
    int scroll_y = 0;
    m_owner->CalcUnscrolledPosition( scroll_x, scroll_y, &scroll_x, &scroll_y );

    // We also need to know the size of the window to see which
    // cells are completely hidden and not get redrawn

    int size_x = 0;
    int size_y = 0;
    GetClientSize( &size_x, &size_y );

    // First cell: (0,0)(100,25)
    // It it on screen?
    if ((0+100-scroll_x > 0) && (0+25-scroll_y > 0) &&
        (0-scroll_x < size_x) && (0-scroll_y < size_y))
    {
        // Has the region on screen been exposed?
        if (IsExposed(0,0,100,25))
        {
            wxLogMessage( wxT("Redraw first cell") );
            dc.DrawRectangle( 0, 0, 100, 25 );
            dc.DrawText( _T("First Cell"), 5, 5 );
        }
    }


    // Second cell: (0,200)(100,25)
    // It it on screen?
    if ((200+100-scroll_x > 0) && (0+25-scroll_y > 0) &&
        (200-scroll_x < size_x) && (0-scroll_y < size_y))
    {
        // Has the region on screen been exposed?
        if (IsExposed(200,0,100,25))
        {
            wxLogMessage( wxT("Redraw second cell") );
            dc.DrawRectangle( 200, 0, 100, 25 );
            dc.DrawText( _T("Second Cell"), 205, 5 );
        }
    }

}

void MyCanvas::ScrollWindow( int dx, int dy, const wxRect *rect )
{
    wxPanel::ScrollWindow( dx, dy, rect );
    m_topLabels->ScrollWindow( dx, 0, rect );
    m_rightLabels->ScrollWindow( 0, dy, rect );
}

// MyFrame

const int ID_QUIT  = wxID_EXIT;
const int ID_FULL  = 109;
const int ID_ABOUT = wxID_ABOUT;

IMPLEMENT_DYNAMIC_CLASS( MyFrame, wxFrame )

BEGIN_EVENT_TABLE(MyFrame,wxFrame)
  EVT_MENU    (ID_ABOUT, MyFrame::OnAbout)
  EVT_MENU    (ID_QUIT,  MyFrame::OnQuit)
  EVT_MENU    (ID_FULL,  MyFrame::OnFullScreen)
END_EVENT_TABLE()

MyFrame::MyFrame()
       : wxFrame( (wxFrame *)NULL, wxID_ANY, _T("wxScrolledWindow sample"),
                  wxPoint(20,20), wxSize(470,500) )
{
    wxMenu *file_menu = new wxMenu();
    file_menu->Append( ID_ABOUT, _T("&About..."));
    file_menu->Append( ID_FULL, _T("&Full screen on/off"));
    file_menu->Append( ID_QUIT, _T("E&xit\tAlt-X"));

    wxMenuBar *menu_bar = new wxMenuBar();
    menu_bar->Append(file_menu, _T("&File"));

    SetMenuBar( menu_bar );

#if wxUSE_STATUSBAR
    CreateStatusBar(2);
    int widths[] = { -1, 100 };
    SetStatusWidths( 2, widths );
#endif // wxUSE_STATUSBAR

    m_scrolled = new MyScrolledWindow( this, wxID_ANY, wxDefaultPosition, wxSize(100,100) );
    m_scrolled->SetScrollbars( 10, 10, 50, 50 );

#if wxUSE_LOG
    m_log = new wxTextCtrl( this, wxID_ANY, _T("This is the log window.\n"), wxPoint(0,0), wxSize(100,100), wxTE_MULTILINE );
    wxLog *old_log = wxLog::SetActiveTarget( new wxLogTextCtrl( m_log ) );
    delete old_log;
#endif // wxUSE_LOG

    wxBoxSizer *topsizer = new wxBoxSizer( wxVERTICAL );
    topsizer->Add( m_scrolled, 1, wxEXPAND );
#if wxUSE_LOG
    topsizer->Add( m_log, 0, wxEXPAND );
#endif // wxUSE_LOG

    SetAutoLayout( true );
    SetSizer( topsizer );
}

void MyFrame::OnQuit( wxCommandEvent &WXUNUSED(event) )
{
  Close( true );
}

void MyFrame::OnFullScreen( wxCommandEvent &WXUNUSED(event) )
{
   ShowFullScreen( !IsFullScreen(), wxFULLSCREEN_NOBORDER|wxFULLSCREEN_NOCAPTION );
}

void MyFrame::OnAbout( wxCommandEvent &WXUNUSED(event) )
{
  (void)wxMessageBox( _T("wxScroll demo II\n")
                      _T("Robert Roebling (c) 1998"),
                      _T("About wxScroll II Demo"), wxICON_INFORMATION | wxOK );
}

//-----------------------------------------------------------------------------
// MyApp
//-----------------------------------------------------------------------------

bool MyApp::OnInit()
{
    if ( !wxApp::OnInit() )
        return false;

    wxFrame *frame = new MyFrame();
    frame->Show( true );

    return true;
}
Commit	Line	Data
ecab4dba RR	1	/*
	2	* Program: scrollsub
	3	*
	4	* Author: Robert Roebling
	5	*
	6	* Copyright: (C) 1999, Robert Roebling
	7	*
	8	*/
	9
	10	// For compilers that support precompilation, includes "wx/wx.h".
	11	#include "wx/wxprec.h"
	12
	13	#ifdef __BORLANDC__
	14	#pragma hdrstop
	15	#endif
	16
	17	#ifndef WX_PRECOMP
	18	#include "wx/wx.h"
	19	#endif
	20
	21	#include "wx/image.h"
	22	#include "wx/listctrl.h"
	23	#include "wx/sizer.h"
	24	#include "wx/log.h"
	25
	26
	27	// derived classes
	28
	29	class MyFrame;
	30	class MyScrolledWindow;
	31	class MyCanvas;
	32	class MyApp;
	33
	34	// MyScrolledWindow
	35
	36	class MyScrolledWindow: public wxScrolledWindow
	37	{
	38	public:
925e9792	39	MyScrolledWindow(){};
ecab4dba	40	MyScrolledWindow( wxWindow *parent, wxWindowID id, const wxPoint &pos, const wxSize &size );
925e9792	41	~MyScrolledWindow(){};
ecab4dba	42	void OnPaint( wxPaintEvent &event );
c376d80f	43	void OnSize( wxSizeEvent &event );
ecab4dba RR	44	private:
	45	MyCanvas *m_canvas;
	46
	47	DECLARE_DYNAMIC_CLASS(MyScrolledWindow)
	48	DECLARE_EVENT_TABLE()
	49	};
	50
dfd6b52f RR	51	// MyTopLabels
	52
	53	class MyTopLabels: public wxWindow
	54	{
	55	public:
	56	MyTopLabels() {}
	57	MyTopLabels( wxScrolledWindow *parent, wxWindowID id, const wxPoint &pos, const wxSize &size );
5f3286d1	58
dfd6b52f	59	void OnPaint( wxPaintEvent &event );
5f3286d1	60
dfd6b52f RR	61	private:
dfd6b52f RR	62	wxScrolledWindow *m_owner;
5f3286d1	63
dfd6b52f RR	64	DECLARE_DYNAMIC_CLASS(MyTopLabels)
	65	DECLARE_EVENT_TABLE()
	66	};
	67
	68	// MyRightLabels
	69
	70	class MyRightLabels: public wxWindow
	71	{
	72	public:
	73	MyRightLabels() {}
	74	MyRightLabels( wxScrolledWindow *parent, wxWindowID id, const wxPoint &pos, const wxSize &size );
5f3286d1	75
dfd6b52f	76	void OnPaint( wxPaintEvent &event );
5f3286d1	77
dfd6b52f RR	78	private:
dfd6b52f RR	79	wxScrolledWindow *m_owner;
5f3286d1	80
dfd6b52f RR	81	DECLARE_DYNAMIC_CLASS(MyRightLabels)
	82	DECLARE_EVENT_TABLE()
	83	};
	84
ecab4dba RR	85	// MyCanvas
	86
	87	class MyCanvas: public wxPanel
	88	{
	89	public:
925e9792	90	MyCanvas(){};
dfd6b52f RR	91	MyCanvas( wxScrolledWindow parent, MyTopLabels top, MyRightLabels *right,
dfd6b52f RR	92	wxWindowID id, const wxPoint &pos, const wxSize &size );
925e9792	93	~MyCanvas(){};
ecab4dba	94	void OnPaint( wxPaintEvent &event );
dfd6b52f	95	void ScrollWindow( int dx, int dy, const wxRect *rect );
ecab4dba RR	96
	97	private:
	98	wxScrolledWindow *m_owner;
dfd6b52f RR	99	MyTopLabels *m_topLabels;
dfd6b52f RR	100	MyRightLabels *m_rightLabels;
ecab4dba RR	101
	102	DECLARE_DYNAMIC_CLASS(MyCanvas)
	103	DECLARE_EVENT_TABLE()
	104	};
	105
	106	// MyFrame
	107
	108	class MyFrame: public wxFrame
	109	{
	110	public:
	111	MyFrame();
	112
	113	void OnAbout( wxCommandEvent &event );
	114	void OnQuit( wxCommandEvent &event );
3d0c4d2e	115	void OnFullScreen( wxCommandEvent &event );
ecab4dba RR	116
ecab4dba RR	117	wxScrolledWindow *m_scrolled;
b29903d4	118	#if wxUSE_LOG
ecab4dba	119	wxTextCtrl *m_log;
b29903d4	120	#endif // wxUSE_LOG
ecab4dba RR	121
	122	private:
	123	DECLARE_DYNAMIC_CLASS(MyFrame)
	124	DECLARE_EVENT_TABLE()
	125	};
	126
	127	// MyApp
	128
	129	class MyApp: public wxApp
	130	{
	131	public:
	132	virtual bool OnInit();
	133	};
	134
	135	// main program
	136
	137	IMPLEMENT_APP(MyApp)
	138
	139	// MyScrolledWindow
	140
	141	IMPLEMENT_DYNAMIC_CLASS(MyScrolledWindow, wxScrolledWindow)
	142
	143	BEGIN_EVENT_TABLE(MyScrolledWindow, wxScrolledWindow)
c376d80f RR	144	EVT_PAINT( MyScrolledWindow::OnPaint)
c376d80f RR	145	EVT_SIZE( MyScrolledWindow::OnSize)
ecab4dba RR	146	END_EVENT_TABLE()
	147
	148	MyScrolledWindow::MyScrolledWindow( wxWindow *parent, wxWindowID id,
	149	const wxPoint &pos, const wxSize &size )
600683ca	150	: wxScrolledWindow( parent, id, pos, size, wxSUNKEN_BORDER, _T("test canvas") )
ecab4dba	151	{
422d0ff0 WS	152	MyTopLabels *top = new MyTopLabels( this, wxID_ANY, wxDefaultPosition, wxSize(wxDefaultCoord,25) );
422d0ff0 WS	153	MyRightLabels *right = new MyRightLabels( this, wxID_ANY, wxDefaultPosition, wxSize(60,wxDefaultCoord) );
dfd6b52f	154
b62ca03d	155	m_canvas = new MyCanvas( this, top, right, wxID_ANY, wxDefaultPosition, wxDefaultSize );
5f3286d1	156
ecab4dba RR	157	SetTargetWindow( m_canvas );
ecab4dba RR	158
a60b1f5d	159	SetBackgroundColour( wxT("WHEAT") );
5f3286d1	160
ecab4dba	161	SetCursor( wxCursor( wxCURSOR_HAND ) );
5f3286d1	162
dfd6b52f	163	wxBoxSizer *mainsizer = new wxBoxSizer( wxVERTICAL );
5f3286d1	164
dfd6b52f RR	165	wxBoxSizer *topsizer = new wxBoxSizer( wxHORIZONTAL );
dfd6b52f RR	166	topsizer->Add( 60,25 );
5f3286d1 VZ	167	topsizer->Add( top, 1, wxEXPAND );
5f3286d1 VZ	168
dfd6b52f	169	mainsizer->Add( topsizer, 0, wxEXPAND );
5f3286d1	170
dfd6b52f RR	171	wxBoxSizer *middlesizer = new wxBoxSizer( wxHORIZONTAL );
	172	middlesizer->Add( right, 0, wxEXPAND );
	173	middlesizer->Add( m_canvas, 1, wxEXPAND );
5f3286d1	174
dfd6b52f	175	mainsizer->Add( middlesizer, 1, wxEXPAND );
ecab4dba	176
b62ca03d	177	SetAutoLayout( true );
dfd6b52f	178	SetSizer( mainsizer );
ecab4dba RR	179	}
ecab4dba RR	180
c376d80f RR	181	void MyScrolledWindow::OnSize( wxSizeEvent &WXUNUSED(event) )
	182	{
	183	// We need to override OnSize so that our scrolled
	184	// window a) does call Layout() to use sizers for
	185	// positioning the controls but b) does not query
	186	// the sizer for their size and use that for setting
	187	// the scrollable area as set that ourselves by
	188	// calling SetScrollbar() further down.
	189
	190	Layout();
	191
	192	AdjustScrollbars();
	193	}
	194
ecab4dba RR	195	void MyScrolledWindow::OnPaint( wxPaintEvent &WXUNUSED(event) )
	196	{
	197	wxPaintDC dc( this );
	198
dfd6b52f	199	/*
ecab4dba	200	wxSize size( GetClientSize() );
5f3286d1	201
ecab4dba RR	202	long w,h;
	203	dc.GetTextExtent( wxT("Headline"), &w, &h );
	204
	205	dc.DrawText( wxT("Headline"), long (size.x / 2 - w / 2), 10 );
dfd6b52f RR	206	*/
	207	}
	208
	209	// MyTopLabels
	210
	211	IMPLEMENT_DYNAMIC_CLASS(MyTopLabels,wxWindow)
	212
	213	BEGIN_EVENT_TABLE(MyTopLabels, wxWindow)
	214	EVT_PAINT( MyTopLabels::OnPaint)
	215	END_EVENT_TABLE()
	216
	217	MyTopLabels::MyTopLabels( wxScrolledWindow *parent, wxWindowID id, const wxPoint &pos, const wxSize &size )
	218	: wxWindow( parent, id, pos, size )
	219	{
	220	m_owner = parent;
	221	}
	222
4547faae	223	void MyTopLabels::OnPaint( wxPaintEvent& WXUNUSED(event) )
dfd6b52f RR	224	{
dfd6b52f RR	225	wxPaintDC dc(this);
566d84a7 RL	226
	227	// This is wrong.. it will translate both x and y if the
	228	// window is scrolled, the label windows are active in one
	229	// direction only. Do the action below instead -- RL.
	230	//m_owner->PrepareDC( dc );
	231
	232	int xScrollUnits, xOrigin;
	233
	234	m_owner->GetViewStart( &xOrigin, 0 );
	235	m_owner->GetScrollPixelsPerUnit( &xScrollUnits, 0 );
	236	dc.SetDeviceOrigin( -xOrigin * xScrollUnits, 0 );
	237
600683ca MB	238	dc.DrawText( _T("Column 1"), 5, 5 );
	239	dc.DrawText( _T("Column 2"), 105, 5 );
	240	dc.DrawText( _T("Column 3"), 205, 5 );
dfd6b52f RR	241	}
	242
	243	// MyRightLabels
	244
	245	IMPLEMENT_DYNAMIC_CLASS(MyRightLabels,wxWindow)
	246
	247	BEGIN_EVENT_TABLE(MyRightLabels, wxWindow)
	248	EVT_PAINT( MyRightLabels::OnPaint)
	249	END_EVENT_TABLE()
	250
	251	MyRightLabels::MyRightLabels( wxScrolledWindow *parent, wxWindowID id, const wxPoint &pos, const wxSize &size )
	252	: wxWindow( parent, id, pos, size )
	253	{
	254	m_owner = parent;
	255	}
	256
4547faae	257	void MyRightLabels::OnPaint( wxPaintEvent& WXUNUSED(event) )
dfd6b52f RR	258	{
dfd6b52f RR	259	wxPaintDC dc(this);
566d84a7 RL	260
	261	// This is wrong.. it will translate both x and y if the
	262	// window is scrolled, the label windows are active in one
	263	// direction only. Do the action below instead -- RL.
	264	//m_owner->PrepareDC( dc );
	265
	266	int yScrollUnits, yOrigin;
	267
	268	m_owner->GetViewStart( 0, &yOrigin );
	269	m_owner->GetScrollPixelsPerUnit( 0, &yScrollUnits );
	270	dc.SetDeviceOrigin( 0, -yOrigin * yScrollUnits );
	271
600683ca MB	272	dc.DrawText( _T("Row 1"), 5, 5 );
	273	dc.DrawText( _T("Row 2"), 5, 30 );
	274	dc.DrawText( _T("Row 3"), 5, 55 );
	275	dc.DrawText( _T("Row 4"), 5, 80 );
	276	dc.DrawText( _T("Row 5"), 5, 105 );
	277	dc.DrawText( _T("Row 6"), 5, 130 );
ecab4dba RR	278	}
	279
	280	// MyCanvas
	281
	282	IMPLEMENT_DYNAMIC_CLASS(MyCanvas, wxPanel)
	283
	284	BEGIN_EVENT_TABLE(MyCanvas, wxPanel)
	285	EVT_PAINT( MyCanvas::OnPaint)
	286	END_EVENT_TABLE()
	287
dfd6b52f RR	288	MyCanvas::MyCanvas( wxScrolledWindow parent, MyTopLabels top, MyRightLabels *right,
dfd6b52f RR	289	wxWindowID id, const wxPoint &pos, const wxSize &size )
600683ca	290	: wxPanel( parent, id, pos, size, wxSUNKEN_BORDER, _T("test canvas") )
ecab4dba RR	291	{
ecab4dba RR	292	m_owner = parent;
dfd6b52f RR	293	m_topLabels = top;
dfd6b52f RR	294	m_rightLabels = right;
5f3286d1	295
b62ca03d WS	296	(void)new wxButton( this, wxID_ANY, _T("Hallo I"), wxPoint(0,50), wxSize(100,25) );
b62ca03d WS	297	(void)new wxButton( this, wxID_ANY, _T("Hallo II"), wxPoint(200,50), wxSize(100,25) );
5f3286d1	298
b62ca03d WS	299	(void)new wxTextCtrl( this, wxID_ANY, _T("Text I"), wxPoint(0,100), wxSize(100,25) );
b62ca03d WS	300	(void)new wxTextCtrl( this, wxID_ANY, _T("Text II"), wxPoint(200,100), wxSize(100,25) );
ecab4dba	301
b62ca03d WS	302	(void)new wxComboBox( this, wxID_ANY, _T("ComboBox I"), wxPoint(0,150), wxSize(100,25));
b62ca03d WS	303	(void)new wxComboBox( this, wxID_ANY, _T("ComboBox II"), wxPoint(200,150), wxSize(100,25));
2a0e49a4	304
a60b1f5d	305	SetBackgroundColour( wxT("WHEAT") );
5f3286d1	306
ecab4dba RR	307	SetCursor( wxCursor( wxCURSOR_IBEAM ) );
	308	}
	309
ecab4dba RR	310	void MyCanvas::OnPaint( wxPaintEvent &WXUNUSED(event) )
	311	{
	312	wxPaintDC dc( this );
	313	m_owner->PrepareDC( dc );
	314
76db86e7	315	dc.SetPen( *wxBLACK_PEN );
5f3286d1	316
17800993 RR	317	// OK, let's assume we are a grid control and we have two
	318	// grid cells. Here in OnPaint we want to know which cell
	319	// to redraw so that we prevent redrawing cells that don't
	320	// need to get redrawn. We have one cell at (0,0) and one
	321	// more at (200,0), both having a size of (100,25).
5f3286d1 VZ	322
5f3286d1 VZ	323	// We can query how much the window has been scrolled
17800993	324	// by calling CalcUnscrolledPosition()
5f3286d1	325
17800993 RR	326	int scroll_x = 0;
	327	int scroll_y = 0;
	328	m_owner->CalcUnscrolledPosition( scroll_x, scroll_y, &scroll_x, &scroll_y );
5f3286d1	329
17800993 RR	330	// We also need to know the size of the window to see which
17800993 RR	331	// cells are completely hidden and not get redrawn
5f3286d1	332
17800993 RR	333	int size_x = 0;
	334	int size_y = 0;
	335	GetClientSize( &size_x, &size_y );
5f3286d1	336
17800993 RR	337	// First cell: (0,0)(100,25)
	338	// It it on screen?
	339	if ((0+100-scroll_x > 0) && (0+25-scroll_y > 0) &&
	340	(0-scroll_x < size_x) && (0-scroll_y < size_y))
	341	{
dfd6b52f	342	// Has the region on screen been exposed?
2f6c54eb VZ	343	if (IsExposed(0,0,100,25))
	344	{
	345	wxLogMessage( wxT("Redraw first cell") );
17800993	346	dc.DrawRectangle( 0, 0, 100, 25 );
600683ca	347	dc.DrawText( _T("First Cell"), 5, 5 );
2f6c54eb	348	}
17800993	349	}
5f3286d1 VZ	350
5f3286d1 VZ	351
17800993 RR	352	// Second cell: (0,200)(100,25)
	353	// It it on screen?
	354	if ((200+100-scroll_x > 0) && (0+25-scroll_y > 0) &&
	355	(200-scroll_x < size_x) && (0-scroll_y < size_y))
	356	{
dfd6b52f	357	// Has the region on screen been exposed?
2f6c54eb VZ	358	if (IsExposed(200,0,100,25))
	359	{
	360	wxLogMessage( wxT("Redraw second cell") );
17800993	361	dc.DrawRectangle( 200, 0, 100, 25 );
600683ca	362	dc.DrawText( _T("Second Cell"), 205, 5 );
2f6c54eb	363	}
17800993	364	}
5f3286d1	365
ecab4dba RR	366	}
ecab4dba RR	367
dfd6b52f RR	368	void MyCanvas::ScrollWindow( int dx, int dy, const wxRect *rect )
	369	{
	370	wxPanel::ScrollWindow( dx, dy, rect );
	371	m_topLabels->ScrollWindow( dx, 0, rect );
	372	m_rightLabels->ScrollWindow( 0, dy, rect );
	373	}
ecab4dba RR	374
	375	// MyFrame
	376
91b07357	377	const int ID_QUIT = wxID_EXIT;
3d0c4d2e	378	const int ID_FULL = 109;
91b07357	379	const int ID_ABOUT = wxID_ABOUT;
ecab4dba RR	380
	381	IMPLEMENT_DYNAMIC_CLASS( MyFrame, wxFrame )
	382
	383	BEGIN_EVENT_TABLE(MyFrame,wxFrame)
	384	EVT_MENU (ID_ABOUT, MyFrame::OnAbout)
	385	EVT_MENU (ID_QUIT, MyFrame::OnQuit)
3d0c4d2e	386	EVT_MENU (ID_FULL, MyFrame::OnFullScreen)
ecab4dba RR	387	END_EVENT_TABLE()
	388
	389	MyFrame::MyFrame()
b62ca03d	390	: wxFrame( (wxFrame *)NULL, wxID_ANY, _T("wxScrolledWindow sample"),
ecab4dba RR	391	wxPoint(20,20), wxSize(470,500) )
	392	{
	393	wxMenu *file_menu = new wxMenu();
600683ca MB	394	file_menu->Append( ID_ABOUT, _T("&About..."));
	395	file_menu->Append( ID_FULL, _T("&Full screen on/off"));
	396	file_menu->Append( ID_QUIT, _T("E&xit\tAlt-X"));
ecab4dba RR	397
ecab4dba RR	398	wxMenuBar *menu_bar = new wxMenuBar();
600683ca	399	menu_bar->Append(file_menu, _T("&File"));
ecab4dba RR	400
	401	SetMenuBar( menu_bar );
	402
8520f137	403	#if wxUSE_STATUSBAR
ecab4dba RR	404	CreateStatusBar(2);
	405	int widths[] = { -1, 100 };
	406	SetStatusWidths( 2, widths );
8520f137	407	#endif // wxUSE_STATUSBAR
ecab4dba	408
b62ca03d	409	m_scrolled = new MyScrolledWindow( this, wxID_ANY, wxDefaultPosition, wxSize(100,100) );
4547faae	410	m_scrolled->SetScrollbars( 10, 10, 50, 50 );
5f3286d1	411
b29903d4	412	#if wxUSE_LOG
b62ca03d	413	m_log = new wxTextCtrl( this, wxID_ANY, _T("This is the log window.\n"), wxPoint(0,0), wxSize(100,100), wxTE_MULTILINE );
ecab4dba RR	414	wxLog *old_log = wxLog::SetActiveTarget( new wxLogTextCtrl( m_log ) );
ecab4dba RR	415	delete old_log;
b29903d4	416	#endif // wxUSE_LOG
5f3286d1	417
ecab4dba	418	wxBoxSizer *topsizer = new wxBoxSizer( wxVERTICAL );
ecab4dba	419	topsizer->Add( m_scrolled, 1, wxEXPAND );
b29903d4	420	#if wxUSE_LOG
ecab4dba	421	topsizer->Add( m_log, 0, wxEXPAND );
b29903d4	422	#endif // wxUSE_LOG
ecab4dba	423
b62ca03d	424	SetAutoLayout( true );
ecab4dba RR	425	SetSizer( topsizer );
	426	}
	427
	428	void MyFrame::OnQuit( wxCommandEvent &WXUNUSED(event) )
	429	{
b62ca03d	430	Close( true );
ecab4dba RR	431	}
ecab4dba RR	432
3d0c4d2e RR	433	void MyFrame::OnFullScreen( wxCommandEvent &WXUNUSED(event) )
	434	{
	435	ShowFullScreen( !IsFullScreen(), wxFULLSCREEN_NOBORDER\|wxFULLSCREEN_NOCAPTION );
	436	}
	437
ecab4dba RR	438	void MyFrame::OnAbout( wxCommandEvent &WXUNUSED(event) )
ecab4dba RR	439	{
600683ca MB	440	(void)wxMessageBox( _T("wxScroll demo II\n")
	441	_T("Robert Roebling (c) 1998"),
	442	_T("About wxScroll II Demo"), wxICON_INFORMATION \| wxOK );
ecab4dba RR	443	}
	444
	445	//-----------------------------------------------------------------------------
	446	// MyApp
	447	//-----------------------------------------------------------------------------
	448
	449	bool MyApp::OnInit()
	450	{
45e6e6f8 VZ	451	if ( !wxApp::OnInit() )
	452	return false;
	453
ecab4dba	454	wxFrame *frame = new MyFrame();
b62ca03d	455	frame->Show( true );
ecab4dba	456
b62ca03d	457	return true;
ecab4dba RR	458	}
ecab4dba RR	459