Changes to the XRC library:
[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 ADD_STYLE(wxHW_SCROLLBAR_NEVER);
34 ADD_STYLE(wxHW_SCROLLBAR_AUTO);
35 AddWindowStyles();
36 }
37
38 wxObject *wxHtmlWindowXmlHandler::DoCreateResource()
39 {
40 wxHtmlWindow *control = wxStaticCast(m_instance, 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
79
80 bool wxHtmlWindowXmlHandler::CanHandle(wxXmlNode *node)
81 {
82 return IsOfClass(node, wxT("wxHtmlWindow"));
83 }
84
85 #endif // wxUSE_HTML