-/*
- * 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 );
-
- void OnPaint( wxPaintEvent &event );
- void OnSize( wxSizeEvent &event );
-
-protected:
- virtual wxSize GetSizeAvailableForScrollTarget(const wxSize& size);
-
-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 );
-
- SetSizer( mainsizer );
-}
-
-wxSize MyScrolledWindow::GetSizeAvailableForScrollTarget(const wxSize& size)
-{
- // decrease the total size by the size of the non-scrollable parts above/to
- // the left of the canvas
- wxSize sizeCanvas(size);
- sizeCanvas.x -= 60;
- sizeCanvas.y -= 25;
- return sizeCanvas;
-}
-
-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
-
- 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;
-}
-
projects / wxWidgets.git / blobdiff