]> git.saurik.com Git - wxWidgets.git/blob - src/xrc/xh_html.cpp
let the popup listbox process the kbd messages in wxComboBox
[wxWidgets.git] / src / xrc / xh_html.cpp
1 /////////////////////////////////////////////////////////////////////////////
2 // Name: xh_html.cpp
3 // Purpose: XRC resource for wxHtmlWindow
4 // Author: Bob Mitchell
5 // Created: 2000/03/21
6 // RCS-ID: $Id$
7 // Copyright: (c) 2000 Bob Mitchell and Verant Interactive
8 // Licence: wxWindows licence
9 /////////////////////////////////////////////////////////////////////////////
10
11 #ifdef __GNUG__
12 #pragma implementation "xh_html.h"
13 #endif
14
15 // For compilers that support precompilation, includes "wx.h".
16 #include "wx/wxprec.h"
17
18 #ifdef __BORLANDC__
19 #pragma hdrstop
20 #endif
21
22 #include "wx/xrc/xh_html.h"
23
24 #if wxUSE_HTML
25
26 #include "wx/html/htmlwin.h"
27 #include "wx/filesys.h"
28
29
30 wxHtmlWindowXmlHandler::wxHtmlWindowXmlHandler()
31 : wxXmlResourceHandler()
32 {
33 XRC_ADD_STYLE(wxHW_SCROLLBAR_NEVER);
34 XRC_ADD_STYLE(wxHW_SCROLLBAR_AUTO);
35 AddWindowStyles();
36 }
37
38 wxObject *wxHtmlWindowXmlHandler::DoCreateResource()
39 {
40 XRC_MAKE_INSTANCE(control, wxHtmlWindow)
41
42 control->Create(m_parentAsWindow,
43 GetID(),
44 GetPosition(), GetSize(),
45 GetStyle(wxT("style"), wxHW_SCROLLBAR_AUTO),
46 GetName());
47
48 if (HasParam(wxT("borders")))
49 {
50 control->SetBorders(GetDimension(wxT("borders")));
51 }
52
53 if (HasParam(wxT("url")))
54 {
55 wxString url = GetParamValue(wxT("url"));
56 wxFileSystem& fsys = GetCurFileSystem();
57
58 wxFSFile *f = fsys.OpenFile(url);
59 if (f)
60 {
61 control->LoadPage(f->GetLocation());
62 delete f;
63 }
64 else
65 control->LoadPage(url);
66 }
67
68 else if (HasParam(wxT("htmlcode")))
69 {
70 control->SetPage(GetText(wxT("htmlcode")));
71 }
72
73 SetupWindow(control);
74
75 return control;
76 }
77
78 bool wxHtmlWindowXmlHandler::CanHandle(wxXmlNode *node)
79 {
80 return IsOfClass(node, wxT("wxHtmlWindow"));
81 }
82
83 #endif // wxUSE_HTML