]> git.saurik.com Git - wxWidgets.git/blame - src/xrc/xh_frame.cpp
compilation fix for Borland (hopefully)
[wxWidgets.git] / src / xrc / xh_frame.cpp
CommitLineData
78d14f80
VS
1/////////////////////////////////////////////////////////////////////////////
2// Name: xh_frame.cpp
b5d6954b 3// Purpose: XRC resource for dialogs
78d14f80
VS
4// Author: Vaclav Slavik & Aleks.
5// Created: 2000/03/05
6// RCS-ID: $Id$
7// Copyright: (c) 2000 Vaclav Slavik
8// Licence: wxWindows licence
9/////////////////////////////////////////////////////////////////////////////
10
11#ifdef __GNUG__
12#pragma implementation "xh_frame.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_frame.h"
23#include "wx/frame.h"
24#include "wx/log.h"
25#include "wx/intl.h"
26
27
28wxFrameXmlHandler::wxFrameXmlHandler() : wxXmlResourceHandler()
29{
544fee32
VS
30 XRC_ADD_STYLE(wxSTAY_ON_TOP);
31 XRC_ADD_STYLE(wxCAPTION);
32 XRC_ADD_STYLE(wxDEFAULT_DIALOG_STYLE);
33 XRC_ADD_STYLE(wxDEFAULT_FRAME_STYLE);
34 XRC_ADD_STYLE(wxTHICK_FRAME);
35 XRC_ADD_STYLE(wxSYSTEM_MENU);
36 XRC_ADD_STYLE(wxRESIZE_BORDER);
37 XRC_ADD_STYLE(wxRESIZE_BOX);
38
39 XRC_ADD_STYLE(wxFRAME_TOOL_WINDOW);
40 XRC_ADD_STYLE(wxFRAME_FLOAT_ON_PARENT);
41 XRC_ADD_STYLE(wxMAXIMIZE_BOX);
42 XRC_ADD_STYLE(wxMINIMIZE_BOX);
43 XRC_ADD_STYLE(wxSTAY_ON_TOP);
44
45 XRC_ADD_STYLE(wxNO_3D);
46 XRC_ADD_STYLE(wxTAB_TRAVERSAL);
47 XRC_ADD_STYLE(wxWS_EX_VALIDATE_RECURSIVELY);
48 XRC_ADD_STYLE(wxCLIP_CHILDREN);
78d14f80 49
78d14f80
VS
50 AddWindowStyles();
51}
52
78d14f80
VS
53wxObject *wxFrameXmlHandler::DoCreateResource()
54{
55 wxFrame *frame = wxDynamicCast(m_instance, wxFrame);
56
b5d6954b 57 wxASSERT_MSG(frame, _("XRC resource: Cannot create dialog without instance."));
78d14f80
VS
58
59 frame->Create(m_parentAsWindow,
544fee32
VS
60 GetID(),
61 GetText(wxT("title")),
62 wxDefaultPosition, wxDefaultSize,
63 GetStyle(wxT("style"), wxDEFAULT_FRAME_STYLE),
64 GetName());
65
f2588180
VS
66 if (HasParam(wxT("size")))
67 frame->SetClientSize(GetSize());
68 if (HasParam(wxT("pos")))
69 frame->Move(GetPosition());
544fee32 70
78d14f80
VS
71 SetupWindow(frame);
72
73 CreateChildren(frame);
74
f2588180 75 if (GetBool(wxT("centered"), FALSE))
78d14f80
VS
76 frame->Centre();
77
78 return frame;
79}
80
78d14f80
VS
81bool wxFrameXmlHandler::CanHandle(wxXmlNode *node)
82{
f2588180 83 return IsOfClass(node, wxT("wxFrame"));
78d14f80 84}