correct Borland #pragma hdrstop position
[wxWidgets.git] / samples / config / conftest.cpp
1 ///////////////////////////////////////////////////////////////////////////////
2 // Name: conftest.cpp
3 // Purpose: demo of wxConfig and related classes
4 // Author: Vadim Zeitlin
5 // Modified by:
6 // Created: 03.08.98
7 // RCS-ID: $Id$
8 // Copyright: (c) 1998 Vadim Zeitlin <zeitlin@dptmaths.ens-cachan.fr>
9 // Licence: wxWindows license
10 ///////////////////////////////////////////////////////////////////////////////
11
12 // ============================================================================
13 // declarations
14 // ============================================================================
15
16 // ----------------------------------------------------------------------------
17 // headers
18 // ----------------------------------------------------------------------------
19 #include "wx/wxprec.h"
20
21 #ifdef __BORLANDC__
22 #pragma hdrstop
23 #endif
24
25 #ifndef WX_PRECOMP
26 #include "wx/wx.h"
27 #endif //precompiled headers
28
29 #include "wx/log.h"
30 #include "wx/config.h"
31
32 #ifndef __WXMSW__
33 #include "../sample.xpm"
34 #endif
35
36 // ----------------------------------------------------------------------------
37 // classes
38 // ----------------------------------------------------------------------------
39
40 class MyApp: public wxApp
41 {
42 public:
43 // implement base class virtuals
44 virtual bool OnInit();
45 virtual int OnExit();
46 };
47
48 class MyFrame: public wxFrame
49 {
50 public:
51 MyFrame();
52 virtual ~MyFrame();
53
54 // callbacks
55 void OnQuit(wxCommandEvent& event);
56 void OnAbout(wxCommandEvent& event);
57 void OnDelete(wxCommandEvent& event);
58
59 private:
60 wxTextCtrl *m_text;
61 wxCheckBox *m_check;
62
63 DECLARE_EVENT_TABLE()
64 };
65
66 enum
67 {
68 ConfTest_Quit,
69 ConfTest_About,
70 ConfTest_Delete
71 };
72
73 // ----------------------------------------------------------------------------
74 // event tables
75 // ----------------------------------------------------------------------------
76
77 BEGIN_EVENT_TABLE(MyFrame, wxFrame)
78 EVT_MENU(ConfTest_Quit, MyFrame::OnQuit)
79 EVT_MENU(ConfTest_About, MyFrame::OnAbout)
80 EVT_MENU(ConfTest_Delete, MyFrame::OnDelete)
81 END_EVENT_TABLE()
82
83 // ============================================================================
84 // implementation
85 // ============================================================================
86
87 // ----------------------------------------------------------------------------
88 // application
89 // ----------------------------------------------------------------------------
90
91 IMPLEMENT_APP(MyApp)
92
93 // `Main program' equivalent, creating windows and returning main app frame
94 bool MyApp::OnInit()
95 {
96 if ( !wxApp::OnInit() )
97 return false;
98
99 // we're using wxConfig's "create-on-demand" feature: it will create the
100 // config object when it's used for the first time. It has a number of
101 // advantages compared with explicitly creating our wxConfig:
102 // 1) we don't pay for it if we don't use it
103 // 2) there is no danger to create it twice
104
105 // application and vendor name are used by wxConfig to construct the name
106 // of the config file/registry key and must be set before the first call
107 // to Get() if you want to override the default values (the application
108 // name is the name of the executable and the vendor name is the same)
109 SetVendorName(_T("wxWidgets"));
110 SetAppName(_T("conftest")); // not needed, it's the default value
111
112 wxConfigBase *pConfig = wxConfigBase::Get();
113
114 // uncomment this to force writing back of the defaults for all values
115 // if they're not present in the config - this can give the user an idea
116 // of all possible settings for this program
117 pConfig->SetRecordDefaults();
118
119 // or you could also write something like this:
120 // wxFileConfig *pConfig = new wxFileConfig("conftest");
121 // wxConfigBase::Set(pConfig);
122 // where you can also specify the file names explicitly if you wish.
123 // Of course, calling Set() is optional and you only must do it if
124 // you want to later retrieve this pointer with Get().
125
126 // create the main program window
127 MyFrame *frame = new MyFrame;
128 frame->Show(true);
129 SetTopWindow(frame);
130
131 // use our config object...
132 if ( pConfig->Read(_T("/Controls/Check"), 1l) != 0 ) {
133 wxMessageBox(_T("You can disable this message box by unchecking\n")
134 _T("the checkbox in the main window (of course, a real\n")
135 _T("program would have a checkbox right here but we\n")
136 _T("keep it simple)"), _T("Welcome to wxConfig demo"),
137 wxICON_INFORMATION | wxOK);
138 }
139
140 return true;
141 }
142
143 int MyApp::OnExit()
144 {
145 // clean up: Set() returns the active config object as Get() does, but unlike
146 // Get() it doesn't try to create one if there is none (definitely not what
147 // we want here!)
148 delete wxConfigBase::Set((wxConfigBase *) NULL);
149
150 return 0;
151 }
152
153 // ----------------------------------------------------------------------------
154 // frame
155 // ----------------------------------------------------------------------------
156
157 // main frame ctor
158 MyFrame::MyFrame()
159 : wxFrame((wxFrame *) NULL, wxID_ANY, _T("wxConfig Demo"))
160 {
161 SetIcon(wxICON(sample));
162
163 // menu
164 wxMenu *file_menu = new wxMenu;
165
166 file_menu->Append(ConfTest_Delete, _T("&Delete"), _T("Delete config file"));
167 file_menu->AppendSeparator();
168 file_menu->Append(ConfTest_About, _T("&About\tF1"), _T("About this sample"));
169 file_menu->AppendSeparator();
170 file_menu->Append(ConfTest_Quit, _T("E&xit\tAlt-X"), _T("Exit the program"));
171 wxMenuBar *menu_bar = new wxMenuBar;
172 menu_bar->Append(file_menu, _T("&File"));
173 SetMenuBar(menu_bar);
174
175 #if wxUSE_STATUSBAR
176 CreateStatusBar();
177 #endif // wxUSE_STATUSBAR
178
179 // child controls
180 wxPanel *panel = new wxPanel(this);
181 (void)new wxStaticText(panel, wxID_ANY, _T("These controls remember their values!"),
182 wxPoint(10, 10), wxSize(300, 20));
183 m_text = new wxTextCtrl(panel, wxID_ANY, _T(""), wxPoint(10, 40), wxSize(300, 20));
184 m_check = new wxCheckBox(panel, wxID_ANY, _T("show welcome message box at startup"),
185 wxPoint(10, 70), wxSize(300, 20));
186
187 // restore the control's values from the config
188
189 // NB: in this program, the config object is already created at this moment
190 // because we had called Get() from MyApp::OnInit(). However, if you later
191 // change the code and don't create it before this line, it won't break
192 // anything - unlike if you manually create wxConfig object with Create()
193 // or in any other way (then you must be sure to create it before using it!).
194 wxConfigBase *pConfig = wxConfigBase::Get();
195
196 // we could write Read("/Controls/Text") as well, it's just to show SetPath()
197 pConfig->SetPath(_T("/Controls"));
198
199 m_text->SetValue(pConfig->Read(_T("Text"), _T("")));
200 m_check->SetValue(pConfig->Read(_T("Check"), 1l) != 0);
201
202 // SetPath() understands ".."
203 pConfig->SetPath(_T("../MainFrame"));
204
205 // restore frame position and size
206 int x = pConfig->Read(_T("x"), 50),
207 y = pConfig->Read(_T("y"), 50),
208 w = pConfig->Read(_T("w"), 350),
209 h = pConfig->Read(_T("h"), 200);
210 Move(x, y);
211 SetClientSize(w, h);
212
213 pConfig->SetPath(_T("/"));
214 wxString s;
215 if ( pConfig->Read(_T("TestValue"), &s) )
216 {
217 wxLogStatus(this, wxT("TestValue from config is '%s'"), s.c_str());
218 }
219 else
220 {
221 wxLogStatus(this, wxT("TestValue not found in the config"));
222 }
223 }
224
225 void MyFrame::OnQuit(wxCommandEvent&)
226 {
227 Close(true);
228 }
229
230 void MyFrame::OnAbout(wxCommandEvent&)
231 {
232 wxMessageBox(_T("wxConfig demo\n(c) 1998-2001 Vadim Zeitlin"), _T("About"),
233 wxICON_INFORMATION | wxOK);
234 }
235
236 void MyFrame::OnDelete(wxCommandEvent&)
237 {
238 wxConfigBase *pConfig = wxConfigBase::Get();
239 if ( pConfig == NULL )
240 {
241 wxLogError(_T("No config to delete!"));
242 return;
243 }
244
245 if ( pConfig->DeleteAll() )
246 {
247 wxLogMessage(_T("Config file/registry key successfully deleted."));
248
249 delete wxConfigBase::Set(NULL);
250 wxConfigBase::DontCreateOnDemand();
251 }
252 else
253 {
254 wxLogError(_T("Deleting config file/registry key failed."));
255 }
256 }
257
258 MyFrame::~MyFrame()
259 {
260 wxConfigBase *pConfig = wxConfigBase::Get();
261 if ( pConfig == NULL )
262 return;
263
264 // save the control's values to the config
265 pConfig->Write(_T("/Controls/Text"), m_text->GetValue());
266 pConfig->Write(_T("/Controls/Check"), m_check->GetValue());
267
268 // save the frame position
269 int x, y, w, h;
270 GetClientSize(&w, &h);
271 GetPosition(&x, &y);
272 pConfig->Write(_T("/MainFrame/x"), (long) x);
273 pConfig->Write(_T("/MainFrame/y"), (long) y);
274 pConfig->Write(_T("/MainFrame/w"), (long) w);
275 pConfig->Write(_T("/MainFrame/h"), (long) h);
276
277 pConfig->Write(_T("/TestValue"), wxT("A test value"));
278 }
279