X-Git-Url: https://git.saurik.com/wxWidgets.git/blobdiff_plain/2f6c54eb076d760cbb6fb15e899f15fbbd575850..d8eff331e23435d9d8d6483a40f6fd9997a13f87:/samples/oleauto/oleauto.cpp?ds=sidebyside diff --git a/samples/oleauto/oleauto.cpp b/samples/oleauto/oleauto.cpp index 0eb9238629..383ef4d012 100644 --- a/samples/oleauto/oleauto.cpp +++ b/samples/oleauto/oleauto.cpp @@ -1,6 +1,6 @@ ///////////////////////////////////////////////////////////////////////////// // Name: oleauto.cpp -// Purpose: OLE Automation wxWindows sample +// Purpose: OLE Automation wxWidgets sample // Author: Julian Smart // Modified by: // Created: 08/12/98 @@ -16,10 +16,6 @@ // ---------------------------------------------------------------------------- // headers // ---------------------------------------------------------------------------- -#ifdef __GNUG__ - #pragma implementation "oleauto.cpp" - #pragma interface "oleauto.cpp" -#endif // For compilers that support precompilation, includes "wx/wx.h". #include "wx/wxprec.h" @@ -29,26 +25,22 @@ #endif // for all others, include the necessary headers (this file is usually all you -// need because it includes almost all "standard" wxWindows headers +// need because it includes almost all "standard" wxWidgets headers #ifndef WX_PRECOMP #include "wx/wx.h" #endif -#include +#include "wx/msw/ole/automtn.h" #ifndef __WXMSW__ #error "Sorry, this sample works under Windows only." #endif -#ifdef __WATCOMC__ -#error "Sorry, Watcom C++ does not support wxAutomationObject." -#endif - // ---------------------------------------------------------------------------- // ressources // ---------------------------------------------------------------------------- // the application icon -#if defined(__WXGTK__) || defined(__WXMOTIF__) +#if defined(__WXGTK__) || defined(__WXX11__) || defined(__WXMOTIF__) #include "mondrian.xpm" #endif @@ -82,7 +74,7 @@ public: void OnTest(wxCommandEvent& event); private: - // any class wishing to process wxWindows events must use this macro + // any class wishing to process wxWidgets events must use this macro DECLARE_EVENT_TABLE() }; @@ -99,14 +91,14 @@ enum OleAuto_Test, // controls start here (the numbers are, of course, arbitrary) - OleAuto_Text = 1000, + OleAuto_Text = 1000 }; // ---------------------------------------------------------------------------- -// event tables and other macros for wxWindows +// event tables and other macros for wxWidgets // ---------------------------------------------------------------------------- -// the event tables connect the wxWindows events with the functions (event +// the event tables connect the wxWidgets events with the functions (event // handlers) which process them. It can be also done at run-time, but for the // simple menu events like this the static method is much simpler. BEGIN_EVENT_TABLE(MyFrame, wxFrame) @@ -115,7 +107,7 @@ BEGIN_EVENT_TABLE(MyFrame, wxFrame) EVT_MENU(OleAuto_Test, MyFrame::OnTest) END_EVENT_TABLE() -// Create a new application object: this macro will allow wxWindows to create +// Create a new application object: this macro will allow wxWidgets to create // the application object during program execution (it's better than using a // static object for many reasons) and also declares the accessor function // wxGetApp() which will return the reference of the right type (i.e. MyApp and @@ -133,19 +125,22 @@ IMPLEMENT_APP(MyApp) // `Main program' equivalent: the program execution "starts" here bool MyApp::OnInit() { + if ( !wxApp::OnInit() ) + return false; + // Create the main application window - MyFrame *frame = new MyFrame("OleAuto wxWindows App", + MyFrame *frame = new MyFrame(wxT("OleAuto wxWidgets App"), wxPoint(50, 50), wxSize(450, 340)); // Show it and tell the application that it's our main window // @@@ what does it do exactly, in fact? is it necessary here? - frame->Show(TRUE); + frame->Show(true); SetTopWindow(frame); // success: wxApp::OnRun() will be called which will enter the main message - // loop and the application will run. If we returned FALSE here, the + // loop and the application will run. If we returned false here, the // application would exit immediately. - return TRUE; + return true; } // ---------------------------------------------------------------------------- @@ -154,7 +149,7 @@ bool MyApp::OnInit() // frame constructor MyFrame::MyFrame(const wxString& title, const wxPoint& pos, const wxSize& size) - : wxFrame((wxFrame *)NULL, -1, title, pos, size) + : wxFrame((wxFrame *)NULL, wxID_ANY, title, pos, size) { // set the frame icon SetIcon(wxICON(mondrian)); @@ -162,21 +157,23 @@ MyFrame::MyFrame(const wxString& title, const wxPoint& pos, const wxSize& size) // create a menu bar wxMenu *menuFile = new wxMenu; - menuFile->Append(OleAuto_Test, "&Test Excel Automation..."); - menuFile->Append(OleAuto_About, "&About..."); + menuFile->Append(OleAuto_Test, wxT("&Test Excel Automation...")); + menuFile->Append(OleAuto_About, wxT("&About...")); menuFile->AppendSeparator(); - menuFile->Append(OleAuto_Quit, "E&xit"); + menuFile->Append(OleAuto_Quit, wxT("E&xit")); // now append the freshly created menu to the menu bar... wxMenuBar *menuBar = new wxMenuBar; - menuBar->Append(menuFile, "&File"); + menuBar->Append(menuFile, wxT("&File")); // ... and attach this menu bar to the frame SetMenuBar(menuBar); +#if wxUSE_STATUSBAR // create a status bar just for fun (by default with 1 pane only) CreateStatusBar(2); - SetStatusText("Welcome to wxWindows!"); + SetStatusText(wxT("Welcome to wxWidgets!")); +#endif // wxUSE_STATUSBAR } @@ -184,14 +181,14 @@ MyFrame::MyFrame(const wxString& title, const wxPoint& pos, const wxSize& size) void MyFrame::OnQuit(wxCommandEvent& WXUNUSED(event)) { - // TRUE is to force the frame to close - Close(TRUE); + // true is to force the frame to close + Close(true); } void MyFrame::OnAbout(wxCommandEvent& WXUNUSED(event)) { - wxMessageBox("This is an OLE Automation sample", - "About OleAuto", wxOK | wxICON_INFORMATION, this); + wxMessageBox(wxT("This is an OLE Automation sample"), + wxT("About OleAuto"), wxOK | wxICON_INFORMATION, this); } /* Tests OLE automation by making the active Excel cell bold, @@ -199,28 +196,49 @@ void MyFrame::OnAbout(wxCommandEvent& WXUNUSED(event)) */ void MyFrame::OnTest(wxCommandEvent& WXUNUSED(event)) { - wxMessageBox("Please ensure Excel is running, then press OK.\nThe active cell should then say 'wxWindows automation test!' in bold."); + wxMessageBox(wxT("Please ensure Excel is running, then press OK.\nThe active cell should then say 'wxWidgets automation test!' in bold.")); wxAutomationObject excelObject, rangeObject; - if (!excelObject.GetInstance("Excel.Application")) + if (!excelObject.GetInstance(wxT("Excel.Application"))) + { + // Start Excel if it is not running + if (!excelObject.CreateInstance(wxT("Excel.Application"))) + { + wxMessageBox(wxT("Could not create Excel object.")); + return; + } + } + + // Ensure that Excel is visible + if (!excelObject.PutProperty(wxT("Visible"), true)) + { + wxMessageBox(wxT("Could not make Excel object visible")); + } + const wxVariant workbooksCountVariant = excelObject.GetProperty(wxT("Workbooks.Count")); + if (workbooksCountVariant.IsNull()) { - if (!excelObject.CreateInstance("Excel.Application")) + wxMessageBox(wxT("Could not get workbooks count")); + return; + } + const long workbooksCount = workbooksCountVariant; + if (workbooksCount == 0) + { + const wxVariant workbook = excelObject.CallMethod(wxT("Workbooks.Add")); + if (workbook.IsNull()) { - wxMessageBox("Could not create Excel object."); + wxMessageBox(wxT("Could not create new Workbook")); return; } } - if (!excelObject.PutProperty("ActiveCell.Value", "wxWindows automation test!")) + + if (!excelObject.PutProperty(wxT("ActiveCell.Value"), wxT("wxWidgets automation test!"))) { - wxMessageBox("Could not set active cell value."); + wxMessageBox(wxT("Could not set active cell value.")); return; } -#ifdef HAVE_BOOL - if (!excelObject.PutProperty("ActiveCell.Font.Bold", wxVariant((bool) TRUE)) ) + if (!excelObject.PutProperty(wxT("ActiveCell.Font.Bold"), wxVariant(true)) ) { - wxMessageBox("Could not put Bold property to active cell."); + wxMessageBox(wxT("Could not put Bold property to active cell.")); return; } -#endif } -