]> git.saurik.com Git - wxWidgets.git/blame - contrib/samples/animate/anitest.cpp
regenerated makefiles after fixing files.bkl
[wxWidgets.git] / contrib / samples / animate / anitest.cpp
CommitLineData
4638d697
JS
1/////////////////////////////////////////////////////////////////////////////
2// Name: anitest.cpp
3// Purpose: Animation sample
4// Author: Julian Smart
5// Modified by:
6// Created: 02/07/2001
7// RCS-ID: $Id$
8// Copyright: (c) Julian Smart
9// Licence: wxWindows licence
10/////////////////////////////////////////////////////////////////////////////
11
12// ===========================================================================
13// declarations
14// ===========================================================================
15
16// ---------------------------------------------------------------------------
17// headers
18// ---------------------------------------------------------------------------
19
20// For compilers that support precompilation, includes "wx/wx.h".
21#include "wx/wxprec.h"
22
23#ifdef __BORLANDC__
24 #pragma hdrstop
25#endif
26
27#ifndef WX_PRECOMP
28 #include "wx/wx.h"
29#endif
30
618f2efa 31#if defined(__WXGTK__) || defined(__WXX11__) || defined(__WXMOTIF__) || defined(__WXMAC__)
4638d697
JS
32 #include "mondrian.xpm"
33#endif
34
35#include "anitest.h"
36
37IMPLEMENT_APP(MyApp)
38
39// ---------------------------------------------------------------------------
40// global variables
41// ---------------------------------------------------------------------------
42
43// ---------------------------------------------------------------------------
44// event tables
45// ---------------------------------------------------------------------------
46
47BEGIN_EVENT_TABLE(MyFrame, wxFrame)
48 EVT_MENU(ANITEST_ABOUT, MyFrame::OnAbout)
49 EVT_MENU(ANITEST_QUIT, MyFrame::OnQuit)
50 EVT_MENU(ANITEST_OPEN, MyFrame::OnOpen)
51
52 EVT_SIZE(MyFrame::OnSize)
53END_EVENT_TABLE()
54
55// ===========================================================================
56// implementation
57// ===========================================================================
58
59// ---------------------------------------------------------------------------
60// MyApp
61// ---------------------------------------------------------------------------
62
63// Initialise this in OnInit, not statically
64bool MyApp::OnInit()
65{
66 // Create the main frame window
67
10217444 68 MyFrame* frame = new MyFrame((wxFrame *)NULL, -1, _T("Animation Demo"),
4638d697
JS
69 wxPoint(-1, -1), wxSize(500, 400),
70 wxDEFAULT_FRAME_STYLE);
71
72 // Give it an icon
73#ifdef __WXMSW__
74 frame->SetIcon(wxIcon("mdi_icn"));
75#else
76 frame->SetIcon(wxIcon( mondrian_xpm ));
77#endif
78
79 // Make a menubar
80 wxMenu *file_menu = new wxMenu;
81
10217444
VS
82 file_menu->Append(ANITEST_OPEN, _T("&Open Animation...\tCtrl+O"), _T("Open a GIF animation"));
83 file_menu->Append(ANITEST_QUIT, _T("&Exit\tAlt+X"), _T("Quit the program"));
4638d697
JS
84
85 wxMenu *help_menu = new wxMenu;
10217444 86 help_menu->Append(ANITEST_ABOUT, _T("&About\tF1"));
4638d697
JS
87
88 wxMenuBar *menu_bar = new wxMenuBar;
89
10217444
VS
90 menu_bar->Append(file_menu, _T("&File"));
91 menu_bar->Append(help_menu, _T("&Help"));
4638d697
JS
92
93 // Associate the menu bar with the frame
94 frame->SetMenuBar(menu_bar);
95
96 frame->CreateStatusBar();
97
98 frame->Show(TRUE);
99
100 SetTopWindow(frame);
101
102 return TRUE;
103}
104
105// ---------------------------------------------------------------------------
106// MyFrame
107// ---------------------------------------------------------------------------
108
109// Define my frame constructor
110MyFrame::MyFrame(wxWindow *parent,
111 const wxWindowID id,
112 const wxString& title,
113 const wxPoint& pos,
114 const wxSize& size,
115 const long style)
116 : wxFrame(parent, id, title, pos, size,
117 style | wxNO_FULL_REPAINT_ON_RESIZE)
118{
119// m_animation = NULL;
120 m_canvas = new MyCanvas(this, wxPoint(0, 0), wxSize(-1, -1));
121#if 0
122 m_player.SetDestroyAnimation(FALSE);
123 m_player.SetWindow(m_canvas);
124 m_player.SetPosition(wxPoint(0, 0));
125#endif
126 m_animationCtrl = new wxGIFAnimationCtrl(m_canvas, -1, wxEmptyString,
127 wxPoint(0, 0), wxSize(200, 200));
128}
129
130MyFrame::~MyFrame()
131{
132// m_player.Stop();
133}
134
135void MyFrame::OnQuit(wxCommandEvent& WXUNUSED(event))
136{
137 Close();
138}
139
140void MyFrame::OnAbout(wxCommandEvent& WXUNUSED(event) )
141{
10217444
VS
142 (void)wxMessageBox(_T("wxWindows 2 Animation Demo\n")
143 _T("Author: Julian Smart (c) 2001\n"),
144 _T("About Animation Demo"));
4638d697
JS
145}
146
147void MyFrame::OnOpen(wxCommandEvent& event)
148{
10217444 149 wxFileDialog dialog(this, _T("Please choose an animated GIF"),
4638d697
JS
150 wxEmptyString, wxEmptyString, wxT("*.gif"), wxOPEN);
151 if (dialog.ShowModal() == wxID_OK)
152 {
153 wxString filename(dialog.GetPath());
154
155 m_animationCtrl->Stop();
156 if (m_animationCtrl->LoadFile(filename))
157 {
158 m_animationCtrl->Play();
159 }
160 else
161 {
10217444 162 wxMessageBox(_T("Sorry, this animation was not a valid animated GIF."));
4638d697
JS
163 }
164 }
165}
166
167
168// ---------------------------------------------------------------------------
169// MyCanvas
170// ---------------------------------------------------------------------------
171
172BEGIN_EVENT_TABLE(MyCanvas, wxScrolledWindow)
173 EVT_PAINT(MyCanvas::OnPaint)
174END_EVENT_TABLE()
175
176// Define a constructor for my canvas
177MyCanvas::MyCanvas(wxWindow *parent, const wxPoint& pos, const wxSize& size)
178 : wxScrolledWindow(parent, -1, pos, size,
179 wxSUNKEN_BORDER |
180 wxNO_FULL_REPAINT_ON_RESIZE |
181 wxVSCROLL | wxHSCROLL)
182{
183 SetBackgroundColour(wxColour("YELLOW"));
184}
185
186void MyCanvas::OnPaint(wxPaintEvent& event)
187{
188 wxPaintDC dc(this);
189#if 0
190 MyFrame* frame = (MyFrame*) GetParent();
191 if (frame->GetPlayer().IsPlaying())
192 {
193 frame->GetPlayer().Draw(dc);
194 }
195#endif
196}
197