contrib/samples/deprecated/proplist/proplist.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        proplist.cpp
   3 // Purpose:     Property sheet test implementation
   4 // Author:      Julian Smart
   5 // Modified by:
   6 // Created:     04/01/98
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) Julian Smart
   9 // Licence:     wxWindows license
  10 /////////////////////////////////////////////////////////////////////////////
  11
  12 #ifdef __GNUG__
  13 #pragma implementation "proplist_sample.h"
  14 #endif
  15
  16 // For compilers that support precompilation, includes "wx/wx.h".
  17 #include "wx/wxprec.h"
  18
  19 #ifdef __BORLANDC__
  20 #pragma hdrstop
  21 #endif
  22
  23 #ifndef WX_PRECOMP
  24 #include "wx/wx.h"
  25 #endif
  26
  27 #include "wx/deprecated/setup.h"
  28
  29 #if !wxUSE_PROPSHEET
  30 #error Please set wxUSE_PROPSHEET to 1 in contrib/include/wx/deprecated/setup.h and recompile.
  31 #endif
  32
  33 #include "proplist.h"
  34
  35 IMPLEMENT_APP(MyApp)
  36
  37 wxPropertyValidatorRegistry myListValidatorRegistry;
  38 wxPropertyValidatorRegistry myFormValidatorRegistry;
  39
  40 MyApp::MyApp(void)
  41 {
  42     m_childWindow = NULL;
  43     m_mainFrame = NULL;
  44 }
  45
  46 bool MyApp::OnInit(void)
  47 {
  48   RegisterValidators();
  49
  50   // Create the main frame window
  51   m_mainFrame = new MyFrame(NULL, _T("wxPropertySheet Demo"), wxPoint(0, 0), wxSize(300, 400), wxDEFAULT_FRAME_STYLE);
  52
  53   // Make a menubar
  54   wxMenu *file_menu = new wxMenu;
  55   file_menu->Append(PROPERTY_TEST_DIALOG_LIST, _T("Test property list &dialog..."));
  56   file_menu->Append(PROPERTY_TEST_FRAME_LIST, _T("Test property list &frame..."));
  57   file_menu->AppendSeparator();
  58   file_menu->Append(PROPERTY_TEST_DIALOG_FORM, _T("Test property form d&ialog..."));
  59   file_menu->Append(PROPERTY_TEST_FRAME_FORM, _T("Test property form f&rame..."));
  60   file_menu->AppendSeparator();
  61   file_menu->Append(PROPERTY_QUIT, _T("E&xit"));
  62
  63   wxMenu *help_menu = new wxMenu;
  64   help_menu->Append(PROPERTY_ABOUT, _T("&About"));
  65
  66   wxMenuBar *menu_bar = new wxMenuBar;
  67
  68   menu_bar->Append(file_menu, _T("&File"));
  69   menu_bar->Append(help_menu, _T("&Help"));
  70
  71   // Associate the menu bar with the frame
  72   m_mainFrame->SetMenuBar(menu_bar);
  73
  74   m_mainFrame->Centre(wxBOTH);
  75   m_mainFrame->Show(TRUE);
  76
  77   SetTopWindow(m_mainFrame);
  78
  79   return TRUE;
  80 }
  81
  82 BEGIN_EVENT_TABLE(MyFrame, wxFrame)
  83     EVT_CLOSE(MyFrame::OnCloseWindow)
  84     EVT_MENU(PROPERTY_QUIT, MyFrame::OnQuit)
  85     EVT_MENU(PROPERTY_ABOUT, MyFrame::OnAbout)
  86     EVT_MENU(PROPERTY_TEST_DIALOG_LIST, MyFrame::OnDialogList)
  87     EVT_MENU(PROPERTY_TEST_FRAME_LIST, MyFrame::OnFrameList)
  88     EVT_MENU(PROPERTY_TEST_DIALOG_FORM, MyFrame::OnDialogForm)
  89     EVT_MENU(PROPERTY_TEST_FRAME_FORM, MyFrame::OnFrameForm)
  90 END_EVENT_TABLE()
  91
  92 // Define my frame constructor
  93 MyFrame::MyFrame(wxFrame *frame, const wxString& title, const wxPoint& pos, const wxSize& size, long type):
  94   wxFrame(frame, -1, title, pos, size, type)
  95 {
  96 }
  97
  98 // Define the behaviour for the frame closing
  99 // - must delete all frames except for the main one.
 100 void MyFrame::OnCloseWindow(wxCloseEvent& WXUNUSED(event))
 101 {
 102     if (wxGetApp().m_childWindow)
 103     {
 104         wxGetApp().m_childWindow->Close(TRUE);
 105     }
 106
 107     Destroy();
 108 }
 109
 110 void MyFrame::OnQuit(wxCommandEvent& WXUNUSED(event))
 111 {
 112     Close(TRUE);
 113 }
 114
 115 void MyFrame::OnDialogList(wxCommandEvent& WXUNUSED(event))
 116 {
 117     wxGetApp().PropertyListTest(TRUE);
 118 }
 119
 120 void MyFrame::OnFrameList(wxCommandEvent& WXUNUSED(event))
 121 {
 122     wxGetApp().PropertyListTest(FALSE);
 123 }
 124
 125 void MyFrame::OnDialogForm(wxCommandEvent& WXUNUSED(event))
 126 {
 127     wxGetApp().PropertyFormTest(TRUE);
 128 }
 129
 130 void MyFrame::OnFrameForm(wxCommandEvent& WXUNUSED(event))
 131 {
 132     wxGetApp().PropertyFormTest(FALSE);
 133 }
 134
 135 void MyFrame::OnAbout(wxCommandEvent& WXUNUSED(event))
 136 {
 137     (void)wxMessageBox(_T("Property Classes Demo\nAuthor: Julian Smart"), _T("About Property Classes Test"));
 138 }
 139
 140 void MyApp::RegisterValidators(void)
 141 {
 142   myListValidatorRegistry.RegisterValidator((wxString)_T("real"), new wxRealListValidator);
 143   myListValidatorRegistry.RegisterValidator((wxString)_T("string"), new wxStringListValidator);
 144   myListValidatorRegistry.RegisterValidator((wxString)_T("integer"), new wxIntegerListValidator);
 145   myListValidatorRegistry.RegisterValidator((wxString)_T("bool"), new wxBoolListValidator);
 146   myListValidatorRegistry.RegisterValidator((wxString)_T("stringlist"), new wxListOfStringsListValidator);
 147
 148   myFormValidatorRegistry.RegisterValidator((wxString)_T("real"), new wxRealFormValidator);
 149   myFormValidatorRegistry.RegisterValidator((wxString)_T("string"), new wxStringFormValidator);
 150   myFormValidatorRegistry.RegisterValidator((wxString)_T("integer"), new wxIntegerFormValidator);
 151   myFormValidatorRegistry.RegisterValidator((wxString)_T("bool"), new wxBoolFormValidator);
 152 }
 153
 154 void MyApp::PropertyListTest(bool useDialog)
 155 {
 156     if (m_childWindow)
 157         return;
 158
 159     wxPropertySheet *sheet = new wxPropertySheet;
 160
 161     sheet->AddProperty(new wxProperty(_T("fred"), 1.0, _T("real")));
 162     sheet->AddProperty(new wxProperty(_T("tough choice"), (bool)TRUE, _T("bool")));
 163     sheet->AddProperty(new wxProperty(_T("ian"), (long)45, _T("integer"), new wxIntegerListValidator(-50, 50)));
 164     sheet->AddProperty(new wxProperty(_T("bill"), 25.0, _T("real"), new wxRealListValidator(0.0, 100.0)));
 165     sheet->AddProperty(new wxProperty(_T("julian"), _T("one"), _T("string")));
 166     sheet->AddProperty(new wxProperty(_T("bitmap"), _T("none"), _T("string"), new wxFilenameListValidator(_T("Select a bitmap file"), _T("*.bmp"))));
 167     wxStringList *strings = new wxStringList(wxT("one"), wxT("two"), wxT("three"), NULL);
 168     sheet->AddProperty(new wxProperty(_T("constrained"), _T("one"), _T("string"), new wxStringListValidator(strings)));
 169
 170     wxStringList *strings2 = new wxStringList(wxT("earth"), wxT("fire"), wxT("wind"), wxT("water"), NULL);
 171     sheet->AddProperty(new wxProperty(_T("string list"), strings2, _T("stringlist")));
 172
 173     wxPropertyListView *view = new wxPropertyListView
 174         (
 175             NULL,
 176             wxPROP_BUTTON_OK | wxPROP_BUTTON_CANCEL | wxPROP_BUTTON_CHECK_CROSS
 177             |wxPROP_DYNAMIC_VALUE_FIELD|wxPROP_PULLDOWN|wxPROP_SHOWVALUES
 178         );
 179
 180     wxDialog *propDialog = NULL;
 181     wxPropertyListFrame *propFrame = NULL;
 182     if (useDialog)
 183     {
 184         propDialog = new PropListDialog(view, NULL, _T("Property Sheet Test"),
 185         wxPoint(-1, -1), wxSize(400, 500), wxDEFAULT_DIALOG_STYLE|wxDIALOG_MODELESS);
 186         m_childWindow = propDialog;
 187     }
 188     else
 189     {
 190         propFrame = new PropListFrame(view, NULL, _T("Property Sheet Test"), wxPoint(-1, -1), wxSize(400, 500));
 191         m_childWindow = propFrame;
 192     }
 193
 194     view->AddRegistry(&myListValidatorRegistry);
 195
 196     if (useDialog)
 197     {
 198         view->ShowView(sheet, (wxPanel *)propDialog);
 199         propDialog->Centre(wxBOTH);
 200         propDialog->Show(TRUE);
 201     }
 202     else
 203     {
 204         propFrame->Initialize();
 205         view->ShowView(sheet, propFrame->GetPropertyPanel());
 206
 207         propFrame->Centre(wxBOTH);
 208         propFrame->Show(TRUE);
 209     }
 210 }
 211
 212 void MyApp::PropertyFormTest(bool useDialog)
 213 {
 214     if (m_childWindow)
 215         return;
 216
 217     wxPropertySheet *sheet = new wxPropertySheet;
 218
 219     sheet->AddProperty(new wxProperty(_T("fred"), 25.0, _T("real"), new wxRealFormValidator(0.0, 100.0)));
 220     sheet->AddProperty(new wxProperty(_T("tough choice"), (bool)TRUE, _T("bool")));
 221     sheet->AddProperty(new wxProperty(_T("ian"), (long)45, _T("integer"), new wxIntegerFormValidator(-50, 50)));
 222     sheet->AddProperty(new wxProperty(_T("julian"), _T("one"), _T("string")));
 223     wxStringList *strings = new wxStringList(wxT("one"), wxT("two"), wxT("three"), NULL);
 224     sheet->AddProperty(new wxProperty(_T("constrained"), _T("one"), _T("string"), new wxStringFormValidator(strings)));
 225
 226     wxPropertyFormView *view = new wxPropertyFormView(NULL);
 227
 228     wxDialog *propDialog = NULL;
 229     wxPropertyFormFrame *propFrame = NULL;
 230
 231     if (useDialog)
 232     {
 233         propDialog = new PropFormDialog(view, NULL, _T("Property Form Test"),
 234         wxPoint(-1, -1), wxSize(380, 250), wxDEFAULT_DIALOG_STYLE|wxDIALOG_MODAL);
 235         m_childWindow = propDialog;
 236     }
 237     else
 238     {
 239         propFrame = new PropFormFrame(view, NULL, _T("Property Form Test"),
 240             wxPoint(-1, -1), wxSize(380, 250));
 241         propFrame->Initialize();
 242         m_childWindow = propFrame;
 243     }
 244
 245     // BCC32 does not like ?:
 246     wxWindow *panel ;
 247     if ( propDialog )
 248     {
 249         panel = propDialog;
 250     }
 251     else
 252     {
 253         panel = propFrame->GetPropertyPanel() ;
 254     }
 255
 256     wxLayoutConstraints* c;
 257
 258 #if 0
 259     if (!propDialog)
 260     {
 261         c = new wxLayoutConstraints;
 262         c->left.SameAs(m_childWindow, wxLeft, 4);
 263         c->right.SameAs(m_childWindow, wxRight, 4);
 264         c->top.SameAs(m_childWindow, wxTop, 4);
 265         c->bottom.SameAs(m_childWindow, wxBottom, 40);
 266
 267         panel->SetConstraints(c);
 268     }
 269 #endif
 270
 271     // Add items to the panel
 272     wxButton *okButton = new wxButton(panel, wxID_OK, _T("OK"), wxPoint(-1, -1),
 273         wxSize(80, 26), 0, wxDefaultValidator, _T("ok"));
 274     wxButton *cancelButton = new wxButton(panel, wxID_CANCEL, _T("Cancel"),  wxPoint(-1, -1),
 275         wxSize(80, 26), 0, wxDefaultValidator, _T("cancel"));
 276     wxButton *updateButton = new wxButton(panel, wxID_PROP_UPDATE, _T("Update"),  wxPoint(-1, -1),
 277         wxSize(80, 26), 0, wxDefaultValidator, _T("update"));
 278     wxButton *revertButton = new wxButton(panel, wxID_PROP_REVERT, _T("Revert"),  wxPoint(-1, -1),
 279         wxSize(80, 26), 0, wxDefaultValidator, _T("revert"));
 280
 281     c = new wxLayoutConstraints;
 282     c->right.SameAs(panel, wxRight, 4);
 283     c->bottom.SameAs(panel, wxBottom, 4);
 284     c->height.AsIs();
 285     c->width.AsIs();
 286     revertButton->SetConstraints(c);
 287
 288     c = new wxLayoutConstraints;
 289     c->right.SameAs(revertButton, wxLeft, 4);
 290     c->bottom.SameAs(panel, wxBottom, 4);
 291     c->height.AsIs();
 292     c->width.AsIs();
 293     updateButton->SetConstraints(c);
 294
 295     c = new wxLayoutConstraints;
 296     c->right.SameAs(updateButton, wxLeft, 4);
 297     c->bottom.SameAs(panel, wxBottom, 4);
 298     c->height.AsIs();
 299     c->width.AsIs();
 300     cancelButton->SetConstraints(c);
 301
 302     c = new wxLayoutConstraints;
 303     c->right.SameAs(cancelButton, wxLeft, 4);
 304     c->bottom.SameAs(panel, wxBottom, 4);
 305     c->height.AsIs();
 306     c->width.AsIs();
 307     okButton->SetConstraints(c);
 308
 309     // The name of this text item matches the "fred" property
 310     wxTextCtrl *text = new wxTextCtrl(panel, -1, _T("Fred"), wxPoint(-1, -1), wxSize(
 311     200, -1), 0, wxDefaultValidator, _T("fred"));
 312
 313     c = new wxLayoutConstraints;
 314     c->left.SameAs(panel, wxLeft, 4);
 315     c->top.SameAs(panel, wxTop, 4);
 316     c->height.AsIs();
 317     c->width.AsIs();
 318     text->SetConstraints(c);
 319
 320     wxCheckBox *checkBox = new wxCheckBox(panel, -1, _T("Yes or no"), wxPoint(-1, -1),
 321         wxSize(-1, -1), 0, wxDefaultValidator, _T("tough choice"));
 322
 323     c = new wxLayoutConstraints;
 324     c->left.SameAs(text, wxRight, 20);
 325     c->top.SameAs(panel, wxTop, 4);
 326     c->height.AsIs();
 327     c->width.AsIs();
 328     checkBox->SetConstraints(c);
 329
 330   wxSlider *slider = new wxSlider(panel, -1, -50, 50, 150, wxPoint(-1, -1),
 331     wxSize(200,10), 0, wxDefaultValidator, _T("ian"));
 332
 333     c = new wxLayoutConstraints;
 334     c->left.SameAs(panel, wxLeft, 4);
 335     c->top.SameAs(text, wxBottom, 10);
 336     c->height.AsIs();
 337     c->width.AsIs();
 338     slider->SetConstraints(c);
 339
 340     wxListBox *listBox = new wxListBox(panel, -1, wxPoint(-1, -1),
 341         wxSize(200, 100), 0, NULL, 0, wxDefaultValidator, _T("constrained"));
 342
 343     c = new wxLayoutConstraints;
 344     c->left.SameAs(panel, wxLeft, 4);
 345     c->top.SameAs(slider, wxBottom, 10);
 346     c->height.AsIs();
 347     c->width.AsIs();
 348     listBox->SetConstraints(c);
 349
 350     view->AddRegistry(&myFormValidatorRegistry);
 351
 352     panel->SetAutoLayout(TRUE);
 353
 354     view->ShowView(sheet, panel);
 355     view->AssociateNames();
 356     view->TransferToDialog();
 357
 358     if (useDialog) {
 359         propDialog->Layout();
 360         propDialog->Centre(wxBOTH);
 361         propDialog->Show(TRUE);
 362     }
 363     else
 364     {
 365         // panel->Layout();
 366         propFrame->Centre(wxBOTH);
 367         propFrame->Show(TRUE);
 368     }
 369 }
 370
 371 BEGIN_EVENT_TABLE(PropListFrame, wxPropertyListFrame)
 372     EVT_CLOSE(PropListFrame::OnCloseWindow)
 373 END_EVENT_TABLE()
 374
 375 void PropListFrame::OnCloseWindow(wxCloseEvent& event)
 376 {
 377     wxGetApp().m_childWindow = NULL;
 378
 379     wxPropertyListFrame::OnCloseWindow(event);
 380 }
 381
 382 BEGIN_EVENT_TABLE(PropListDialog, wxPropertyListDialog)
 383     EVT_CLOSE(PropListDialog::OnCloseWindow)
 384 END_EVENT_TABLE()
 385
 386 void PropListDialog::OnCloseWindow(wxCloseEvent& event)
 387 {
 388     wxGetApp().m_childWindow = NULL;
 389
 390     wxPropertyListDialog::OnCloseWindow(event);
 391 }
 392
 393 BEGIN_EVENT_TABLE(PropFormFrame, wxPropertyFormFrame)
 394     EVT_CLOSE(PropFormFrame::OnCloseWindow)
 395     EVT_SIZE(PropFormFrame::OnSize)
 396 END_EVENT_TABLE()
 397
 398 void PropFormFrame::OnCloseWindow(wxCloseEvent& event)
 399 {
 400     wxGetApp().m_childWindow = NULL;
 401
 402     wxPropertyFormFrame::OnCloseWindow(event);
 403 }
 404
 405 void PropFormFrame::OnSize(wxSizeEvent& event)
 406 {
 407     wxPropertyFormFrame::OnSize(event);
 408     GetPropertyPanel()->Layout();
 409 }
 410
 411 BEGIN_EVENT_TABLE(PropFormDialog, wxPropertyFormDialog)
 412     EVT_CLOSE(PropFormDialog::OnCloseWindow)
 413 END_EVENT_TABLE()
 414
 415 void PropFormDialog::OnCloseWindow(wxCloseEvent& event)
 416 {
 417     wxGetApp().m_childWindow = NULL;
 418
 419     wxPropertyFormDialog::OnCloseWindow(event);
 420 }
 421