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 // MyFrame
  55
  56 class MyFrame: public wxFrame
  57 {
  58 public:
  59     MyFrame();
  60
  61     void OnAbout( wxCommandEvent &event );
  62     void OnQuit( wxCommandEvent &event );
  63
  64     MyCanvas         *m_canvas;
  65     wxTextCtrl       *m_log;
  66
  67     DECLARE_DYNAMIC_CLASS(MyFrame)
  68     DECLARE_EVENT_TABLE()
  69 };
  70
  71 // MyApp
  72
  73 class MyApp: public wxApp
  74 {
  75 public:
  76     virtual bool OnInit();
  77 };
  78
  79 // main program
  80
  81 IMPLEMENT_APP(MyApp)
  82
  83 // ids
  84
  85 #define   ID_ADDBUTTON    1
  86 #define   ID_DELBUTTON    2
  87 #define   ID_MOVEBUTTON   3
  88 #define   ID_SCROLLWIN    4
  89 #define   ID_QUERYPOS     5
  90
  91 #define   ID_NEWBUTTON    10
  92
  93 // MyCanvas
  94
  95 IMPLEMENT_DYNAMIC_CLASS(MyCanvas, wxScrolledWindow)
  96
  97 BEGIN_EVENT_TABLE(MyCanvas, wxScrolledWindow)
  98   EVT_PAINT(                  MyCanvas::OnPaint)
  99   EVT_LEFT_DOWN(              MyCanvas::OnMouseDown)
 100   EVT_BUTTON( ID_QUERYPOS,    MyCanvas::OnQueryPosition)
 101   EVT_BUTTON( ID_ADDBUTTON,   MyCanvas::OnAddButton)
 102   EVT_BUTTON( ID_DELBUTTON,   MyCanvas::OnDeleteButton)
 103   EVT_BUTTON( ID_MOVEBUTTON,  MyCanvas::OnMoveButton)
 104   EVT_BUTTON( ID_SCROLLWIN,   MyCanvas::OnScrollWin)
 105 END_EVENT_TABLE()
 106
 107 MyCanvas::MyCanvas( wxWindow *parent, wxWindowID id,
 108                     const wxPoint &pos, const wxSize &size )
 109         : wxScrolledWindow( parent, id, pos, size, wxSUNKEN_BORDER | wxTAB_TRAVERSAL, "test canvas" )
 110 {
 111     (void) new wxButton( this, ID_ADDBUTTON, "add button", wxPoint(10,10) );
 112     (void) new wxButton( this, ID_DELBUTTON, "del button", wxPoint(10,40) );
 113     (void) new wxButton( this, ID_MOVEBUTTON, "move button", wxPoint(150,10) );
 114     (void) new wxButton( this, ID_SCROLLWIN, "scroll win", wxPoint(250,10) );
 115
 116     wxString choices[] =
 117     {
 118         "This",
 119         "is one of my",
 120         "really",
 121         "wonderful",
 122         "examples."
 123     };
 124
 125     m_button = new wxButton( this, ID_QUERYPOS, "Query position", wxPoint(10,110) );
 126
 127     (void) new wxTextCtrl( this, -1, "wxTextCtrl", wxPoint(10,150), wxSize(80,-1) );
 128
 129     (void) new wxRadioButton( this, -1, "Disable", wxPoint(10,190) );
 130
 131     (void) new wxComboBox( this, -1, "This", wxPoint(10,230), wxDefaultSize, 5, choices );
 132
 133     (void) new wxRadioBox( this, -1, "This", wxPoint(10,310), wxDefaultSize, 5, choices, 2, wxRA_SPECIFY_COLS );
 134
 135     (void) new wxRadioBox( this, -1, "This", wxPoint(10,440), wxDefaultSize, 5, choices, 2, wxRA_SPECIFY_ROWS );
 136
 137     wxListCtrl *m_listCtrl = new wxListCtrl(
 138         this, -1, wxPoint(200, 110), wxSize(180, 120),
 139         wxLC_REPORT | wxSIMPLE_BORDER | wxLC_SINGLE_SEL );
 140
 141     m_listCtrl->InsertColumn(0, "First", wxLIST_FORMAT_LEFT, 90);
 142     m_listCtrl->InsertColumn(1, "Last", wxLIST_FORMAT_LEFT, 90);
 143
 144     for ( int i=0; i < 30; i++)
 145     {
 146         char buf[20];
 147         sprintf(buf, "Item %d", i);
 148         m_listCtrl->InsertItem(i, buf);
 149     }
 150     m_listCtrl->SetItemState( 3, wxLIST_STATE_SELECTED, wxLIST_STATE_SELECTED );
 151
 152     (void) new wxListBox( this, -1, wxPoint(260,280), wxSize(120,120), 5, choices, wxLB_ALWAYS_SB );
 153
 154     wxWindow *test = new wxWindow( this, -1, wxPoint(10, 530), wxSize(130,120), wxSIMPLE_BORDER | wxTAB_TRAVERSAL );
 155     test->SetBackgroundColour( "WHEAT" );
 156     wxButton *test2 = new wxButton( test, -1, "Hallo", wxPoint(10,10) );
 157
 158     test = new wxWindow( this, -1, wxPoint(160, 530), wxSize(130,120), wxSUNKEN_BORDER | wxTAB_TRAVERSAL );
 159     test->SetBackgroundColour( "WHEAT" );
 160     test->SetCursor( wxCursor( wxCURSOR_NO_ENTRY ) );
 161     test2 = new wxButton( test, -1, "Hallo", wxPoint(10,10) );
 162     test2->SetCursor( wxCursor( wxCURSOR_PENCIL ) );
 163
 164     test = new wxWindow( this, -1, wxPoint(310, 530), wxSize(130,120), wxRAISED_BORDER | wxTAB_TRAVERSAL );
 165     test->SetBackgroundColour( "WHEAT" );
 166     test->SetCursor( wxCursor( wxCURSOR_PENCIL ) );
 167     test2 = new wxButton( test, -1, "Hallo", wxPoint(10,10) );
 168     test2->SetCursor( wxCursor( wxCURSOR_NO_ENTRY ) );
 169
 170     SetBackgroundColour( "WHEAT" );
 171
 172     SetCursor( wxCursor( wxCURSOR_IBEAM ) );
 173 }
 174
 175 MyCanvas::~MyCanvas()
 176 {
 177 }
 178
 179 void MyCanvas::OnMouseDown( wxMouseEvent &event )
 180 {
 181     wxPoint pt( event.GetPosition() );
 182     int x,y;
 183     CalcUnscrolledPosition( pt.x, pt.y, &x, &y );
 184     wxLogMessage( "Mouse down event at: %d %d, scrolled: %d %d", pt.x, pt.y, x, y );
 185 }
 186
 187 void MyCanvas::OnPaint( wxPaintEvent &WXUNUSED(event) )
 188 {
 189     wxPaintDC dc( this );
 190     PrepareDC( dc );
 191
 192     dc.DrawText( "Press mouse button to test calculations!", 160, 50 );
 193
 194     dc.DrawText( "Some text", 140, 140 );
 195
 196     dc.DrawRectangle( 100, 160, 200, 200 );
 197 }
 198
 199 void MyCanvas::OnQueryPosition( wxCommandEvent &WXUNUSED(event) )
 200 {
 201     wxPoint pt( m_button->GetPosition() );
 202     wxLogMessage( "Position of ""Query position"" is %d %d", pt.x, pt.y );
 203     pt = ClientToScreen( pt );
 204     wxLogMessage( "Position of ""Query position"" on screen is %d %d", pt.x, pt.y );
 205 }
 206
 207 void MyCanvas::OnAddButton( wxCommandEvent &WXUNUSED(event) )
 208 {
 209     wxLogMessage( "Inserting button at position 10,70..." );
 210     wxButton *button = new wxButton( this, ID_NEWBUTTON, "new button", wxPoint(10,70), wxSize(80,25) );
 211     wxPoint pt( button->GetPosition() );
 212     wxLogMessage( "-> Position after inserting %d %d", pt.x, pt.y );
 213 }
 214
 215 void MyCanvas::OnDeleteButton( wxCommandEvent &event )
 216 {
 217     wxLogMessage( "Deleting button inserted with ""Add button""..." );
 218     wxWindow *win = FindWindow( ID_NEWBUTTON );
 219     if (win)
 220        win->Destroy();
 221     else
 222        wxLogMessage( "-> No window with id = ID_NEWBUTTON found." );
 223 }
 224
 225 void MyCanvas::OnMoveButton( wxCommandEvent &event )
 226 {
 227     wxLogMessage( "Moving button 10 pixels downward.." );
 228     wxWindow *win = FindWindow( event.GetId() );
 229     wxPoint pt( win->GetPosition() );
 230     wxLogMessage( "-> Position before move is %d %d", pt.x, pt.y );
 231     win->Move( -1, pt.y + 10 );
 232     pt = win->GetPosition();
 233     wxLogMessage( "-> Position after move is %d %d", pt.x, pt.y );
 234 }
 235
 236 void MyCanvas::OnScrollWin( wxCommandEvent &WXUNUSED(event) )
 237 {
 238     wxLogMessage( "Scrolling 2 units up.\nThe white square and the controls should move equally!" );
 239     int x,y;
 240     ViewStart( &x, &y );
 241     Scroll( -1, y+2 );
 242 }
 243
 244 // MyFrame
 245
 246 const int ID_QUIT  = 108;
 247 const int ID_ABOUT = 109;
 248
 249 IMPLEMENT_DYNAMIC_CLASS( MyFrame, wxFrame )
 250
 251 BEGIN_EVENT_TABLE(MyFrame,wxFrame)
 252   EVT_MENU    (ID_ABOUT, MyFrame::OnAbout)
 253   EVT_MENU    (ID_QUIT,  MyFrame::OnQuit)
 254 END_EVENT_TABLE()
 255
 256 MyFrame::MyFrame()
 257        : wxFrame( (wxFrame *)NULL, -1, "wxScrolledWindow sample",
 258                   wxPoint(20,20), wxSize(470,500) )
 259 {
 260     wxMenu *file_menu = new wxMenu();
 261     file_menu->Append( ID_ABOUT, "&About..");
 262     file_menu->Append( ID_QUIT, "E&xit\tAlt-X");
 263
 264     wxMenuBar *menu_bar = new wxMenuBar();
 265     menu_bar->Append(file_menu, "&File");
 266
 267     SetMenuBar( menu_bar );
 268
 269     CreateStatusBar(2);
 270     int widths[] = { -1, 100 };
 271     SetStatusWidths( 2, widths );
 272
 273     m_canvas = new MyCanvas( this, -1, wxPoint(0,0), wxSize(100,100) );
 274     m_canvas->SetScrollbars( 10, 10, 50, 100 );
 275
 276     m_log = new wxTextCtrl( this, -1, "This is the log window.\n", wxPoint(0,0), wxSize(100,100), wxTE_MULTILINE );
 277     wxLog *old_log = wxLog::SetActiveTarget( new wxLogTextCtrl( m_log ) );
 278     delete old_log;
 279
 280     wxBoxSizer *topsizer = new wxBoxSizer( wxVERTICAL );
 281
 282     topsizer->Add( m_canvas, 1, wxEXPAND );
 283     topsizer->Add( m_log, 0, wxEXPAND );
 284
 285     SetAutoLayout( TRUE );
 286     SetSizer( topsizer );
 287 }
 288
 289 void MyFrame::OnQuit( wxCommandEvent &WXUNUSED(event) )
 290 {
 291   Close( TRUE );
 292 }
 293
 294 void MyFrame::OnAbout( wxCommandEvent &WXUNUSED(event) )
 295 {
 296   (void)wxMessageBox( "wxScroll demo\n"
 297                       "Robert Roebling (c) 1998",
 298                       "About wxScroll Demo", wxICON_INFORMATION | wxOK );
 299 }
 300
 301 //-----------------------------------------------------------------------------
 302 // MyApp
 303 //-----------------------------------------------------------------------------
 304
 305 bool MyApp::OnInit()
 306 {
 307   wxFrame *frame = new MyFrame();
 308   frame->Show( TRUE );
 309
 310   return TRUE;
 311 }
 312