]> git.saurik.com Git - wxWidgets.git/blob - samples/mobile/styles/styles.cpp
Warning fixes found under hardest mode of OpenWatcom. Seems clean in Borland, MinGW...
[wxWidgets.git] / samples / mobile / styles / styles.cpp
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: styles.cpp
3 // Author: Robert Roebling
4 // Created: 04/07/02
5 // Copyright:
6 /////////////////////////////////////////////////////////////////////////////
7
8 #ifdef __GNUG__
9 #pragma implementation "styles.cpp"
10 #endif
11
12 // For compilers that support precompilation
13 #include "wx/wxprec.h"
14
15 #ifdef __BORLANDC__
16 #pragma hdrstop
17 #endif
18
19 #include "wx/image.h"
20
21 // Include private headers
22 #include "styles.h"
23
24 //------------------------------------------------------------------------------
25 // MyFrame
26 //------------------------------------------------------------------------------
27
28 BEGIN_EVENT_TABLE(MyFrame,wxFrame)
29 EVT_MENU(ID_ABOUT, MyFrame::OnAbout)
30 EVT_MENU(ID_QUIT, MyFrame::OnQuit)
31 EVT_CLOSE(MyFrame::OnCloseWindow)
32 END_EVENT_TABLE()
33
34 MyFrame::MyFrame( wxWindow *parent, wxWindowID id, const wxString &title,
35 const wxPoint &position, const wxSize& size, long style ) :
36 wxFrame( parent, id, title, position, size, style )
37 {
38 // Create menu and status bar.
39 CreateMyMenuBar();
40 #if wxUSE_STATUSBAR
41 CreateStatusBar(1);
42 SetStatusText( _T("Welcome to Styles!") );
43 #endif // wxUSE_STATUSBAR
44
45 wxImage image;
46 image.LoadFile( _T("marble.jpg"), wxBITMAP_TYPE_JPEG );
47
48 wxBitmap bitmap( image );
49 #ifdef __WXUNIVERSAL__
50 SetBackground( bitmap, 0, wxTILE );
51 #endif
52
53 new wxStaticText( this, wxID_ANY, _T("This is text"), wxPoint( 20,50 ) );
54
55 new wxCheckBox( this, wxID_ANY, _T("This is a checkbox"), wxPoint( 20,70 ) );
56 }
57
58 void MyFrame::CreateMyMenuBar()
59 {
60 wxMenu *file_menu = new wxMenu;
61 file_menu->Append( ID_ABOUT, _T("About..."), _T("Program info") );
62 file_menu->AppendSeparator();
63 file_menu->Append( ID_QUIT, _T("Quit..."), _T("Quit program") );
64
65 wxMenuBar *menu_bar = new wxMenuBar();
66 menu_bar->Append( file_menu, _T("&File") );
67
68 SetMenuBar( menu_bar );
69 }
70
71 void MyFrame::OnAbout( wxCommandEvent &WXUNUSED(event) )
72 {
73 }
74
75 void MyFrame::OnQuit( wxCommandEvent &WXUNUSED(event) )
76 {
77 Close( true );
78 }
79
80 void MyFrame::OnCloseWindow( wxCloseEvent &WXUNUSED(event) )
81 {
82 Destroy();
83 }
84
85 //------------------------------------------------------------------------------
86 // MyApp
87 //------------------------------------------------------------------------------
88
89 IMPLEMENT_APP(MyApp)
90
91 MyApp::MyApp()
92 {
93 }
94
95 bool MyApp::OnInit()
96 {
97 wxInitAllImageHandlers();
98
99 SetVendorName(_T("Free world"));
100 SetAppName(_T("Styles"));
101
102 MyFrame *frame = new MyFrame( NULL, wxID_ANY, _T("Styles"), wxPoint(20,20), wxSize(500,340) );
103 frame->Show( true );
104
105 return true;
106 }
107
108 int MyApp::OnExit()
109 {
110 return 0;
111 }
112