]> git.saurik.com Git - wxWidgets.git/blob - samples/scrollsub/scrollsub.cpp
more wxFD_XXX renamings (patch 1488371)
[wxWidgets.git] / samples / scrollsub / scrollsub.cpp
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 void OnSize( wxSizeEvent &event );
44 private:
45 MyCanvas *m_canvas;
46
47 DECLARE_DYNAMIC_CLASS(MyScrolledWindow)
48 DECLARE_EVENT_TABLE()
49 };
50
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
85 // MyCanvas
86
87 class MyCanvas: public wxPanel
88 {
89 public:
90 MyCanvas(){};
91 MyCanvas( wxScrolledWindow *parent, MyTopLabels *top, MyRightLabels *right,
92 wxWindowID id, const wxPoint &pos, const wxSize &size );
93 ~MyCanvas(){};
94 void OnPaint( wxPaintEvent &event );
95 void ScrollWindow( int dx, int dy, const wxRect *rect );
96
97 private:
98 wxScrolledWindow *m_owner;
99 MyTopLabels *m_topLabels;
100 MyRightLabels *m_rightLabels;
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 );
115 void OnFullScreen( wxCommandEvent &event );
116
117 wxScrolledWindow *m_scrolled;
118 #if wxUSE_LOG
119 wxTextCtrl *m_log;
120 #endif // wxUSE_LOG
121
122 private:
123 DECLARE_DYNAMIC_CLASS(MyFrame)
124 DECLARE_EVENT_TABLE()
125 };
126
127 // MyApp
128
129 class MyApp: public wxApp
130 {
131 public:
132 virtual bool OnInit();
133 };
134
135 // main program
136
137 IMPLEMENT_APP(MyApp)
138
139 // MyScrolledWindow
140
141 IMPLEMENT_DYNAMIC_CLASS(MyScrolledWindow, wxScrolledWindow)
142
143 BEGIN_EVENT_TABLE(MyScrolledWindow, wxScrolledWindow)
144 EVT_PAINT( MyScrolledWindow::OnPaint)
145 EVT_SIZE( MyScrolledWindow::OnSize)
146 END_EVENT_TABLE()
147
148 MyScrolledWindow::MyScrolledWindow( wxWindow *parent, wxWindowID id,
149 const wxPoint &pos, const wxSize &size )
150 : wxScrolledWindow( parent, id, pos, size, wxSUNKEN_BORDER, _T("test canvas") )
151 {
152 MyTopLabels *top = new MyTopLabels( this, wxID_ANY, wxDefaultPosition, wxSize(wxDefaultCoord,25) );
153 MyRightLabels *right = new MyRightLabels( this, wxID_ANY, wxDefaultPosition, wxSize(60,wxDefaultCoord) );
154
155 m_canvas = new MyCanvas( this, top, right, wxID_ANY, wxDefaultPosition, wxDefaultSize );
156
157 SetTargetWindow( m_canvas );
158
159 SetBackgroundColour( wxT("WHEAT") );
160
161 SetCursor( wxCursor( wxCURSOR_HAND ) );
162
163 wxBoxSizer *mainsizer = new wxBoxSizer( wxVERTICAL );
164
165 wxBoxSizer *topsizer = new wxBoxSizer( wxHORIZONTAL );
166 topsizer->Add( 60,25 );
167 topsizer->Add( top, 1, wxEXPAND );
168
169 mainsizer->Add( topsizer, 0, wxEXPAND );
170
171 wxBoxSizer *middlesizer = new wxBoxSizer( wxHORIZONTAL );
172 middlesizer->Add( right, 0, wxEXPAND );
173 middlesizer->Add( m_canvas, 1, wxEXPAND );
174
175 mainsizer->Add( middlesizer, 1, wxEXPAND );
176
177 SetAutoLayout( true );
178 SetSizer( mainsizer );
179 }
180
181 void MyScrolledWindow::OnSize( wxSizeEvent &WXUNUSED(event) )
182 {
183 // We need to override OnSize so that our scrolled
184 // window a) does call Layout() to use sizers for
185 // positioning the controls but b) does not query
186 // the sizer for their size and use that for setting
187 // the scrollable area as set that ourselves by
188 // calling SetScrollbar() further down.
189
190 Layout();
191
192 AdjustScrollbars();
193 }
194
195 void MyScrolledWindow::OnPaint( wxPaintEvent &WXUNUSED(event) )
196 {
197 wxPaintDC dc( this );
198
199 /*
200 wxSize size( GetClientSize() );
201
202 long w,h;
203 dc.GetTextExtent( wxT("Headline"), &w, &h );
204
205 dc.DrawText( wxT("Headline"), long (size.x / 2 - w / 2), 10 );
206 */
207 }
208
209 // MyTopLabels
210
211 IMPLEMENT_DYNAMIC_CLASS(MyTopLabels,wxWindow)
212
213 BEGIN_EVENT_TABLE(MyTopLabels, wxWindow)
214 EVT_PAINT( MyTopLabels::OnPaint)
215 END_EVENT_TABLE()
216
217 MyTopLabels::MyTopLabels( wxScrolledWindow *parent, wxWindowID id, const wxPoint &pos, const wxSize &size )
218 : wxWindow( parent, id, pos, size )
219 {
220 m_owner = parent;
221 }
222
223 void MyTopLabels::OnPaint( wxPaintEvent& WXUNUSED(event) )
224 {
225 wxPaintDC dc(this);
226
227 // This is wrong.. it will translate both x and y if the
228 // window is scrolled, the label windows are active in one
229 // direction only. Do the action below instead -- RL.
230 //m_owner->PrepareDC( dc );
231
232 int xScrollUnits, xOrigin;
233
234 m_owner->GetViewStart( &xOrigin, 0 );
235 m_owner->GetScrollPixelsPerUnit( &xScrollUnits, 0 );
236 dc.SetDeviceOrigin( -xOrigin * xScrollUnits, 0 );
237
238 dc.DrawText( _T("Column 1"), 5, 5 );
239 dc.DrawText( _T("Column 2"), 105, 5 );
240 dc.DrawText( _T("Column 3"), 205, 5 );
241 }
242
243 // MyRightLabels
244
245 IMPLEMENT_DYNAMIC_CLASS(MyRightLabels,wxWindow)
246
247 BEGIN_EVENT_TABLE(MyRightLabels, wxWindow)
248 EVT_PAINT( MyRightLabels::OnPaint)
249 END_EVENT_TABLE()
250
251 MyRightLabels::MyRightLabels( wxScrolledWindow *parent, wxWindowID id, const wxPoint &pos, const wxSize &size )
252 : wxWindow( parent, id, pos, size )
253 {
254 m_owner = parent;
255 }
256
257 void MyRightLabels::OnPaint( wxPaintEvent& WXUNUSED(event) )
258 {
259 wxPaintDC dc(this);
260
261 // This is wrong.. it will translate both x and y if the
262 // window is scrolled, the label windows are active in one
263 // direction only. Do the action below instead -- RL.
264 //m_owner->PrepareDC( dc );
265
266 int yScrollUnits, yOrigin;
267
268 m_owner->GetViewStart( 0, &yOrigin );
269 m_owner->GetScrollPixelsPerUnit( 0, &yScrollUnits );
270 dc.SetDeviceOrigin( 0, -yOrigin * yScrollUnits );
271
272 dc.DrawText( _T("Row 1"), 5, 5 );
273 dc.DrawText( _T("Row 2"), 5, 30 );
274 dc.DrawText( _T("Row 3"), 5, 55 );
275 dc.DrawText( _T("Row 4"), 5, 80 );
276 dc.DrawText( _T("Row 5"), 5, 105 );
277 dc.DrawText( _T("Row 6"), 5, 130 );
278 }
279
280 // MyCanvas
281
282 IMPLEMENT_DYNAMIC_CLASS(MyCanvas, wxPanel)
283
284 BEGIN_EVENT_TABLE(MyCanvas, wxPanel)
285 EVT_PAINT( MyCanvas::OnPaint)
286 END_EVENT_TABLE()
287
288 MyCanvas::MyCanvas( wxScrolledWindow *parent, MyTopLabels *top, MyRightLabels *right,
289 wxWindowID id, const wxPoint &pos, const wxSize &size )
290 : wxPanel( parent, id, pos, size, wxSUNKEN_BORDER, _T("test canvas") )
291 {
292 m_owner = parent;
293 m_topLabels = top;
294 m_rightLabels = right;
295
296 (void)new wxButton( this, wxID_ANY, _T("Hallo I"), wxPoint(0,50), wxSize(100,25) );
297 (void)new wxButton( this, wxID_ANY, _T("Hallo II"), wxPoint(200,50), wxSize(100,25) );
298
299 (void)new wxTextCtrl( this, wxID_ANY, _T("Text I"), wxPoint(0,100), wxSize(100,25) );
300 (void)new wxTextCtrl( this, wxID_ANY, _T("Text II"), wxPoint(200,100), wxSize(100,25) );
301
302 (void)new wxComboBox( this, wxID_ANY, _T("ComboBox I"), wxPoint(0,150), wxSize(100,25));
303 (void)new wxComboBox( this, wxID_ANY, _T("ComboBox II"), wxPoint(200,150), wxSize(100,25));
304
305 SetBackgroundColour( wxT("WHEAT") );
306
307 SetCursor( wxCursor( wxCURSOR_IBEAM ) );
308 }
309
310 void MyCanvas::OnPaint( wxPaintEvent &WXUNUSED(event) )
311 {
312 wxPaintDC dc( this );
313 m_owner->PrepareDC( dc );
314
315 dc.SetPen( *wxBLACK_PEN );
316
317 // OK, let's assume we are a grid control and we have two
318 // grid cells. Here in OnPaint we want to know which cell
319 // to redraw so that we prevent redrawing cells that don't
320 // need to get redrawn. We have one cell at (0,0) and one
321 // more at (200,0), both having a size of (100,25).
322
323 // We can query how much the window has been scrolled
324 // by calling CalcUnscrolledPosition()
325
326 int scroll_x = 0;
327 int scroll_y = 0;
328 m_owner->CalcUnscrolledPosition( scroll_x, scroll_y, &scroll_x, &scroll_y );
329
330 // We also need to know the size of the window to see which
331 // cells are completely hidden and not get redrawn
332
333 int size_x = 0;
334 int size_y = 0;
335 GetClientSize( &size_x, &size_y );
336
337 // First cell: (0,0)(100,25)
338 // It it on screen?
339 if ((0+100-scroll_x > 0) && (0+25-scroll_y > 0) &&
340 (0-scroll_x < size_x) && (0-scroll_y < size_y))
341 {
342 // Has the region on screen been exposed?
343 if (IsExposed(0,0,100,25))
344 {
345 wxLogMessage( wxT("Redraw first cell") );
346 dc.DrawRectangle( 0, 0, 100, 25 );
347 dc.DrawText( _T("First Cell"), 5, 5 );
348 }
349 }
350
351
352 // Second cell: (0,200)(100,25)
353 // It it on screen?
354 if ((200+100-scroll_x > 0) && (0+25-scroll_y > 0) &&
355 (200-scroll_x < size_x) && (0-scroll_y < size_y))
356 {
357 // Has the region on screen been exposed?
358 if (IsExposed(200,0,100,25))
359 {
360 wxLogMessage( wxT("Redraw second cell") );
361 dc.DrawRectangle( 200, 0, 100, 25 );
362 dc.DrawText( _T("Second Cell"), 205, 5 );
363 }
364 }
365
366 }
367
368 void MyCanvas::ScrollWindow( int dx, int dy, const wxRect *rect )
369 {
370 wxPanel::ScrollWindow( dx, dy, rect );
371 m_topLabels->ScrollWindow( dx, 0, rect );
372 m_rightLabels->ScrollWindow( 0, dy, rect );
373 }
374
375 // MyFrame
376
377 const int ID_QUIT = wxID_EXIT;
378 const int ID_FULL = 109;
379 const int ID_ABOUT = wxID_ABOUT;
380
381 IMPLEMENT_DYNAMIC_CLASS( MyFrame, wxFrame )
382
383 BEGIN_EVENT_TABLE(MyFrame,wxFrame)
384 EVT_MENU (ID_ABOUT, MyFrame::OnAbout)
385 EVT_MENU (ID_QUIT, MyFrame::OnQuit)
386 EVT_MENU (ID_FULL, MyFrame::OnFullScreen)
387 END_EVENT_TABLE()
388
389 MyFrame::MyFrame()
390 : wxFrame( (wxFrame *)NULL, wxID_ANY, _T("wxScrolledWindow sample"),
391 wxPoint(20,20), wxSize(470,500) )
392 {
393 wxMenu *file_menu = new wxMenu();
394 file_menu->Append( ID_ABOUT, _T("&About..."));
395 file_menu->Append( ID_FULL, _T("&Full screen on/off"));
396 file_menu->Append( ID_QUIT, _T("E&xit\tAlt-X"));
397
398 wxMenuBar *menu_bar = new wxMenuBar();
399 menu_bar->Append(file_menu, _T("&File"));
400
401 SetMenuBar( menu_bar );
402
403 #if wxUSE_STATUSBAR
404 CreateStatusBar(2);
405 int widths[] = { -1, 100 };
406 SetStatusWidths( 2, widths );
407 #endif // wxUSE_STATUSBAR
408
409 m_scrolled = new MyScrolledWindow( this, wxID_ANY, wxDefaultPosition, wxSize(100,100) );
410 m_scrolled->SetScrollbars( 10, 10, 50, 50 );
411
412 #if wxUSE_LOG
413 m_log = new wxTextCtrl( this, wxID_ANY, _T("This is the log window.\n"), wxPoint(0,0), wxSize(100,100), wxTE_MULTILINE );
414 wxLog *old_log = wxLog::SetActiveTarget( new wxLogTextCtrl( m_log ) );
415 delete old_log;
416 #endif // wxUSE_LOG
417
418 wxBoxSizer *topsizer = new wxBoxSizer( wxVERTICAL );
419 topsizer->Add( m_scrolled, 1, wxEXPAND );
420 #if wxUSE_LOG
421 topsizer->Add( m_log, 0, wxEXPAND );
422 #endif // wxUSE_LOG
423
424 SetAutoLayout( true );
425 SetSizer( topsizer );
426 }
427
428 void MyFrame::OnQuit( wxCommandEvent &WXUNUSED(event) )
429 {
430 Close( true );
431 }
432
433 void MyFrame::OnFullScreen( wxCommandEvent &WXUNUSED(event) )
434 {
435 ShowFullScreen( !IsFullScreen(), wxFULLSCREEN_NOBORDER|wxFULLSCREEN_NOCAPTION );
436 }
437
438 void MyFrame::OnAbout( wxCommandEvent &WXUNUSED(event) )
439 {
440 (void)wxMessageBox( _T("wxScroll demo II\n")
441 _T("Robert Roebling (c) 1998"),
442 _T("About wxScroll II Demo"), wxICON_INFORMATION | wxOK );
443 }
444
445 //-----------------------------------------------------------------------------
446 // MyApp
447 //-----------------------------------------------------------------------------
448
449 bool MyApp::OnInit()
450 {
451 wxFrame *frame = new MyFrame();
452 frame->Show( true );
453
454 return true;
455 }
456