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

/*
 * Program: scroll
 *
 * Author: Robert Roebling
 *
 * Copyright: (C) 1998, 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 MyApp;

// MyCanvas

class MyCanvas: public wxScrolledWindow
{
public:
    MyCanvas() {}
    MyCanvas( wxWindow *parent, wxWindowID, const wxPoint &pos, const wxSize &size );
    ~MyCanvas();
    void OnPaint( wxPaintEvent &event );
    void OnQueryPosition( wxCommandEvent &event );
    void OnAddButton( wxCommandEvent &event );
    void OnDeleteButton( wxCommandEvent &event );
    void OnMoveButton( wxCommandEvent &event );
    void OnScrollWin( wxCommandEvent &event );
    void OnMouseDown( wxMouseEvent &event );

    wxButton *m_button;

    DECLARE_DYNAMIC_CLASS(MyCanvas)
    DECLARE_EVENT_TABLE()
};

// ----------------------------------------------------------------------------
// MyScrolledWindow classes: examples of wxScrolledWindow usage
// ----------------------------------------------------------------------------

// base class for both of them
class MyScrolledWindowBase : public wxScrolledWindow
{
public:
    MyScrolledWindowBase(wxWindow *parent) : wxScrolledWindow(parent)
    {
        m_nLines = 100;

        InitScrollbars();
    }

protected:
    // set the scrollbar params
    void InitScrollbars();

    // the height of one line on screen
    wxCoord m_hLine;

    // the number of lines we draw
    size_t m_nLines;
};

// this class does "stupid" redrawing - it redraws everything each time
class MyScrolledWindowDumb : public MyScrolledWindowBase
{
public:
    MyScrolledWindowDumb(wxWindow *parent) : MyScrolledWindowBase(parent) { }

    virtual void OnDraw(wxDC& dc);
};

// this class does "smart" redrawing - only redraws the lines which must be
// redrawn
class MyScrolledWindowSmart : public MyScrolledWindowBase
{
public:
    MyScrolledWindowSmart(wxWindow *parent) : MyScrolledWindowBase(parent) { }

    virtual void OnDraw(wxDC& dc);
};

// ----------------------------------------------------------------------------
// MyFrame
// ----------------------------------------------------------------------------

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

    void OnAbout( wxCommandEvent &event );
    void OnQuit( wxCommandEvent &event );
    void OnDeleteAll( wxCommandEvent &event );
    void OnInsertNew( wxCommandEvent &event );

    MyCanvas         *m_canvas;
    wxTextCtrl       *m_log;

    DECLARE_DYNAMIC_CLASS(MyFrame)
    DECLARE_EVENT_TABLE()
};

// MyApp

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

// main program

IMPLEMENT_APP(MyApp)

// ids

#define   ID_ADDBUTTON    1
#define   ID_DELBUTTON    2
#define   ID_MOVEBUTTON   3
#define   ID_SCROLLWIN    4
#define   ID_QUERYPOS     5

#define   ID_NEWBUTTON    10

// MyCanvas

IMPLEMENT_DYNAMIC_CLASS(MyCanvas, wxScrolledWindow)

BEGIN_EVENT_TABLE(MyCanvas, wxScrolledWindow)
  EVT_PAINT(                  MyCanvas::OnPaint)
  EVT_MOUSE_EVENTS(                  MyCanvas::OnMouseDown)
  EVT_BUTTON( ID_QUERYPOS,    MyCanvas::OnQueryPosition)
  EVT_BUTTON( ID_ADDBUTTON,   MyCanvas::OnAddButton)
  EVT_BUTTON( ID_DELBUTTON,   MyCanvas::OnDeleteButton)
  EVT_BUTTON( ID_MOVEBUTTON,  MyCanvas::OnMoveButton)
  EVT_BUTTON( ID_SCROLLWIN,   MyCanvas::OnScrollWin)
END_EVENT_TABLE()

MyCanvas::MyCanvas( wxWindow *parent, wxWindowID id,
                    const wxPoint &pos, const wxSize &size )
        : wxScrolledWindow( parent, id, pos, size, wxSUNKEN_BORDER | wxTAB_TRAVERSAL, "test canvas" )
{
    (void) new wxButton( this, ID_ADDBUTTON, "add button", wxPoint(10,10) );
    (void) new wxButton( this, ID_DELBUTTON, "del button", wxPoint(10,40) );
    (void) new wxButton( this, ID_MOVEBUTTON, "move button", wxPoint(150,10) );
    (void) new wxButton( this, ID_SCROLLWIN, "scroll win", wxPoint(250,10) );

#if 0

    wxString choices[] =
    {
        "This",
        "is one of my",
        "really",
        "wonderful",
        "examples."
    };

    m_button = new wxButton( this, ID_QUERYPOS, "Query position", wxPoint(10,110) );

    (void) new wxTextCtrl( this, -1, "wxTextCtrl", wxPoint(10,150), wxSize(80,-1) );

    (void) new wxRadioButton( this, -1, "Disable", wxPoint(10,190) );

    (void) new wxComboBox( this, -1, "This", wxPoint(10,230), wxDefaultSize, 5, choices );

    (void) new wxRadioBox( this, -1, "This", wxPoint(10,310), wxDefaultSize, 5, choices, 2, wxRA_SPECIFY_COLS );

    (void) new wxRadioBox( this, -1, "This", wxPoint(10,440), wxDefaultSize, 5, choices, 2, wxRA_SPECIFY_ROWS );

    wxListCtrl *m_listCtrl = new wxListCtrl(
            this, -1, wxPoint(200, 110), wxSize(180, 120),
            wxLC_REPORT | wxSIMPLE_BORDER | wxLC_SINGLE_SEL );

    m_listCtrl->InsertColumn(0, "First", wxLIST_FORMAT_LEFT, 90);
    m_listCtrl->InsertColumn(1, "Last", wxLIST_FORMAT_LEFT, 90);

    for ( int i=0; i < 30; i++)
    {
        char buf[20];
        sprintf(buf, "Item %d", i);
        m_listCtrl->InsertItem(i, buf);
    }
    m_listCtrl->SetItemState( 3, wxLIST_STATE_SELECTED, wxLIST_STATE_SELECTED );

    (void) new wxListBox( this, -1, wxPoint(260,280), wxSize(120,120), 5, choices, wxLB_ALWAYS_SB );

#endif

    wxPanel *test = new wxPanel( this, -1, wxPoint(10, 110), wxSize(130,50), wxSIMPLE_BORDER | wxTAB_TRAVERSAL );
    test->SetBackgroundColour( "WHEAT" );

#if 0

    wxButton *test2 = new wxButton( test, -1, "Hallo", wxPoint(10,10) );

    test = new wxPanel( this, -1, wxPoint(160, 530), wxSize(130,120), wxSUNKEN_BORDER | wxTAB_TRAVERSAL );
    test->SetBackgroundColour( "WHEAT" );
    test->SetCursor( wxCursor( wxCURSOR_NO_ENTRY ) );
    test2 = new wxButton( test, -1, "Hallo", wxPoint(10,10) );
    test2->SetCursor( wxCursor( wxCURSOR_PENCIL ) );

    test = new wxPanel( this, -1, wxPoint(310, 530), wxSize(130,120), wxRAISED_BORDER | wxTAB_TRAVERSAL );
    test->SetBackgroundColour( "WHEAT" );
    test->SetCursor( wxCursor( wxCURSOR_PENCIL ) );
    test2 = new wxButton( test, -1, "Hallo", wxPoint(10,10) );
    test2->SetCursor( wxCursor( wxCURSOR_NO_ENTRY ) );

#endif

    SetBackgroundColour( "BLUE" );

    SetCursor( wxCursor( wxCURSOR_IBEAM ) );
}

MyCanvas::~MyCanvas()
{
}

void MyCanvas::OnMouseDown( wxMouseEvent &event )
{
    if (event.LeftDown())
    {
        wxPoint pt( event.GetPosition() );
        int x,y;
        CalcUnscrolledPosition( pt.x, pt.y, &x, &y );
        wxLogMessage( "Mouse down event at: %d %d, scrolled: %d %d", pt.x, pt.y, x, y );

        if ( !event.LeftIsDown() )
            wxLogMessage( "Error: LeftIsDown() should be TRUE if for LeftDown()" );
    }
}

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

    dc.DrawText( "Press mouse button to test calculations!", 160, 50 );

    dc.DrawText( "Some text", 140, 140 );

    dc.DrawRectangle( 100, 160, 200, 200 );
}

void MyCanvas::OnQueryPosition( wxCommandEvent &WXUNUSED(event) )
{
    wxPoint pt( m_button->GetPosition() );
    wxLogMessage( "Position of ""Query position"" is %d %d", pt.x, pt.y );
    pt = ClientToScreen( pt );
    wxLogMessage( "Position of ""Query position"" on screen is %d %d", pt.x, pt.y );
}

void MyCanvas::OnAddButton( wxCommandEvent &WXUNUSED(event) )
{
    wxLogMessage( "Inserting button at position 10,70..." );
    wxButton *button = new wxButton( this, ID_NEWBUTTON, "new button", wxPoint(10,70), wxSize(80,25) );
    wxPoint pt( button->GetPosition() );
    wxLogMessage( "-> Position after inserting %d %d", pt.x, pt.y );
}

void MyCanvas::OnDeleteButton( wxCommandEvent &event )
{
    wxLogMessage( "Deleting button inserted with ""Add button""..." );
    wxWindow *win = FindWindow( ID_NEWBUTTON );
    if (win)
       win->Destroy();
    else
       wxLogMessage( "-> No window with id = ID_NEWBUTTON found." );
}

void MyCanvas::OnMoveButton( wxCommandEvent &event )
{
    wxLogMessage( "Moving button 10 pixels downward.." );
    wxWindow *win = FindWindow( event.GetId() );
    wxPoint pt( win->GetPosition() );
    wxLogMessage( "-> Position before move is %d %d", pt.x, pt.y );
    win->Move( -1, pt.y + 10 );
    pt = win->GetPosition();
    wxLogMessage( "-> Position after move is %d %d", pt.x, pt.y );
}

void MyCanvas::OnScrollWin( wxCommandEvent &WXUNUSED(event) )
{
    wxLogMessage( "Scrolling 2 units up.\nThe white square and the controls should move equally!" );
    int x,y;
    GetViewStart( &x, &y );
    Scroll( -1, y+2 );
}

// MyFrame

const int ID_QUIT  = 108;
const int ID_ABOUT = 109;
const int ID_DELETE_ALL = 110;
const int ID_INSERT_NEW = 111;

IMPLEMENT_DYNAMIC_CLASS( MyFrame, wxFrame )

BEGIN_EVENT_TABLE(MyFrame,wxFrame)
  EVT_MENU    (ID_DELETE_ALL, MyFrame::OnDeleteAll)
  EVT_MENU    (ID_INSERT_NEW,  MyFrame::OnInsertNew)
  EVT_MENU    (ID_ABOUT, MyFrame::OnAbout)
  EVT_MENU    (ID_QUIT,  MyFrame::OnQuit)
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_DELETE_ALL, "Delete all");
    file_menu->Append( ID_INSERT_NEW, "Insert new");
    file_menu->Append( ID_ABOUT, "&About..");
    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_canvas = new MyCanvas( this, -1, wxPoint(0,0), wxSize(100,100) );
    m_canvas->SetScrollbars( 10, 10, 50, 100 );

    wxBoxSizer *topsizer = new wxBoxSizer( wxVERTICAL );

    topsizer->Add( m_canvas, 1, wxEXPAND );

    wxSizer *sizerBtm = new wxBoxSizer(wxHORIZONTAL);
    sizerBtm->Add( new MyScrolledWindowDumb(this), 1, wxEXPAND );
    sizerBtm->Add( new MyScrolledWindowSmart(this), 1, wxEXPAND );
    topsizer->Add( sizerBtm, 1, wxEXPAND );

    SetAutoLayout( TRUE );
    SetSizer( topsizer );
}

void MyFrame::OnDeleteAll( wxCommandEvent &WXUNUSED(event) )
{
    m_canvas->DestroyChildren();
}

void MyFrame::OnInsertNew( wxCommandEvent &WXUNUSED(event) )
{
    (void)new wxButton( m_canvas, -1, "Hello", wxPoint(100,100) );
}

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

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

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

bool MyApp::OnInit()
{
  wxFrame *frame = new MyFrame();
  frame->Show( TRUE );

  return TRUE;
}

// ----------------------------------------------------------------------------
// MyScrolledWindowXXX
// ----------------------------------------------------------------------------

void MyScrolledWindowBase::InitScrollbars()
{
    wxClientDC dc(this);
    dc.GetTextExtent(_T("Line 17"), NULL, &m_hLine);

    // no horz scrolling
    SetScrollbars(0, m_hLine, 0, m_nLines + 1, 0, 0, TRUE /* no refresh */);
}

