wxPython/contrib/activex/wxie/wxIEFrm.cpp

   1 /*
   2                 wxActiveX Library Licence, Version 3
   3                 ====================================
   4
   5   Copyright (C) 2003 Lindsay Mathieson [, ...]
   6
   7   Everyone is permitted to copy and distribute verbatim copies
   8   of this licence document, but changing it is not allowed.
   9
  10                        wxActiveX LIBRARY LICENCE
  11      TERMS AND CONDITIONS FOR COPYING, DISTRIBUTION AND MODIFICATION
  12
  13   This library is free software; you can redistribute it and/or modify it
  14   under the terms of the GNU Library General Public Licence as published by
  15   the Free Software Foundation; either version 2 of the Licence, or (at
  16   your option) any later version.
  17
  18   This library is distributed in the hope that it will be useful, but
  19   WITHOUT ANY WARRANTY; without even the implied warranty of
  20   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Library
  21   General Public Licence for more details.
  22
  23   You should have received a copy of the GNU Library General Public Licence
  24   along with this software, usually in a file named COPYING.LIB.  If not,
  25   write to the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
  26   Boston, MA 02111-1307 USA.
  27
  28   EXCEPTION NOTICE
  29
  30   1. As a special exception, the copyright holders of this library give
  31   permission for additional uses of the text contained in this release of
  32   the library as licenced under the wxActiveX Library Licence, applying
  33   either version 3 of the Licence, or (at your option) any later version of
  34   the Licence as published by the copyright holders of version 3 of the
  35   Licence document.
  36
  37   2. The exception is that you may use, copy, link, modify and distribute
  38   under the user's own terms, binary object code versions of works based
  39   on the Library.
  40
  41   3. If you copy code from files distributed under the terms of the GNU
  42   General Public Licence or the GNU Library General Public Licence into a
  43   copy of this library, as this licence permits, the exception does not
  44   apply to the code that you add in this way.  To avoid misleading anyone as
  45   to the status of such modified files, you must delete this exception
  46   notice from such code and/or adjust the licensing conditions notice
  47   accordingly.
  48
  49   4. If you write modifications of your own for this library, it is your
  50   choice whether to permit this exception to apply to your modifications.
  51   If you do not wish that, you must delete the exception notice from such
  52   code and/or adjust the licensing conditions notice accordingly.
  53 */
  54
  55 // ----------------------------------------------------------------------------
  56 // headers
  57 // ----------------------------------------------------------------------------
  58 // For compilers that support precompilation, includes "wx/wx.h".
  59 #if defined(__WXGTK__) || defined(__WXMOTIF__)
  60         #include "wx/wx.h"
  61 #endif
  62 #include "wx/wxprec.h"
  63 #include "wx/filedlg.h"
  64 #include "wxIEApp.h"
  65 #include "wxIEFrm.h"
  66 #include "wxActiveXFrame.h"
  67 #include <istream>
  68 #include <fstream>
  69 using namespace std;
  70 #include <exdispid.h>
  71
  72 // ----------------------------------------------------------------------------
  73 // resources
  74 // ----------------------------------------------------------------------------
  75 // the application icon
  76 #if defined(__WXGTK__) || defined(__WXMOTIF__)
  77     #include "wxIE.xpm"
  78 #endif
  79
  80 // ----------------------------------------------------------------------------
  81 // constants
  82 // ----------------------------------------------------------------------------
  83
  84 // IDs for the controls and the menu commands
  85 enum
  86 {
  87     // menu items
  88     FILE_QUIT = 1,
  89         FILE_OPEN,
  90         FILE_BROWSE,
  91     FILE_HTML_EDITMODE,
  92         FILE_TEST_HTML,
  93         FILE_TEST_SELECT,
  94         FILE_TEST_HTMLSELECT,
  95         FILE_TEST_GETTEXT,
  96         FILE_TEST_HTMLGETTEXT,
  97     FILE_TEST_HOME,
  98     FILE_TEST_ACTIVEX,
  99     FILE_ABOUT,
 100
 101         // controls
 102         ID_MSHTML = 501,
 103         ID_PROGRESS_GAUGE
 104 };
 105
 106 // ----------------------------------------------------------------------------
 107 // event tables and other macros for wxWindows
 108 // ----------------------------------------------------------------------------
 109
 110 // the event tables connect the wxWindows events with the functions (event
 111 // handlers) which process them. It can be also done at run-time, but for the
 112 // simple menu events like this the static method is much simpler.
 113 BEGIN_EVENT_TABLE(wxIEFrame, wxFrame)
 114     EVT_SIZE(wxIEFrame::OnSize)
 115     EVT_MENU(FILE_QUIT,         wxIEFrame::OnQuit)
 116         EVT_MENU(FILE_BROWSE,           wxIEFrame::OnBrowse)
 117         EVT_MENU(FILE_OPEN,                     wxIEFrame::OnOpen)
 118     EVT_MENU(FILE_HTML_EDITMODE, wxIEFrame::OnEditMode)
 119     EVT_UPDATE_UI(FILE_HTML_EDITMODE, wxIEFrame::OnEditModeUI)
 120     EVT_MENU(FILE_TEST_HTML,    wxIEFrame::OnTestHTML)
 121     EVT_MENU(FILE_TEST_SELECT,  wxIEFrame::OnTestSelect)
 122     EVT_MENU(FILE_TEST_HTMLSELECT,  wxIEFrame::OnTestHTMLSelect)
 123     EVT_MENU(FILE_TEST_GETTEXT,  wxIEFrame::OnTestGetText)
 124     EVT_MENU(FILE_TEST_HTMLGETTEXT,  wxIEFrame::OnTestHTMLGetText)
 125     EVT_MENU(FILE_TEST_HOME, wxIEFrame::OnTestHome)
 126     EVT_MENU(FILE_TEST_ACTIVEX, wxIEFrame::OnTestActiveX)
 127     EVT_MENU(FILE_ABOUT,                wxIEFrame::OnAbout)
 128
 129     // ActiveX Events
 130     EVT_ACTIVEX_DISPID(ID_MSHTML, DISPID_STATUSTEXTCHANGE,  OnMSHTMLStatusTextChangeX)
 131     EVT_ACTIVEX(ID_MSHTML, "BeforeNavigate2",   OnMSHTMLBeforeNavigate2X)
 132         EVT_ACTIVEX(ID_MSHTML, "TitleChange",       OnMSHTMLTitleChangeX)
 133         EVT_ACTIVEX(ID_MSHTML, "NewWindow2",        OnMSHTMLNewWindow2X)
 134         EVT_ACTIVEX(ID_MSHTML, "ProgressChange",    OnMSHTMLProgressChangeX)
 135 END_EVENT_TABLE()
 136
 137 // ----------------------------------------------------------------------------
 138 // main frame
 139 // ----------------------------------------------------------------------------
 140
 141 // frame constructor
 142 wxIEFrame::wxIEFrame(const wxString& title, const wxPoint& pos, const wxSize& size)
 143        : wxFrame((wxFrame *)NULL, -1, title, pos, size)
 144 {
 145     // set the frame icon
 146     SetIcon(wxICON(wxIE));
 147
 148     // create a menu bar
 149     wxMenu *menuFile = new wxMenu("", wxMENU_TEAROFF);
 150
 151     // the "About" item should be in the help menu
 152     wxMenu *helpMenu = new wxMenu;
 153     helpMenu->Append(FILE_ABOUT, "&About...\tCtrl-A", "Show about dialog");
 154
 155         menuFile->Append(FILE_TEST_HTML, "Test HTML", "Demonstrates LoadString()");
 156         menuFile->Append(FILE_OPEN, "Open HTML File", "Demonstrates LoadStream(istream *)");
 157         menuFile->Append(FILE_BROWSE, "Browse Web Page", "Demonstrates LoadUrl(url)");
 158         menuFile->Append(FILE_HTML_EDITMODE, "Edit Mode", "Demonstrates editing html", true);
 159         menuFile->AppendSeparator();
 160         menuFile->Append(FILE_TEST_SELECT, "Get Selected Text", "Demonstrates GetStringSelection(false)");
 161         menuFile->Append(FILE_TEST_HTMLSELECT, "Get HTML Selected Text", "Demonstrates GetStringSelection(true)");
 162         menuFile->AppendSeparator();
 163         menuFile->Append(FILE_TEST_GETTEXT, "Get Text", "Demonstrates GetText(false)");
 164         menuFile->Append(FILE_TEST_HTMLGETTEXT, "Get HTML Text", "Demonstrates GetText(true)");
 165         menuFile->Append(FILE_TEST_HOME, "Open Home Page", "Demonstrates GoHome()");
 166         menuFile->AppendSeparator();
 167         menuFile->Append(FILE_TEST_ACTIVEX, "Display a ActiveX control", "Demonstrates the Generic ActiveX Container");
 168         menuFile->AppendSeparator();
 169     menuFile->Append(FILE_QUIT, "E&xit\tAlt-X", "Quit this program");
 170
 171     // now append the freshly created menu to the menu bar...
 172     wxMenuBar *menuBar = new wxMenuBar();
 173     menuBar->Append(menuFile, "&File");
 174     menuBar->Append(helpMenu, "&Help");
 175
 176     // ... and attach this menu bar to the frame
 177     SetMenuBar(menuBar);
 178
 179     // create a status bar just for fun (by default with 1 pane only)
 180     wxStatusBar * sb = CreateStatusBar(2);
 181     SetStatusText("Ready");
 182
 183         // progress gauge (belongs to status bar)
 184         m_gauge = new wxGauge(sb, ID_PROGRESS_GAUGE, 100);
 185
 186         // IE Control
 187         m_ie = new wxIEHtmlWin(this, ID_MSHTML);
 188
 189 }
 190
 191
 192 // event handlers
 193
 194 void wxIEFrame::OnSize(wxSizeEvent& event)
 195 {
 196         wxFrame::OnSize(event);
 197
 198         wxStatusBar* sb = GetStatusBar();
 199         if (! sb)
 200                 return;
 201
 202         wxRect rc;
 203         sb->GetFieldRect(1, rc);
 204
 205         m_gauge->SetSize(rc);
 206 };
 207
 208 void wxIEFrame::OnQuit(wxCommandEvent& WXUNUSED(event))
 209 {
 210     // TRUE is to force the frame to close
 211     Close(TRUE);
 212 }
 213
 214 void wxIEFrame::OnAbout(wxCommandEvent& WXUNUSED(event))
 215 {
 216     wxString msg;
 217     msg.Printf( _T("About wxIE...\n"));
 218     wxMessageBox(msg, "About wxIE", wxOK | wxICON_INFORMATION, this);
 219 }
 220
 221 void wxIEFrame::OnTestHTML(wxCommandEvent& WXUNUSED(event))
 222 {
 223         wxString html =
 224                 "<HTML><BODY><H1>Hello World</H1>Plain Text</body></html>";
 225         m_ie->LoadString(html);
 226 }
 227
 228
 229 void wxIEFrame::OnTestSelect(wxCommandEvent& WXUNUSED(event))
 230 {
 231         wxString s = m_ie->GetStringSelection();
 232
 233         wxMessageBox(s);
 234 }
 235
 236 void wxIEFrame::OnTestHTMLSelect(wxCommandEvent& WXUNUSED(event))
 237 {
 238         wxString s = m_ie->GetStringSelection(true);
 239
 240         wxMessageBox(s);
 241 }
 242
 243 void wxIEFrame::OnTestGetText(wxCommandEvent& WXUNUSED(event))
 244 {
 245         wxString s = m_ie->GetText();
 246
 247         wxMessageBox(s);
 248 }
 249
 250 void wxIEFrame::OnTestHTMLGetText(wxCommandEvent& WXUNUSED(event))
 251 {
 252         wxString s = m_ie->GetText(true);
 253
 254         wxMessageBox(s);
 255 }
 256
 257 void wxIEFrame::OnTestHome(wxCommandEvent& WXUNUSED(event))
 258 {
 259         m_ie->GoHome();
 260 };
 261
 262
 263 void wxIEFrame::OnOpen(wxCommandEvent& WXUNUSED(event))
 264 {
 265         wxFileDialog dlg(this, "Chooose a HTML File", "", "", "HTML files (*.html; *.htm)|*.html;*.htm|",wxOPEN);
 266
 267         if (dlg.ShowModal() == wxID_OK)
 268         {
 269                 wxString fname = dlg.GetPath();
 270
 271                 ifstream *is = new ifstream(fname.mb_str());
 272                 m_ie->LoadStream(is);
 273         };
 274 }
 275
 276 void wxIEFrame::OnEditMode(wxCommandEvent& WXUNUSED(event))
 277 {
 278         m_ie->SetEditMode(! m_ie->GetEditMode());
 279 }
 280
 281 void wxIEFrame::OnEditModeUI(wxUpdateUIEvent& event)
 282 {
 283     if (m_ie)
 284             event.Check(m_ie->GetEditMode());
 285 }
 286
 287 void wxIEFrame::OnBrowse(wxCommandEvent& WXUNUSED(event))
 288 {
 289         wxString url = wxGetTextFromUser("Enter URL:", "Browse", "", this);
 290
 291         m_ie->LoadUrl(url);
 292 }
 293
 294 void wxIEFrame::OnMSHTMLStatusTextChangeX(wxActiveXEvent& event)
 295 {
 296     SetStatusText(event["Text"]);
 297 };
 298
 299
 300 void wxIEFrame::OnMSHTMLBeforeNavigate2X(wxActiveXEvent& event)
 301 {
 302     wxString url = event["Url"];
 303         if (url == "about:blank")
 304                 return;
 305
 306         int rc = wxMessageBox(url, "Allow open url ?", wxYES_NO);
 307
 308         if (rc != wxYES)
 309                 event["Cancel"] = true;
 310 };
 311
 312 void wxIEFrame::OnMSHTMLTitleChangeX(wxActiveXEvent& event)
 313 {
 314         SetTitle(event["Text"]);
 315 };
 316
 317
 318 void wxIEFrame::OnMSHTMLNewWindow2X(wxActiveXEvent& event)
 319 {
 320         int rc = wxMessageBox("New Window requested", "Allow New Window ?", wxYES_NO);
 321
 322         if (rc != wxYES)
 323                 event["Cancel"] = true;
 324 };
 325
 326
 327 void wxIEFrame::OnMSHTMLProgressChangeX(wxActiveXEvent& event)
 328 {
 329         if ((long) event["ProgressMax"] != m_gauge->GetRange())
 330                 m_gauge->SetRange((long) event["ProgressMax"]);
 331
 332         m_gauge->SetValue((long) event["Progress"]);
 333 };
 334
 335 void wxIEFrame::OnTestActiveX(wxCommandEvent& WXUNUSED(event))
 336 {
 337 // Some known prog ids
 338 //#define PROGID "Shell.Explorer"
 339 //#define PROGID CLSID_WebBrowser
 340 //#define PROGID CLSID_MozillaBrowser
 341 //#define PROGID CLSID_HTMLDocument
 342 //#define PROGID "MSCAL.Calendar"
 343 //#define PROGID "WordPad.Document"
 344 //#define PROGID "SoftwareFX.ChartFX"
 345 //#define PROGID "PDF.PdfCtrl"
 346 #define PROGID "ShockwaveFlash.ShockwaveFlash"
 347
 348     wxDialog dlg(this, -1, wxString(wxT("Test ActiveX")));
 349
 350     wxFlexGridSizer *sz = new wxFlexGridSizer(2);
 351     sz->Add(new wxStaticText(&dlg, -1, wxT("Enter a ActiveX ProgId")), 0, wxALL, 5 );
 352
 353     wxComboBox *cb = new wxComboBox(&dlg, 101, "");
 354     cb->Append(wxT("ShockwaveFlash.ShockwaveFlash"));
 355     cb->Append(wxT("MSCAL.Calendar"));
 356     cb->Append(wxT("Shell.Explorer"));
 357     cb->Append(wxT("WordPad.Document.1"));
 358     cb->Append(wxT("SoftwareFX.ChartFX.20"));
 359     cb->Append(wxT("PDF.PdfCtrl.5"));
 360     cb->SetSelection(0);
 361
 362     sz->Add(cb, 0, wxALL, 5 );
 363
 364     // next row
 365     sz->Add(new wxButton(&dlg, wxID_CANCEL, "Cancel"), 0, wxALIGN_RIGHT|wxALL, 5 );
 366     sz->Add(new wxButton(&dlg, wxID_OK, "Ok"), 0, wxALIGN_RIGHT|wxALL, 5 );
 367
 368     dlg.SetAutoLayout( TRUE );
 369     dlg.SetSizer(sz);
 370     sz->Fit(&dlg);
 371     sz->SetSizeHints(&dlg);
 372
 373
 374     if (dlg.ShowModal() == wxID_OK)
 375     {
 376         wxString progId = cb->GetValue();
 377         wxActiveXFrame *frame = new wxActiveXFrame(this, progId);
 378         frame->Show();
 379     };
 380 }
 381