samples/propgrid/propgrid.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        samples/propgrid/propgrid.cpp
   3 // Purpose:     wxPropertyGrid sample
   4 // Author:      Jaakko Salli
   5 // Modified by:
   6 // Created:     2004-09-25
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) Jaakko Salli
   9 // Licence:     wxWindows licence
  10 /////////////////////////////////////////////////////////////////////////////
  11
  12 //
  13 //
  14 // NOTES
  15 //
  16 // * Examples of custom property classes are in sampleprops.cpp.
  17 //
  18 // * Additional ones can be found below.
  19 //
  20 // * Currently there is no example of a custom property editor. However,
  21 //   SpinCtrl editor sample is well-commented. It can be found in
  22 //   src/propgrid/advprops.cpp.
  23 //
  24 // * To find code that populates the grid with properties, search for
  25 //   string "::Populate".
  26 //
  27 // * To find code that handles property grid changes, search for string
  28 //   "::OnPropertyGridChange".
  29 //
  30
  31 // For compilers that support precompilation, includes "wx/wx.h".
  32 #include "wx/wxprec.h"
  33
  34 #ifdef __BORLANDC__
  35     #pragma hdrstop
  36 #endif
  37
  38 // for all others, include the necessary headers (this file is usually all you
  39 // need because it includes almost all "standard" wxWidgets headers)
  40 #ifndef WX_PRECOMP
  41     #include "wx/wx.h"
  42 #endif
  43
  44 #if !wxUSE_PROPGRID
  45     #error "Please set wxUSE_PROPGRID to 1 and rebuild the library."
  46 #endif
  47
  48 #include <wx/numdlg.h>
  49
  50 // -----------------------------------------------------------------------
  51
  52
  53 // Main propertygrid header.
  54 #include <wx/propgrid/propgrid.h>
  55
  56 // Extra property classes.
  57 #include <wx/propgrid/advprops.h>
  58
  59 // This defines wxPropertyGridManager.
  60 #include <wx/propgrid/manager.h>
  61
  62 #include "propgrid.h"
  63 #include "sampleprops.h"
  64
  65 #if wxUSE_DATEPICKCTRL
  66     #include <wx/datectrl.h>
  67 #endif
  68
  69 #include <wx/artprov.h>
  70
  71 #ifndef __WXMSW__
  72     #include "../sample.xpm"
  73 #endif
  74
  75 // -----------------------------------------------------------------------
  76 // wxSampleMultiButtonEditor
  77 //   A sample editor class that has multiple buttons.
  78 // -----------------------------------------------------------------------
  79
  80 class wxSampleMultiButtonEditor : public wxPGTextCtrlEditor
  81 {
  82     DECLARE_DYNAMIC_CLASS(wxSampleMultiButtonEditor)
  83 public:
  84     wxSampleMultiButtonEditor() {}
  85     virtual ~wxSampleMultiButtonEditor() {}
  86
  87     virtual wxPGWindowList CreateControls( wxPropertyGrid* propGrid,
  88                                            wxPGProperty* property,
  89                                            const wxPoint& pos,
  90                                            const wxSize& sz ) const;
  91     virtual bool OnEvent( wxPropertyGrid* propGrid,
  92                           wxPGProperty* property,
  93                           wxWindow* ctrl,
  94                           wxEvent& event ) const;
  95 };
  96
  97 IMPLEMENT_DYNAMIC_CLASS(wxSampleMultiButtonEditor, wxPGTextCtrlEditor)
  98
  99 wxPGWindowList wxSampleMultiButtonEditor::CreateControls( wxPropertyGrid* propGrid,
 100                                                           wxPGProperty* property,
 101                                                           const wxPoint& pos,
 102                                                           const wxSize& sz ) const
 103 {
 104     // Create and populate buttons-subwindow
 105     wxPGMultiButton* buttons = new wxPGMultiButton( propGrid, sz );
 106
 107     // Add two regular buttons
 108     buttons->Add( "..." );
 109     buttons->Add( "A" );
 110     // Add a bitmap button
 111     buttons->Add( wxArtProvider::GetBitmap(wxART_FOLDER) );
 112
 113     // Create the 'primary' editor control (textctrl in this case)
 114     wxPGWindowList wndList = wxPGTextCtrlEditor::CreateControls
 115                              ( propGrid, property, pos,
 116                                buttons->GetPrimarySize() );
 117
 118     // Finally, move buttons-subwindow to correct position and make sure
 119     // returned wxPGWindowList contains our custom button list.
 120     buttons->Finalize(propGrid, pos);
 121
 122     wndList.SetSecondary( buttons );
 123     return wndList;
 124 }
 125
 126 bool wxSampleMultiButtonEditor::OnEvent( wxPropertyGrid* propGrid,
 127                                          wxPGProperty* property,
 128                                          wxWindow* ctrl,
 129                                          wxEvent& event ) const
 130 {
 131     if ( event.GetEventType() == wxEVT_COMMAND_BUTTON_CLICKED )
 132     {
 133         wxPGMultiButton* buttons = (wxPGMultiButton*) propGrid->GetEditorControlSecondary();
 134
 135         if ( event.GetId() == buttons->GetButtonId(0) )
 136         {
 137             // Do something when the first button is pressed
 138             wxLogDebug("First button pressed");
 139             return false;  // Return false since value did not change
 140         }
 141         if ( event.GetId() == buttons->GetButtonId(1) )
 142         {
 143             // Do something when the second button is pressed
 144             wxMessageBox("Second button pressed");
 145             return false;  // Return false since value did not change
 146         }
 147         if ( event.GetId() == buttons->GetButtonId(2) )
 148         {
 149             // Do something when the third button is pressed
 150             wxMessageBox("Third button pressed");
 151             return false;  // Return false since value did not change
 152         }
 153     }
 154     return wxPGTextCtrlEditor::OnEvent(propGrid, property, ctrl, event);
 155 }
 156
 157 // -----------------------------------------------------------------------
 158 // Validator for wxValidator use sample
 159 // -----------------------------------------------------------------------
 160
 161 #if wxUSE_VALIDATORS
 162
 163 // wxValidator for testing
 164
 165 class wxInvalidWordValidator : public wxValidator
 166 {
 167 public:
 168
 169     wxInvalidWordValidator( const wxString& invalidWord )
 170         : wxValidator(), m_invalidWord(invalidWord)
 171     {
 172     }
 173
 174     virtual wxObject* Clone() const
 175     {
 176         return new wxInvalidWordValidator(m_invalidWord);
 177     }
 178
 179     virtual bool Validate(wxWindow* WXUNUSED(parent))
 180     {
 181         wxTextCtrl* tc = wxDynamicCast(GetWindow(), wxTextCtrl);
 182         wxCHECK_MSG(tc, true, wxT("validator window must be wxTextCtrl"));
 183
 184         wxString val = tc->GetValue();
 185
 186         if ( val.find(m_invalidWord) == wxString::npos )
 187             return true;
 188
 189         ::wxMessageBox(wxString::Format(wxT("%s is not allowed word"),m_invalidWord.c_str()),
 190                        wxT("Validation Failure"));
 191
 192         return false;
 193     }
 194
 195 private:
 196     wxString    m_invalidWord;
 197 };
 198
 199 #endif // wxUSE_VALIDATORS
 200
 201 // -----------------------------------------------------------------------
 202 // AdvImageFile Property
 203 // -----------------------------------------------------------------------
 204
 205 class wxMyImageInfo;
 206
 207 WX_DECLARE_OBJARRAY(wxMyImageInfo, wxArrayMyImageInfo);
 208
 209 class wxMyImageInfo
 210 {
 211 public:
 212     wxString    m_path;
 213     wxBitmap*   m_pThumbnail1; // smaller thumbnail
 214     wxBitmap*   m_pThumbnail2; // larger thumbnail
 215
 216     wxMyImageInfo ( const wxString& str )
 217     {
 218         m_path = str;
 219         m_pThumbnail1 = (wxBitmap*) NULL;
 220         m_pThumbnail2 = (wxBitmap*) NULL;
 221     }
 222     virtual ~wxMyImageInfo()
 223     {
 224         if ( m_pThumbnail1 )
 225             delete m_pThumbnail1;
 226         if ( m_pThumbnail2 )
 227             delete m_pThumbnail2;
 228     }
 229
 230 };
 231
 232
 233 #include <wx/arrimpl.cpp>
 234 WX_DEFINE_OBJARRAY(wxArrayMyImageInfo);
 235
 236 wxArrayMyImageInfo  g_myImageArray;
 237
 238
 239 // Preferred thumbnail height.
 240 #define PREF_THUMBNAIL_HEIGHT       64
 241
 242
 243 wxPGChoices wxAdvImageFileProperty::ms_choices;
 244
 245 WX_PG_IMPLEMENT_PROPERTY_CLASS(wxAdvImageFileProperty,wxFileProperty,
 246                                wxString,const wxString&,ChoiceAndButton)
 247
 248
 249 wxAdvImageFileProperty::wxAdvImageFileProperty( const wxString& label,
 250                                                           const wxString& name,
 251                                                           const wxString& value)
 252     : wxFileProperty(label,name,value)
 253 {
 254     m_wildcard = wxPGGetDefaultImageWildcard();
 255
 256     m_index = -1;
 257
 258     m_pImage = (wxImage*) NULL;
 259
 260     // Only show names.
 261     m_flags &= ~(wxPG_PROP_SHOW_FULL_FILENAME);
 262 }
 263
 264 wxAdvImageFileProperty::~wxAdvImageFileProperty ()
 265 {
 266     // Delete old image
 267     wxDELETE(m_pImage);
 268 }
 269
 270 void wxAdvImageFileProperty::OnSetValue()
 271 {
 272     wxFileProperty::OnSetValue();
 273
 274     // Delete old image
 275     wxDELETE(m_pImage);
 276
 277     wxString imagename = GetValueAsString(0);
 278
 279     if ( imagename.length() )
 280     {
 281         wxFileName filename = GetFileName();
 282         size_t prevCount = g_myImageArray.GetCount();
 283         int index = ms_choices.Index(imagename);
 284
 285         // If not in table, add now.
 286         if ( index == wxNOT_FOUND )
 287         {
 288             ms_choices.Add( imagename );
 289             g_myImageArray.Add( new wxMyImageInfo( filename.GetFullPath() ) );
 290
 291             index = g_myImageArray.GetCount() - 1;
 292         }
 293
 294         // If no thumbnail ready, then need to load image.
 295         if ( !g_myImageArray[index].m_pThumbnail2 )
 296         {
 297             // Load if file exists.
 298             if ( filename.FileExists() )
 299                 m_pImage = new wxImage( filename.GetFullPath() );
 300         }
 301
 302         m_index = index;
 303
 304         wxPropertyGrid* pg = GetGrid();
 305         wxWindow* control = pg->GetEditorControl();
 306
 307         if ( pg->GetSelection() == this && control )
 308         {
 309             wxString name = GetValueAsString(0);
 310
 311             if ( g_myImageArray.GetCount() != prevCount )
 312             {
 313                 wxASSERT( g_myImageArray.GetCount() == (prevCount+1) );
 314
 315                 // Add to the control's array.
 316                 // (should be added to own array earlier)
 317
 318                 if ( control )
 319                     GetEditorClass()->InsertItem(control, name, -1);
 320             }
 321
 322             if ( control )
 323                GetEditorClass()->UpdateControl(this, control);
 324         }
 325     }
 326     else
 327         m_index = -1;
 328 }
 329
 330 bool wxAdvImageFileProperty::IntToValue( wxVariant& variant, int number, int WXUNUSED(argFlags) ) const
 331 {
 332     wxASSERT( number >= 0 );
 333     return StringToValue( variant, ms_choices.GetLabel(number), wxPG_FULL_VALUE );
 334 }
 335
 336 bool wxAdvImageFileProperty::OnEvent( wxPropertyGrid* propgrid, wxWindow* primary,
 337    wxEvent& event )
 338 {
 339     if ( propgrid->IsMainButtonEvent(event) )
 340     {
 341         return wxFileProperty::OnEvent(propgrid,primary,event);
 342     }
 343     return false;
 344 }
 345
 346 wxSize wxAdvImageFileProperty::OnMeasureImage( int item ) const
 347 {
 348     if ( item == -1 )
 349         return wxPG_DEFAULT_IMAGE_SIZE;
 350
 351     return wxSize(PREF_THUMBNAIL_HEIGHT,PREF_THUMBNAIL_HEIGHT);
 352 }
 353
 354 void wxAdvImageFileProperty::LoadThumbnails( size_t index )
 355 {
 356     wxMyImageInfo& mii = g_myImageArray[index];
 357
 358     if ( !mii.m_pThumbnail2 )
 359     {
 360         wxFileName filename = GetFileName();
 361
 362         if ( !m_pImage || !m_pImage->Ok() ||
 363              filename != mii.m_path
 364            )
 365         {
 366             if ( m_pImage )
 367                 delete m_pImage;
 368             m_pImage = new wxImage( mii.m_path );
 369         }
 370
 371         if ( m_pImage && m_pImage->Ok() )
 372         {
 373             int im_wid = m_pImage->GetWidth();
 374             int im_hei = m_pImage->GetHeight();
 375             if ( im_hei > PREF_THUMBNAIL_HEIGHT )
 376             {
 377                 // TNW = (TNH*IW)/IH
 378                 im_wid = (PREF_THUMBNAIL_HEIGHT*m_pImage->GetWidth())/m_pImage->GetHeight();
 379                 im_hei = PREF_THUMBNAIL_HEIGHT;
 380             }
 381
 382             m_pImage->Rescale( im_wid, im_hei );
 383
 384             mii.m_pThumbnail2 = new wxBitmap( *m_pImage );
 385
 386             wxSize cis = GetParentState()->GetGrid()->GetImageSize();
 387             m_pImage->Rescale ( cis.x, cis.y );
 388
 389             mii.m_pThumbnail1 = new wxBitmap( *m_pImage );
 390
 391         }
 392
 393         wxDELETE(m_pImage);
 394     }
 395 }
 396
 397 void wxAdvImageFileProperty::OnCustomPaint( wxDC& dc,
 398                                                  const wxRect& rect,
 399                                                  wxPGPaintData& pd )
 400 {
 401     int index = m_index;
 402     if ( pd.m_choiceItem >= 0 )
 403         index = pd.m_choiceItem;
 404
 405     //wxLogDebug(wxT("%i"),index);
 406
 407     if ( index >= 0 )
 408     {
 409         LoadThumbnails(index);
 410
 411         // Is this a measure item call?
 412         if ( rect.x < 0 )
 413         {
 414             // Variable height
 415             //pd.m_drawnHeight = PREF_THUMBNAIL_HEIGHT;
 416             wxBitmap* pBitmap = (wxBitmap*)g_myImageArray[index].m_pThumbnail2;
 417             if ( pBitmap )
 418                 pd.m_drawnHeight = pBitmap->GetHeight();
 419             else
 420                 pd.m_drawnHeight = 16;
 421             return;
 422         }
 423
 424         // Draw the thumbnail
 425
 426         wxBitmap* pBitmap;
 427
 428         if ( pd.m_choiceItem >= 0 )
 429             pBitmap = (wxBitmap*)g_myImageArray[index].m_pThumbnail2;
 430         else
 431             pBitmap = (wxBitmap*)g_myImageArray[index].m_pThumbnail1;
 432
 433         if ( pBitmap )
 434         {
 435             dc.DrawBitmap ( *pBitmap, rect.x, rect.y, FALSE );
 436
 437             // Tell the caller how wide we drew.
 438             pd.m_drawnWidth = pBitmap->GetWidth();
 439
 440             return;
 441         }
 442     }
 443
 444     // No valid file - just draw a white box.
 445     dc.SetBrush ( *wxWHITE_BRUSH );
 446     dc.DrawRectangle ( rect );
 447 }
 448
 449
 450 // -----------------------------------------------------------------------
 451 // wxVectorProperty
 452 // -----------------------------------------------------------------------
 453
 454 // See propgridsample.h for wxVector3f class
 455
 456 WX_PG_IMPLEMENT_VARIANT_DATA_DUMMY_EQ(wxVector3f)
 457
 458 WX_PG_IMPLEMENT_PROPERTY_CLASS(wxVectorProperty,wxPGProperty,
 459                                wxVector3f,const wxVector3f&,TextCtrl)
 460
 461
 462 wxVectorProperty::wxVectorProperty( const wxString& label,
 463                                               const wxString& name,
 464                                               const wxVector3f& value )
 465     : wxPGProperty(label,name)
 466 {
 467     SetValue( WXVARIANT(value) );
 468     AddPrivateChild( new wxFloatProperty(wxT("X"),wxPG_LABEL,value.x) );
 469     AddPrivateChild( new wxFloatProperty(wxT("Y"),wxPG_LABEL,value.y) );
 470     AddPrivateChild( new wxFloatProperty(wxT("Z"),wxPG_LABEL,value.z) );
 471 }
 472
 473 wxVectorProperty::~wxVectorProperty() { }
 474
 475 void wxVectorProperty::RefreshChildren()
 476 {
 477     if ( !GetChildCount() ) return;
 478     const wxVector3f& vector = wxVector3fRefFromVariant(m_value);
 479     Item(0)->SetValue( vector.x );
 480     Item(1)->SetValue( vector.y );
 481     Item(2)->SetValue( vector.z );
 482 }
 483
 484 wxVariant wxVectorProperty::ChildChanged( wxVariant& thisValue,
 485                                           int childIndex,
 486                                           wxVariant& childValue ) const
 487 {
 488     wxVector3f vector;
 489     vector << thisValue;
 490     switch ( childIndex )
 491     {
 492         case 0: vector.x = childValue.GetDouble(); break;
 493         case 1: vector.y = childValue.GetDouble(); break;
 494         case 2: vector.z = childValue.GetDouble(); break;
 495     }
 496     wxVariant newVariant;
 497     newVariant << vector;
 498     return newVariant;
 499 }
 500
 501
 502 // -----------------------------------------------------------------------
 503 // wxTriangleProperty
 504 // -----------------------------------------------------------------------
 505
 506 // See propgridsample.h for wxTriangle class
 507
 508 WX_PG_IMPLEMENT_VARIANT_DATA_DUMMY_EQ(wxTriangle)
 509
 510 WX_PG_IMPLEMENT_PROPERTY_CLASS(wxTriangleProperty,wxPGProperty,
 511                                wxTriangle,const wxTriangle&,TextCtrl)
 512
 513
 514 wxTriangleProperty::wxTriangleProperty( const wxString& label,
 515                                                   const wxString& name,
 516                                                   const wxTriangle& value)
 517     : wxPGProperty(label,name)
 518 {
 519     SetValue( WXVARIANT(value) );
 520     AddPrivateChild( new wxVectorProperty(wxT("A"),wxPG_LABEL,value.a) );
 521     AddPrivateChild( new wxVectorProperty(wxT("B"),wxPG_LABEL,value.b) );
 522     AddPrivateChild( new wxVectorProperty(wxT("C"),wxPG_LABEL,value.c) );
 523 }
 524
 525 wxTriangleProperty::~wxTriangleProperty() { }
 526
 527 void wxTriangleProperty::RefreshChildren()
 528 {
 529     if ( !GetChildCount() ) return;
 530     const wxTriangle& triangle = wxTriangleRefFromVariant(m_value);
 531     Item(0)->SetValue( WXVARIANT(triangle.a) );
 532     Item(1)->SetValue( WXVARIANT(triangle.b) );
 533     Item(2)->SetValue( WXVARIANT(triangle.c) );
 534 }
 535
 536 wxVariant wxTriangleProperty::ChildChanged( wxVariant& thisValue,
 537                                             int childIndex,
 538                                             wxVariant& childValue ) const
 539 {
 540     wxTriangle triangle;
 541     triangle << thisValue;
 542     const wxVector3f& vector = wxVector3fRefFromVariant(childValue);
 543     switch ( childIndex )
 544     {
 545         case 0: triangle.a = vector; break;
 546         case 1: triangle.b = vector; break;
 547         case 2: triangle.c = vector; break;
 548     }
 549     wxVariant newVariant;
 550     newVariant << triangle;
 551     return newVariant;
 552 }
 553
 554
 555 // -----------------------------------------------------------------------
 556 // wxSingleChoiceDialogAdapter (wxPGEditorDialogAdapter sample)
 557 // -----------------------------------------------------------------------
 558
 559 class wxSingleChoiceDialogAdapter : public wxPGEditorDialogAdapter
 560 {
 561 public:
 562
 563     wxSingleChoiceDialogAdapter( const wxPGChoices& choices )
 564         : wxPGEditorDialogAdapter(), m_choices(choices)
 565     {
 566     }
 567
 568     virtual bool DoShowDialog( wxPropertyGrid* WXUNUSED(propGrid),
 569                                wxPGProperty* WXUNUSED(property) )
 570     {
 571         wxString s = ::wxGetSingleChoice(wxT("Message"),
 572                                          wxT("Caption"),
 573                                          m_choices.GetLabels());
 574         if ( s.length() )
 575         {
 576             SetValue(s);
 577             return true;
 578         }
 579
 580         return false;
 581     }
 582
 583 protected:
 584     const wxPGChoices&  m_choices;
 585 };
 586
 587
 588 class SingleChoiceProperty : public wxStringProperty
 589 {
 590 public:
 591
 592     SingleChoiceProperty( const wxString& label,
 593                           const wxString& name = wxPG_LABEL,
 594                           const wxString& value = wxEmptyString )
 595         : wxStringProperty(label, name, value)
 596     {
 597         // Prepare choices
 598         m_choices.Add(wxT("Cat"));
 599         m_choices.Add(wxT("Dog"));
 600         m_choices.Add(wxT("Gibbon"));
 601         m_choices.Add(wxT("Otter"));
 602     }
 603
 604     // Set editor to have button
 605     virtual const wxPGEditor* DoGetEditorClass() const
 606     {
 607         return wxPGEditor_TextCtrlAndButton;
 608     }
 609
 610     // Set what happens on button click
 611     virtual wxPGEditorDialogAdapter* GetEditorDialog() const
 612     {
 613         return new wxSingleChoiceDialogAdapter(m_choices);
 614     }
 615
 616 protected:
 617     wxPGChoices m_choices;
 618 };
 619
 620 // -----------------------------------------------------------------------
 621 // Menu IDs
 622 // -----------------------------------------------------------------------
 623
 624 enum
 625 {
 626     PGID = 1,
 627     TCID,
 628     ID_ABOUT,
 629     ID_QUIT,
 630     ID_APPENDPROP,
 631     ID_APPENDCAT,
 632     ID_INSERTPROP,
 633     ID_INSERTCAT,
 634     ID_ENABLE,
 635     ID_SETREADONLY,
 636     ID_HIDE,
 637     ID_DELETE,
 638     ID_DELETER,
 639     ID_DELETEALL,
 640     ID_UNSPECIFY,
 641     ID_ITERATE1,
 642     ID_ITERATE2,
 643     ID_ITERATE3,
 644     ID_ITERATE4,
 645     ID_CLEARMODIF,
 646     ID_FREEZE,
 647     ID_DUMPLIST,
 648     ID_COLOURSCHEME1,
 649     ID_COLOURSCHEME2,
 650     ID_COLOURSCHEME3,
 651     ID_CATCOLOURS,
 652     ID_SETBGCOLOUR,
 653     ID_SETBGCOLOURRECUR,
 654     ID_STATICLAYOUT,
 655     ID_POPULATE1,
 656     ID_POPULATE2,
 657     ID_COLLAPSE,
 658     ID_COLLAPSEALL,
 659     ID_GETVALUES,
 660     ID_SETVALUES,
 661     ID_SETVALUES2,
 662     ID_RUNTESTFULL,
 663     ID_RUNTESTPARTIAL,
 664     ID_FITCOLUMNS,
 665     ID_CHANGEFLAGSITEMS,
 666     ID_TESTINSERTCHOICE,
 667     ID_TESTDELETECHOICE,
 668     ID_INSERTPAGE,
 669     ID_REMOVEPAGE,
 670     ID_SETSPINCTRLEDITOR,
 671     ID_SETPROPERTYVALUE,
 672     ID_TESTREPLACE,
 673     ID_SETCOLUMNS,
 674     ID_TESTXRC,
 675     ID_ENABLECOMMONVALUES,
 676     ID_SELECTSTYLE,
 677     ID_SAVESTATE,
 678     ID_RESTORESTATE,
 679     ID_RUNMINIMAL,
 680     ID_ENABLELABELEDITING,
 681     ID_VETOCOLDRAG,
 682     ID_SHOWHEADER,
 683     ID_ONEXTENDEDKEYNAV
 684 };
 685
 686 // -----------------------------------------------------------------------
 687 // Event table
 688 // -----------------------------------------------------------------------
 689
 690 BEGIN_EVENT_TABLE(FormMain, wxFrame)
 691     EVT_IDLE(FormMain::OnIdle)
 692     EVT_MOVE(FormMain::OnMove)
 693     EVT_SIZE(FormMain::OnResize)
 694
 695     // This occurs when a property is selected
 696     EVT_PG_SELECTED( PGID, FormMain::OnPropertyGridSelect )
 697     // This occurs when a property value changes
 698     EVT_PG_CHANGED( PGID, FormMain::OnPropertyGridChange )
 699     // This occurs just prior a property value is changed
 700     EVT_PG_CHANGING( PGID, FormMain::OnPropertyGridChanging )
 701     // This occurs when a mouse moves over another property
 702     EVT_PG_HIGHLIGHTED( PGID, FormMain::OnPropertyGridHighlight )
 703     // This occurs when mouse is right-clicked.
 704     EVT_PG_RIGHT_CLICK( PGID, FormMain::OnPropertyGridItemRightClick )
 705     // This occurs when mouse is double-clicked.
 706     EVT_PG_DOUBLE_CLICK( PGID, FormMain::OnPropertyGridItemDoubleClick )
 707     // This occurs when propgridmanager's page changes.
 708     EVT_PG_PAGE_CHANGED( PGID, FormMain::OnPropertyGridPageChange )
 709     // This occurs when user starts editing a property label
 710     EVT_PG_LABEL_EDIT_BEGIN( PGID,
 711         FormMain::OnPropertyGridLabelEditBegin )
 712     // This occurs when user stops editing a property label
 713     EVT_PG_LABEL_EDIT_ENDING( PGID,
 714         FormMain::OnPropertyGridLabelEditEnding )
 715     // This occurs when property's editor button (if any) is clicked.
 716     EVT_BUTTON( PGID, FormMain::OnPropertyGridButtonClick )
 717
 718     EVT_PG_ITEM_COLLAPSED( PGID, FormMain::OnPropertyGridItemCollapse )
 719     EVT_PG_ITEM_EXPANDED( PGID, FormMain::OnPropertyGridItemExpand )
 720
 721     EVT_PG_COL_BEGIN_DRAG( PGID, FormMain::OnPropertyGridColBeginDrag )
 722     EVT_PG_COL_DRAGGING( PGID, FormMain::OnPropertyGridColDragging )
 723     EVT_PG_COL_END_DRAG( PGID, FormMain::OnPropertyGridColEndDrag )
 724
 725     EVT_TEXT( PGID, FormMain::OnPropertyGridTextUpdate )
 726
 727     //
 728     // Rest of the events are not property grid specific
 729     EVT_KEY_DOWN( FormMain::OnPropertyGridKeyEvent )
 730     EVT_KEY_UP( FormMain::OnPropertyGridKeyEvent )
 731
 732     EVT_MENU( ID_APPENDPROP, FormMain::OnAppendPropClick )
 733     EVT_MENU( ID_APPENDCAT, FormMain::OnAppendCatClick )
 734     EVT_MENU( ID_INSERTPROP, FormMain::OnInsertPropClick )
 735     EVT_MENU( ID_INSERTCAT, FormMain::OnInsertCatClick )
 736     EVT_MENU( ID_DELETE, FormMain::OnDelPropClick )
 737     EVT_MENU( ID_DELETER, FormMain::OnDelPropRClick )
 738     EVT_MENU( ID_UNSPECIFY, FormMain::OnMisc )
 739     EVT_MENU( ID_DELETEALL, FormMain::OnClearClick )
 740     EVT_MENU( ID_ENABLE, FormMain::OnEnableDisable )
 741     EVT_MENU( ID_SETREADONLY, FormMain::OnSetReadOnly )
 742     EVT_MENU( ID_HIDE, FormMain::OnHide )
 743
 744     EVT_MENU( ID_ITERATE1, FormMain::OnIterate1Click )
 745     EVT_MENU( ID_ITERATE2, FormMain::OnIterate2Click )
 746     EVT_MENU( ID_ITERATE3, FormMain::OnIterate3Click )
 747     EVT_MENU( ID_ITERATE4, FormMain::OnIterate4Click )
 748     EVT_MENU( ID_ONEXTENDEDKEYNAV, FormMain::OnExtendedKeyNav )
 749     EVT_MENU( ID_SETBGCOLOUR, FormMain::OnSetBackgroundColour )
 750     EVT_MENU( ID_SETBGCOLOURRECUR, FormMain::OnSetBackgroundColour )
 751     EVT_MENU( ID_CLEARMODIF, FormMain::OnClearModifyStatusClick )
 752     EVT_MENU( ID_FREEZE, FormMain::OnFreezeClick )
 753     EVT_MENU( ID_ENABLELABELEDITING, FormMain::OnEnableLabelEditing )
 754     EVT_MENU( ID_SHOWHEADER, FormMain::OnShowHeader )
 755     EVT_MENU( ID_DUMPLIST, FormMain::OnDumpList )
 756
 757     EVT_MENU( ID_COLOURSCHEME1, FormMain::OnColourScheme )
 758     EVT_MENU( ID_COLOURSCHEME2, FormMain::OnColourScheme )
 759     EVT_MENU( ID_COLOURSCHEME3, FormMain::OnColourScheme )
 760     EVT_MENU( ID_COLOURSCHEME4, FormMain::OnColourScheme )
 761
 762     EVT_MENU( ID_ABOUT, FormMain::OnAbout )
 763     EVT_MENU( ID_QUIT, FormMain::OnCloseClick )
 764
 765     EVT_MENU( ID_CATCOLOURS, FormMain::OnCatColours )
 766     EVT_MENU( ID_SETCOLUMNS, FormMain::OnSetColumns )
 767     EVT_MENU( ID_TESTXRC, FormMain::OnTestXRC )
 768     EVT_MENU( ID_ENABLECOMMONVALUES, FormMain::OnEnableCommonValues )
 769     EVT_MENU( ID_SELECTSTYLE, FormMain::OnSelectStyle )
 770
 771     EVT_MENU( ID_STATICLAYOUT, FormMain::OnMisc )
 772     EVT_MENU( ID_COLLAPSE, FormMain::OnMisc )
 773     EVT_MENU( ID_COLLAPSEALL, FormMain::OnMisc )
 774
 775     EVT_MENU( ID_POPULATE1, FormMain::OnPopulateClick )
 776     EVT_MENU( ID_POPULATE2, FormMain::OnPopulateClick )
 777
 778     EVT_MENU( ID_GETVALUES, FormMain::OnMisc )
 779     EVT_MENU( ID_SETVALUES, FormMain::OnMisc )
 780     EVT_MENU( ID_SETVALUES2, FormMain::OnMisc )
 781
 782     EVT_MENU( ID_FITCOLUMNS, FormMain::OnFitColumnsClick )
 783
 784     EVT_MENU( ID_CHANGEFLAGSITEMS, FormMain::OnChangeFlagsPropItemsClick )
 785
 786     EVT_MENU( ID_RUNTESTFULL, FormMain::OnMisc )
 787     EVT_MENU( ID_RUNTESTPARTIAL, FormMain::OnMisc )
 788
 789     EVT_MENU( ID_TESTINSERTCHOICE, FormMain::OnInsertChoice )
 790     EVT_MENU( ID_TESTDELETECHOICE, FormMain::OnDeleteChoice )
 791
 792     EVT_MENU( ID_INSERTPAGE, FormMain::OnInsertPage )
 793     EVT_MENU( ID_REMOVEPAGE, FormMain::OnRemovePage )
 794
 795     EVT_MENU( ID_SAVESTATE, FormMain::OnSaveState )
 796     EVT_MENU( ID_RESTORESTATE, FormMain::OnRestoreState )
 797
 798     EVT_MENU( ID_SETSPINCTRLEDITOR, FormMain::OnSetSpinCtrlEditorClick )
 799     EVT_MENU( ID_TESTREPLACE, FormMain::OnTestReplaceClick )
 800     EVT_MENU( ID_SETPROPERTYVALUE, FormMain::OnSetPropertyValue )
 801
 802     EVT_MENU( ID_RUNMINIMAL, FormMain::OnRunMinimalClick )
 803
 804     EVT_CONTEXT_MENU( FormMain::OnContextMenu )
 805 END_EVENT_TABLE()
 806
 807 // -----------------------------------------------------------------------
 808
 809 void FormMain::OnMove( wxMoveEvent& event )
 810 {
 811     if ( !m_pPropGridManager )
 812     {
 813         // this check is here so the frame layout can be tested
 814         // without creating propertygrid
 815         event.Skip();
 816         return;
 817     }
 818
 819     // Update position properties
 820     int x, y;
 821     GetPosition(&x,&y);
 822
 823     wxPGProperty* id;
 824
 825     // Must check if properties exist (as they may be deleted).
 826
 827     // Using m_pPropGridManager, we can scan all pages automatically.
 828     id = m_pPropGridManager->GetPropertyByName( wxT("X") );
 829     if ( id )
 830         m_pPropGridManager->SetPropertyValue( id, x );
 831
 832     id = m_pPropGridManager->GetPropertyByName( wxT("Y") );
 833     if ( id )
 834         m_pPropGridManager->SetPropertyValue( id, y );
 835
 836     id = m_pPropGridManager->GetPropertyByName( wxT("Position") );
 837     if ( id )
 838         m_pPropGridManager->SetPropertyValue( id, WXVARIANT(wxPoint(x,y)) );
 839
 840     // Should always call event.Skip() in frame's MoveEvent handler
 841     event.Skip();
 842 }
 843
 844 // -----------------------------------------------------------------------
 845
 846 void FormMain::OnResize( wxSizeEvent& event )
 847 {
 848     if ( !m_pPropGridManager )
 849     {
 850         // this check is here so the frame layout can be tested
 851         // without creating propertygrid
 852         event.Skip();
 853         return;
 854     }
 855
 856     // Update size properties
 857     int w, h;
 858     GetSize(&w,&h);
 859
 860     wxPGProperty* id;
 861     wxPGProperty* p;
 862
 863     // Must check if properties exist (as they may be deleted).
 864
 865     // Using m_pPropGridManager, we can scan all pages automatically.
 866     p = m_pPropGridManager->GetPropertyByName( wxT("Width") );
 867     if ( p && !p->IsValueUnspecified() )
 868         m_pPropGridManager->SetPropertyValue( p, w );
 869
 870     p = m_pPropGridManager->GetPropertyByName( wxT("Height") );
 871     if ( p && !p->IsValueUnspecified() )
 872         m_pPropGridManager->SetPropertyValue( p, h );
 873
 874     id = m_pPropGridManager->GetPropertyByName ( wxT("Size") );
 875     if ( id )
 876         m_pPropGridManager->SetPropertyValue( id, WXVARIANT(wxSize(w,h)) );
 877
 878     // Should always call event.Skip() in frame's SizeEvent handler
 879     event.Skip();
 880 }
 881
 882 // -----------------------------------------------------------------------
 883
 884 void FormMain::OnPropertyGridChanging( wxPropertyGridEvent& event )
 885 {
 886     wxPGProperty* p = event.GetProperty();
 887
 888     if ( p->GetName() == wxT("Font") )
 889     {
 890         int res =
 891         wxMessageBox(wxString::Format(wxT("'%s' is about to change (to variant of type '%s')\n\nAllow or deny?"),
 892                                       p->GetName().c_str(),event.GetValue().GetType().c_str()),
 893                      wxT("Testing wxEVT_PG_CHANGING"), wxYES_NO, m_pPropGridManager);
 894
 895         if ( res == wxNO )
 896         {
 897             wxASSERT(event.CanVeto());
 898
 899             event.Veto();
 900
 901             // Since we ask a question, it is better if we omit any validation
 902             // failure behavior.
 903             event.SetValidationFailureBehavior(0);
 904         }
 905     }
 906 }
 907
 908 //
 909 // Note how we use three types of value getting in this method:
 910 //   A) event.GetPropertyValueAsXXX
 911 //   B) event.GetPropertValue, and then variant's GetXXX
 912 //   C) grid's GetPropertyValueAsXXX(id)
 913 //
 914 void FormMain::OnPropertyGridChange( wxPropertyGridEvent& event )
 915 {
 916     wxPGProperty* property = event.GetProperty();
 917
 918     const wxString& name = property->GetName();
 919
 920     // Properties store values internally as wxVariants, but it is preferred
 921     // to use the more modern wxAny at the interface level
 922     wxAny value = property->GetValue();
 923
 924     // Don't handle 'unspecified' values
 925     if ( value.IsNull() )
 926         return;
 927
 928     //
 929     // FIXME-VC6: In order to compile on Visual C++ 6.0, wxANY_AS()
 930     //            macro is used. Unless you want to support this old
 931     //            compiler in your own code, you can use the more
 932     //            nicer form value.As<FOO>() instead of
 933     //            wxANY_AS(value, FOO).
 934     //
 935
 936     // Some settings are disabled outside Windows platform
 937     if ( name == wxT("X") )
 938         SetSize( wxANY_AS(value, int), -1, -1, -1, wxSIZE_USE_EXISTING );
 939     else if ( name == wxT("Y") )
 940     // wxPGVariantToInt is safe long int value getter
 941         SetSize ( -1, wxANY_AS(value, int), -1, -1, wxSIZE_USE_EXISTING );
 942     else if ( name == wxT("Width") )
 943         SetSize ( -1, -1, wxANY_AS(value, int), -1, wxSIZE_USE_EXISTING );
 944     else if ( name == wxT("Height") )
 945         SetSize ( -1, -1, -1, wxANY_AS(value, int), wxSIZE_USE_EXISTING );
 946     else if ( name == wxT("Label") )
 947     {
 948         SetTitle( wxANY_AS(value, wxString) );
 949     }
 950     else if ( name == wxT("Password") )
 951     {
 952         static int pwdMode = 0;
 953
 954         //m_pPropGridManager->SetPropertyAttribute(property, wxPG_STRING_PASSWORD, (long)pwdMode);
 955
 956         pwdMode++;
 957         pwdMode &= 1;
 958     }
 959     else
 960     if ( name == wxT("Font") )
 961     {
 962         wxFont font = wxANY_AS(value, wxFont);
 963         wxASSERT( font.Ok() );
 964
 965         m_pPropGridManager->SetFont( font );
 966     }
 967     else
 968     if ( name == wxT("Margin Colour") )
 969     {
 970         wxColourPropertyValue cpv = wxANY_AS(value, wxColourPropertyValue);
 971         m_pPropGridManager->GetGrid()->SetMarginColour( cpv.m_colour );
 972     }
 973     else if ( name == wxT("Cell Colour") )
 974     {
 975         wxColourPropertyValue cpv = wxANY_AS(value, wxColourPropertyValue);
 976         m_pPropGridManager->GetGrid()->SetCellBackgroundColour( cpv.m_colour );
 977     }
 978     else if ( name == wxT("Line Colour") )
 979     {
 980         wxColourPropertyValue cpv = wxANY_AS(value, wxColourPropertyValue);
 981         m_pPropGridManager->GetGrid()->SetLineColour( cpv.m_colour );
 982     }
 983     else if ( name == wxT("Cell Text Colour") )
 984     {
 985         wxColourPropertyValue cpv = wxANY_AS(value, wxColourPropertyValue);
 986         m_pPropGridManager->GetGrid()->SetCellTextColour( cpv.m_colour );
 987     }
 988 }
 989
 990 // -----------------------------------------------------------------------
 991
 992 void FormMain::OnPropertyGridSelect( wxPropertyGridEvent& event )
 993 {
 994     wxPGProperty* property = event.GetProperty();
 995     if ( property )
 996     {
 997         m_itemEnable->Enable( TRUE );
 998         if ( property->IsEnabled() )
 999             m_itemEnable->SetItemLabel( wxT("Disable") );
1000         else
1001             m_itemEnable->SetItemLabel( wxT("Enable") );
1002     }
1003     else
1004     {
1005         m_itemEnable->Enable( FALSE );
1006     }
1007
1008 #if wxUSE_STATUSBAR
1009     wxPGProperty* prop = event.GetProperty();
1010     wxStatusBar* sb = GetStatusBar();
1011     if ( prop )
1012     {
1013         wxString text(wxT("Selected: "));
1014         text += m_pPropGridManager->GetPropertyLabel( prop );
1015         sb->SetStatusText ( text );
1016     }
1017 #endif
1018 }
1019
1020 // -----------------------------------------------------------------------
1021
1022 void FormMain::OnPropertyGridPageChange( wxPropertyGridEvent& WXUNUSED(event) )
1023 {
1024 #if wxUSE_STATUSBAR
1025     wxStatusBar* sb = GetStatusBar();
1026     wxString text(wxT("Page Changed: "));
1027     text += m_pPropGridManager->GetPageName(m_pPropGridManager->GetSelectedPage());
1028     sb->SetStatusText( text );
1029 #endif
1030 }
1031
1032 // -----------------------------------------------------------------------
1033
1034 void FormMain::OnPropertyGridLabelEditBegin( wxPropertyGridEvent& event )
1035 {
1036     wxLogMessage("wxPG_EVT_LABEL_EDIT_BEGIN(%s)",
1037                  event.GetProperty()->GetLabel().c_str());
1038 }
1039
1040 // -----------------------------------------------------------------------
1041
1042 void FormMain::OnPropertyGridLabelEditEnding( wxPropertyGridEvent& event )
1043 {
1044     wxLogMessage("wxPG_EVT_LABEL_EDIT_ENDING(%s)",
1045                  event.GetProperty()->GetLabel().c_str());
1046 }
1047
1048 // -----------------------------------------------------------------------
1049
1050 void FormMain::OnPropertyGridHighlight( wxPropertyGridEvent& WXUNUSED(event) )
1051 {
1052 }
1053
1054 // -----------------------------------------------------------------------
1055
1056 void FormMain::OnPropertyGridItemRightClick( wxPropertyGridEvent& event )
1057 {
1058 #if wxUSE_STATUSBAR
1059     wxPGProperty* prop = event.GetProperty();
1060     wxStatusBar* sb = GetStatusBar();
1061     if ( prop )
1062     {
1063         wxString text(wxT("Right-clicked: "));
1064         text += prop->GetLabel();
1065         text += wxT(", name=");
1066         text += m_pPropGridManager->GetPropertyName(prop);
1067         sb->SetStatusText( text );
1068     }
1069     else
1070     {
1071         sb->SetStatusText( wxEmptyString );
1072     }
1073 #endif
1074 }
1075
1076 // -----------------------------------------------------------------------
1077
1078 void FormMain::OnPropertyGridItemDoubleClick( wxPropertyGridEvent& event )
1079 {
1080 #if wxUSE_STATUSBAR
1081     wxPGProperty* prop = event.GetProperty();
1082     wxStatusBar* sb = GetStatusBar();
1083     if ( prop )
1084     {
1085         wxString text(wxT("Double-clicked: "));
1086         text += prop->GetLabel();
1087         text += wxT(", name=");
1088         text += m_pPropGridManager->GetPropertyName(prop);
1089         sb->SetStatusText ( text );
1090     }
1091     else
1092     {
1093         sb->SetStatusText ( wxEmptyString );
1094     }
1095 #endif
1096 }
1097
1098 // -----------------------------------------------------------------------
1099
1100 void FormMain::OnPropertyGridButtonClick ( wxCommandEvent& )
1101 {
1102 #if wxUSE_STATUSBAR
1103     wxPGProperty* prop = m_pPropGridManager->GetSelection();
1104     wxStatusBar* sb = GetStatusBar();
1105     if ( prop )
1106     {
1107         wxString text(wxT("Button clicked: "));
1108         text += m_pPropGridManager->GetPropertyLabel(prop);
1109         text += wxT(", name=");
1110         text += m_pPropGridManager->GetPropertyName(prop);
1111         sb->SetStatusText( text );
1112     }
1113     else
1114     {
1115         ::wxMessageBox(wxT("SHOULD NOT HAPPEN!!!"));
1116     }
1117 #endif
1118 }
1119
1120 // -----------------------------------------------------------------------
1121
1122 void FormMain::OnPropertyGridItemCollapse( wxPropertyGridEvent& )
1123 {
1124     wxLogMessage(wxT("Item was Collapsed"));
1125 }
1126
1127 // -----------------------------------------------------------------------
1128
1129 void FormMain::OnPropertyGridItemExpand( wxPropertyGridEvent& )
1130 {
1131     wxLogMessage(wxT("Item was Expanded"));
1132 }
1133
1134 // -----------------------------------------------------------------------
1135
1136 void FormMain::OnPropertyGridColBeginDrag( wxPropertyGridEvent& event )
1137 {
1138     if ( m_itemVetoDragging->IsChecked() )
1139     {
1140         wxLogMessage("Splitter %i resize was vetoed", event.GetColumn());
1141         event.Veto();
1142     }
1143     else
1144     {
1145         wxLogMessage("Splitter %i resize began", event.GetColumn());
1146     }
1147 }
1148
1149 // -----------------------------------------------------------------------
1150
1151 void FormMain::OnPropertyGridColDragging( wxPropertyGridEvent& event )
1152 {
1153     wxUnusedVar(event);
1154     // For now, let's not spam the log output
1155     //wxLogMessage("Splitter %i is being resized", event.GetColumn());
1156 }
1157
1158 // -----------------------------------------------------------------------
1159
1160 void FormMain::OnPropertyGridColEndDrag( wxPropertyGridEvent& event )
1161 {
1162     wxLogMessage("Splitter %i resize ended", event.GetColumn());
1163 }
1164
1165 // -----------------------------------------------------------------------
1166
1167 // EVT_TEXT handling
1168 void FormMain::OnPropertyGridTextUpdate( wxCommandEvent& event )
1169 {
1170     event.Skip();
1171 }
1172
1173 // -----------------------------------------------------------------------
1174
1175 void FormMain::OnPropertyGridKeyEvent( wxKeyEvent& WXUNUSED(event) )
1176 {
1177     // Occurs on wxGTK mostly, but not wxMSW.
1178 }
1179
1180 // -----------------------------------------------------------------------
1181
1182 void FormMain::OnLabelTextChange( wxCommandEvent& WXUNUSED(event) )
1183 {
1184 // Uncomment following to allow property label modify in real-time
1185 //    wxPGProperty& p = m_pPropGridManager->GetGrid()->GetSelection();
1186 //    if ( !p.IsOk() ) return;
1187 //    m_pPropGridManager->SetPropertyLabel( p, m_tcPropLabel->DoGetValue() );
1188 }
1189
1190 // -----------------------------------------------------------------------
1191
1192 static const wxChar* _fs_windowstyle_labels[] = {
1193     wxT("wxSIMPLE_BORDER"),
1194     wxT("wxDOUBLE_BORDER"),
1195     wxT("wxSUNKEN_BORDER"),
1196     wxT("wxRAISED_BORDER"),
1197     wxT("wxNO_BORDER"),
1198     wxT("wxTRANSPARENT_WINDOW"),
1199     wxT("wxTAB_TRAVERSAL"),
1200     wxT("wxWANTS_CHARS"),
1201 #if wxNO_FULL_REPAINT_ON_RESIZE
1202     wxT("wxNO_FULL_REPAINT_ON_RESIZE"),
1203 #endif
1204     wxT("wxVSCROLL"),
1205     wxT("wxALWAYS_SHOW_SB"),
1206     wxT("wxCLIP_CHILDREN"),
1207 #if wxFULL_REPAINT_ON_RESIZE
1208     wxT("wxFULL_REPAINT_ON_RESIZE"),
1209 #endif
1210     (const wxChar*) NULL // terminator is always needed
1211 };
1212
1213 static const long _fs_windowstyle_values[] = {
1214     wxSIMPLE_BORDER,
1215     wxDOUBLE_BORDER,
1216     wxSUNKEN_BORDER,
1217     wxRAISED_BORDER,
1218     wxNO_BORDER,
1219     wxTRANSPARENT_WINDOW,
1220     wxTAB_TRAVERSAL,
1221     wxWANTS_CHARS,
1222 #if wxNO_FULL_REPAINT_ON_RESIZE
1223     wxNO_FULL_REPAINT_ON_RESIZE,
1224 #endif
1225     wxVSCROLL,
1226     wxALWAYS_SHOW_SB,
1227     wxCLIP_CHILDREN,
1228 #if wxFULL_REPAINT_ON_RESIZE
1229     wxFULL_REPAINT_ON_RESIZE
1230 #endif
1231 };
1232
1233 static const wxChar* _fs_framestyle_labels[] = {
1234     wxT("wxCAPTION"),
1235     wxT("wxMINIMIZE"),
1236     wxT("wxMAXIMIZE"),
1237     wxT("wxCLOSE_BOX"),
1238     wxT("wxSTAY_ON_TOP"),
1239     wxT("wxSYSTEM_MENU"),
1240     wxT("wxRESIZE_BORDER"),
1241     wxT("wxFRAME_TOOL_WINDOW"),
1242     wxT("wxFRAME_NO_TASKBAR"),
1243     wxT("wxFRAME_FLOAT_ON_PARENT"),
1244     wxT("wxFRAME_SHAPED"),
1245     (const wxChar*) NULL
1246 };
1247
1248 static const long _fs_framestyle_values[] = {
1249     wxCAPTION,
1250     wxMINIMIZE,
1251     wxMAXIMIZE,
1252     wxCLOSE_BOX,
1253     wxSTAY_ON_TOP,
1254     wxSYSTEM_MENU,
1255     wxRESIZE_BORDER,
1256     wxFRAME_TOOL_WINDOW,
1257     wxFRAME_NO_TASKBAR,
1258     wxFRAME_FLOAT_ON_PARENT,
1259     wxFRAME_SHAPED
1260 };
1261
1262 // -----------------------------------------------------------------------
1263
1264 void FormMain::OnTestXRC(wxCommandEvent& WXUNUSED(event))
1265 {
1266     wxMessageBox(wxT("Sorrt, not yet implemented"));
1267 }
1268
1269 void FormMain::OnEnableCommonValues(wxCommandEvent& WXUNUSED(event))
1270 {
1271     wxPGProperty* prop = m_pPropGridManager->GetSelection();
1272     if ( prop )
1273         prop->EnableCommonValue();
1274     else
1275         wxMessageBox(wxT("First select a property"));
1276 }
1277
1278 void FormMain::PopulateWithStandardItems ()
1279 {
1280     wxPropertyGridManager* pgman = m_pPropGridManager;
1281     wxPropertyGridPage* pg = pgman->GetPage(wxT("Standard Items"));
1282
1283     // Append is ideal way to add items to wxPropertyGrid.
1284     pg->Append( new wxPropertyCategory(wxT("Appearance"),wxPG_LABEL) );
1285
1286     pg->Append( new wxStringProperty(wxT("Label"),wxPG_LABEL,GetTitle()) );
1287     pg->Append( new wxFontProperty(wxT("Font"),wxPG_LABEL) );
1288     pg->SetPropertyHelpString ( wxT("Font"), wxT("Editing this will change font used in the property grid.") );
1289
1290     pg->Append( new wxSystemColourProperty(wxT("Margin Colour"),wxPG_LABEL,
1291         pg->GetGrid()->GetMarginColour()) );
1292
1293     pg->Append( new wxSystemColourProperty(wxT("Cell Colour"),wxPG_LABEL,
1294         pg->GetGrid()->GetCellBackgroundColour()) );
1295     pg->Append( new wxSystemColourProperty(wxT("Cell Text Colour"),wxPG_LABEL,
1296         pg->GetGrid()->GetCellTextColour()) );
1297     pg->Append( new wxSystemColourProperty(wxT("Line Colour"),wxPG_LABEL,
1298         pg->GetGrid()->GetLineColour()) );
1299     pg->Append( new wxFlagsProperty(wxT("Window Styles"),wxPG_LABEL,
1300         m_combinedFlags, GetWindowStyle()) );
1301
1302     //pg->SetPropertyAttribute(wxT("Window Styles"),wxPG_BOOL_USE_CHECKBOX,true,wxPG_RECURSE);
1303
1304     pg->Append( new wxCursorProperty(wxT("Cursor"),wxPG_LABEL) );
1305
1306     pg->Append( new wxPropertyCategory(wxT("Position"),wxT("PositionCategory")) );
1307     pg->SetPropertyHelpString( wxT("PositionCategory"), wxT("Change in items in this category will cause respective changes in frame.") );
1308
1309     // Let's demonstrate 'Units' attribute here
1310
1311     // Note that we use many attribute constants instead of strings here
1312     // (for instance, wxPG_ATTR_MIN, instead of wxT("min")).
1313     // Using constant may reduce binary size.
1314
1315     pg->Append( new wxIntProperty(wxT("Height"),wxPG_LABEL,480) );
1316     pg->SetPropertyAttribute(wxT("Height"), wxPG_ATTR_MIN, (long)10 );
1317     pg->SetPropertyAttribute(wxT("Height"), wxPG_ATTR_MAX, (long)2048 );
1318     pg->SetPropertyAttribute(wxT("Height"), wxPG_ATTR_UNITS, wxT("Pixels") );
1319
1320     // Set value to unspecified so that Hint attribute will be demonstrated
1321     pg->SetPropertyValueUnspecified("Height");
1322     pg->SetPropertyAttribute("Height", wxPG_ATTR_HINT,
1323                              "Enter new height for window" );
1324
1325     // Difference between hint and help string is that the hint is shown in
1326     // an empty value cell, while help string is shown either in the
1327     // description text box, as a tool tip, or on the status bar.
1328     pg->SetPropertyHelpString("Height",
1329         "This property uses attributes \"Units\" and \"Hint\"." );
1330
1331     pg->Append( new wxIntProperty(wxT("Width"),wxPG_LABEL,640) );
1332     pg->SetPropertyAttribute(wxT("Width"), wxPG_ATTR_MIN, (long)10 );
1333     pg->SetPropertyAttribute(wxT("Width"), wxPG_ATTR_MAX, (long)2048 );
1334     pg->SetPropertyAttribute(wxT("Width"), wxPG_ATTR_UNITS, wxT("Pixels") );
1335
1336     pg->SetPropertyValueUnspecified(wxT("Width"));
1337     pg->SetPropertyAttribute("Width", wxPG_ATTR_HINT,
1338                              "Enter new width for window" );
1339     pg->SetPropertyHelpString("Width",
1340         "This property uses attributes \"Units\" and \"Hint\"." );
1341
1342     pg->Append( new wxIntProperty(wxT("X"),wxPG_LABEL,10) );
1343     pg->SetPropertyAttribute(wxT("X"), wxPG_ATTR_UNITS, wxT("Pixels") );
1344     pg->SetPropertyHelpString(wxT("X"), wxT("This property uses \"Units\" attribute.") );
1345
1346     pg->Append( new wxIntProperty(wxT("Y"),wxPG_LABEL,10) );
1347     pg->SetPropertyAttribute(wxT("Y"), wxPG_ATTR_UNITS, wxT("Pixels") );
1348     pg->SetPropertyHelpString(wxT("Y"), wxT("This property uses \"Units\" attribute.") );
1349
1350     const wxChar* disabledHelpString = wxT("This property is simply disabled. Inorder to have label disabled as well, ")
1351                                        wxT("you need to set wxPG_EX_GREY_LABEL_WHEN_DISABLED using SetExtraStyle.");
1352
1353     pg->Append( new wxPropertyCategory(wxT("Environment"),wxPG_LABEL) );
1354     pg->Append( new wxStringProperty(wxT("Operating System"),wxPG_LABEL,::wxGetOsDescription()) );
1355
1356     pg->Append( new wxStringProperty(wxT("User Id"),wxPG_LABEL,::wxGetUserId()) );
1357     pg->Append( new wxDirProperty(wxT("User Home"),wxPG_LABEL,::wxGetUserHome()) );
1358     pg->Append( new wxStringProperty(wxT("User Name"),wxPG_LABEL,::wxGetUserName()) );
1359
1360     // Disable some of them
1361     pg->DisableProperty( wxT("Operating System") );
1362     pg->DisableProperty( wxT("User Id") );
1363     pg->DisableProperty( wxT("User Name") );
1364
1365     pg->SetPropertyHelpString( wxT("Operating System"), disabledHelpString );
1366     pg->SetPropertyHelpString( wxT("User Id"), disabledHelpString );
1367     pg->SetPropertyHelpString( wxT("User Name"), disabledHelpString );
1368
1369     pg->Append( new wxPropertyCategory(wxT("More Examples"),wxPG_LABEL) );
1370
1371     pg->Append( new wxFontDataProperty( wxT("FontDataProperty"), wxPG_LABEL) );
1372     pg->SetPropertyHelpString( wxT("FontDataProperty"),
1373         wxT("This demonstrates wxFontDataProperty class defined in this sample app. ")
1374         wxT("It is exactly like wxFontProperty from the library, but also has colour sub-property.")
1375         );
1376
1377     pg->Append( new wxDirsProperty(wxT("DirsProperty"),wxPG_LABEL) );
1378     pg->SetPropertyHelpString( wxT("DirsProperty"),
1379         wxT("This demonstrates wxDirsProperty class defined in this sample app. ")
1380         wxT("It is built with WX_PG_IMPLEMENT_ARRAYSTRING_PROPERTY_WITH_VALIDATOR macro, ")
1381         wxT("with custom action (dir dialog popup) defined.")
1382         );
1383
1384     pg->Append( new wxAdvImageFileProperty(wxT("AdvImageFileProperty"),wxPG_LABEL) );
1385     pg->SetPropertyHelpString( wxT("AdvImageFileProperty"),
1386         wxT("This demonstrates wxAdvImageFileProperty class defined in this sample app. ")
1387         wxT("Button can be used to add new images to the popup list.")
1388         );
1389
1390     wxArrayDouble arrdbl;
1391     arrdbl.Add(-1.0);
1392     arrdbl.Add(-0.5);
1393     arrdbl.Add(0.0);
1394     arrdbl.Add(0.5);
1395     arrdbl.Add(1.0);
1396
1397     pg->Append( new wxArrayDoubleProperty(wxT("ArrayDoubleProperty"),wxPG_LABEL,arrdbl) );
1398     //pg->SetPropertyAttribute(wxT("ArrayDoubleProperty"),wxPG_FLOAT_PRECISION,(long)2);
1399     pg->SetPropertyHelpString( wxT("ArrayDoubleProperty"),
1400         wxT("This demonstrates wxArrayDoubleProperty class defined in this sample app. ")
1401         wxT("It is an example of a custom list editor property.")
1402         );
1403
1404     pg->Append( new wxLongStringProperty(wxT("Information"),wxPG_LABEL,
1405         wxT("Editing properties will have immediate effect on this window, ")
1406         wxT("and vice versa (atleast in most cases, that is).")
1407         ) );
1408     pg->SetPropertyHelpString( wxT("Information"),
1409                                wxT("This property is read-only.") );
1410
1411     pg->SetPropertyReadOnly( wxT("Information"), true );
1412
1413     //
1414     // Set test information for cells in columns 3 and 4
1415     // (reserve column 2 for displaying units)
1416     wxPropertyGridIterator it;
1417     wxBitmap bmp = wxArtProvider::GetBitmap(wxART_FOLDER);
1418
1419     for ( it = pg->GetGrid()->GetIterator();
1420           !it.AtEnd();
1421           it++ )
1422     {
1423         wxPGProperty* p = *it;
1424         if ( p->IsCategory() )
1425             continue;
1426
1427         pg->SetPropertyCell( p, 3, wxT("Cell 3"), bmp );
1428         pg->SetPropertyCell( p, 4, wxT("Cell 4"), wxNullBitmap, *wxWHITE, *wxBLACK );
1429     }
1430 }
1431
1432 // -----------------------------------------------------------------------
1433
1434 void FormMain::PopulateWithExamples ()
1435 {
1436     wxPropertyGridManager* pgman = m_pPropGridManager;
1437     wxPropertyGridPage* pg = pgman->GetPage(wxT("Examples"));
1438     wxPGProperty* pid;
1439     wxPGProperty* prop;
1440
1441     //pg->Append( new wxPropertyCategory(wxT("Examples (low priority)"),wxT("Examples")) );
1442     //pg->SetPropertyHelpString ( wxT("Examples"), wxT("This category has example of (almost) every built-in property class.") );
1443
1444 #if wxUSE_SPINBTN
1445     pg->Append( new wxIntProperty ( wxT("SpinCtrl"), wxPG_LABEL, 0 ) );
1446
1447     pg->SetPropertyEditor( wxT("SpinCtrl"), wxPGEditor_SpinCtrl );
1448     pg->SetPropertyAttribute( wxT("SpinCtrl"), wxPG_ATTR_MIN, (long)-10 );  // Use constants instead of string
1449     pg->SetPropertyAttribute( wxT("SpinCtrl"), wxPG_ATTR_MAX, (long)16384 );   // for reduced binary size.
1450     pg->SetPropertyAttribute( wxT("SpinCtrl"), wxT("Step"), (long)2 );
1451     pg->SetPropertyAttribute( wxT("SpinCtrl"), wxT("MotionSpin"), true );
1452     //pg->SetPropertyAttribute( wxT("SpinCtrl"), wxT("Wrap"), true );
1453
1454     pg->SetPropertyHelpString( wxT("SpinCtrl"),
1455         wxT("This is regular wxIntProperty, which editor has been ")
1456         wxT("changed to wxPGEditor_SpinCtrl. Note however that ")
1457         wxT("static wxPropertyGrid::RegisterAdditionalEditors() ")
1458         wxT("needs to be called prior to using it."));
1459
1460 #endif
1461
1462     // Add bool property
1463     pg->Append( new wxBoolProperty( wxT("BoolProperty"), wxPG_LABEL, false ) );
1464
1465     // Add bool property with check box
1466     pg->Append( new wxBoolProperty( wxT("BoolProperty with CheckBox"), wxPG_LABEL, false ) );
1467     pg->SetPropertyAttribute( wxT("BoolProperty with CheckBox"),
1468                               wxPG_BOOL_USE_CHECKBOX,
1469                               true );
1470
1471     pg->SetPropertyHelpString( wxT("BoolProperty with CheckBox"),
1472         wxT("Property attribute wxPG_BOOL_USE_CHECKBOX has been set to true.") );
1473
1474     prop = pg->Append( new wxFloatProperty("FloatProperty",
1475                                            wxPG_LABEL,
1476                                            1234500.23) );
1477     prop->SetAttribute("Min", -100.12);
1478
1479     // A string property that can be edited in a separate editor dialog.
1480     pg->Append( new wxLongStringProperty( wxT("LongStringProperty"), wxT("LongStringProp"),
1481         wxT("This is much longer string than the first one. Edit it by clicking the button.") ) );
1482
1483     // A property that edits a wxArrayString.
1484     wxArrayString example_array;
1485     example_array.Add( wxT("String 1"));
1486     example_array.Add( wxT("String 2"));
1487     example_array.Add( wxT("String 3"));
1488     pg->Append( new wxArrayStringProperty( wxT("ArrayStringProperty"), wxPG_LABEL,
1489                                            example_array) );
1490
1491     // Test adding same category multiple times ( should not actually create a new one )
1492     //pg->Append( new wxPropertyCategory(wxT("Examples (low priority)"),wxT("Examples")) );
1493
1494     // A file selector property. Note that argument between name
1495     // and initial value is wildcard (format same as in wxFileDialog).
1496     prop = new wxFileProperty( wxT("FileProperty"), wxT("TextFile") );
1497     pg->Append( prop );
1498
1499     prop->SetAttribute(wxPG_FILE_WILDCARD,wxT("Text Files (*.txt)|*.txt"));
1500     prop->SetAttribute(wxPG_FILE_DIALOG_TITLE,wxT("Custom File Dialog Title"));
1501     prop->SetAttribute(wxPG_FILE_SHOW_FULL_PATH,false);
1502
1503 #ifdef __WXMSW__
1504     prop->SetAttribute(wxPG_FILE_SHOW_RELATIVE_PATH,wxT("C:\\Windows"));
1505     pg->SetPropertyValue(prop,wxT("C:\\Windows\\System32\\msvcrt71.dll"));
1506 #endif
1507
1508 #if wxUSE_IMAGE
1509     // An image file property. Arguments are just like for FileProperty, but
1510     // wildcard is missing (it is autogenerated from supported image formats).
1511     // If you really need to override it, create property separately, and call
1512     // its SetWildcard method.
1513     pg->Append( new wxImageFileProperty( wxT("ImageFile"), wxPG_LABEL ) );
1514 #endif
1515
1516     pid = pg->Append( new wxColourProperty(wxT("ColourProperty"),wxPG_LABEL,*wxRED) );
1517     //pg->SetPropertyAttribute(pid,wxPG_COLOUR_ALLOW_CUSTOM,false);
1518     pg->SetPropertyEditor( wxT("ColourProperty"), wxPGEditor_ComboBox );
1519     pg->GetProperty(wxT("ColourProperty"))->SetAutoUnspecified(true);
1520     pg->SetPropertyHelpString( wxT("ColourProperty"),
1521         wxT("wxPropertyGrid::SetPropertyEditor method has been used to change ")
1522         wxT("editor of this property to wxPGEditor_ComboBox)"));
1523
1524     //
1525     // This demonstrates using alternative editor for colour property
1526     // to trigger colour dialog directly from button.
1527     pg->Append( new wxColourProperty(wxT("ColourProperty2"),wxPG_LABEL,*wxGREEN) );
1528
1529     //
1530     // wxEnumProperty does not store strings or even list of strings
1531     // ( so that's why they are static in function ).
1532     static const wxChar* enum_prop_labels[] = { wxT("One Item"),
1533         wxT("Another Item"), wxT("One More"), wxT("This Is Last"), NULL };
1534
1535     // this value array would be optional if values matched string indexes
1536     static long enum_prop_values[] = { 40, 80, 120, 160 };
1537
1538     // note that the initial value (the last argument) is the actual value,
1539     // not index or anything like that. Thus, our value selects "Another Item".
1540     //
1541     // 0 before value is number of items. If it is 0, like in our example,
1542     // number of items is calculated, and this requires that the string pointer
1543     // array is terminated with NULL.
1544     pg->Append( new wxEnumProperty(wxT("EnumProperty"),wxPG_LABEL,
1545         enum_prop_labels, enum_prop_values, 80 ) );
1546
1547     wxPGChoices soc;
1548
1549     // use basic table from our previous example
1550     // can also set/add wxArrayStrings and wxArrayInts directly.
1551     soc.Set( enum_prop_labels, enum_prop_values );
1552
1553     // add extra items
1554     soc.Add( wxT("Look, it continues"), 200 );
1555     soc.Add( wxT("Even More"), 240 );
1556     soc.Add( wxT("And More"), 280 );
1557     soc.Add( "", 300 );
1558     soc.Add( wxT("True End of the List"), 320 );
1559
1560     // Test custom colours ([] operator of wxPGChoices returns
1561     // references to wxPGChoiceEntry).
1562     soc[1].SetFgCol(*wxRED);
1563     soc[1].SetBgCol(*wxLIGHT_GREY);
1564     soc[2].SetFgCol(*wxGREEN);
1565     soc[2].SetBgCol(*wxLIGHT_GREY);
1566     soc[3].SetFgCol(*wxBLUE);
1567     soc[3].SetBgCol(*wxLIGHT_GREY);
1568     soc[4].SetBitmap(wxArtProvider::GetBitmap(wxART_FOLDER));
1569
1570     pg->Append( new wxEnumProperty(wxT("EnumProperty 2"),
1571                                    wxPG_LABEL,
1572                                    soc,
1573                                   240) );
1574     pg->GetProperty(wxT("EnumProperty 2"))->AddChoice(wxT("Testing Extra"), 360);
1575
1576     // Here we only display the original 'soc' choices
1577     pg->Append( new wxEnumProperty(wxT("EnumProperty 3"),wxPG_LABEL,
1578         soc, 240 ) );
1579
1580     // Test Hint attribute in EnumProperty
1581     pg->GetProperty("EnumProperty 3")->SetAttribute("Hint", "Dummy Hint");
1582
1583     pg->SetPropertyHelpString("EnumProperty 3",
1584         "This property uses \"Hint\" attribute.");
1585
1586     // 'soc' plus one exclusive extra choice "4th only"
1587     pg->Append( new wxEnumProperty(wxT("EnumProperty 4"),wxPG_LABEL,
1588         soc, 240 ) );
1589     pg->GetProperty(wxT("EnumProperty 4"))->AddChoice(wxT("4th only"), 360);
1590
1591     pg->SetPropertyHelpString(wxT("EnumProperty 4"),
1592         wxT("Should have one extra item when compared to EnumProperty 3"));
1593
1594     // Password property example.
1595     pg->Append( new wxStringProperty(wxT("Password"),wxPG_LABEL, wxT("password")) );
1596     pg->SetPropertyAttribute( wxT("Password"), wxPG_STRING_PASSWORD, true );
1597     pg->SetPropertyHelpString( wxT("Password"),
1598         wxT("Has attribute wxPG_STRING_PASSWORD set to true") );
1599
1600     // String editor with dir selector button. Uses wxEmptyString as name, which
1601     // is allowed (naturally, in this case property cannot be accessed by name).
1602     pg->Append( new wxDirProperty( wxT("DirProperty"), wxPG_LABEL, ::wxGetUserHome()) );
1603     pg->SetPropertyAttribute( wxT("DirProperty"),
1604                               wxPG_DIR_DIALOG_MESSAGE,
1605                               wxT("This is a custom dir dialog message") );
1606
1607     // Add string property - first arg is label, second name, and third initial value
1608     pg->Append( new wxStringProperty ( wxT("StringProperty"), wxPG_LABEL ) );
1609     pg->SetPropertyMaxLength( wxT("StringProperty"), 6 );
1610     pg->SetPropertyHelpString( wxT("StringProperty"),
1611         wxT("Max length of this text has been limited to 6, using wxPropertyGrid::SetPropertyMaxLength.") );
1612
1613     // Set value after limiting so that it will be applied
1614     pg->SetPropertyValue( wxT("StringProperty"), wxT("some text") );
1615
1616     //
1617     // Demonstrate "AutoComplete" attribute
1618     pg->Append( new wxStringProperty( "StringProperty AutoComplete",
1619                                       wxPG_LABEL ) );
1620
1621     wxArrayString autoCompleteStrings;
1622     autoCompleteStrings.Add("One choice");
1623     autoCompleteStrings.Add("Another choice");
1624     autoCompleteStrings.Add("Another choice, yeah");
1625     autoCompleteStrings.Add("Yet another choice");
1626     autoCompleteStrings.Add("Yet another choice, bear with me");
1627     pg->SetPropertyAttribute( "StringProperty AutoComplete",
1628                               "AutoComplete",
1629                               autoCompleteStrings );
1630
1631     pg->SetPropertyHelpString( "StringProperty AutoComplete",
1632         "AutoComplete attribute has been set for this property "
1633         "(try writing something beginning with 'a', 'o' or 'y').");
1634
1635     // Add string property with arbitrarily wide bitmap in front of it. We
1636     // intentionally lower-than-typical row height here so that the ugly
1637     // scaling code wont't be run.
1638     pg->Append( new wxStringProperty( wxT("StringPropertyWithBitmap"),
1639                 wxPG_LABEL,
1640                 wxT("Test Text")) );
1641     wxBitmap myTestBitmap(60, 15, 32);
1642     wxMemoryDC mdc;
1643     mdc.SelectObject(myTestBitmap);
1644     mdc.Clear();
1645     mdc.SetPen(*wxBLACK);
1646     mdc.DrawLine(0, 0, 60, 15);
1647     mdc.SelectObject(wxNullBitmap);
1648     pg->SetPropertyImage( wxT("StringPropertyWithBitmap"), myTestBitmap );
1649
1650
1651     // this value array would be optional if values matched string indexes
1652     //long flags_prop_values[] = { wxICONIZE, wxCAPTION, wxMINIMIZE_BOX, wxMAXIMIZE_BOX };
1653
1654     //pg->Append( wxFlagsProperty(wxT("Example of FlagsProperty"),wxT("FlagsProp"),
1655     //    flags_prop_labels, flags_prop_values, 0, GetWindowStyle() ) );
1656
1657
1658     // Multi choice dialog.
1659     wxArrayString tchoices;
1660     tchoices.Add(wxT("Cabbage"));
1661     tchoices.Add(wxT("Carrot"));
1662     tchoices.Add(wxT("Onion"));
1663     tchoices.Add(wxT("Potato"));
1664     tchoices.Add(wxT("Strawberry"));
1665
1666     wxArrayString tchoicesValues;
1667     tchoicesValues.Add(wxT("Carrot"));
1668     tchoicesValues.Add(wxT("Potato"));
1669
1670     pg->Append( new wxEnumProperty(wxT("EnumProperty X"),wxPG_LABEL, tchoices ) );
1671
1672     pg->Append( new wxMultiChoiceProperty( wxT("MultiChoiceProperty"), wxPG_LABEL,
1673                                            tchoices, tchoicesValues ) );
1674     pg->SetPropertyAttribute( wxT("MultiChoiceProperty"), wxT("UserStringMode"), true );
1675
1676     pg->Append( new wxSizeProperty( wxT("SizeProperty"), wxT("Size"), GetSize() ) );
1677     pg->Append( new wxPointProperty( wxT("PointProperty"), wxT("Position"), GetPosition() ) );
1678
1679     // UInt samples
1680     pg->Append( new wxUIntProperty( wxT("UIntProperty"), wxPG_LABEL, wxULongLong(wxULL(0xFEEEFEEEFEEE))));
1681     pg->SetPropertyAttribute( wxT("UIntProperty"), wxPG_UINT_PREFIX, wxPG_PREFIX_NONE );
1682     pg->SetPropertyAttribute( wxT("UIntProperty"), wxPG_UINT_BASE, wxPG_BASE_HEX );
1683     //pg->SetPropertyAttribute( wxT("UIntProperty"), wxPG_UINT_PREFIX, wxPG_PREFIX_NONE );
1684     //pg->SetPropertyAttribute( wxT("UIntProperty"), wxPG_UINT_BASE, wxPG_BASE_OCT );
1685
1686     //
1687     // wxEditEnumProperty
1688     wxPGChoices eech;
1689     eech.Add(wxT("Choice 1"));
1690     eech.Add(wxT("Choice 2"));
1691     eech.Add(wxT("Choice 3"));
1692     pg->Append( new wxEditEnumProperty("EditEnumProperty",
1693                                        wxPG_LABEL,
1694                                        eech,
1695                                        "Choice not in the list") );
1696
1697     // Test Hint attribute in EditEnumProperty
1698     pg->GetProperty("EditEnumProperty")->SetAttribute("Hint", "Dummy Hint");
1699
1700     //wxString v_;
1701     //wxTextValidator validator1(wxFILTER_NUMERIC,&v_);
1702     //pg->SetPropertyValidator( wxT("EditEnumProperty"), validator1 );
1703
1704 #if wxUSE_DATETIME
1705     //
1706     // wxDateTimeProperty
1707     pg->Append( new wxDateProperty(wxT("DateProperty"), wxPG_LABEL, wxDateTime::Now() ) );
1708
1709 #if wxUSE_DATEPICKCTRL
1710     pg->SetPropertyAttribute( wxT("DateProperty"), wxPG_DATE_PICKER_STYLE,
1711                               (long)(wxDP_DROPDOWN |
1712                                      wxDP_SHOWCENTURY |
1713                                      wxDP_ALLOWNONE) );
1714
1715     pg->SetPropertyHelpString( wxT("DateProperty"),
1716         wxT("Attribute wxPG_DATE_PICKER_STYLE has been set to (long)")
1717         wxT("(wxDP_DROPDOWN | wxDP_SHOWCENTURY | wxDP_ALLOWNONE).") );
1718 #endif
1719
1720 #endif
1721
1722     //
1723     // Add Triangle properties as both wxTriangleProperty and
1724     // a generic parent property (using wxStringProperty).
1725     //
1726     wxPGProperty* topId = pg->Append( new wxStringProperty(wxT("3D Object"), wxPG_LABEL, wxT("<composed>")) );
1727
1728     pid = pg->AppendIn( topId, new wxStringProperty(wxT("Triangle 1"), wxT("Triangle 1"), wxT("<composed>")) );
1729     pg->AppendIn( pid, new wxVectorProperty( wxT("A"), wxPG_LABEL ) );
1730     pg->AppendIn( pid, new wxVectorProperty( wxT("B"), wxPG_LABEL ) );
1731     pg->AppendIn( pid, new wxVectorProperty( wxT("C"), wxPG_LABEL ) );
1732
1733     pg->AppendIn( topId, new wxTriangleProperty( wxT("Triangle 2"), wxT("Triangle 2") ) );
1734
1735     pg->SetPropertyHelpString( wxT("3D Object"),
1736         wxT("3D Object is wxStringProperty with value \"<composed>\". Two of its children are similar wxStringProperties with ")
1737         wxT("three wxVectorProperty children, and other two are custom wxTriangleProperties.") );
1738
1739     pid = pg->AppendIn( topId, new wxStringProperty(wxT("Triangle 3"), wxT("Triangle 3"), wxT("<composed>")) );
1740     pg->AppendIn( pid, new wxVectorProperty( wxT("A"), wxPG_LABEL ) );
1741     pg->AppendIn( pid, new wxVectorProperty( wxT("B"), wxPG_LABEL ) );
1742     pg->AppendIn( pid, new wxVectorProperty( wxT("C"), wxPG_LABEL ) );
1743
1744     pg->AppendIn( topId, new wxTriangleProperty( wxT("Triangle 4"), wxT("Triangle 4") ) );
1745
1746     //
1747     // This snippet is a doc sample test
1748     //
1749     wxPGProperty* carProp = pg->Append(new wxStringProperty(wxT("Car"),
1750                                          wxPG_LABEL,
1751                                          wxT("<composed>")));
1752
1753     pg->AppendIn(carProp, new wxStringProperty(wxT("Model"),
1754                                                 wxPG_LABEL,
1755                                                 wxT("Lamborghini Diablo SV")));
1756
1757     pg->AppendIn(carProp, new wxIntProperty(wxT("Engine Size (cc)"),
1758                                             wxPG_LABEL,
1759                                             5707) );
1760
1761     wxPGProperty* speedsProp = pg->AppendIn(carProp,
1762                                             new wxStringProperty(wxT("Speeds"),
1763                                               wxPG_LABEL,
1764                                               wxT("<composed>")));
1765
1766     pg->AppendIn( speedsProp, new wxIntProperty(wxT("Max. Speed (mph)"),
1767                                                 wxPG_LABEL,290) );
1768     pg->AppendIn( speedsProp, new wxFloatProperty(wxT("0-100 mph (sec)"),
1769                                                   wxPG_LABEL,3.9) );
1770     pg->AppendIn( speedsProp, new wxFloatProperty(wxT("1/4 mile (sec)"),
1771                                                   wxPG_LABEL,8.6) );
1772
1773     // This is how child property can be referred to by name
1774     pg->SetPropertyValue( wxT("Car.Speeds.Max. Speed (mph)"), 300 );
1775
1776     pg->AppendIn(carProp, new wxIntProperty(wxT("Price ($)"),
1777                                             wxPG_LABEL,
1778                                             300000) );
1779
1780     pg->AppendIn(carProp, new wxBoolProperty(wxT("Convertible"),
1781                                              wxPG_LABEL,
1782                                              false) );
1783
1784     // Displayed value of "Car" property is now very close to this:
1785     // "Lamborghini Diablo SV; 5707 [300; 3.9; 8.6] 300000"
1786
1787     //
1788     // Test wxSampleMultiButtonEditor
1789     pg->Append( new wxLongStringProperty(wxT("MultipleButtons"), wxPG_LABEL) );
1790     pg->SetPropertyEditor(wxT("MultipleButtons"), m_pSampleMultiButtonEditor );
1791
1792     // Test SingleChoiceProperty
1793     pg->Append( new SingleChoiceProperty(wxT("SingleChoiceProperty")) );
1794
1795
1796     //
1797     // Test adding variable height bitmaps in wxPGChoices
1798     wxPGChoices bc;
1799
1800     bc.Add(wxT("Wee"), wxBitmap(16, 16));
1801     bc.Add(wxT("Not so wee"), wxBitmap(32, 32));
1802     bc.Add(wxT("Friggin' huge"), wxBitmap(64, 64));
1803
1804     pg->Append( new wxEnumProperty(wxT("Variable Height Bitmaps"),
1805                                    wxPG_LABEL,
1806                                    bc,
1807                                    0) );
1808
1809     //
1810     // Test how non-editable composite strings appear
1811     pid = new wxStringProperty(wxT("wxWidgets Traits"), wxPG_LABEL, wxT("<composed>"));
1812     pg->SetPropertyReadOnly(pid);
1813
1814     //
1815     // For testing purposes, combine two methods of adding children
1816     //
1817
1818     pid->AppendChild( new wxStringProperty(wxT("Latest Release"),
1819                                            wxPG_LABEL,
1820                                            wxT("2.8.10")));
1821     pid->AppendChild( new wxBoolProperty(wxT("Win API"),
1822                                          wxPG_LABEL,
1823                                          true) );
1824
1825     pg->Append( pid );
1826
1827     pg->AppendIn(pid, new wxBoolProperty(wxT("QT"), wxPG_LABEL, false) );
1828     pg->AppendIn(pid, new wxBoolProperty(wxT("Cocoa"), wxPG_LABEL, true) );
1829     pg->AppendIn(pid, new wxBoolProperty(wxT("BeOS"), wxPG_LABEL, false) );
1830     pg->AppendIn(pid, new wxStringProperty(wxT("SVN Trunk Version"), wxPG_LABEL, wxT("2.9.0")) );
1831     pg->AppendIn(pid, new wxBoolProperty(wxT("GTK+"), wxPG_LABEL, true) );
1832     pg->AppendIn(pid, new wxBoolProperty(wxT("Sky OS"), wxPG_LABEL, false) );
1833     pg->AppendIn(pid, new wxBoolProperty(wxT("QT"), wxPG_LABEL, false) );
1834
1835     AddTestProperties(pg);
1836 }
1837
1838 // -----------------------------------------------------------------------
1839
1840 void FormMain::PopulateWithLibraryConfig ()
1841 {
1842     wxPropertyGridManager* pgman = m_pPropGridManager;
1843     wxPropertyGridPage* pg = pgman->GetPage(wxT("wxWidgets Library Config"));
1844
1845     // Set custom column proportions (here in the sample app we need
1846     // to check if the grid has wxPG_SPLITTER_AUTO_CENTER style. You usually
1847     // need not to do it in your application).
1848     if ( pgman->HasFlag(wxPG_SPLITTER_AUTO_CENTER) )
1849     {
1850         pg->SetColumnProportion(0, 3);
1851         pg->SetColumnProportion(1, 1);
1852     }
1853
1854     wxPGProperty* cat;
1855
1856     wxBitmap bmp = wxArtProvider::GetBitmap(wxART_REPORT_VIEW);
1857
1858     wxPGProperty* pid;
1859
1860     wxFont italicFont = pgman->GetGrid()->GetCaptionFont();
1861     italicFont.SetStyle(wxFONTSTYLE_ITALIC);
1862
1863     wxString italicFontHelp = "Font of this property's wxPGCell has "
1864                               "been modified. Obtain property's cell "
1865                               "with wxPGProperty::"
1866                               "GetOrCreateCell(column).";
1867
1868 #define ADD_WX_LIB_CONF_GROUP(A) \
1869     cat = pg->AppendIn( pid, new wxPropertyCategory(A) ); \
1870     pg->SetPropertyCell( cat, 0, wxPG_LABEL, bmp ); \
1871     cat->GetCell(0).SetFont(italicFont); \
1872     cat->SetHelpString(italicFontHelp);
1873
1874 #define ADD_WX_LIB_CONF(A) pg->Append( new wxBoolProperty(wxT(#A),wxPG_LABEL,(bool)((A>0)?true:false)));
1875 #define ADD_WX_LIB_CONF_NODEF(A) pg->Append( new wxBoolProperty(wxT(#A),wxPG_LABEL,(bool)false) ); \
1876                             pg->DisableProperty(wxT(#A));
1877
1878     pid = pg->Append( new wxPropertyCategory( wxT("wxWidgets Library Configuration") ) );
1879     pg->SetPropertyCell( pid, 0, wxPG_LABEL, bmp );
1880
1881     // Both of following lines would set a label for the second column
1882     pg->SetPropertyCell( pid, 1, "Is Enabled" );
1883     pid->SetValue("Is Enabled");
1884
1885     ADD_WX_LIB_CONF_GROUP(wxT("Global Settings"))
1886     ADD_WX_LIB_CONF( wxUSE_GUI )
1887
1888     ADD_WX_LIB_CONF_GROUP(wxT("Compatibility Settings"))
1889 #if defined(WXWIN_COMPATIBILITY_2_2)
1890     ADD_WX_LIB_CONF( WXWIN_COMPATIBILITY_2_2 )
1891 #endif
1892 #if defined(WXWIN_COMPATIBILITY_2_4)
1893     ADD_WX_LIB_CONF( WXWIN_COMPATIBILITY_2_4 )
1894 #endif
1895 #if defined(WXWIN_COMPATIBILITY_2_6)
1896     ADD_WX_LIB_CONF( WXWIN_COMPATIBILITY_2_6 )
1897 #endif
1898 #if defined(WXWIN_COMPATIBILITY_2_8)
1899     ADD_WX_LIB_CONF( WXWIN_COMPATIBILITY_2_8 )
1900 #endif
1901 #ifdef wxFONT_SIZE_COMPATIBILITY
1902     ADD_WX_LIB_CONF( wxFONT_SIZE_COMPATIBILITY )
1903 #else
1904     ADD_WX_LIB_CONF_NODEF ( wxFONT_SIZE_COMPATIBILITY )
1905 #endif
1906 #ifdef wxDIALOG_UNIT_COMPATIBILITY
1907     ADD_WX_LIB_CONF( wxDIALOG_UNIT_COMPATIBILITY )
1908 #else
1909     ADD_WX_LIB_CONF_NODEF ( wxDIALOG_UNIT_COMPATIBILITY )
1910 #endif
1911
1912     ADD_WX_LIB_CONF_GROUP(wxT("Debugging Settings"))
1913     ADD_WX_LIB_CONF( wxUSE_DEBUG_CONTEXT )
1914     ADD_WX_LIB_CONF( wxUSE_MEMORY_TRACING )
1915     ADD_WX_LIB_CONF( wxUSE_GLOBAL_MEMORY_OPERATORS )
1916     ADD_WX_LIB_CONF( wxUSE_DEBUG_NEW_ALWAYS )
1917     ADD_WX_LIB_CONF( wxUSE_ON_FATAL_EXCEPTION )
1918
1919     ADD_WX_LIB_CONF_GROUP(wxT("Unicode Support"))
1920     ADD_WX_LIB_CONF( wxUSE_UNICODE )
1921     ADD_WX_LIB_CONF( wxUSE_UNICODE_MSLU )
1922
1923     ADD_WX_LIB_CONF_GROUP(wxT("Global Features"))
1924     ADD_WX_LIB_CONF( wxUSE_EXCEPTIONS )
1925     ADD_WX_LIB_CONF( wxUSE_EXTENDED_RTTI )
1926     ADD_WX_LIB_CONF( wxUSE_STL )
1927     ADD_WX_LIB_CONF( wxUSE_LOG )
1928     ADD_WX_LIB_CONF( wxUSE_LOGWINDOW )
1929     ADD_WX_LIB_CONF( wxUSE_LOGGUI )
1930     ADD_WX_LIB_CONF( wxUSE_LOG_DIALOG )
1931     ADD_WX_LIB_CONF( wxUSE_CMDLINE_PARSER )
1932     ADD_WX_LIB_CONF( wxUSE_THREADS )
1933     ADD_WX_LIB_CONF( wxUSE_STREAMS )
1934     ADD_WX_LIB_CONF( wxUSE_STD_IOSTREAM )
1935
1936     ADD_WX_LIB_CONF_GROUP(wxT("Non-GUI Features"))
1937     ADD_WX_LIB_CONF( wxUSE_LONGLONG )
1938     ADD_WX_LIB_CONF( wxUSE_FILE )
1939     ADD_WX_LIB_CONF( wxUSE_FFILE )
1940     ADD_WX_LIB_CONF( wxUSE_FSVOLUME )
1941     ADD_WX_LIB_CONF( wxUSE_TEXTBUFFER )
1942     ADD_WX_LIB_CONF( wxUSE_TEXTFILE )
1943     ADD_WX_LIB_CONF( wxUSE_INTL )
1944     ADD_WX_LIB_CONF( wxUSE_DATETIME )
1945     ADD_WX_LIB_CONF( wxUSE_TIMER )
1946     ADD_WX_LIB_CONF( wxUSE_STOPWATCH )
1947     ADD_WX_LIB_CONF( wxUSE_CONFIG )
1948 #ifdef wxUSE_CONFIG_NATIVE
1949     ADD_WX_LIB_CONF( wxUSE_CONFIG_NATIVE )
1950 #else
1951     ADD_WX_LIB_CONF_NODEF ( wxUSE_CONFIG_NATIVE )
1952 #endif
1953     ADD_WX_LIB_CONF( wxUSE_DIALUP_MANAGER )
1954     ADD_WX_LIB_CONF( wxUSE_DYNLIB_CLASS )
1955     ADD_WX_LIB_CONF( wxUSE_DYNAMIC_LOADER )
1956     ADD_WX_LIB_CONF( wxUSE_SOCKETS )
1957     ADD_WX_LIB_CONF( wxUSE_FILESYSTEM )
1958     ADD_WX_LIB_CONF( wxUSE_FS_ZIP )
1959     ADD_WX_LIB_CONF( wxUSE_FS_INET )
1960     ADD_WX_LIB_CONF( wxUSE_ZIPSTREAM )
1961     ADD_WX_LIB_CONF( wxUSE_ZLIB )
1962     ADD_WX_LIB_CONF( wxUSE_APPLE_IEEE )
1963     ADD_WX_LIB_CONF( wxUSE_JOYSTICK )
1964     ADD_WX_LIB_CONF( wxUSE_FONTMAP )
1965     ADD_WX_LIB_CONF( wxUSE_MIMETYPE )
1966     ADD_WX_LIB_CONF( wxUSE_PROTOCOL )
1967     ADD_WX_LIB_CONF( wxUSE_PROTOCOL_FILE )
1968     ADD_WX_LIB_CONF( wxUSE_PROTOCOL_FTP )
1969     ADD_WX_LIB_CONF( wxUSE_PROTOCOL_HTTP )
1970     ADD_WX_LIB_CONF( wxUSE_URL )
1971 #ifdef wxUSE_URL_NATIVE
1972     ADD_WX_LIB_CONF( wxUSE_URL_NATIVE )
1973 #else
1974     ADD_WX_LIB_CONF_NODEF ( wxUSE_URL_NATIVE )
1975 #endif
1976     ADD_WX_LIB_CONF( wxUSE_REGEX )
1977     ADD_WX_LIB_CONF( wxUSE_SYSTEM_OPTIONS )
1978     ADD_WX_LIB_CONF( wxUSE_SOUND )
1979 #ifdef wxUSE_XRC
1980     ADD_WX_LIB_CONF( wxUSE_XRC )
1981 #else
1982     ADD_WX_LIB_CONF_NODEF ( wxUSE_XRC )
1983 #endif
1984     ADD_WX_LIB_CONF( wxUSE_XML )
1985
1986     // Set them to use check box.
1987     pg->SetPropertyAttribute(pid,wxPG_BOOL_USE_CHECKBOX,true,wxPG_RECURSE);
1988 }
1989
1990
1991 //
1992 // Handle events of the third page here.
1993 class wxMyPropertyGridPage : public wxPropertyGridPage
1994 {
1995 public:
1996
1997     // Return false here to indicate unhandled events should be
1998     // propagated to manager's parent, as normal.
1999     virtual bool IsHandlingAllEvents() const { return false; }
2000
2001 protected:
2002
2003     virtual wxPGProperty* DoInsert( wxPGProperty* parent,
2004                                     int index,
2005                                     wxPGProperty* property )
2006     {
2007         return wxPropertyGridPage::DoInsert(parent,index,property);
2008     }
2009
2010     void OnPropertySelect( wxPropertyGridEvent& event );
2011     void OnPropertyChanging( wxPropertyGridEvent& event );
2012     void OnPropertyChange( wxPropertyGridEvent& event );
2013     void OnPageChange( wxPropertyGridEvent& event );
2014
2015 private:
2016     DECLARE_EVENT_TABLE()
2017 };
2018
2019
2020 BEGIN_EVENT_TABLE(wxMyPropertyGridPage, wxPropertyGridPage)
2021     EVT_PG_SELECTED( wxID_ANY, wxMyPropertyGridPage::OnPropertySelect )
2022     EVT_PG_CHANGING( wxID_ANY, wxMyPropertyGridPage::OnPropertyChanging )
2023     EVT_PG_CHANGED( wxID_ANY, wxMyPropertyGridPage::OnPropertyChange )
2024     EVT_PG_PAGE_CHANGED( wxID_ANY, wxMyPropertyGridPage::OnPageChange )
2025 END_EVENT_TABLE()
2026
2027
2028 void wxMyPropertyGridPage::OnPropertySelect( wxPropertyGridEvent& WXUNUSED(event) )
2029 {
2030     wxLogDebug(wxT("wxMyPropertyGridPage::OnPropertySelect()"));
2031 }
2032
2033 void wxMyPropertyGridPage::OnPropertyChange( wxPropertyGridEvent& event )
2034 {
2035     wxPGProperty* p = event.GetProperty();
2036     wxLogVerbose(wxT("wxMyPropertyGridPage::OnPropertyChange('%s', to value '%s')"),
2037                p->GetName().c_str(),
2038                p->GetDisplayedString().c_str());
2039 }
2040
2041 void wxMyPropertyGridPage::OnPropertyChanging( wxPropertyGridEvent& event )
2042 {
2043     wxPGProperty* p = event.GetProperty();
2044     wxLogVerbose(wxT("wxMyPropertyGridPage::OnPropertyChanging('%s', to value '%s')"),
2045                p->GetName().c_str(),
2046                event.GetValue().GetString().c_str());
2047 }
2048
2049 void wxMyPropertyGridPage::OnPageChange( wxPropertyGridEvent& WXUNUSED(event) )
2050 {
2051     wxLogDebug(wxT("wxMyPropertyGridPage::OnPageChange()"));
2052 }
2053
2054
2055 class wxPGKeyHandler : public wxEvtHandler
2056 {
2057 public:
2058
2059     void OnKeyEvent( wxKeyEvent& event )
2060     {
2061         wxMessageBox(wxString::Format(wxT("%i"),event.GetKeyCode()));
2062         event.Skip();
2063     }
2064 private:
2065     DECLARE_EVENT_TABLE()
2066 };
2067
2068 BEGIN_EVENT_TABLE(wxPGKeyHandler,wxEvtHandler)
2069     EVT_KEY_DOWN( wxPGKeyHandler::OnKeyEvent )
2070 END_EVENT_TABLE()
2071
2072
2073 // -----------------------------------------------------------------------
2074
2075 void FormMain::InitPanel()
2076 {
2077     if ( m_panel )
2078         m_panel->Destroy();
2079
2080     wxWindow* panel = new wxPanel(this, wxID_ANY,
2081                                   wxPoint(0, 0), wxSize(400, 400),
2082                                   wxTAB_TRAVERSAL);
2083     m_panel = panel;
2084
2085     // Column
2086     wxBoxSizer* topSizer = new wxBoxSizer ( wxVERTICAL );
2087
2088     m_topSizer = topSizer;
2089 }
2090
2091 void FormMain::FinalizePanel( bool wasCreated )
2092 {
2093     // Button for tab traversal testing
2094     m_topSizer->Add( new wxButton(m_panel, wxID_ANY,
2095                      wxS("Should be able to move here with Tab")),
2096                      0, wxEXPAND );
2097
2098     m_panel->SetSizer( m_topSizer );
2099     m_topSizer->SetSizeHints( m_panel );
2100
2101     wxBoxSizer* panelSizer = new wxBoxSizer( wxHORIZONTAL );
2102     panelSizer->Add( m_panel, 1, wxEXPAND|wxFIXED_MINSIZE );
2103
2104     SetSizer( panelSizer );
2105     panelSizer->SetSizeHints( this );
2106
2107     if ( wasCreated )
2108         FinalizeFramePosition();
2109 }
2110
2111 void FormMain::PopulateGrid()
2112 {
2113     wxPropertyGridManager* pgman = m_pPropGridManager;
2114     pgman->AddPage(wxT("Standard Items"));
2115
2116     PopulateWithStandardItems();
2117
2118     pgman->AddPage(wxT("wxWidgets Library Config"));
2119
2120     PopulateWithLibraryConfig();
2121
2122     wxPropertyGridPage* myPage = new wxMyPropertyGridPage();
2123     myPage->Append( new wxIntProperty ( wxT("IntProperty"), wxPG_LABEL, 12345678 ) );
2124
2125     // Use wxMyPropertyGridPage (see above) to test the
2126     // custom wxPropertyGridPage feature.
2127     pgman->AddPage(wxT("Examples"),wxNullBitmap,myPage);
2128
2129     PopulateWithExamples();
2130 }
2131
2132 void FormMain::CreateGrid( int style, int extraStyle )
2133 {
2134     //
2135     // This function (re)creates the property grid in our sample
2136     //
2137
2138     if ( style == -1 )
2139         style = // default style
2140                 wxPG_BOLD_MODIFIED |
2141                 wxPG_SPLITTER_AUTO_CENTER |
2142                 wxPG_AUTO_SORT |
2143                 //wxPG_HIDE_MARGIN|wxPG_STATIC_SPLITTER |
2144                 //wxPG_TOOLTIPS |
2145                 //wxPG_HIDE_CATEGORIES |
2146                 //wxPG_LIMITED_EDITING |
2147                 wxPG_TOOLBAR |
2148                 wxPG_DESCRIPTION;
2149
2150     if ( extraStyle == -1 )
2151         // default extra style
2152         extraStyle = wxPG_EX_MODE_BUTTONS |
2153                      wxPG_EX_MULTIPLE_SELECTION;
2154                 //| wxPG_EX_AUTO_UNSPECIFIED_VALUES
2155                 //| wxPG_EX_GREY_LABEL_WHEN_DISABLED
2156                 //| wxPG_EX_NATIVE_DOUBLE_BUFFERING
2157                 //| wxPG_EX_HELP_AS_TOOLTIPS
2158
2159     bool wasCreated = m_panel ? false : true;
2160
2161     InitPanel();
2162
2163     //
2164     // This shows how to combine two static choice descriptors
2165     m_combinedFlags.Add( _fs_windowstyle_labels, _fs_windowstyle_values );
2166     m_combinedFlags.Add( _fs_framestyle_labels, _fs_framestyle_values );
2167
2168     wxPropertyGridManager* pgman = m_pPropGridManager =
2169         new wxPropertyGridManager(m_panel,
2170                                   // Don't change this into wxID_ANY in the sample, or the
2171                                   // event handling will obviously be broken.
2172                                   PGID, /*wxID_ANY*/
2173                                   wxDefaultPosition,
2174                                   wxSize(100, 100), // FIXME: wxDefaultSize gives assertion in propgrid.
2175                                                     // But calling SetInitialSize in manager changes the code
2176                                                     // order to the grid gets created immediately, before SetExtraStyle
2177                                                     // is called.
2178                                   style );
2179
2180     m_propGrid = pgman->GetGrid();
2181
2182     pgman->SetExtraStyle(extraStyle);
2183
2184     // This is the default validation failure behavior
2185     m_pPropGridManager->SetValidationFailureBehavior( wxPG_VFB_MARK_CELL |
2186                                                       wxPG_VFB_SHOW_MESSAGEBOX );
2187
2188     m_pPropGridManager->GetGrid()->SetVerticalSpacing( 2 );
2189
2190     //
2191     // Set somewhat different unspecified value appearance
2192     wxPGCell cell;
2193     cell.SetText("Unspecified");
2194     cell.SetFgCol(*wxLIGHT_GREY);
2195     m_propGrid->SetUnspecifiedValueAppearance(cell);
2196
2197     PopulateGrid();
2198
2199     // Change some attributes in all properties
2200     //pgman->SetPropertyAttributeAll(wxPG_BOOL_USE_DOUBLE_CLICK_CYCLING,true);
2201     //pgman->SetPropertyAttributeAll(wxPG_BOOL_USE_CHECKBOX,true);
2202
2203     //m_pPropGridManager->SetSplitterLeft(true);
2204     //m_pPropGridManager->SetSplitterPosition(137);
2205
2206     /*
2207     // This would setup event handling without event table entries
2208     Connect(m_pPropGridManager->GetId(), wxEVT_PG_SELECTED,
2209             wxPropertyGridEventHandler(FormMain::OnPropertyGridSelect) );
2210     Connect(m_pPropGridManager->GetId(), wxEVT_PG_CHANGED,
2211             wxPropertyGridEventHandler(FormMain::OnPropertyGridChange) );
2212     */
2213
2214     m_topSizer->Add( m_pPropGridManager, 1, wxEXPAND );
2215
2216     FinalizePanel(wasCreated);
2217 }
2218
2219 // -----------------------------------------------------------------------
2220
2221 FormMain::FormMain(const wxString& title, const wxPoint& pos, const wxSize& size) :
2222            wxFrame((wxFrame *)NULL, -1, title, pos, size,
2223                (wxMINIMIZE_BOX|wxMAXIMIZE_BOX|wxRESIZE_BORDER|wxSYSTEM_MENU|wxCAPTION|
2224                 wxTAB_TRAVERSAL|wxCLOSE_BOX|wxNO_FULL_REPAINT_ON_RESIZE) )
2225 {
2226     SetIcon(wxICON(sample));
2227
2228     m_propGrid = NULL;
2229     m_panel = NULL;
2230
2231 #ifdef __WXMAC__
2232     // we need this in order to allow the about menu relocation, since ABOUT is
2233     // not the default id of the about menu
2234     wxApp::s_macAboutMenuItemId = ID_ABOUT;
2235 #endif
2236
2237 #if wxUSE_IMAGE
2238     // This is here to really test the wxImageFileProperty.
2239     wxInitAllImageHandlers();
2240 #endif
2241
2242     // Register all editors (SpinCtrl etc.)
2243     m_pPropGridManager->RegisterAdditionalEditors();
2244
2245     // Register our sample custom editors
2246     m_pSampleMultiButtonEditor =
2247         wxPropertyGrid::RegisterEditorClass(new wxSampleMultiButtonEditor());
2248
2249     CreateGrid( // style
2250                 wxPG_BOLD_MODIFIED |
2251                 wxPG_SPLITTER_AUTO_CENTER |
2252                 wxPG_AUTO_SORT |
2253                 //wxPG_HIDE_MARGIN|wxPG_STATIC_SPLITTER |
2254                 //wxPG_TOOLTIPS |
2255                 //wxPG_HIDE_CATEGORIES |
2256                 //wxPG_LIMITED_EDITING |
2257                 wxPG_TOOLBAR |
2258                 wxPG_DESCRIPTION,
2259                 // extra style
2260                 wxPG_EX_MODE_BUTTONS |
2261                 wxPG_EX_MULTIPLE_SELECTION
2262                 //| wxPG_EX_AUTO_UNSPECIFIED_VALUES
2263                 //| wxPG_EX_GREY_LABEL_WHEN_DISABLED
2264                 //| wxPG_EX_NATIVE_DOUBLE_BUFFERING
2265                 //| wxPG_EX_HELP_AS_TOOLTIPS
2266               );
2267
2268     //
2269     // Create menubar
2270     wxMenu *menuFile = new wxMenu(wxEmptyString, wxMENU_TEAROFF);
2271     wxMenu *menuTry = new wxMenu;
2272     wxMenu *menuTools1 = new wxMenu;
2273     wxMenu *menuTools2 = new wxMenu;
2274     wxMenu *menuHelp = new wxMenu;
2275
2276     menuHelp->Append(ID_ABOUT, wxT("&About..."), wxT("Show about dialog") );
2277
2278     menuTools1->Append(ID_APPENDPROP, wxT("Append New Property") );
2279     menuTools1->Append(ID_APPENDCAT, wxT("Append New Category\tCtrl-S") );
2280     menuTools1->AppendSeparator();
2281     menuTools1->Append(ID_INSERTPROP, wxT("Insert New Property\tCtrl-Q") );
2282     menuTools1->Append(ID_INSERTCAT, wxT("Insert New Category\tCtrl-W") );
2283     menuTools1->AppendSeparator();
2284     menuTools1->Append(ID_DELETE, wxT("Delete Selected") );
2285     menuTools1->Append(ID_DELETER, wxT("Delete Random") );
2286     menuTools1->Append(ID_DELETEALL, wxT("Delete All") );
2287     menuTools1->AppendSeparator();
2288     menuTools1->Append(ID_SETBGCOLOUR, wxT("Set Bg Colour") );
2289     menuTools1->Append(ID_SETBGCOLOURRECUR, wxT("Set Bg Colour (Recursively)") );
2290     menuTools1->Append(ID_UNSPECIFY, "Set Value to Unspecified");
2291     menuTools1->AppendSeparator();
2292     m_itemEnable = menuTools1->Append(ID_ENABLE, wxT("Enable"),
2293         wxT("Toggles item's enabled state.") );
2294     m_itemEnable->Enable( FALSE );
2295     menuTools1->Append(ID_HIDE, "Hide", "Hides a property" );
2296     menuTools1->Append(ID_SETREADONLY, "Set as Read-Only",
2297                        "Set property as read-only" );
2298
2299     menuTools2->Append(ID_ITERATE1, wxT("Iterate Over Properties") );
2300     menuTools2->Append(ID_ITERATE2, wxT("Iterate Over Visible Items") );
2301     menuTools2->Append(ID_ITERATE3, wxT("Reverse Iterate Over Properties") );
2302     menuTools2->Append(ID_ITERATE4, wxT("Iterate Over Categories") );
2303     menuTools2->AppendSeparator();
2304     menuTools2->Append(ID_ONEXTENDEDKEYNAV, "Extend Keyboard Navigation",
2305                        "This will set Enter to navigate to next property, "
2306                        "and allows arrow keys to navigate even when in "
2307                        "editor control.");
2308     menuTools2->AppendSeparator();
2309     menuTools2->Append(ID_SETPROPERTYVALUE, wxT("Set Property Value") );
2310     menuTools2->Append(ID_CLEARMODIF, wxT("Clear Modified Status"), wxT("Clears wxPG_MODIFIED flag from all properties.") );
2311     menuTools2->AppendSeparator();
2312     m_itemFreeze = menuTools2->AppendCheckItem(ID_FREEZE, wxT("Freeze"),
2313         wxT("Disables painting, auto-sorting, etc.") );
2314     menuTools2->AppendSeparator();
2315     menuTools2->Append(ID_DUMPLIST, wxT("Display Values as wxVariant List"), wxT("Tests GetAllValues method and wxVariant conversion.") );
2316     menuTools2->AppendSeparator();
2317     menuTools2->Append(ID_GETVALUES, wxT("Get Property Values"), wxT("Stores all property values.") );
2318     menuTools2->Append(ID_SETVALUES, wxT("Set Property Values"), wxT("Reverts property values to those last stored.") );
2319     menuTools2->Append(ID_SETVALUES2, wxT("Set Property Values 2"), wxT("Adds property values that should not initially be as items (so new items are created).") );
2320     menuTools2->AppendSeparator();
2321     menuTools2->Append(ID_SAVESTATE, wxT("Save Editable State") );
2322     menuTools2->Append(ID_RESTORESTATE, wxT("Restore Editable State") );
2323     menuTools2->AppendSeparator();
2324     menuTools2->Append(ID_ENABLECOMMONVALUES, wxT("Enable Common Value"),
2325         wxT("Enable values that are common to all properties, for selected property."));
2326     menuTools2->AppendSeparator();
2327     menuTools2->Append(ID_COLLAPSE, wxT("Collapse Selected") );
2328     menuTools2->Append(ID_COLLAPSEALL, wxT("Collapse All") );
2329     menuTools2->AppendSeparator();
2330     menuTools2->Append(ID_INSERTPAGE, wxT("Add Page") );
2331     menuTools2->Append(ID_REMOVEPAGE, wxT("Remove Page") );
2332     menuTools2->AppendSeparator();
2333     menuTools2->Append(ID_FITCOLUMNS, wxT("Fit Columns") );
2334     m_itemVetoDragging =
2335         menuTools2->AppendCheckItem(ID_VETOCOLDRAG,
2336                                     "Veto Column Dragging");
2337     menuTools2->AppendSeparator();
2338     menuTools2->Append(ID_CHANGEFLAGSITEMS, wxT("Change Children of FlagsProp") );
2339     menuTools2->AppendSeparator();
2340     menuTools2->Append(ID_TESTINSERTCHOICE, wxT("Test InsertPropertyChoice") );
2341     menuTools2->Append(ID_TESTDELETECHOICE, wxT("Test DeletePropertyChoice") );
2342     menuTools2->AppendSeparator();
2343     menuTools2->Append(ID_SETSPINCTRLEDITOR, wxT("Use SpinCtrl Editor") );
2344     menuTools2->Append(ID_TESTREPLACE, wxT("Test ReplaceProperty") );
2345
2346     menuTry->Append(ID_SELECTSTYLE, wxT("Set Window Style"),
2347         wxT("Select window style flags used by the grid."));
2348     menuTry->Append(ID_ENABLELABELEDITING, "Enable label editing",
2349         "This calls wxPropertyGrid::MakeColumnEditable(0)");
2350     menuTry->AppendCheckItem(ID_SHOWHEADER,
2351         "Enable header",
2352         "This calls wxPropertyGridManager::ShowHeader()");
2353     menuTry->AppendSeparator();
2354     menuTry->AppendRadioItem( ID_COLOURSCHEME1, wxT("Standard Colour Scheme") );
2355     menuTry->AppendRadioItem( ID_COLOURSCHEME2, wxT("White Colour Scheme") );
2356     menuTry->AppendRadioItem( ID_COLOURSCHEME3, wxT(".NET Colour Scheme") );
2357     menuTry->AppendRadioItem( ID_COLOURSCHEME4, wxT("Cream Colour Scheme") );
2358     menuTry->AppendSeparator();
2359     m_itemCatColours = menuTry->AppendCheckItem(ID_CATCOLOURS, wxT("Category Specific Colours"),
2360         wxT("Switches between category-specific cell colours and default scheme (actually done using SetPropertyTextColour and SetPropertyBackgroundColour).") );
2361     menuTry->AppendSeparator();
2362     menuTry->AppendCheckItem(ID_STATICLAYOUT, wxT("Static Layout"),
2363         wxT("Switches between user-modifiedable and static layouts.") );
2364     menuTry->Append(ID_SETCOLUMNS, wxT("Set Number of Columns") );
2365     menuTry->AppendSeparator();
2366     menuTry->Append(ID_TESTXRC, wxT("Display XRC sample") );
2367     menuTry->AppendSeparator();
2368     menuTry->Append(ID_RUNTESTFULL, wxT("Run Tests (full)") );
2369     menuTry->Append(ID_RUNTESTPARTIAL, wxT("Run Tests (fast)") );
2370
2371     menuFile->Append(ID_RUNMINIMAL, wxT("Run Minimal Sample") );
2372     menuFile->AppendSeparator();
2373     menuFile->Append(ID_QUIT, wxT("E&xit\tAlt-X"), wxT("Quit this program") );
2374
2375     // Now append the freshly created menu to the menu bar...
2376     wxMenuBar *menuBar = new wxMenuBar();
2377     menuBar->Append(menuFile, wxT("&File") );
2378     menuBar->Append(menuTry, wxT("&Try These!") );
2379     menuBar->Append(menuTools1, wxT("&Basic") );
2380     menuBar->Append(menuTools2, wxT("&Advanced") );
2381     menuBar->Append(menuHelp, wxT("&Help") );
2382
2383     // ... and attach this menu bar to the frame
2384     SetMenuBar(menuBar);
2385
2386 #if wxUSE_STATUSBAR
2387     // create a status bar
2388     CreateStatusBar(1);
2389     SetStatusText(wxEmptyString);
2390 #endif // wxUSE_STATUSBAR
2391
2392     FinalizeFramePosition();
2393
2394 #if wxUSE_LOGWINDOW
2395     // Create log window
2396     m_logWindow = new wxLogWindow(this, "Log Messages", false);
2397     m_logWindow->GetFrame()->Move(GetPosition().x + GetSize().x + 10,
2398                                   GetPosition().y);
2399     m_logWindow->Show();
2400 #endif
2401 }
2402
2403 void FormMain::FinalizeFramePosition()
2404 {
2405     wxSize frameSize((wxSystemSettings::GetMetric(wxSYS_SCREEN_X)/10)*4,
2406                      (wxSystemSettings::GetMetric(wxSYS_SCREEN_Y)/10)*8);
2407
2408     if ( frameSize.x > 500 )
2409         frameSize.x = 500;
2410
2411     SetSize(frameSize);
2412
2413     Centre();
2414 }
2415
2416 //
2417 // Normally, wxPropertyGrid does not check whether item with identical
2418 // label already exists. However, since in this sample we use labels for
2419 // identifying properties, we have to be sure not to generate identical
2420 // labels.
2421 //
2422 void GenerateUniquePropertyLabel( wxPropertyGridManager* pg, wxString& baselabel )
2423 {
2424     int count = -1;
2425     wxString newlabel;
2426
2427     if ( pg->GetPropertyByLabel( baselabel ) )
2428     {
2429         for (;;)
2430         {
2431             count++;
2432             newlabel.Printf(wxT("%s%i"),baselabel.c_str(),count);
2433             if ( !pg->GetPropertyByLabel( newlabel ) ) break;
2434         }
2435     }
2436
2437     if ( count >= 0 )
2438     {
2439         baselabel = newlabel;
2440     }
2441 }
2442
2443 // -----------------------------------------------------------------------
2444
2445 void FormMain::OnInsertPropClick( wxCommandEvent& WXUNUSED(event) )
2446 {
2447     wxString propLabel;
2448
2449     if ( !m_pPropGridManager->GetGrid()->GetRoot()->GetChildCount() )
2450     {
2451         wxMessageBox(wxT("No items to relate - first add some with Append."));
2452         return;
2453     }
2454
2455     wxPGProperty* id = m_pPropGridManager->GetGrid()->GetSelection();
2456     if ( !id )
2457     {
2458         wxMessageBox(wxT("First select a property - new one will be inserted right before that."));
2459         return;
2460     }
2461     if ( propLabel.Len() < 1 ) propLabel = wxT("Property");
2462
2463     GenerateUniquePropertyLabel( m_pPropGridManager, propLabel );
2464
2465     m_pPropGridManager->Insert( m_pPropGridManager->GetPropertyParent(id),
2466                                 id->GetIndexInParent(),
2467                                 new wxStringProperty(propLabel) );
2468
2469 }
2470
2471 // -----------------------------------------------------------------------
2472
2473 void FormMain::OnAppendPropClick( wxCommandEvent& WXUNUSED(event) )
2474 {
2475     wxString propLabel;
2476
2477     if ( propLabel.Len() < 1 ) propLabel = wxT("Property");
2478
2479     GenerateUniquePropertyLabel( m_pPropGridManager, propLabel );
2480
2481     m_pPropGridManager->Append( new wxStringProperty(propLabel) );
2482
2483     m_pPropGridManager->Refresh();
2484 }
2485
2486 // -----------------------------------------------------------------------
2487
2488 void FormMain::OnClearClick( wxCommandEvent& WXUNUSED(event) )
2489 {
2490     m_pPropGridManager->GetGrid()->Clear();
2491 }
2492
2493 // -----------------------------------------------------------------------
2494
2495 void FormMain::OnAppendCatClick( wxCommandEvent& WXUNUSED(event) )
2496 {
2497     wxString propLabel;
2498
2499     if ( propLabel.Len() < 1 ) propLabel = wxT("Category");
2500
2501     GenerateUniquePropertyLabel( m_pPropGridManager, propLabel );
2502
2503     m_pPropGridManager->Append( new wxPropertyCategory (propLabel) );
2504
2505     m_pPropGridManager->Refresh();
2506
2507 }
2508
2509 // -----------------------------------------------------------------------
2510
2511 void FormMain::OnInsertCatClick( wxCommandEvent& WXUNUSED(event) )
2512 {
2513     wxString propLabel;
2514
2515     if ( !m_pPropGridManager->GetGrid()->GetRoot()->GetChildCount() )
2516     {
2517         wxMessageBox(wxT("No items to relate - first add some with Append."));
2518         return;
2519     }
2520
2521     wxPGProperty* id = m_pPropGridManager->GetGrid()->GetSelection();
2522     if ( !id )
2523     {
2524         wxMessageBox(wxT("First select a property - new one will be inserted right before that."));
2525         return;
2526     }
2527
2528     if ( propLabel.Len() < 1 ) propLabel = wxT("Category");
2529
2530     GenerateUniquePropertyLabel( m_pPropGridManager, propLabel );
2531
2532     m_pPropGridManager->Insert( m_pPropGridManager->GetPropertyParent(id),
2533                                 id->GetIndexInParent(),
2534                                 new wxPropertyCategory (propLabel) );
2535 }
2536
2537 // -----------------------------------------------------------------------
2538
2539 void FormMain::OnDelPropClick( wxCommandEvent& WXUNUSED(event) )
2540 {
2541     wxPGProperty* id = m_pPropGridManager->GetGrid()->GetSelection();
2542     if ( !id )
2543     {
2544         wxMessageBox(wxT("First select a property."));
2545         return;
2546     }
2547
2548     m_pPropGridManager->DeleteProperty( id );
2549 }
2550
2551 // -----------------------------------------------------------------------
2552
2553 void FormMain::OnDelPropRClick( wxCommandEvent& WXUNUSED(event) )
2554 {
2555     // Delete random property
2556     wxPGProperty* p = m_pPropGridManager->GetGrid()->GetRoot();
2557
2558     for (;;)
2559     {
2560         if ( !p->IsCategory() )
2561         {
2562             m_pPropGridManager->DeleteProperty( p );
2563             break;
2564         }
2565
2566         if ( !p->GetChildCount() )
2567             break;
2568
2569         int n = rand() % ((int)p->GetChildCount());
2570
2571         p = p->Item(n);
2572     }
2573 }
2574
2575 // -----------------------------------------------------------------------
2576
2577 void FormMain::OnContextMenu( wxContextMenuEvent& event )
2578 {
2579     wxLogDebug(wxT("FormMain::OnContextMenu(%i,%i)"),
2580         event.GetPosition().x,event.GetPosition().y);
2581
2582     wxUnusedVar(event);
2583
2584     //event.Skip();
2585 }
2586
2587 // -----------------------------------------------------------------------
2588
2589 void FormMain::OnCloseClick( wxCommandEvent& WXUNUSED(event) )
2590 {
2591 /*#ifdef __WXDEBUG__
2592     m_pPropGridManager->GetGrid()->DumpAllocatedChoiceSets();
2593     wxLogDebug(wxT("\\-> Don't worry, this is perfectly normal in this sample."));
2594 #endif*/
2595
2596     Close(false);
2597 }
2598
2599 // -----------------------------------------------------------------------
2600
2601 int IterateMessage( wxPGProperty* prop )
2602 {
2603     wxString s;
2604
2605     s.Printf( wxT("\"%s\" class = %s, valuetype = %s"), prop->GetLabel().c_str(),
2606         prop->GetClassInfo()->GetClassName(), prop->GetValueType().c_str() );
2607
2608     return wxMessageBox( s, wxT("Iterating... (press CANCEL to end)"), wxOK|wxCANCEL );
2609 }
2610
2611 // -----------------------------------------------------------------------
2612
2613 void FormMain::OnIterate1Click( wxCommandEvent& WXUNUSED(event) )
2614 {
2615     wxPropertyGridIterator it;
2616
2617     for ( it = m_pPropGridManager->GetCurrentPage()->
2618             GetIterator();
2619           !it.AtEnd();
2620           it++ )
2621     {
2622         wxPGProperty* p = *it;
2623         int res = IterateMessage( p );
2624         if ( res == wxCANCEL ) break;
2625     }
2626 }
2627
2628 // -----------------------------------------------------------------------
2629
2630 void FormMain::OnIterate2Click( wxCommandEvent& WXUNUSED(event) )
2631 {
2632     wxPropertyGridIterator it;
2633
2634     for ( it = m_pPropGridManager->GetCurrentPage()->
2635             GetIterator( wxPG_ITERATE_VISIBLE );
2636           !it.AtEnd();
2637           it++ )
2638     {
2639         wxPGProperty* p = *it;
2640
2641         int res = IterateMessage( p );
2642         if ( res == wxCANCEL ) break;
2643     }
2644 }
2645
2646 // -----------------------------------------------------------------------
2647
2648 void FormMain::OnIterate3Click( wxCommandEvent& WXUNUSED(event) )
2649 {
2650     // iterate over items in reverse order
2651     wxPropertyGridIterator it;
2652
2653     for ( it = m_pPropGridManager->GetCurrentPage()->
2654                 GetIterator( wxPG_ITERATE_DEFAULT, wxBOTTOM );
2655           !it.AtEnd();
2656           it-- )
2657     {
2658         wxPGProperty* p = *it;
2659
2660         int res = IterateMessage( p );
2661         if ( res == wxCANCEL ) break;
2662     }
2663 }
2664
2665 // -----------------------------------------------------------------------
2666
2667 void FormMain::OnIterate4Click( wxCommandEvent& WXUNUSED(event) )
2668 {
2669     wxPropertyGridIterator it;
2670
2671     for ( it = m_pPropGridManager->GetCurrentPage()->
2672             GetIterator( wxPG_ITERATE_CATEGORIES );
2673           !it.AtEnd();
2674           it++ )
2675     {
2676         wxPGProperty* p = *it;
2677
2678         int res = IterateMessage( p );
2679         if ( res == wxCANCEL ) break;
2680     }
2681 }
2682
2683 // -----------------------------------------------------------------------
2684
2685 void FormMain::OnExtendedKeyNav( wxCommandEvent& WXUNUSED(event) )
2686 {
2687     // Use AddActionTrigger() and DedicateKey() to set up Enter,
2688     // Up, and Down keys for navigating between properties.
2689     wxPropertyGrid* propGrid = m_pPropGridManager->GetGrid();
2690
2691     propGrid->AddActionTrigger(wxPG_ACTION_NEXT_PROPERTY,
2692                                WXK_RETURN);
2693     propGrid->DedicateKey(WXK_RETURN);
2694
2695     // Up and Down keys are alredy associated with navigation,
2696     // but we must also prevent them from being eaten by
2697     // editor controls.
2698     propGrid->DedicateKey(WXK_UP);
2699     propGrid->DedicateKey(WXK_DOWN);
2700 }
2701
2702 // -----------------------------------------------------------------------
2703
2704 void FormMain::OnFitColumnsClick( wxCommandEvent& WXUNUSED(event) )
2705 {
2706     wxPropertyGridPage* page = m_pPropGridManager->GetCurrentPage();
2707
2708     // Remove auto-centering
2709     m_pPropGridManager->SetWindowStyle( m_pPropGridManager->GetWindowStyle() & ~wxPG_SPLITTER_AUTO_CENTER);
2710
2711     // Grow manager size just prior fit - otherwise
2712     // column information may be lost.
2713     wxSize oldGridSize = m_pPropGridManager->GetGrid()->GetClientSize();
2714     wxSize oldFullSize = GetSize();
2715     SetSize(1000, oldFullSize.y);
2716
2717     wxSize newSz = page->FitColumns();
2718
2719     int dx = oldFullSize.x - oldGridSize.x;
2720     int dy = oldFullSize.y - oldGridSize.y;
2721
2722     newSz.x += dx;
2723     newSz.y += dy;
2724
2725     SetSize(newSz);
2726 }
2727
2728 // -----------------------------------------------------------------------
2729
2730 void FormMain::OnChangeFlagsPropItemsClick( wxCommandEvent& WXUNUSED(event) )
2731 {
2732     wxPGProperty* p = m_pPropGridManager->GetPropertyByName(wxT("Window Styles"));
2733
2734     wxPGChoices newChoices;
2735
2736     newChoices.Add(wxT("Fast"),0x1);
2737     newChoices.Add(wxT("Powerful"),0x2);
2738     newChoices.Add(wxT("Safe"),0x4);
2739     newChoices.Add(wxT("Sleek"),0x8);
2740
2741     p->SetChoices(newChoices);
2742 }
2743
2744 // -----------------------------------------------------------------------
2745
2746 void FormMain::OnEnableDisable( wxCommandEvent& )
2747 {
2748     wxPGProperty* id = m_pPropGridManager->GetGrid()->GetSelection();
2749     if ( !id )
2750     {
2751         wxMessageBox(wxT("First select a property."));
2752         return;
2753     }
2754
2755     if ( m_pPropGridManager->IsPropertyEnabled( id ) )
2756     {
2757         m_pPropGridManager->DisableProperty ( id );
2758         m_itemEnable->SetItemLabel( wxT("Enable") );
2759     }
2760     else
2761     {
2762         m_pPropGridManager->EnableProperty ( id );
2763         m_itemEnable->SetItemLabel( wxT("Disable") );
2764     }
2765 }
2766
2767 // -----------------------------------------------------------------------
2768
2769 void FormMain::OnSetReadOnly( wxCommandEvent& WXUNUSED(event) )
2770 {
2771     wxPGProperty* p = m_pPropGridManager->GetGrid()->GetSelection();
2772     if ( !p )
2773     {
2774         wxMessageBox(wxT("First select a property."));
2775         return;
2776     }
2777     m_pPropGridManager->SetPropertyReadOnly(p);
2778 }
2779
2780 // -----------------------------------------------------------------------
2781
2782 void FormMain::OnHide( wxCommandEvent& WXUNUSED(event) )
2783 {
2784     wxPGProperty* id = m_pPropGridManager->GetGrid()->GetSelection();
2785     if ( !id )
2786     {
2787         wxMessageBox(wxT("First select a property."));
2788         return;
2789     }
2790
2791     m_pPropGridManager->HideProperty( id, true );
2792 }
2793
2794 // -----------------------------------------------------------------------
2795
2796 #include "wx/colordlg.h"
2797
2798 void
2799 FormMain::OnSetBackgroundColour( wxCommandEvent& event )
2800 {
2801     wxPropertyGrid* pg = m_pPropGridManager->GetGrid();
2802     wxPGProperty* prop = pg->GetSelection();
2803     if ( !prop )
2804     {
2805         wxMessageBox(wxT("First select a property."));
2806         return;
2807     }
2808
2809     wxColour col = ::wxGetColourFromUser(this, *wxWHITE, "Choose colour");
2810
2811     if ( col.IsOk() )
2812     {
2813         bool recursively = (event.GetId()==ID_SETBGCOLOURRECUR) ? true : false;
2814         pg->SetPropertyBackgroundColour(prop, col, recursively);
2815     }
2816 }
2817
2818 // -----------------------------------------------------------------------
2819
2820 void FormMain::OnInsertPage( wxCommandEvent& WXUNUSED(event) )
2821 {
2822     m_pPropGridManager->AddPage(wxT("New Page"));
2823 }
2824
2825 // -----------------------------------------------------------------------
2826
2827 void FormMain::OnRemovePage( wxCommandEvent& WXUNUSED(event) )
2828 {
2829     m_pPropGridManager->RemovePage(m_pPropGridManager->GetSelectedPage());
2830 }
2831
2832 // -----------------------------------------------------------------------
2833
2834 void FormMain::OnSaveState( wxCommandEvent& WXUNUSED(event) )
2835 {
2836     m_savedState = m_pPropGridManager->SaveEditableState();
2837     wxLogDebug(wxT("Saved editable state string: \"%s\""), m_savedState.c_str());
2838 }
2839
2840 // -----------------------------------------------------------------------
2841
2842 void FormMain::OnRestoreState( wxCommandEvent& WXUNUSED(event) )
2843 {
2844     m_pPropGridManager->RestoreEditableState(m_savedState);
2845 }
2846
2847 // -----------------------------------------------------------------------
2848
2849 void FormMain::OnSetSpinCtrlEditorClick( wxCommandEvent& WXUNUSED(event) )
2850 {
2851 #if wxUSE_SPINBTN
2852     wxPGProperty* pgId = m_pPropGridManager->GetSelection();
2853     if ( pgId )
2854         m_pPropGridManager->SetPropertyEditor( pgId, wxPGEditor_SpinCtrl );
2855     else
2856         wxMessageBox(wxT("First select a property"));
2857 #endif
2858 }
2859
2860 // -----------------------------------------------------------------------
2861
2862 void FormMain::OnTestReplaceClick( wxCommandEvent& WXUNUSED(event) )
2863 {
2864     wxPGProperty* pgId = m_pPropGridManager->GetSelection();
2865     if ( pgId )
2866     {
2867         wxPGChoices choices;
2868         choices.Add(wxT("Flag 0"),0x0001);
2869         choices.Add(wxT("Flag 1"),0x0002);
2870         choices.Add(wxT("Flag 2"),0x0004);
2871         choices.Add(wxT("Flag 3"),0x0008);
2872         wxPGProperty* newId = m_pPropGridManager->ReplaceProperty( pgId,
2873             new wxFlagsProperty(wxT("ReplaceFlagsProperty"), wxPG_LABEL, choices, 0x0003) );
2874         m_pPropGridManager->SetPropertyAttribute( newId,
2875                                               wxPG_BOOL_USE_CHECKBOX,
2876                                               true,
2877                                               wxPG_RECURSE );
2878     }
2879     else
2880         wxMessageBox(wxT("First select a property"));
2881 }
2882
2883 // -----------------------------------------------------------------------
2884
2885 void FormMain::OnClearModifyStatusClick( wxCommandEvent& WXUNUSED(event) )
2886 {
2887     m_pPropGridManager->ClearModifiedStatus();
2888 }
2889
2890 // -----------------------------------------------------------------------
2891
2892 // Freeze check-box checked?
2893 void FormMain::OnFreezeClick( wxCommandEvent& event )
2894 {
2895     if ( !m_pPropGridManager ) return;
2896
2897     if ( event.IsChecked() )
2898     {
2899         if ( !m_pPropGridManager->IsFrozen() )
2900         {
2901             m_pPropGridManager->Freeze();
2902         }
2903     }
2904     else
2905     {
2906         if ( m_pPropGridManager->IsFrozen() )
2907         {
2908             m_pPropGridManager->Thaw();
2909             m_pPropGridManager->Refresh();
2910         }
2911     }
2912 }
2913
2914 // -----------------------------------------------------------------------
2915
2916 void FormMain::OnEnableLabelEditing( wxCommandEvent& WXUNUSED(event) )
2917 {
2918     m_propGrid->MakeColumnEditable(0);
2919 }
2920
2921 // -----------------------------------------------------------------------
2922
2923 void FormMain::OnShowHeader( wxCommandEvent& event )
2924 {
2925     m_pPropGridManager->ShowHeader(event.IsChecked());
2926     m_pPropGridManager->SetColumnTitle(2, _("Units"));
2927 }
2928
2929 // -----------------------------------------------------------------------
2930
2931 void FormMain::OnAbout(wxCommandEvent& WXUNUSED(event))
2932 {
2933     wxString msg;
2934     msg.Printf( wxT("wxPropertyGrid Sample")
2935 #if wxUSE_UNICODE
2936   #if defined(wxUSE_UNICODE_UTF8) && wxUSE_UNICODE_UTF8
2937                 wxT(" <utf-8>")
2938   #else
2939                 wxT(" <unicode>")
2940   #endif
2941 #else
2942                 wxT(" <ansi>")
2943 #endif
2944 #ifdef __WXDEBUG__
2945                 wxT(" <debug>")
2946 #else
2947                 wxT(" <release>")
2948 #endif
2949                 wxT("\n\n")
2950                 wxT("Programmed by %s\n\n")
2951                 wxT("Using %s\n\n"),
2952             wxT("Jaakko Salli"), wxVERSION_STRING
2953             );
2954
2955     wxMessageBox(msg, wxT("About"), wxOK | wxICON_INFORMATION, this);
2956 }
2957
2958 // -----------------------------------------------------------------------
2959
2960 void FormMain::OnColourScheme( wxCommandEvent& event )
2961 {
2962     int id = event.GetId();
2963     if ( id == ID_COLOURSCHEME1 )
2964     {
2965         m_pPropGridManager->GetGrid()->ResetColours();
2966     }
2967     else if ( id == ID_COLOURSCHEME2 )
2968     {
2969         // white
2970         wxColour my_grey_1(212,208,200);
2971         wxColour my_grey_3(113,111,100);
2972         m_pPropGridManager->Freeze();
2973         m_pPropGridManager->GetGrid()->SetMarginColour( *wxWHITE );
2974         m_pPropGridManager->GetGrid()->SetCaptionBackgroundColour( *wxWHITE );
2975         m_pPropGridManager->GetGrid()->SetCellBackgroundColour( *wxWHITE );
2976         m_pPropGridManager->GetGrid()->SetCellTextColour( my_grey_3 );
2977         m_pPropGridManager->GetGrid()->SetLineColour( my_grey_1 ); //wxColour(160,160,160)
2978         m_pPropGridManager->Thaw();
2979     }
2980     else if ( id == ID_COLOURSCHEME3 )
2981     {
2982         // .NET
2983         wxColour my_grey_1(212,208,200);
2984         wxColour my_grey_2(236,233,216);
2985         m_pPropGridManager->Freeze();
2986         m_pPropGridManager->GetGrid()->SetMarginColour( my_grey_1 );
2987         m_pPropGridManager->GetGrid()->SetCaptionBackgroundColour( my_grey_1 );
2988         m_pPropGridManager->GetGrid()->SetLineColour( my_grey_1 );
2989         m_pPropGridManager->Thaw();
2990     }
2991     else if ( id == ID_COLOURSCHEME4 )
2992     {
2993         // cream
2994
2995         wxColour my_grey_1(212,208,200);
2996         wxColour my_grey_2(241,239,226);
2997         wxColour my_grey_3(113,111,100);
2998         m_pPropGridManager->Freeze();
2999         m_pPropGridManager->GetGrid()->SetMarginColour( *wxWHITE );
3000         m_pPropGridManager->GetGrid()->SetCaptionBackgroundColour( *wxWHITE );
3001         m_pPropGridManager->GetGrid()->SetCellBackgroundColour( my_grey_2 );
3002         m_pPropGridManager->GetGrid()->SetCellBackgroundColour( my_grey_2 );
3003         m_pPropGridManager->GetGrid()->SetCellTextColour( my_grey_3 );
3004         m_pPropGridManager->GetGrid()->SetLineColour( my_grey_1 );
3005         m_pPropGridManager->Thaw();
3006     }
3007 }
3008
3009 // -----------------------------------------------------------------------
3010
3011 void FormMain::OnCatColours( wxCommandEvent& event )
3012 {
3013     wxPropertyGrid* pg = m_pPropGridManager->GetGrid();
3014     m_pPropGridManager->Freeze();
3015
3016     if ( event.IsChecked() )
3017     {
3018         // Set custom colours.
3019         pg->SetPropertyTextColour( wxT("Appearance"), wxColour(255,0,0), false );
3020         pg->SetPropertyBackgroundColour( wxT("Appearance"), wxColour(255,255,183) );
3021         pg->SetPropertyTextColour( wxT("Appearance"), wxColour(255,0,183) );
3022         pg->SetPropertyTextColour( wxT("PositionCategory"), wxColour(0,255,0), false );
3023         pg->SetPropertyBackgroundColour( wxT("PositionCategory"), wxColour(255,226,190) );
3024         pg->SetPropertyTextColour( wxT("PositionCategory"), wxColour(255,0,190) );
3025         pg->SetPropertyTextColour( wxT("Environment"), wxColour(0,0,255), false );
3026         pg->SetPropertyBackgroundColour( wxT("Environment"), wxColour(208,240,175) );
3027         pg->SetPropertyTextColour( wxT("Environment"), wxColour(255,255,255) );
3028         pg->SetPropertyBackgroundColour( wxT("More Examples"), wxColour(172,237,255) );
3029         pg->SetPropertyTextColour( wxT("More Examples"), wxColour(172,0,255) );
3030     }
3031     else
3032     {
3033         // Revert to original.
3034         pg->SetPropertyColoursToDefault( wxT("Appearance") );
3035         pg->SetPropertyColoursToDefault( wxT("PositionCategory") );
3036         pg->SetPropertyColoursToDefault( wxT("Environment") );
3037         pg->SetPropertyColoursToDefault( wxT("More Examples") );
3038     }
3039     m_pPropGridManager->Thaw();
3040     m_pPropGridManager->Refresh();
3041 }
3042
3043 // -----------------------------------------------------------------------
3044
3045 #define ADD_FLAG(FLAG) \
3046         chs.Add(wxT(#FLAG)); \
3047         vls.Add(FLAG); \
3048         if ( (flags & FLAG) == FLAG ) sel.Add(ind); \
3049         ind++;
3050
3051 void FormMain::OnSelectStyle( wxCommandEvent& WXUNUSED(event) )
3052 {
3053     int style = 0;
3054     int extraStyle = 0;
3055
3056     {
3057         wxArrayString chs;
3058         wxArrayInt vls;
3059         wxArrayInt sel;
3060         unsigned int ind = 0;
3061         int flags = m_pPropGridManager->GetWindowStyle();
3062         ADD_FLAG(wxPG_HIDE_CATEGORIES)
3063         ADD_FLAG(wxPG_AUTO_SORT)
3064         ADD_FLAG(wxPG_BOLD_MODIFIED)
3065         ADD_FLAG(wxPG_SPLITTER_AUTO_CENTER)
3066         ADD_FLAG(wxPG_TOOLTIPS)
3067         ADD_FLAG(wxPG_STATIC_SPLITTER)
3068         ADD_FLAG(wxPG_HIDE_MARGIN)
3069         ADD_FLAG(wxPG_LIMITED_EDITING)
3070         ADD_FLAG(wxPG_TOOLBAR)
3071         ADD_FLAG(wxPG_DESCRIPTION)
3072         ADD_FLAG(wxPG_NO_INTERNAL_BORDER)
3073         wxMultiChoiceDialog dlg( this, wxT("Select window styles to use"),
3074                                  wxT("wxPropertyGrid Window Style"), chs );
3075         dlg.SetSelections(sel);
3076         if ( dlg.ShowModal() == wxID_CANCEL )
3077             return;
3078
3079         flags = 0;
3080         sel = dlg.GetSelections();
3081         for ( ind = 0; ind < sel.size(); ind++ )
3082             flags |= vls[sel[ind]];
3083
3084         style = flags;
3085     }
3086
3087     {
3088         wxArrayString chs;
3089         wxArrayInt vls;
3090         wxArrayInt sel;
3091         unsigned int ind = 0;
3092         int flags = m_pPropGridManager->GetExtraStyle();
3093         ADD_FLAG(wxPG_EX_INIT_NOCAT)
3094         ADD_FLAG(wxPG_EX_NO_FLAT_TOOLBAR)
3095         ADD_FLAG(wxPG_EX_MODE_BUTTONS)
3096         ADD_FLAG(wxPG_EX_HELP_AS_TOOLTIPS)
3097         ADD_FLAG(wxPG_EX_NATIVE_DOUBLE_BUFFERING)
3098         ADD_FLAG(wxPG_EX_AUTO_UNSPECIFIED_VALUES)
3099         ADD_FLAG(wxPG_EX_WRITEONLY_BUILTIN_ATTRIBUTES)
3100         ADD_FLAG(wxPG_EX_HIDE_PAGE_BUTTONS)
3101         ADD_FLAG(wxPG_EX_MULTIPLE_SELECTION)
3102         ADD_FLAG(wxPG_EX_ENABLE_TLP_TRACKING)
3103         ADD_FLAG(wxPG_EX_NO_TOOLBAR_DIVIDER)
3104         ADD_FLAG(wxPG_EX_TOOLBAR_SEPARATOR)
3105         wxMultiChoiceDialog dlg( this, wxT("Select extra window styles to use"),
3106                                  wxT("wxPropertyGrid Extra Style"), chs );
3107         dlg.SetSelections(sel);
3108         if ( dlg.ShowModal() == wxID_CANCEL )
3109             return;
3110
3111         flags = 0;
3112         sel = dlg.GetSelections();
3113         for ( ind = 0; ind < sel.size(); ind++ )
3114             flags |= vls[sel[ind]];
3115
3116         extraStyle = flags;
3117     }
3118
3119     CreateGrid( style, extraStyle );
3120
3121     FinalizeFramePosition();
3122 }
3123
3124 // -----------------------------------------------------------------------
3125
3126 void FormMain::OnSetColumns( wxCommandEvent& WXUNUSED(event) )
3127 {
3128     long colCount = ::wxGetNumberFromUser(wxT("Enter number of columns (2-20)."),wxT("Columns:"),
3129                                           wxT("Change Columns"),m_pPropGridManager->GetColumnCount(),
3130                                           2,20);
3131
3132     if ( colCount >= 2 )
3133     {
3134         m_pPropGridManager->SetColumnCount(colCount);
3135     }
3136 }
3137
3138 // -----------------------------------------------------------------------
3139
3140 void FormMain::OnSetPropertyValue( wxCommandEvent& WXUNUSED(event) )
3141 {
3142     wxPropertyGrid* pg = m_pPropGridManager->GetGrid();
3143     wxPGProperty* selected = pg->GetSelection();
3144
3145     if ( selected )
3146     {
3147         wxString value = ::wxGetTextFromUser( wxT("Enter new value:") );
3148         pg->SetPropertyValue( selected, value );
3149     }
3150 }
3151
3152 // -----------------------------------------------------------------------
3153
3154 void FormMain::OnInsertChoice( wxCommandEvent& WXUNUSED(event) )
3155 {
3156     wxPropertyGrid* pg = m_pPropGridManager->GetGrid();
3157
3158     wxPGProperty* selected = pg->GetSelection();
3159     const wxPGChoices& choices = selected->GetChoices();
3160
3161     // Insert new choice to the center of list
3162
3163     if ( choices.IsOk() )
3164     {
3165         int pos = choices.GetCount() / 2;
3166         selected->InsertChoice(wxT("New Choice"), pos);
3167     }
3168     else
3169     {
3170         ::wxMessageBox(wxT("First select a property with some choices."));
3171     }
3172 }
3173
3174 // -----------------------------------------------------------------------
3175
3176 void FormMain::OnDeleteChoice( wxCommandEvent& WXUNUSED(event) )
3177 {
3178     wxPropertyGrid* pg = m_pPropGridManager->GetGrid();
3179
3180     wxPGProperty* selected = pg->GetSelection();
3181     const wxPGChoices& choices = selected->GetChoices();
3182
3183     // Deletes choice from the center of list
3184
3185     if ( choices.IsOk() )
3186     {
3187         int pos = choices.GetCount() / 2;
3188         selected->DeleteChoice(pos);
3189     }
3190     else
3191     {
3192         ::wxMessageBox(wxT("First select a property with some choices."));
3193     }
3194 }
3195
3196 // -----------------------------------------------------------------------
3197
3198 #include <wx/colordlg.h>
3199
3200 void FormMain::OnMisc ( wxCommandEvent& event )
3201 {
3202     int id = event.GetId();
3203     if ( id == ID_STATICLAYOUT )
3204     {
3205         long wsf = m_pPropGridManager->GetWindowStyleFlag();
3206         if ( event.IsChecked() ) m_pPropGridManager->SetWindowStyleFlag( wsf|wxPG_STATIC_LAYOUT );
3207         else m_pPropGridManager->SetWindowStyleFlag( wsf&~(wxPG_STATIC_LAYOUT) );
3208     }
3209     else if ( id == ID_COLLAPSEALL )
3210     {
3211         wxPGVIterator it;
3212         wxPropertyGrid* pg = m_pPropGridManager->GetGrid();
3213
3214         for ( it = pg->GetVIterator( wxPG_ITERATE_ALL ); !it.AtEnd(); it.Next() )
3215             it.GetProperty()->SetExpanded( false );
3216
3217         pg->RefreshGrid();
3218     }
3219     else if ( id == ID_GETVALUES )
3220     {
3221         m_storedValues = m_pPropGridManager->GetGrid()->GetPropertyValues(wxT("Test"),
3222                                                                       m_pPropGridManager->GetGrid()->GetRoot(),
3223                                                                       wxPG_KEEP_STRUCTURE|wxPG_INC_ATTRIBUTES);
3224     }
3225     else if ( id == ID_SETVALUES )
3226     {
3227         if ( m_storedValues.GetType() == wxT("list") )
3228         {
3229             m_pPropGridManager->GetGrid()->SetPropertyValues(m_storedValues);
3230         }
3231         else
3232             wxMessageBox(wxT("First use Get Property Values."));
3233     }
3234     else if ( id == ID_SETVALUES2 )
3235     {
3236         wxVariant list;
3237         list.NullList();
3238         list.Append( wxVariant((long)1234,wxT("VariantLong")) );
3239         list.Append( wxVariant((bool)TRUE,wxT("VariantBool")) );
3240         list.Append( wxVariant(wxT("Test Text"),wxT("VariantString")) );
3241         m_pPropGridManager->GetGrid()->SetPropertyValues(list);
3242     }
3243     else if ( id == ID_COLLAPSE )
3244     {
3245         // Collapses selected.
3246         wxPGProperty* id = m_pPropGridManager->GetSelection();
3247         if ( id )
3248         {
3249             m_pPropGridManager->Collapse(id);
3250         }
3251     }
3252     else if ( id == ID_RUNTESTFULL )
3253     {
3254         // Runs a regression test.
3255         RunTests(true);
3256     }
3257     else if ( id == ID_RUNTESTPARTIAL )
3258     {
3259         // Runs a regression test.
3260         RunTests(false);
3261     }
3262     else if ( id == ID_UNSPECIFY )
3263     {
3264         wxPGProperty* prop = m_pPropGridManager->GetSelection();
3265         if ( prop )
3266         {
3267             m_pPropGridManager->SetPropertyValueUnspecified(prop);
3268             prop->RefreshEditor();
3269         }
3270     }
3271 }
3272
3273 // -----------------------------------------------------------------------
3274
3275 void FormMain::OnPopulateClick( wxCommandEvent& event )
3276 {
3277     int id = event.GetId();
3278     m_propGrid->Clear();
3279     m_propGrid->Freeze();
3280     if ( id == ID_POPULATE1 )
3281     {
3282         PopulateWithStandardItems();
3283     }
3284     else if ( id == ID_POPULATE2 )
3285     {
3286         PopulateWithLibraryConfig();
3287     }
3288     m_propGrid->Thaw();
3289 }
3290
3291 // -----------------------------------------------------------------------
3292
3293 void DisplayMinimalFrame(wxWindow* parent);  // in minimal.cpp
3294
3295 void FormMain::OnRunMinimalClick( wxCommandEvent& WXUNUSED(event) )
3296 {
3297     DisplayMinimalFrame(this);
3298 }
3299
3300 // -----------------------------------------------------------------------
3301
3302 FormMain::~FormMain()
3303 {
3304 }
3305
3306 // -----------------------------------------------------------------------
3307
3308 IMPLEMENT_APP(cxApplication)
3309
3310 bool cxApplication::OnInit()
3311 {
3312     //wxLocale Locale;
3313     //Locale.Init(wxLANGUAGE_FINNISH);
3314
3315     FormMain* frame = Form1 = new FormMain( wxT("wxPropertyGrid Sample"), wxPoint(0,0), wxSize(300,500) );
3316     frame->Show(true);
3317
3318     //
3319     // Parse command-line
3320     wxApp& app = wxGetApp();
3321     if ( app.argc > 1 )
3322     {
3323         wxString s = app.argv[1];
3324         if ( s == wxT("--run-tests") )
3325         {
3326             //
3327             // Run tests
3328             bool testResult = frame->RunTests(true);
3329
3330             if ( testResult )
3331                 return false;
3332         }
3333     }
3334
3335     return true;
3336 }
3337
3338 // -----------------------------------------------------------------------
3339
3340 void FormMain::OnIdle( wxIdleEvent& event )
3341 {
3342     /*
3343     // This code is useful for debugging focus problems
3344     static wxWindow* last_focus = (wxWindow*) NULL;
3345
3346     wxWindow* cur_focus = ::wxWindow::FindFocus();
3347
3348     if ( cur_focus != last_focus )
3349     {
3350         const wxChar* class_name = wxT("<none>");
3351         if ( cur_focus )
3352             class_name = cur_focus->GetClassInfo()->GetClassName();
3353         last_focus = cur_focus;
3354         wxLogDebug( wxT("FOCUSED: %s %X"),
3355             class_name,
3356             (unsigned int)cur_focus);
3357     }
3358     */
3359
3360     event.Skip();
3361 }
3362
3363 // -----------------------------------------------------------------------