void MyScrolledWindowDumb::OnDraw(wxDC& dc)
{
    // this is useful to see which lines are redrawn
    static size_t s_redrawCount = 0;
    dc.SetTextForeground(s_redrawCount++ % 2 ? *wxRED : *wxBLUE);

    wxCoord y = 0;
    for ( size_t line = 0; line < m_nLines; line++ )
    {
        wxCoord yPhys;
        CalcScrolledPosition(0, y, NULL, &yPhys);

        dc.DrawText(wxString::Format(_T("Line %u (logical %d, physical %d)"),
                                     line, y, yPhys), 0, y);
        y += m_hLine;
    }
}

void MyScrolledWindowSmart::OnDraw(wxDC& dc)
{
    // this is useful to see which lines are redrawn
    static size_t s_redrawCount = 0;
    dc.SetTextForeground(s_redrawCount++ % 2 ? *wxRED : *wxBLUE);

    // update region is always in device coords, translate to logical ones
    wxRect rectUpdate = GetUpdateRegion().GetBox();
    CalcUnscrolledPosition(rectUpdate.x, rectUpdate.y,
                           &rectUpdate.x, &rectUpdate.y);

    size_t lineFrom = rectUpdate.y / m_hLine,
           lineTo = rectUpdate.GetBottom() / m_hLine;

    if ( lineTo > m_nLines - 1)
        lineTo = m_nLines - 1;

    wxCoord y = lineFrom*m_hLine;
    for ( size_t line = lineFrom; line <= lineTo; line++ )
    {
        wxCoord yPhys;
        CalcScrolledPosition(0, y, NULL, &yPhys);

        dc.DrawText(wxString::Format(_T("Line %u (logical %d, physical %d)"),
                                     line, y, yPhys), 0, y);
        y += m_hLine;
    }
}
Commit	Line	Data
fdd3ed7a RR	1	/*
	2	* Program: scroll
	3	*
	4	* Author: Robert Roebling
	5	*
	6	* Copyright: (C) 1998, 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"
053f9cc1	22	#include "wx/listctrl.h"
ed673c6a RR	23	#include "wx/sizer.h"
	24	#include "wx/log.h"
	25
fdd3ed7a RR	26
	27	// derived classes
	28
	29	class MyFrame;
	30	class MyApp;
	31
	32	// MyCanvas
	33
	34	class MyCanvas: public wxScrolledWindow
	35	{
	36	public:
8a73bf3d	37	MyCanvas() {}
fdd3ed7a RR	38	MyCanvas( wxWindow *parent, wxWindowID, const wxPoint &pos, const wxSize &size );
	39	~MyCanvas();
	40	void OnPaint( wxPaintEvent &event );
307f16e8	41	void OnQueryPosition( wxCommandEvent &event );
ed673c6a RR	42	void OnAddButton( wxCommandEvent &event );
	43	void OnDeleteButton( wxCommandEvent &event );
	44	void OnMoveButton( wxCommandEvent &event );
	45	void OnScrollWin( wxCommandEvent &event );
bf0c00c6	46	void OnMouseDown( wxMouseEvent &event );
ed673c6a RR	47
ed673c6a RR	48	wxButton *m_button;
fdd3ed7a RR	49
	50	DECLARE_DYNAMIC_CLASS(MyCanvas)
	51	DECLARE_EVENT_TABLE()
	52	};
	53
8a73bf3d VZ	54	// ----------------------------------------------------------------------------
	55	// MyScrolledWindow classes: examples of wxScrolledWindow usage
	56	// ----------------------------------------------------------------------------
	57
	58	// base class for both of them
	59	class MyScrolledWindowBase : public wxScrolledWindow
	60	{
	61	public:
	62	MyScrolledWindowBase(wxWindow *parent) : wxScrolledWindow(parent)
	63	{
	64	m_nLines = 100;
	65
	66	InitScrollbars();
	67	}
	68
	69	protected:
	70	// set the scrollbar params
	71	void InitScrollbars();
	72
	73	// the height of one line on screen
	74	wxCoord m_hLine;
	75
	76	// the number of lines we draw
	77	size_t m_nLines;
	78	};
	79
	80	// this class does "stupid" redrawing - it redraws everything each time
	81	class MyScrolledWindowDumb : public MyScrolledWindowBase
	82	{
	83	public:
	84	MyScrolledWindowDumb(wxWindow *parent) : MyScrolledWindowBase(parent) { }
	85
	86	virtual void OnDraw(wxDC& dc);
	87	};
	88
	89	// this class does "smart" redrawing - only redraws the lines which must be
	90	// redrawn
	91	class MyScrolledWindowSmart : public MyScrolledWindowBase
	92	{
	93	public:
	94	MyScrolledWindowSmart(wxWindow *parent) : MyScrolledWindowBase(parent) { }
	95
	96	virtual void OnDraw(wxDC& dc);
	97	};
	98
	99	// ----------------------------------------------------------------------------
fdd3ed7a	100	// MyFrame
8a73bf3d	101	// ----------------------------------------------------------------------------
fdd3ed7a RR	102
	103	class MyFrame: public wxFrame
	104	{
	105	public:
	106	MyFrame();
	107
	108	void OnAbout( wxCommandEvent &event );
	109	void OnQuit( wxCommandEvent &event );
8e217128 RR	110	void OnDeleteAll( wxCommandEvent &event );
8e217128 RR	111	void OnInsertNew( wxCommandEvent &event );
fdd3ed7a RR	112
fdd3ed7a RR	113	MyCanvas *m_canvas;
ed673c6a	114	wxTextCtrl *m_log;
fdd3ed7a RR	115
	116	DECLARE_DYNAMIC_CLASS(MyFrame)
	117	DECLARE_EVENT_TABLE()
	118	};
	119
	120	// MyApp
	121
	122	class MyApp: public wxApp
	123	{
	124	public:
	125	virtual bool OnInit();
	126	};
	127
	128	// main program
	129
	130	IMPLEMENT_APP(MyApp)
	131
ed673c6a RR	132	// ids
	133
	134	#define ID_ADDBUTTON 1
	135	#define ID_DELBUTTON 2
	136	#define ID_MOVEBUTTON 3
	137	#define ID_SCROLLWIN 4
307f16e8	138	#define ID_QUERYPOS 5
ed673c6a RR	139
	140	#define ID_NEWBUTTON 10
	141
fdd3ed7a RR	142	// MyCanvas
	143
	144	IMPLEMENT_DYNAMIC_CLASS(MyCanvas, wxScrolledWindow)
	145
	146	BEGIN_EVENT_TABLE(MyCanvas, wxScrolledWindow)
307f16e8	147	EVT_PAINT( MyCanvas::OnPaint)
a3e7d24d	148	EVT_MOUSE_EVENTS( MyCanvas::OnMouseDown)
307f16e8	149	EVT_BUTTON( ID_QUERYPOS, MyCanvas::OnQueryPosition)
ed673c6a RR	150	EVT_BUTTON( ID_ADDBUTTON, MyCanvas::OnAddButton)
	151	EVT_BUTTON( ID_DELBUTTON, MyCanvas::OnDeleteButton)
	152	EVT_BUTTON( ID_MOVEBUTTON, MyCanvas::OnMoveButton)
	153	EVT_BUTTON( ID_SCROLLWIN, MyCanvas::OnScrollWin)
fdd3ed7a RR	154	END_EVENT_TABLE()
	155
	156	MyCanvas::MyCanvas( wxWindow *parent, wxWindowID id,
	157	const wxPoint &pos, const wxSize &size )
5e014a0c	158	: wxScrolledWindow( parent, id, pos, size, wxSUNKEN_BORDER \| wxTAB_TRAVERSAL, "test canvas" )
fdd3ed7a	159	{
ed673c6a RR	160	(void) new wxButton( this, ID_ADDBUTTON, "add button", wxPoint(10,10) );
	161	(void) new wxButton( this, ID_DELBUTTON, "del button", wxPoint(10,40) );
	162	(void) new wxButton( this, ID_MOVEBUTTON, "move button", wxPoint(150,10) );
	163	(void) new wxButton( this, ID_SCROLLWIN, "scroll win", wxPoint(250,10) );
	164
aa06a8fd DW	165	#if 0
aa06a8fd DW	166
fdd3ed7a RR	167	wxString choices[] =
	168	{
	169	"This",
	170	"is one of my",
	171	"really",
	172	"wonderful",
	173	"examples."
	174	};
aa06a8fd	175
307f16e8	176	m_button = new wxButton( this, ID_QUERYPOS, "Query position", wxPoint(10,110) );
aa06a8fd	177
27d029c7	178	(void) new wxTextCtrl( this, -1, "wxTextCtrl", wxPoint(10,150), wxSize(80,-1) );
aa06a8fd	179
ed673c6a	180	(void) new wxRadioButton( this, -1, "Disable", wxPoint(10,190) );
aa06a8fd	181
ed673c6a	182	(void) new wxComboBox( this, -1, "This", wxPoint(10,230), wxDefaultSize, 5, choices );
aa06a8fd	183
ed673c6a	184	(void) new wxRadioBox( this, -1, "This", wxPoint(10,310), wxDefaultSize, 5, choices, 2, wxRA_SPECIFY_COLS );
053f9cc1	185
ed673c6a	186	(void) new wxRadioBox( this, -1, "This", wxPoint(10,440), wxDefaultSize, 5, choices, 2, wxRA_SPECIFY_ROWS );
e9158f7d	187
ed673c6a	188	wxListCtrl *m_listCtrl = new wxListCtrl(
8a73bf3d VZ	189	this, -1, wxPoint(200, 110), wxSize(180, 120),
8a73bf3d VZ	190	wxLC_REPORT \| wxSIMPLE_BORDER \| wxLC_SINGLE_SEL );
053f9cc1	191
ed673c6a RR	192	m_listCtrl->InsertColumn(0, "First", wxLIST_FORMAT_LEFT, 90);
ed673c6a RR	193	m_listCtrl->InsertColumn(1, "Last", wxLIST_FORMAT_LEFT, 90);
053f9cc1	194
ed673c6a RR	195	for ( int i=0; i < 30; i++)
	196	{
	197	char buf[20];
	198	sprintf(buf, "Item %d", i);
	199	m_listCtrl->InsertItem(i, buf);
	200	}
	201	m_listCtrl->SetItemState( 3, wxLIST_STATE_SELECTED, wxLIST_STATE_SELECTED );
053f9cc1	202
ed673c6a	203	(void) new wxListBox( this, -1, wxPoint(260,280), wxSize(120,120), 5, choices, wxLB_ALWAYS_SB );
5e014a0c	204
aa06a8fd DW	205	#endif
aa06a8fd DW	206
8a73bf3d	207	wxPanel *test = new wxPanel( this, -1, wxPoint(10, 110), wxSize(130,50), wxSIMPLE_BORDER \| wxTAB_TRAVERSAL );
ed673c6a	208	test->SetBackgroundColour( "WHEAT" );
aa06a8fd DW	209
	210	#if 0
	211
ed673c6a	212	wxButton *test2 = new wxButton( test, -1, "Hallo", wxPoint(10,10) );
aa06a8fd	213
3da17724	214	test = new wxPanel( this, -1, wxPoint(160, 530), wxSize(130,120), wxSUNKEN_BORDER \| wxTAB_TRAVERSAL );
ed673c6a RR	215	test->SetBackgroundColour( "WHEAT" );
	216	test->SetCursor( wxCursor( wxCURSOR_NO_ENTRY ) );
	217	test2 = new wxButton( test, -1, "Hallo", wxPoint(10,10) );
	218	test2->SetCursor( wxCursor( wxCURSOR_PENCIL ) );
aa06a8fd	219
3da17724	220	test = new wxPanel( this, -1, wxPoint(310, 530), wxSize(130,120), wxRAISED_BORDER \| wxTAB_TRAVERSAL );
ed673c6a RR	221	test->SetBackgroundColour( "WHEAT" );
	222	test->SetCursor( wxCursor( wxCURSOR_PENCIL ) );
	223	test2 = new wxButton( test, -1, "Hallo", wxPoint(10,10) );
	224	test2->SetCursor( wxCursor( wxCURSOR_NO_ENTRY ) );
5e014a0c	225
aa06a8fd DW	226	#endif
	227
	228	SetBackgroundColour( "BLUE" );
	229
ed673c6a	230	SetCursor( wxCursor( wxCURSOR_IBEAM ) );
fdd3ed7a RR	231	}
	232
	233	MyCanvas::~MyCanvas()
	234	{
	235	}
	236
bf0c00c6 RR	237	void MyCanvas::OnMouseDown( wxMouseEvent &event )
bf0c00c6 RR	238	{
a3e7d24d RR	239	if (event.LeftDown())
	240	{
	241	wxPoint pt( event.GetPosition() );
	242	int x,y;
	243	CalcUnscrolledPosition( pt.x, pt.y, &x, &y );
	244	wxLogMessage( "Mouse down event at: %d %d, scrolled: %d %d", pt.x, pt.y, x, y );
f6bcfd97 BP	245
	246	if ( !event.LeftIsDown() )
	247	wxLogMessage( "Error: LeftIsDown() should be TRUE if for LeftDown()" );
a3e7d24d	248	}
bf0c00c6 RR	249	}
	250
	251	void MyCanvas::OnPaint( wxPaintEvent &WXUNUSED(event) )
	252	{
	253	wxPaintDC dc( this );
	254	PrepareDC( dc );
	255
	256	dc.DrawText( "Press mouse button to test calculations!", 160, 50 );
	257
	258	dc.DrawText( "Some text", 140, 140 );
aa06a8fd	259
bf0c00c6 RR	260	dc.DrawRectangle( 100, 160, 200, 200 );
	261	}
	262
307f16e8 RR	263	void MyCanvas::OnQueryPosition( wxCommandEvent &WXUNUSED(event) )
	264	{
	265	wxPoint pt( m_button->GetPosition() );
bf0c00c6 RR	266	wxLogMessage( "Position of ""Query position"" is %d %d", pt.x, pt.y );
	267	pt = ClientToScreen( pt );
	268	wxLogMessage( "Position of ""Query position"" on screen is %d %d", pt.x, pt.y );
307f16e8 RR	269	}
307f16e8 RR	270
ed673c6a RR	271	void MyCanvas::OnAddButton( wxCommandEvent &WXUNUSED(event) )
ed673c6a RR	272	{
307f16e8	273	wxLogMessage( "Inserting button at position 10,70..." );
bf0c00c6 RR	274	wxButton *button = new wxButton( this, ID_NEWBUTTON, "new button", wxPoint(10,70), wxSize(80,25) );
	275	wxPoint pt( button->GetPosition() );
	276	wxLogMessage( "-> Position after inserting %d %d", pt.x, pt.y );
ed673c6a RR	277	}
	278
	279	void MyCanvas::OnDeleteButton( wxCommandEvent &event )
	280	{
307f16e8	281	wxLogMessage( "Deleting button inserted with ""Add button""..." );
ed673c6a RR	282	wxWindow *win = FindWindow( ID_NEWBUTTON );
	283	if (win)
	284	win->Destroy();
	285	else
	286	wxLogMessage( "-> No window with id = ID_NEWBUTTON found." );
	287	}
	288
	289	void MyCanvas::OnMoveButton( wxCommandEvent &event )
	290	{
	291	wxLogMessage( "Moving button 10 pixels downward.." );
	292	wxWindow *win = FindWindow( event.GetId() );
bf0c00c6 RR	293	wxPoint pt( win->GetPosition() );
	294	wxLogMessage( "-> Position before move is %d %d", pt.x, pt.y );
	295	win->Move( -1, pt.y + 10 );
	296	pt = win->GetPosition();
	297	wxLogMessage( "-> Position after move is %d %d", pt.x, pt.y );
ed673c6a RR	298	}
	299
	300	void MyCanvas::OnScrollWin( wxCommandEvent &WXUNUSED(event) )
	301	{
	302	wxLogMessage( "Scrolling 2 units up.\nThe white square and the controls should move equally!" );
	303	int x,y;
8073eb40	304	GetViewStart( &x, &y );
ed673c6a RR	305	Scroll( -1, y+2 );
	306	}
	307
fdd3ed7a RR	308	// MyFrame
	309
	310	const int ID_QUIT = 108;
	311	const int ID_ABOUT = 109;
8e217128 RR	312	const int ID_DELETE_ALL = 110;
8e217128 RR	313	const int ID_INSERT_NEW = 111;
fdd3ed7a RR	314
	315	IMPLEMENT_DYNAMIC_CLASS( MyFrame, wxFrame )
	316
	317	BEGIN_EVENT_TABLE(MyFrame,wxFrame)
8e217128 RR	318	EVT_MENU (ID_DELETE_ALL, MyFrame::OnDeleteAll)
8e217128 RR	319	EVT_MENU (ID_INSERT_NEW, MyFrame::OnInsertNew)
fdd3ed7a RR	320	EVT_MENU (ID_ABOUT, MyFrame::OnAbout)
	321	EVT_MENU (ID_QUIT, MyFrame::OnQuit)
	322	END_EVENT_TABLE()
	323
	324	MyFrame::MyFrame()
	325	: wxFrame( (wxFrame *)NULL, -1, "wxScrolledWindow sample",
ed673c6a	326	wxPoint(20,20), wxSize(470,500) )
fdd3ed7a	327	{
ed673c6a	328	wxMenu *file_menu = new wxMenu();
8e217128 RR	329	file_menu->Append( ID_DELETE_ALL, "Delete all");
8e217128 RR	330	file_menu->Append( ID_INSERT_NEW, "Insert new");
ed673c6a RR	331	file_menu->Append( ID_ABOUT, "&About..");
ed673c6a RR	332	file_menu->Append( ID_QUIT, "E&xit\tAlt-X");
fdd3ed7a	333
ed673c6a RR	334	wxMenuBar *menu_bar = new wxMenuBar();
ed673c6a RR	335	menu_bar->Append(file_menu, "&File");
fdd3ed7a	336
ed673c6a	337	SetMenuBar( menu_bar );
fdd3ed7a	338
ed673c6a RR	339	CreateStatusBar(2);
	340	int widths[] = { -1, 100 };
	341	SetStatusWidths( 2, widths );
fdd3ed7a	342
ed673c6a RR	343	m_canvas = new MyCanvas( this, -1, wxPoint(0,0), wxSize(100,100) );
ed673c6a RR	344	m_canvas->SetScrollbars( 10, 10, 50, 100 );
8a73bf3d	345
ed673c6a	346	wxBoxSizer *topsizer = new wxBoxSizer( wxVERTICAL );
aa06a8fd	347
ed673c6a	348	topsizer->Add( m_canvas, 1, wxEXPAND );
8a73bf3d VZ	349
	350	wxSizer *sizerBtm = new wxBoxSizer(wxHORIZONTAL);
	351	sizerBtm->Add( new MyScrolledWindowDumb(this), 1, wxEXPAND );
	352	sizerBtm->Add( new MyScrolledWindowSmart(this), 1, wxEXPAND );
	353	topsizer->Add( sizerBtm, 1, wxEXPAND );
ed673c6a RR	354
	355	SetAutoLayout( TRUE );
	356	SetSizer( topsizer );
fdd3ed7a RR	357	}
fdd3ed7a RR	358
8e217128 RR	359	void MyFrame::OnDeleteAll( wxCommandEvent &WXUNUSED(event) )
	360	{
	361	m_canvas->DestroyChildren();
	362	}
	363
	364	void MyFrame::OnInsertNew( wxCommandEvent &WXUNUSED(event) )
	365	{
	366	(void)new wxButton( m_canvas, -1, "Hello", wxPoint(100,100) );
	367	}
	368
fdd3ed7a RR	369	void MyFrame::OnQuit( wxCommandEvent &WXUNUSED(event) )
	370	{
	371	Close( TRUE );
	372	}
	373
	374	void MyFrame::OnAbout( wxCommandEvent &WXUNUSED(event) )
	375	{
	376	(void)wxMessageBox( "wxScroll demo\n"
	377	"Robert Roebling (c) 1998",
	378	"About wxScroll Demo", wxICON_INFORMATION \| wxOK );
	379	}
	380
	381	//-----------------------------------------------------------------------------
	382	// MyApp
	383	//-----------------------------------------------------------------------------
	384
	385	bool MyApp::OnInit()
	386	{
	387	wxFrame *frame = new MyFrame();
	388	frame->Show( TRUE );
	389
	390	return TRUE;
	391	}
	392
8a73bf3d VZ	393	// ----------------------------------------------------------------------------
	394	// MyScrolledWindowXXX
	395	// ----------------------------------------------------------------------------
	396
	397	void MyScrolledWindowBase::InitScrollbars()
	398	{
	399	wxClientDC dc(this);
	400	dc.GetTextExtent(_T("Line 17"), NULL, &m_hLine);
	401
	402	// no horz scrolling
	403	SetScrollbars(0, m_hLine, 0, m_nLines + 1, 0, 0, TRUE /* no refresh */);
	404	}
	405
	406	void MyScrolledWindowDumb::OnDraw(wxDC& dc)
	407	{
	408	// this is useful to see which lines are redrawn
	409	static size_t s_redrawCount = 0;
	410	dc.SetTextForeground(s_redrawCount++ % 2 ? wxRED : wxBLUE);
	411
	412	wxCoord y = 0;
	413	for ( size_t line = 0; line < m_nLines; line++ )
	414	{
	415	wxCoord yPhys;
	416	CalcScrolledPosition(0, y, NULL, &yPhys);
	417
	418	dc.DrawText(wxString::Format(_T("Line %u (logical %d, physical %d)"),
	419	line, y, yPhys), 0, y);
	420	y += m_hLine;
	421	}
	422	}
	423
	424	void MyScrolledWindowSmart::OnDraw(wxDC& dc)
	425	{
	426	// this is useful to see which lines are redrawn
	427	static size_t s_redrawCount = 0;
	428	dc.SetTextForeground(s_redrawCount++ % 2 ? wxRED : wxBLUE);
	429
	430	// update region is always in device coords, translate to logical ones
	431	wxRect rectUpdate = GetUpdateRegion().GetBox();
	432	CalcUnscrolledPosition(rectUpdate.x, rectUpdate.y,
	433	&rectUpdate.x, &rectUpdate.y);
	434
	435	size_t lineFrom = rectUpdate.y / m_hLine,
	436	lineTo = rectUpdate.GetBottom() / m_hLine;
	437
	438	if ( lineTo > m_nLines - 1)
	439	lineTo = m_nLines - 1;
	440
	441	wxCoord y = lineFrom*m_hLine;
	442	for ( size_t line = lineFrom; line <= lineTo; line++ )
	443	{
	444	wxCoord yPhys;
	445	CalcScrolledPosition(0, y, NULL, &yPhys);
	446
	447	dc.DrawText(wxString::Format(_T("Line %u (logical %d, physical %d)"),
	448	line, y, yPhys), 0, y);
	449	y += m_hLine;
	450	}
	451	}