samples/scroll/scroll.cpp

   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"
  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 MyApp;
  31
  32 // MyCanvas
  33
  34 class MyCanvas: public wxScrolledWindow
  35 {
  36 public:
  37     MyCanvas() {}
  38     MyCanvas( wxWindow *parent, wxWindowID, const wxPoint &pos, const wxSize &size );
  39     ~MyCanvas();
  40     void OnPaint( wxPaintEvent &event );
  41     void OnQueryPosition( wxCommandEvent &event );
  42     void OnAddButton( wxCommandEvent &event );
  43     void OnDeleteButton( wxCommandEvent &event );
  44     void OnMoveButton( wxCommandEvent &event );
  45     void OnScrollWin( wxCommandEvent &event );
  46     void OnMouseDown( wxMouseEvent &event );
  47
  48     wxButton *m_button;
  49
  50     DECLARE_DYNAMIC_CLASS(MyCanvas)
  51     DECLARE_EVENT_TABLE()
  52 };
  53
  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 // ----------------------------------------------------------------------------
 100 // MyFrame
 101 // ----------------------------------------------------------------------------
 102
 103 class MyFrame: public wxFrame
 104 {
 105 public:
 106     MyFrame();
 107
 108     void OnAbout( wxCommandEvent &event );
 109     void OnQuit( wxCommandEvent &event );
 110     void OnDeleteAll( wxCommandEvent &event );
 111     void OnInsertNew( wxCommandEvent &event );
 112
 113     MyCanvas         *m_canvas;
 114     wxTextCtrl       *m_log;
 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
 132 // ids
 133
 134 #define   ID_ADDBUTTON    1
 135 #define   ID_DELBUTTON    2
 136 #define   ID_MOVEBUTTON   3
 137 #define   ID_SCROLLWIN    4
 138 #define   ID_QUERYPOS     5
 139
 140 #define   ID_NEWBUTTON    10
 141
 142 // MyCanvas
 143
 144 IMPLEMENT_DYNAMIC_CLASS(MyCanvas, wxScrolledWindow)
 145
 146 BEGIN_EVENT_TABLE(MyCanvas, wxScrolledWindow)
 147   EVT_PAINT(                  MyCanvas::OnPaint)
 148   EVT_MOUSE_EVENTS(                  MyCanvas::OnMouseDown)
 149   EVT_BUTTON( ID_QUERYPOS,    MyCanvas::OnQueryPosition)
 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)
 154 END_EVENT_TABLE()
 155
 156 MyCanvas::MyCanvas( wxWindow *parent, wxWindowID id,
 157                     const wxPoint &pos, const wxSize &size )
 158         : wxScrolledWindow( parent, id, pos, size, wxSUNKEN_BORDER | wxTAB_TRAVERSAL, "test canvas" )
 159 {
 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
 165 #if 0
 166
 167     wxString choices[] =
 168     {
 169         "This",
 170         "is one of my",
 171         "really",
 172         "wonderful",
 173         "examples."
 174     };
 175
 176     m_button = new wxButton( this, ID_QUERYPOS, "Query position", wxPoint(10,110) );
 177
 178     (void) new wxTextCtrl( this, -1, "wxTextCtrl", wxPoint(10,150), wxSize(80,-1) );
 179
 180     (void) new wxRadioButton( this, -1, "Disable", wxPoint(10,190) );
 181
 182     (void) new wxComboBox( this, -1, "This", wxPoint(10,230), wxDefaultSize, 5, choices );
 183
 184     (void) new wxRadioBox( this, -1, "This", wxPoint(10,310), wxDefaultSize, 5, choices, 2, wxRA_SPECIFY_COLS );
 185
 186     (void) new wxRadioBox( this, -1, "This", wxPoint(10,440), wxDefaultSize, 5, choices, 2, wxRA_SPECIFY_ROWS );
 187
 188     wxListCtrl *m_listCtrl = new wxListCtrl(
 189             this, -1, wxPoint(200, 110), wxSize(180, 120),
 190             wxLC_REPORT | wxSIMPLE_BORDER | wxLC_SINGLE_SEL );
 191
 192     m_listCtrl->InsertColumn(0, "First", wxLIST_FORMAT_LEFT, 90);
 193     m_listCtrl->InsertColumn(1, "Last", wxLIST_FORMAT_LEFT, 90);
 194
 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 );
 202
 203     (void) new wxListBox( this, -1, wxPoint(260,280), wxSize(120,120), 5, choices, wxLB_ALWAYS_SB );
 204
 205 #endif
 206
 207     wxPanel *test = new wxPanel( this, -1, wxPoint(10, 110), wxSize(130,50), wxSIMPLE_BORDER | wxTAB_TRAVERSAL );
 208     test->SetBackgroundColour( wxT("WHEAT") );
 209
 210 #if 0
 211
 212     wxButton *test2 = new wxButton( test, -1, "Hallo", wxPoint(10,10) );
 213
 214     test = new wxPanel( this, -1, wxPoint(160, 530), wxSize(130,120), wxSUNKEN_BORDER | wxTAB_TRAVERSAL );
 215     test->SetBackgroundColour( wxT("WHEAT") );
 216     test->SetCursor( wxCursor( wxCURSOR_NO_ENTRY ) );
 217     test2 = new wxButton( test, -1, "Hallo", wxPoint(10,10) );
 218     test2->SetCursor( wxCursor( wxCURSOR_PENCIL ) );
 219
 220     test = new wxPanel( this, -1, wxPoint(310, 530), wxSize(130,120), wxRAISED_BORDER | wxTAB_TRAVERSAL );
 221     test->SetBackgroundColour( wxT("WHEAT") );
 222     test->SetCursor( wxCursor( wxCURSOR_PENCIL ) );
 223     test2 = new wxButton( test, -1, "Hallo", wxPoint(10,10) );
 224     test2->SetCursor( wxCursor( wxCURSOR_NO_ENTRY ) );
 225
 226 #endif
 227
 228     SetBackgroundColour( wxT("BLUE") );
 229
 230     SetCursor( wxCursor( wxCURSOR_IBEAM ) );
 231 }
 232
 233 MyCanvas::~MyCanvas()
 234 {
 235 }
 236
 237 void MyCanvas::OnMouseDown( wxMouseEvent &event )
 238 {
 239     if (event.LeftDown())
 240     {
 241         wxPoint pt( event.GetPosition() );
 242         int x,y;
 243         CalcUnscrolledPosition( pt.x, pt.y, &x, &y );
 244         wxLogMessage( wxT("Mouse down event at: %d %d, scrolled: %d %d"), pt.x, pt.y, x, y );
 245
 246         if ( !event.LeftIsDown() )
 247             wxLogMessage( wxT("Error: LeftIsDown() should be TRUE if for LeftDown()") );
 248     }
 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 );
 259
 260     dc.DrawRectangle( 100, 160, 200, 200 );
 261 }
 262
 263 void MyCanvas::OnQueryPosition( wxCommandEvent &WXUNUSED(event) )
 264 {
 265     wxPoint pt( m_button->GetPosition() );
 266     wxLogMessage( wxT("Position of \"Query position\" is %d %d"), pt.x, pt.y );
 267     pt = ClientToScreen( pt );
 268     wxLogMessage( wxT("Position of \"Query position\" on screen is %d %d"), pt.x, pt.y );
 269 }
 270
 271 void MyCanvas::OnAddButton( wxCommandEvent &WXUNUSED(event) )
 272 {
 273     wxLogMessage( wxT("Inserting button at position 10,70...") );
 274     wxButton *button = new wxButton( this, ID_NEWBUTTON, "new button", wxPoint(10,70), wxSize(80,25) );
 275     wxPoint pt( button->GetPosition() );
 276     wxLogMessage( wxT("-> Position after inserting %d %d"), pt.x, pt.y );
 277 }
 278
 279 void MyCanvas::OnDeleteButton( wxCommandEvent &event )
 280 {
 281     wxLogMessage( wxT("Deleting button inserted with \"Add button\"...") );
 282     wxWindow *win = FindWindow( ID_NEWBUTTON );
 283     if (win)
 284        win->Destroy();
 285     else
 286        wxLogMessage( wxT("-> No window with id = ID_NEWBUTTON found.") );
 287 }
 288
 289 void MyCanvas::OnMoveButton( wxCommandEvent &event )
 290 {
 291     wxLogMessage( wxT("Moving button 10 pixels downward..") );
 292     wxWindow *win = FindWindow( event.GetId() );
 293     wxPoint pt( win->GetPosition() );
 294     wxLogMessage( wxT("-> Position before move is %d %d"), pt.x, pt.y );
 295     win->Move( -1, pt.y + 10 );
 296     pt = win->GetPosition();
 297     wxLogMessage( wxT("-> Position after move is %d %d"), pt.x, pt.y );
 298 }
 299
 300 void MyCanvas::OnScrollWin( wxCommandEvent &WXUNUSED(event) )
 301 {
 302     wxLogMessage( wxT("Scrolling 2 units up.\nThe white square and the controls should move equally!") );
 303     int x,y;
 304     GetViewStart( &x, &y );
 305     Scroll( -1, y+2 );
 306 }
 307
 308 // MyFrame
 309
 310 const int ID_QUIT  = 108;
 311 const int ID_ABOUT = 109;
 312 const int ID_DELETE_ALL = 110;
 313 const int ID_INSERT_NEW = 111;
 314
 315 IMPLEMENT_DYNAMIC_CLASS( MyFrame, wxFrame )
 316
 317 BEGIN_EVENT_TABLE(MyFrame,wxFrame)
 318   EVT_MENU    (ID_DELETE_ALL, MyFrame::OnDeleteAll)
 319   EVT_MENU    (ID_INSERT_NEW,  MyFrame::OnInsertNew)
 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",
 326                   wxPoint(20,20), wxSize(470,500) )
 327 {
 328     wxMenu *file_menu = new wxMenu();
 329     file_menu->Append( ID_DELETE_ALL, "Delete all");
 330     file_menu->Append( ID_INSERT_NEW, "Insert new");
 331     file_menu->Append( ID_ABOUT, "&About..");
 332     file_menu->Append( ID_QUIT, "E&xit\tAlt-X");
 333
 334     wxMenuBar *menu_bar = new wxMenuBar();
 335     menu_bar->Append(file_menu, "&File");
 336
 337     SetMenuBar( menu_bar );
 338
 339     CreateStatusBar(2);
 340     int widths[] = { -1, 100 };
 341     SetStatusWidths( 2, widths );
 342
 343     m_canvas = new MyCanvas( this, -1, wxPoint(0,0), wxSize(100,100) );
 344     m_canvas->SetScrollbars( 10, 10, 50, 100 );
 345
 346     wxBoxSizer *topsizer = new wxBoxSizer( wxVERTICAL );
 347
 348     topsizer->Add( m_canvas, 1, wxEXPAND );
 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 );
 354
 355     SetAutoLayout( TRUE );
 356     SetSizer( topsizer );
 357 }
 358
 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
 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
 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 }