[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 );

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;
    wxTextCtrl         *m_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)
END_EVENT_TABLE()

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

    m_canvas = new MyCanvas( this, top, right, -1, 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 );
    
    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 );
}

MyScrolledWindow::~MyScrolledWindow()
{
}

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 &event )
{
    wxPaintDC dc(this);
    m_owner->PrepareDC( dc );
    dc.DrawText( "Column 1", 5, 5 );
    dc.DrawText( "Column 2", 105, 5 );
    dc.DrawText( "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 &event )
{
    wxPaintDC dc(this);
    m_owner->PrepareDC( dc );
    dc.DrawText( "Row 1", 5, 5 );
    dc.DrawText( "Row 2", 5, 30 );
    dc.DrawText( "Row 3", 5, 55 );
    dc.DrawText( "Row 4", 5, 80 );
    dc.DrawText( "Row 5", 5, 105 );
    dc.DrawText( "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, "test canvas" )
{
    m_owner = parent;
    m_topLabels = top;
    m_rightLabels = right;
    
    (void)new wxButton( this, -1, "Hallo I", wxPoint(0,50), wxSize(100,25) );
    (void)new wxButton( this, -1, "Hallo II", wxPoint(200,50), wxSize(100,25) );
    
    (void)new wxTextCtrl( this, -1, "Text I", wxPoint(0,100), wxSize(100,25) );
    (void)new wxTextCtrl( this, -1, "Text II", wxPoint(200,100), wxSize(100,25) );

    SetBackgroundColour( wxT("WHEAT") );
  
    SetCursor( wxCursor( wxCURSOR_IBEAM ) );
}

MyCanvas::~MyCanvas()
{
}

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( "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( "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  = 108;
const int ID_FULL  = 109;
const int ID_ABOUT = 110;

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, -1, "wxScrolledWindow sample",
                  wxPoint(20,20), wxSize(470,500) )
{
    wxMenu *file_menu = new wxMenu();
    file_menu->Append( ID_ABOUT, "&About...");
    file_menu->Append( ID_FULL, "&Full screen on/off");
    file_menu->Append( ID_QUIT, "E&xit\tAlt-X");

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

    SetMenuBar( menu_bar );

    CreateStatusBar(2);
    int widths[] = { -1, 100 };
    SetStatusWidths( 2, widths );

    m_scrolled = new MyScrolledWindow( this, -1, wxDefaultPosition, wxSize(100,100) );
    m_scrolled->SetScrollbars( 10, 10, 50, 100 );
  
    m_log = new wxTextCtrl( this, -1, "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;
    
    wxBoxSizer *topsizer = new wxBoxSizer( wxVERTICAL );
    topsizer->Add( m_scrolled, 1, wxEXPAND );
    topsizer->Add( m_log, 0, wxEXPAND );

    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( "wxScroll demo II\n"
                      "Robert Roebling (c) 1998",
                      "About wxScroll II Demo", wxICON_INFORMATION | wxOK );
}

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

bool MyApp::OnInit()
{
    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:
	39	MyScrolledWindow() {}
	40	MyScrolledWindow( wxWindow *parent, wxWindowID id, const wxPoint &pos, const wxSize &size );
	41	~MyScrolledWindow();
	42	void OnPaint( wxPaintEvent &event );
	43
	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 );
	58
	59	void OnPaint( wxPaintEvent &event );
	60
	61	private:
	62	wxScrolledWindow *m_owner;
	63
	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 );
	75
	76	void OnPaint( wxPaintEvent &event );
	77
	78	private:
	79	wxScrolledWindow *m_owner;
	80
	81	DECLARE_DYNAMIC_CLASS(MyRightLabels)
	82	DECLARE_EVENT_TABLE()
	83	};
	84
ecab4dba RR	85	// MyCanvas
	86
	87	class MyCanvas: public wxPanel
	88	{
	89	public:
	90	MyCanvas() {}
dfd6b52f RR	91	MyCanvas( wxScrolledWindow parent, MyTopLabels top, MyRightLabels *right,
dfd6b52f RR	92	wxWindowID id, const wxPoint &pos, const wxSize &size );
ecab4dba RR	93	~MyCanvas();
ecab4dba RR	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
	117	wxScrolledWindow *m_scrolled;
	118	wxTextCtrl *m_log;
	119
	120	private:
	121	DECLARE_DYNAMIC_CLASS(MyFrame)
	122	DECLARE_EVENT_TABLE()
	123	};
	124
	125	// MyApp
	126
	127	class MyApp: public wxApp
	128	{
	129	public:
	130	virtual bool OnInit();
	131	};
	132
	133	// main program
	134
	135	IMPLEMENT_APP(MyApp)
	136
	137	// MyScrolledWindow
	138
	139	IMPLEMENT_DYNAMIC_CLASS(MyScrolledWindow, wxScrolledWindow)
	140
	141	BEGIN_EVENT_TABLE(MyScrolledWindow, wxScrolledWindow)
	142	EVT_PAINT( MyScrolledWindow::OnPaint)
	143	END_EVENT_TABLE()
	144
	145	MyScrolledWindow::MyScrolledWindow( wxWindow *parent, wxWindowID id,
	146	const wxPoint &pos, const wxSize &size )
	147	: wxScrolledWindow( parent, id, pos, size, wxSUNKEN_BORDER, "test canvas" )
	148	{
dfd6b52f RR	149	MyTopLabels *top = new MyTopLabels( this, -1, wxDefaultPosition, wxSize(-1,25) );
	150	MyRightLabels *right = new MyRightLabels( this, -1, wxDefaultPosition, wxSize(60,-1) );
	151
	152	m_canvas = new MyCanvas( this, top, right, -1, wxDefaultPosition, wxDefaultSize );
ecab4dba RR	153
	154	SetTargetWindow( m_canvas );
	155
a60b1f5d	156	SetBackgroundColour( wxT("WHEAT") );
ecab4dba RR	157
	158	SetCursor( wxCursor( wxCURSOR_HAND ) );
	159
dfd6b52f	160	wxBoxSizer *mainsizer = new wxBoxSizer( wxVERTICAL );
ecab4dba	161
dfd6b52f RR	162	wxBoxSizer *topsizer = new wxBoxSizer( wxHORIZONTAL );
	163	topsizer->Add( 60,25 );
	164	topsizer->Add( top, 1 );
	165
	166	mainsizer->Add( topsizer, 0, wxEXPAND );
	167
	168	wxBoxSizer *middlesizer = new wxBoxSizer( wxHORIZONTAL );
	169	middlesizer->Add( right, 0, wxEXPAND );
	170	middlesizer->Add( m_canvas, 1, wxEXPAND );
ecab4dba	171
dfd6b52f	172	mainsizer->Add( middlesizer, 1, wxEXPAND );
ecab4dba RR	173
ecab4dba RR	174	SetAutoLayout( TRUE );
dfd6b52f	175	SetSizer( mainsizer );
ecab4dba RR	176	}
	177
	178	MyScrolledWindow::~MyScrolledWindow()
	179	{
	180	}
	181
	182	void MyScrolledWindow::OnPaint( wxPaintEvent &WXUNUSED(event) )
	183	{
	184	wxPaintDC dc( this );
	185
dfd6b52f	186	/*
ecab4dba RR	187	wxSize size( GetClientSize() );
	188
	189	long w,h;
	190	dc.GetTextExtent( wxT("Headline"), &w, &h );
	191
	192	dc.DrawText( wxT("Headline"), long (size.x / 2 - w / 2), 10 );
dfd6b52f RR	193	*/
	194	}
	195
	196	// MyTopLabels
	197
	198	IMPLEMENT_DYNAMIC_CLASS(MyTopLabels,wxWindow)
	199
	200	BEGIN_EVENT_TABLE(MyTopLabels, wxWindow)
	201	EVT_PAINT( MyTopLabels::OnPaint)
	202	END_EVENT_TABLE()
	203
	204	MyTopLabels::MyTopLabels( wxScrolledWindow *parent, wxWindowID id, const wxPoint &pos, const wxSize &size )
	205	: wxWindow( parent, id, pos, size )
	206	{
	207	m_owner = parent;
	208	}
	209
	210	void MyTopLabels::OnPaint( wxPaintEvent &event )
	211	{
	212	wxPaintDC dc(this);
	213	m_owner->PrepareDC( dc );
8f75cb6c RR	214	dc.DrawText( "Column 1", 5, 5 );
	215	dc.DrawText( "Column 2", 105, 5 );
	216	dc.DrawText( "Column 3", 205, 5 );
dfd6b52f RR	217	}
	218
	219	// MyRightLabels
	220
	221	IMPLEMENT_DYNAMIC_CLASS(MyRightLabels,wxWindow)
	222
	223	BEGIN_EVENT_TABLE(MyRightLabels, wxWindow)
	224	EVT_PAINT( MyRightLabels::OnPaint)
	225	END_EVENT_TABLE()
	226
	227	MyRightLabels::MyRightLabels( wxScrolledWindow *parent, wxWindowID id, const wxPoint &pos, const wxSize &size )
	228	: wxWindow( parent, id, pos, size )
	229	{
	230	m_owner = parent;
	231	}
	232
	233	void MyRightLabels::OnPaint( wxPaintEvent &event )
	234	{
	235	wxPaintDC dc(this);
	236	m_owner->PrepareDC( dc );
	237	dc.DrawText( "Row 1", 5, 5 );
	238	dc.DrawText( "Row 2", 5, 30 );
	239	dc.DrawText( "Row 3", 5, 55 );
	240	dc.DrawText( "Row 4", 5, 80 );
	241	dc.DrawText( "Row 5", 5, 105 );
	242	dc.DrawText( "Row 6", 5, 130 );
ecab4dba RR	243	}
	244
	245	// MyCanvas
	246
	247	IMPLEMENT_DYNAMIC_CLASS(MyCanvas, wxPanel)
	248
	249	BEGIN_EVENT_TABLE(MyCanvas, wxPanel)
	250	EVT_PAINT( MyCanvas::OnPaint)
	251	END_EVENT_TABLE()
	252
dfd6b52f RR	253	MyCanvas::MyCanvas( wxScrolledWindow parent, MyTopLabels top, MyRightLabels *right,
dfd6b52f RR	254	wxWindowID id, const wxPoint &pos, const wxSize &size )
ecab4dba RR	255	: wxPanel( parent, id, pos, size, wxSUNKEN_BORDER, "test canvas" )
	256	{
	257	m_owner = parent;
dfd6b52f RR	258	m_topLabels = top;
dfd6b52f RR	259	m_rightLabels = right;
ecab4dba	260
cddfbd9f RR	261	(void)new wxButton( this, -1, "Hallo I", wxPoint(0,50), wxSize(100,25) );
cddfbd9f RR	262	(void)new wxButton( this, -1, "Hallo II", wxPoint(200,50), wxSize(100,25) );
dfd6b52f RR	263
	264	(void)new wxTextCtrl( this, -1, "Text I", wxPoint(0,100), wxSize(100,25) );
	265	(void)new wxTextCtrl( this, -1, "Text II", wxPoint(200,100), wxSize(100,25) );
ecab4dba	266
a60b1f5d	267	SetBackgroundColour( wxT("WHEAT") );
ecab4dba RR	268
	269	SetCursor( wxCursor( wxCURSOR_IBEAM ) );
	270	}
	271
	272	MyCanvas::~MyCanvas()
	273	{
	274	}
	275
	276	void MyCanvas::OnPaint( wxPaintEvent &WXUNUSED(event) )
	277	{
	278	wxPaintDC dc( this );
	279	m_owner->PrepareDC( dc );
	280
76db86e7 RR	281	dc.SetPen( *wxBLACK_PEN );
76db86e7 RR	282
17800993 RR	283	// OK, let's assume we are a grid control and we have two
	284	// grid cells. Here in OnPaint we want to know which cell
	285	// to redraw so that we prevent redrawing cells that don't
	286	// need to get redrawn. We have one cell at (0,0) and one
	287	// more at (200,0), both having a size of (100,25).
	288
	289	// We can query how much the window has been scrolled
	290	// by calling CalcUnscrolledPosition()
	291
	292	int scroll_x = 0;
	293	int scroll_y = 0;
	294	m_owner->CalcUnscrolledPosition( scroll_x, scroll_y, &scroll_x, &scroll_y );
	295
	296	// We also need to know the size of the window to see which
	297	// cells are completely hidden and not get redrawn
	298
	299	int size_x = 0;
	300	int size_y = 0;
	301	GetClientSize( &size_x, &size_y );
	302
	303	// First cell: (0,0)(100,25)
	304	// It it on screen?
	305	if ((0+100-scroll_x > 0) && (0+25-scroll_y > 0) &&
	306	(0-scroll_x < size_x) && (0-scroll_y < size_y))
	307	{
dfd6b52f RR	308	// Has the region on screen been exposed?
	309	if (IsExposed(0,0,100,25))
	310	{
4693b20c	311	wxLogMessage( wxT("Redraw first cell") );
17800993	312	dc.DrawRectangle( 0, 0, 100, 25 );
dfd6b52f RR	313	dc.DrawText( "First Cell", 5, 5 );
dfd6b52f RR	314	}
17800993 RR	315	}
17800993 RR	316
ecab4dba	317
17800993 RR	318	// Second cell: (0,200)(100,25)
	319	// It it on screen?
	320	if ((200+100-scroll_x > 0) && (0+25-scroll_y > 0) &&
	321	(200-scroll_x < size_x) && (0-scroll_y < size_y))
	322	{
dfd6b52f RR	323	// Has the region on screen been exposed?
	324	if (IsExposed(200,0,100,25))
	325	{
4693b20c	326	wxLogMessage( wxT("Redraw second cell") );
17800993	327	dc.DrawRectangle( 200, 0, 100, 25 );
dfd6b52f RR	328	dc.DrawText( "Second Cell", 205, 5 );
dfd6b52f RR	329	}
17800993	330	}
ecab4dba	331
ecab4dba RR	332	}
ecab4dba RR	333
dfd6b52f RR	334	void MyCanvas::ScrollWindow( int dx, int dy, const wxRect *rect )
	335	{
	336	wxPanel::ScrollWindow( dx, dy, rect );
	337	m_topLabels->ScrollWindow( dx, 0, rect );
	338	m_rightLabels->ScrollWindow( 0, dy, rect );
	339	}
ecab4dba RR	340
	341	// MyFrame
	342
	343	const int ID_QUIT = 108;
3d0c4d2e RR	344	const int ID_FULL = 109;
3d0c4d2e RR	345	const int ID_ABOUT = 110;
ecab4dba RR	346
	347	IMPLEMENT_DYNAMIC_CLASS( MyFrame, wxFrame )
	348
	349	BEGIN_EVENT_TABLE(MyFrame,wxFrame)
	350	EVT_MENU (ID_ABOUT, MyFrame::OnAbout)
	351	EVT_MENU (ID_QUIT, MyFrame::OnQuit)
3d0c4d2e	352	EVT_MENU (ID_FULL, MyFrame::OnFullScreen)
ecab4dba RR	353	END_EVENT_TABLE()
	354
	355	MyFrame::MyFrame()
	356	: wxFrame( (wxFrame *)NULL, -1, "wxScrolledWindow sample",
	357	wxPoint(20,20), wxSize(470,500) )
	358	{
	359	wxMenu *file_menu = new wxMenu();
3d0c4d2e RR	360	file_menu->Append( ID_ABOUT, "&About...");
3d0c4d2e RR	361	file_menu->Append( ID_FULL, "&Full screen on/off");
ecab4dba RR	362	file_menu->Append( ID_QUIT, "E&xit\tAlt-X");
	363
	364	wxMenuBar *menu_bar = new wxMenuBar();
	365	menu_bar->Append(file_menu, "&File");
	366
	367	SetMenuBar( menu_bar );
	368
	369	CreateStatusBar(2);
	370	int widths[] = { -1, 100 };
	371	SetStatusWidths( 2, widths );
	372
dfd6b52f	373	m_scrolled = new MyScrolledWindow( this, -1, wxDefaultPosition, wxSize(100,100) );
ecab4dba RR	374	m_scrolled->SetScrollbars( 10, 10, 50, 100 );
	375
	376	m_log = new wxTextCtrl( this, -1, "This is the log window.\n", wxPoint(0,0), wxSize(100,100), wxTE_MULTILINE );
	377	wxLog *old_log = wxLog::SetActiveTarget( new wxLogTextCtrl( m_log ) );
	378	delete old_log;
	379
	380	wxBoxSizer *topsizer = new wxBoxSizer( wxVERTICAL );
ecab4dba RR	381	topsizer->Add( m_scrolled, 1, wxEXPAND );
	382	topsizer->Add( m_log, 0, wxEXPAND );
	383
	384	SetAutoLayout( TRUE );
	385	SetSizer( topsizer );
	386	}
	387
	388	void MyFrame::OnQuit( wxCommandEvent &WXUNUSED(event) )
	389	{
	390	Close( TRUE );
	391	}
	392
3d0c4d2e RR	393	void MyFrame::OnFullScreen( wxCommandEvent &WXUNUSED(event) )
	394	{
	395	ShowFullScreen( !IsFullScreen(), wxFULLSCREEN_NOBORDER\|wxFULLSCREEN_NOCAPTION );
	396	}
	397
ecab4dba RR	398	void MyFrame::OnAbout( wxCommandEvent &WXUNUSED(event) )
	399	{
	400	(void)wxMessageBox( "wxScroll demo II\n"
	401	"Robert Roebling (c) 1998",
	402	"About wxScroll II Demo", wxICON_INFORMATION \| wxOK );
	403	}
	404
	405	//-----------------------------------------------------------------------------
	406	// MyApp
	407	//-----------------------------------------------------------------------------
	408
	409	bool MyApp::OnInit()
	410	{
	411	wxFrame *frame = new MyFrame();
	412	frame->Show( TRUE );
	413
	414	return TRUE;
	415	}
	416