]> git.saurik.com Git - wxWidgets.git/blame - samples/oleauto/oleauto.cpp
Remove ugly flicker during resizing
[wxWidgets.git] / samples / oleauto / oleauto.cpp
CommitLineData
8d7dafc9
JS
1/////////////////////////////////////////////////////////////////////////////
2// Name: oleauto.cpp
be5a51fb 3// Purpose: OLE Automation wxWidgets sample
8d7dafc9
JS
4// Author: Julian Smart
5// Modified by:
6// Created: 08/12/98
7// RCS-ID: $Id$
8// Copyright: (c) Julian Smart
9// Licence: wxWindows licence
10/////////////////////////////////////////////////////////////////////////////
11
12// ============================================================================
13// declarations
14// ============================================================================
15
16// ----------------------------------------------------------------------------
17// headers
18// ----------------------------------------------------------------------------
8d7dafc9
JS
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// for all others, include the necessary headers (this file is usually all you
be5a51fb 28// need because it includes almost all "standard" wxWidgets headers
8d7dafc9
JS
29#ifndef WX_PRECOMP
30 #include "wx/wx.h"
31#endif
32
b20edf8b 33#include "wx/msw/ole/automtn.h"
8d7dafc9
JS
34
35#ifndef __WXMSW__
36#error "Sorry, this sample works under Windows only."
37#endif
38
39// ----------------------------------------------------------------------------
40// ressources
41// ----------------------------------------------------------------------------
42// the application icon
618f2efa 43#if defined(__WXGTK__) || defined(__WXX11__) || defined(__WXMOTIF__)
8d7dafc9
JS
44 #include "mondrian.xpm"
45#endif
46
47// ----------------------------------------------------------------------------
48// private classes
49// ----------------------------------------------------------------------------
50
51// Define a new application type, each program should derive a class from wxApp
52class MyApp : public wxApp
53{
54public:
55 // override base class virtuals
56 // ----------------------------
57
58 // this one is called on application startup and is a good place for the app
59 // initialization (doing it here and not in the ctor allows to have an error
60 // return: if OnInit() returns false, the application terminates)
61 virtual bool OnInit();
62};
63
64// Define a new frame type: this is going to be our main frame
65class MyFrame : public wxFrame
66{
67public:
68 // ctor(s)
69 MyFrame(const wxString& title, const wxPoint& pos, const wxSize& size);
70
71 // event handlers (these functions should _not_ be virtual)
72 void OnQuit(wxCommandEvent& event);
73 void OnAbout(wxCommandEvent& event);
74 void OnTest(wxCommandEvent& event);
75
76private:
be5a51fb 77 // any class wishing to process wxWidgets events must use this macro
8d7dafc9
JS
78 DECLARE_EVENT_TABLE()
79};
80
81// ----------------------------------------------------------------------------
82// constants
83// ----------------------------------------------------------------------------
84
85// IDs for the controls and the menu commands
86enum
87{
88 // menu items
89 OleAuto_Quit = 1,
90 OleAuto_About,
91 OleAuto_Test,
92
93 // controls start here (the numbers are, of course, arbitrary)
004f4002 94 OleAuto_Text = 1000
8d7dafc9
JS
95};
96
97// ----------------------------------------------------------------------------
be5a51fb 98// event tables and other macros for wxWidgets
8d7dafc9
JS
99// ----------------------------------------------------------------------------
100
be5a51fb 101// the event tables connect the wxWidgets events with the functions (event
8d7dafc9
JS
102// handlers) which process them. It can be also done at run-time, but for the
103// simple menu events like this the static method is much simpler.
104BEGIN_EVENT_TABLE(MyFrame, wxFrame)
105 EVT_MENU(OleAuto_Quit, MyFrame::OnQuit)
106 EVT_MENU(OleAuto_About, MyFrame::OnAbout)
107 EVT_MENU(OleAuto_Test, MyFrame::OnTest)
108END_EVENT_TABLE()
109
be5a51fb 110// Create a new application object: this macro will allow wxWidgets to create
8d7dafc9
JS
111// the application object during program execution (it's better than using a
112// static object for many reasons) and also declares the accessor function
113// wxGetApp() which will return the reference of the right type (i.e. MyApp and
114// not wxApp)
115IMPLEMENT_APP(MyApp)
116
117// ============================================================================
118// implementation
119// ============================================================================
120
121// ----------------------------------------------------------------------------
122// the application class
123// ----------------------------------------------------------------------------
124
125// `Main program' equivalent: the program execution "starts" here
126bool MyApp::OnInit()
127{
45e6e6f8
VZ
128 if ( !wxApp::OnInit() )
129 return false;
130
8d7dafc9 131 // Create the main application window
be5a51fb 132 MyFrame *frame = new MyFrame(_T("OleAuto wxWidgets App"),
8d7dafc9
JS
133 wxPoint(50, 50), wxSize(450, 340));
134
135 // Show it and tell the application that it's our main window
136 // @@@ what does it do exactly, in fact? is it necessary here?
7cdd78f6 137 frame->Show(true);
8d7dafc9
JS
138 SetTopWindow(frame);
139
140 // success: wxApp::OnRun() will be called which will enter the main message
7cdd78f6 141 // loop and the application will run. If we returned false here, the
8d7dafc9 142 // application would exit immediately.
7cdd78f6 143 return true;
8d7dafc9
JS
144}
145
146// ----------------------------------------------------------------------------
147// main frame
148// ----------------------------------------------------------------------------
149
150// frame constructor
151MyFrame::MyFrame(const wxString& title, const wxPoint& pos, const wxSize& size)
7cdd78f6 152 : wxFrame((wxFrame *)NULL, wxID_ANY, title, pos, size)
8d7dafc9
JS
153{
154 // set the frame icon
155 SetIcon(wxICON(mondrian));
156
157 // create a menu bar
158 wxMenu *menuFile = new wxMenu;
159
600683ca
MB
160 menuFile->Append(OleAuto_Test, _T("&Test Excel Automation..."));
161 menuFile->Append(OleAuto_About, _T("&About..."));
8d7dafc9 162 menuFile->AppendSeparator();
600683ca 163 menuFile->Append(OleAuto_Quit, _T("E&xit"));
8d7dafc9
JS
164
165 // now append the freshly created menu to the menu bar...
166 wxMenuBar *menuBar = new wxMenuBar;
600683ca 167 menuBar->Append(menuFile, _T("&File"));
8d7dafc9
JS
168
169 // ... and attach this menu bar to the frame
170 SetMenuBar(menuBar);
171
8520f137 172#if wxUSE_STATUSBAR
8d7dafc9
JS
173 // create a status bar just for fun (by default with 1 pane only)
174 CreateStatusBar(2);
be5a51fb 175 SetStatusText(_T("Welcome to wxWidgets!"));
8520f137 176#endif // wxUSE_STATUSBAR
8d7dafc9
JS
177}
178
179
180// event handlers
181
182void MyFrame::OnQuit(wxCommandEvent& WXUNUSED(event))
183{
7cdd78f6
WS
184 // true is to force the frame to close
185 Close(true);
8d7dafc9
JS
186}
187
188void MyFrame::OnAbout(wxCommandEvent& WXUNUSED(event))
189{
600683ca
MB
190 wxMessageBox(_T("This is an OLE Automation sample"),
191 _T("About OleAuto"), wxOK | wxICON_INFORMATION, this);
8d7dafc9
JS
192}
193
194/* Tests OLE automation by making the active Excel cell bold,
195 * and changing the text.
196 */
197void MyFrame::OnTest(wxCommandEvent& WXUNUSED(event))
198{
be5a51fb 199 wxMessageBox(_T("Please ensure Excel is running, then press OK.\nThe active cell should then say 'wxWidgets automation test!' in bold."));
8d7dafc9 200
2f6c54eb 201 wxAutomationObject excelObject, rangeObject;
600683ca 202 if (!excelObject.GetInstance(_T("Excel.Application")))
2f6c54eb 203 {
56270af4 204 // Start Excel if it is not running
600683ca 205 if (!excelObject.CreateInstance(_T("Excel.Application")))
8d7dafc9 206 {
600683ca 207 wxMessageBox(_T("Could not create Excel object."));
2f6c54eb 208 return;
8d7dafc9 209 }
2f6c54eb 210 }
56270af4
VZ
211
212 // Ensure that Excel is visible
213 if (!excelObject.PutProperty(_T("Visible"), true))
214 {
215 wxMessageBox(_T("Could not make Excel object visible"));
216 }
217 const wxVariant workbooksCountVariant = excelObject.GetProperty(_T("Workbooks.Count"));
218 if (workbooksCountVariant.IsNull())
219 {
220 wxMessageBox(_T("Could not get workbooks count"));
221 return;
222 }
223 const long workbooksCount = workbooksCountVariant;
224 if (workbooksCount == 0)
225 {
226 const wxVariant workbook = excelObject.CallMethod(_T("Workbooks.Add"));
227 if (workbook.IsNull())
228 {
229 wxMessageBox(_T("Could not create new Workbook"));
230 return;
231 }
232 }
233
be5a51fb 234 if (!excelObject.PutProperty(_T("ActiveCell.Value"), _T("wxWidgets automation test!")))
2f6c54eb 235 {
600683ca 236 wxMessageBox(_T("Could not set active cell value."));
2f6c54eb
VZ
237 return;
238 }
7cdd78f6 239 if (!excelObject.PutProperty(_T("ActiveCell.Font.Bold"), wxVariant(true)) )
2f6c54eb 240 {
600683ca 241 wxMessageBox(_T("Could not put Bold property to active cell."));
2f6c54eb
VZ
242 return;
243 }
8d7dafc9 244}