cb167d00ed3773df43b9ca61fdbdb7dc9b6b625f
[wxWidgets.git] / 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
24 // derived classes
25
26 class MyFrame;
27 class MyApp;
28
29 // MyCanvas
30
31 class MyCanvas: public wxScrolledWindow
32 {
33 public:
34 MyCanvas() {};
35 MyCanvas( wxWindow *parent, wxWindowID, const wxPoint &pos, const wxSize &size );
36 ~MyCanvas();
37 void OnPaint( wxPaintEvent &event );
38
39 DECLARE_DYNAMIC_CLASS(MyCanvas)
40 DECLARE_EVENT_TABLE()
41 };
42
43 // MyFrame
44
45 class MyFrame: public wxFrame
46 {
47 public:
48 MyFrame();
49
50 void OnAbout( wxCommandEvent &event );
51 void OnQuit( wxCommandEvent &event );
52
53 MyCanvas *m_canvas;
54
55 DECLARE_DYNAMIC_CLASS(MyFrame)
56 DECLARE_EVENT_TABLE()
57 };
58
59 // MyApp
60
61 class MyApp: public wxApp
62 {
63 public:
64 virtual bool OnInit();
65 };
66
67 // main program
68
69 IMPLEMENT_APP(MyApp)
70
71 // MyCanvas
72
73 IMPLEMENT_DYNAMIC_CLASS(MyCanvas, wxScrolledWindow)
74
75 BEGIN_EVENT_TABLE(MyCanvas, wxScrolledWindow)
76 EVT_PAINT(MyCanvas::OnPaint)
77 END_EVENT_TABLE()
78
79 MyCanvas::MyCanvas( wxWindow *parent, wxWindowID id,
80 const wxPoint &pos, const wxSize &size )
81 : wxScrolledWindow( parent, id, pos, size, wxSUNKEN_BORDER | wxTAB_TRAVERSAL )
82 {
83 wxString choices[] =
84 {
85 "This",
86 "is one of my",
87 "really",
88 "wonderful",
89 "examples."
90 };
91
92 (void) new wxButton( this, -1, "wxButton", wxPoint(10,10) );
93
94 (void) new wxTextCtrl( this, -1, "wxTextCtrl", wxPoint(10,50) );
95
96 (void) new wxRadioButton( this, -1, "Disable", wxPoint(10,90) );
97
98 (void) new wxComboBox( this, -1, "This", wxPoint(10,130), wxDefaultSize, 5, choices );
99
100 (void) new wxRadioBox( this, -1, "This", wxPoint(10,200), wxDefaultSize, 5, choices, 2, wxRA_SPECIFY_COLS );
101
102 wxListCtrl *m_listCtrl = new wxListCtrl(
103 this, -1, wxPoint(200, 10), wxSize(180, 120),
104 wxLC_REPORT | wxSUNKEN_BORDER | wxLC_SINGLE_SEL );
105
106 m_listCtrl->InsertColumn(0, "First", wxLIST_FORMAT_LEFT, 90);
107 m_listCtrl->InsertColumn(1, "Last", wxLIST_FORMAT_LEFT, 90);
108
109 for ( int i=0; i < 30; i++)
110 {
111 char buf[20];
112 sprintf(buf, "Item %d", i);
113 m_listCtrl->InsertItem(i, buf);
114 }
115 m_listCtrl->SetItemState( 3, wxLIST_STATE_SELECTED, wxLIST_STATE_SELECTED );
116
117 (void) new wxListBox( this, -1, wxPoint(200,180), wxSize(180,120), 5, choices, wxLB_ALWAYS_SB );
118
119 SetBackgroundColour( "WHEAT" );
120 }
121
122 MyCanvas::~MyCanvas()
123 {
124 }
125
126 void MyCanvas::OnPaint( wxPaintEvent &WXUNUSED(event) )
127 {
128 wxPaintDC dc( this );
129 PrepareDC( dc );
130
131 dc.DrawText( "Some text", 110, 10 );
132
133 dc.DrawRectangle( 50, 30, 200, 200 );
134 }
135
136 // MyFrame
137
138 const int ID_QUIT = 108;
139 const int ID_ABOUT = 109;
140
141 IMPLEMENT_DYNAMIC_CLASS( MyFrame, wxFrame )
142
143 BEGIN_EVENT_TABLE(MyFrame,wxFrame)
144 EVT_MENU (ID_ABOUT, MyFrame::OnAbout)
145 EVT_MENU (ID_QUIT, MyFrame::OnQuit)
146 END_EVENT_TABLE()
147
148 MyFrame::MyFrame()
149 : wxFrame( (wxFrame *)NULL, -1, "wxScrolledWindow sample",
150 wxPoint(20,20), wxSize(470,360) )
151 {
152 wxMenu *file_menu = new wxMenu();
153 file_menu->Append( ID_ABOUT, "&About..");
154 file_menu->Append( ID_QUIT, "E&xit\tAlt-X");
155
156 wxMenuBar *menu_bar = new wxMenuBar();
157 menu_bar->Append(file_menu, "&File");
158
159 SetMenuBar( menu_bar );
160
161 CreateStatusBar(2);
162 int widths[] = { -1, 100 };
163 SetStatusWidths( 2, widths );
164
165 m_canvas = new MyCanvas( this, -1, wxPoint(0,0), wxSize(10,10) );
166 m_canvas->SetScrollbars( 10, 10, 50, 100 );
167 }
168
169 void MyFrame::OnQuit( wxCommandEvent &WXUNUSED(event) )
170 {
171 Close( TRUE );
172 }
173
174 void MyFrame::OnAbout( wxCommandEvent &WXUNUSED(event) )
175 {
176 (void)wxMessageBox( "wxScroll demo\n"
177 "Robert Roebling (c) 1998",
178 "About wxScroll Demo", wxICON_INFORMATION | wxOK );
179 }
180
181 //-----------------------------------------------------------------------------
182 // MyApp
183 //-----------------------------------------------------------------------------
184
185 bool MyApp::OnInit()
186 {
187 wxFrame *frame = new MyFrame();
188 frame->Show( TRUE );
189
190 return TRUE;
191 }
192