4 * Author: Robert Roebling
6 * Copyright: (C) 1998, Robert Roebling
10 // For compilers that support precompilation, includes "wx/wx.h".
11 #include "wx/wxprec.h"
22 #include "wx/listctrl.h"
34 class MyCanvas
: public wxScrolledWindow
38 MyCanvas( wxWindow
*parent
, wxWindowID
, const wxPoint
&pos
, const wxSize
&size
);
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
);
49 DECLARE_DYNAMIC_CLASS(MyCanvas
)
55 class MyFrame
: public wxFrame
60 void OnAbout( wxCommandEvent
&event
);
61 void OnQuit( wxCommandEvent
&event
);
66 DECLARE_DYNAMIC_CLASS(MyFrame
)
72 class MyApp
: public wxApp
75 virtual bool OnInit();
84 #define ID_ADDBUTTON 1
85 #define ID_DELBUTTON 2
86 #define ID_MOVEBUTTON 3
87 #define ID_SCROLLWIN 4
90 #define ID_NEWBUTTON 10
94 IMPLEMENT_DYNAMIC_CLASS(MyCanvas
, wxScrolledWindow
)
96 BEGIN_EVENT_TABLE(MyCanvas
, wxScrolledWindow
)
97 EVT_PAINT( MyCanvas
::OnPaint
)
98 EVT_BUTTON( ID_QUERYPOS
, MyCanvas
::OnQueryPosition
)
99 EVT_BUTTON( ID_ADDBUTTON
, MyCanvas
::OnAddButton
)
100 EVT_BUTTON( ID_DELBUTTON
, MyCanvas
::OnDeleteButton
)
101 EVT_BUTTON( ID_MOVEBUTTON
, MyCanvas
::OnMoveButton
)
102 EVT_BUTTON( ID_SCROLLWIN
, MyCanvas
::OnScrollWin
)
105 MyCanvas
::MyCanvas( wxWindow
*parent
, wxWindowID id
,
106 const wxPoint
&pos
, const wxSize
&size
)
107 : wxScrolledWindow( parent
, id
, pos
, size
, wxSUNKEN_BORDER
| wxTAB_TRAVERSAL
, "test canvas" )
109 (void) new wxButton( this, ID_ADDBUTTON
, "add button", wxPoint(10,10) );
110 (void) new wxButton( this, ID_DELBUTTON
, "del button", wxPoint(10,40) );
111 (void) new wxButton( this, ID_MOVEBUTTON
, "move button", wxPoint(150,10) );
112 (void) new wxButton( this, ID_SCROLLWIN
, "scroll win", wxPoint(250,10) );
123 m_button
= new wxButton( this, ID_QUERYPOS
, "Query position", wxPoint(10,110) );
125 (void) new wxTextCtrl( this, -1, "wxTextCtrl", wxPoint(10,150) );
127 (void) new wxRadioButton( this, -1, "Disable", wxPoint(10,190) );
129 (void) new wxComboBox( this, -1, "This", wxPoint(10,230), wxDefaultSize
, 5, choices
);
131 (void) new wxRadioBox( this, -1, "This", wxPoint(10,310), wxDefaultSize
, 5, choices
, 2, wxRA_SPECIFY_COLS
);
133 (void) new wxRadioBox( this, -1, "This", wxPoint(10,440), wxDefaultSize
, 5, choices
, 2, wxRA_SPECIFY_ROWS
);
135 wxListCtrl
*m_listCtrl
= new wxListCtrl(
136 this, -1, wxPoint(200, 110), wxSize(180, 120),
137 wxLC_REPORT
| wxSIMPLE_BORDER
| wxLC_SINGLE_SEL
);
139 m_listCtrl
->InsertColumn(0, "First", wxLIST_FORMAT_LEFT
, 90);
140 m_listCtrl
->InsertColumn(1, "Last", wxLIST_FORMAT_LEFT
, 90);
142 for ( int i
=0; i
< 30; i
++)
145 sprintf(buf
, "Item %d", i
);
146 m_listCtrl
->InsertItem(i
, buf
);
148 m_listCtrl
->SetItemState( 3, wxLIST_STATE_SELECTED
, wxLIST_STATE_SELECTED
);
150 (void) new wxListBox( this, -1, wxPoint(260,280), wxSize(120,120), 5, choices
, wxLB_ALWAYS_SB
);
152 wxWindow
*test
= new wxWindow( this, -1, wxPoint(10, 530), wxSize(130,120), wxSIMPLE_BORDER
| wxTAB_TRAVERSAL
);
153 test
->SetBackgroundColour( "WHEAT" );
154 wxButton
*test2
= new wxButton( test
, -1, "Hallo", wxPoint(10,10) );
156 test
= new wxWindow( this, -1, wxPoint(160, 530), wxSize(130,120), wxSUNKEN_BORDER
| wxTAB_TRAVERSAL
);
157 test
->SetBackgroundColour( "WHEAT" );
158 test
->SetCursor( wxCursor( wxCURSOR_NO_ENTRY
) );
159 test2
= new wxButton( test
, -1, "Hallo", wxPoint(10,10) );
160 test2
->SetCursor( wxCursor( wxCURSOR_PENCIL
) );
162 test
= new wxWindow( this, -1, wxPoint(310, 530), wxSize(130,120), wxRAISED_BORDER
| wxTAB_TRAVERSAL
);
163 test
->SetBackgroundColour( "WHEAT" );
164 test
->SetCursor( wxCursor( wxCURSOR_PENCIL
) );
165 test2
= new wxButton( test
, -1, "Hallo", wxPoint(10,10) );
166 test2
->SetCursor( wxCursor( wxCURSOR_NO_ENTRY
) );
168 SetBackgroundColour( "WHEAT" );
170 SetCursor( wxCursor( wxCURSOR_IBEAM
) );
173 MyCanvas
::~MyCanvas()
177 void MyCanvas
::OnQueryPosition( wxCommandEvent
&WXUNUSED(event
) )
179 wxPoint
pt( m_button
->GetPosition() );
180 wxLogMessage( """wxButton"" position %d %d", pt
.x
, pt
.y
);
181 if ((pt
.x
== 10) && (pt
.y
== 110))
182 wxLogMessage( "-> Correct." );
184 wxLogMessage( "-> Incorrect." );
187 void MyCanvas
::OnAddButton( wxCommandEvent
&WXUNUSED(event
) )
189 wxLogMessage( "Inserting button at position 10,70..." );
190 (void) new wxButton( this, ID_NEWBUTTON
, "new button", wxPoint(10,70), wxSize(80,25) );
193 void MyCanvas
::OnDeleteButton( wxCommandEvent
&event
)
195 wxLogMessage( "Deleting button inserted with ""Add button""..." );
196 wxWindow
*win
= FindWindow( ID_NEWBUTTON
);
200 wxLogMessage( "-> No window with id = ID_NEWBUTTON found." );
203 void MyCanvas
::OnMoveButton( wxCommandEvent
&event
)
205 wxLogMessage( "Moving button 10 pixels downward.." );
206 wxWindow
*win
= FindWindow( event
.GetId() );
207 win
->Move( -1, win
->GetPosition().y
+ 10 );
210 void MyCanvas
::OnScrollWin( wxCommandEvent
&WXUNUSED(event
) )
212 wxLogMessage( "Scrolling 2 units up.\nThe white square and the controls should move equally!" );
218 void MyCanvas
::OnPaint( wxPaintEvent
&WXUNUSED(event
) )
220 wxPaintDC
dc( this );
223 dc
.DrawText( "Some text", 140, 140 );
225 dc
.DrawRectangle( 10, 70, 80, 25 );
227 dc
.DrawRectangle( 100, 160, 200, 200 );
232 const int ID_QUIT
= 108;
233 const int ID_ABOUT
= 109;
235 IMPLEMENT_DYNAMIC_CLASS( MyFrame
, wxFrame
)
237 BEGIN_EVENT_TABLE(MyFrame
,wxFrame
)
238 EVT_MENU (ID_ABOUT
, MyFrame
::OnAbout
)
239 EVT_MENU (ID_QUIT
, MyFrame
::OnQuit
)
243 : wxFrame( (wxFrame
*)NULL
, -1, "wxScrolledWindow sample",
244 wxPoint(20,20), wxSize(470,500) )
246 wxMenu
*file_menu
= new wxMenu();
247 file_menu
->Append( ID_ABOUT
, "&About..");
248 file_menu
->Append( ID_QUIT
, "E&xit\tAlt-X");
250 wxMenuBar
*menu_bar
= new wxMenuBar();
251 menu_bar
->Append(file_menu
, "&File");
253 SetMenuBar( menu_bar
);
256 int widths
[] = { -1, 100 };
257 SetStatusWidths( 2, widths
);
259 m_canvas
= new MyCanvas( this, -1, wxPoint(0,0), wxSize(100,100) );
260 m_canvas
->SetScrollbars( 10, 10, 50, 100 );
262 m_log
= new wxTextCtrl( this, -1, "This is the log window.\n", wxPoint(0,0), wxSize(100,100), wxTE_MULTILINE
);
263 wxLog
*old_log
= wxLog
::SetActiveTarget( new wxLogTextCtrl( m_log
) );
266 wxBoxSizer
*topsizer
= new wxBoxSizer( wxVERTICAL
);
268 topsizer
->Add( m_canvas
, 1, wxEXPAND
);
269 topsizer
->Add( m_log
, 0, wxEXPAND
);
271 SetAutoLayout( TRUE
);
272 SetSizer( topsizer
);
275 void MyFrame
::OnQuit( wxCommandEvent
&WXUNUSED(event
) )
280 void MyFrame
::OnAbout( wxCommandEvent
&WXUNUSED(event
) )
282 (void)wxMessageBox( "wxScroll demo\n"
283 "Robert Roebling (c) 1998",
284 "About wxScroll Demo", wxICON_INFORMATION
| wxOK
);
287 //-----------------------------------------------------------------------------
289 //-----------------------------------------------------------------------------
293 wxFrame
*frame
= new MyFrame();