samples/dialogs/dialogs.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        dialogs.cpp
   3 // Purpose:     Common dialogs demo
   4 // Author:      Julian Smart
   5 // Modified by:
   6 // Created:     04/01/98
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) Julian Smart and Markus Holzem
   9 // Licence:     wxWindows license
  10 /////////////////////////////////////////////////////////////////////////////
  11
  12 #ifdef __GNUG__
  13 #pragma implementation
  14 #pragma interface
  15 #endif
  16
  17 // For compilers that support precompilation, includes "wx/wx.h".
  18 #include "wx/wxprec.h"
  19
  20 #ifdef __BORLANDC__
  21 #pragma hdrstop
  22 #endif
  23
  24 #ifndef WX_PRECOMP
  25 #include "wx/wx.h"
  26 #endif
  27
  28 #include "wx/colordlg.h"
  29 #include "wx/filedlg.h"
  30 #include "wx/dirdlg.h"
  31 #include "wx/fontdlg.h"
  32 #include "wx/choicdlg.h"
  33 #include "wx/tipdlg.h"
  34
  35 #define wxTEST_GENERIC_DIALOGS_IN_MSW 0
  36
  37 #if defined(__WXMSW__) && wxTEST_GENERIC_DIALOGS_IN_MSW
  38 #include <wx/generic/colrdlgg.h>
  39 #include <wx/generic/fontdlgg.h>
  40 #endif
  41
  42 #include "dialogs.h"
  43
  44 IMPLEMENT_APP(MyApp)
  45
  46 MyCanvas *myCanvas = (MyCanvas *) NULL;
  47
  48 // `Main program' equivalent, creating windows and returning main app frame
  49 bool MyApp::OnInit(void)
  50 {
  51 #if defined(__WXGTK__) && defined(wxUSE_UNICODE)
  52   wxConvCurrent = &wxConvLibc;
  53 #endif
  54
  55   m_canvasTextColour = wxColour("BLACK");
  56   m_canvasFont = *wxNORMAL_FONT;
  57
  58   // Create the main frame window
  59   MyFrame *frame = new MyFrame((wxFrame *) NULL, (char *) "wxWindows dialogs example", wxPoint(20, 20), wxSize(400, 300));
  60
  61   // Make a menubar
  62   wxMenu *file_menu = new wxMenu;
  63
  64   file_menu->Append(DIALOGS_CHOOSE_COLOUR, "&Choose colour");
  65
  66 #if defined(__WXMSW__) && wxTEST_GENERIC_DIALOGS_IN_MSW
  67   file_menu->Append(DIALOGS_CHOOSE_COLOUR_GENERIC, "Choose colour (&generic)");
  68 #endif
  69
  70   file_menu->AppendSeparator();
  71   file_menu->Append(DIALOGS_CHOOSE_FONT, "Choose &font");
  72
  73 #if defined(__WXMSW__) && wxTEST_GENERIC_DIALOGS_IN_MSW
  74   file_menu->Append(DIALOGS_CHOOSE_FONT_GENERIC, "Choose f&ont (generic)");
  75
  76 #endif
  77   file_menu->AppendSeparator();
  78   file_menu->Append(DIALOGS_MESSAGE_BOX, "&Message box");
  79   file_menu->Append(DIALOGS_TEXT_ENTRY,  "Text &entry");
  80   file_menu->Append(DIALOGS_NUM_ENTRY, "&Numeric entry\tCtrl-N");
  81   file_menu->Append(DIALOGS_SINGLE_CHOICE,  "&Single choice");
  82   file_menu->AppendSeparator();
  83   file_menu->Append(DIALOGS_TIP,  "&Tip of the day");
  84   file_menu->AppendSeparator();
  85   file_menu->Append(DIALOGS_FILE_OPEN,  "&Open file");
  86   file_menu->Append(DIALOGS_FILE_SAVE,  "Sa&ve file");
  87   file_menu->Append(DIALOGS_DIR_CHOOSE,  "&Choose a directory");
  88   file_menu->AppendSeparator();
  89   file_menu->Append(wxID_EXIT, "E&xit");
  90   wxMenuBar *menu_bar = new wxMenuBar;
  91   menu_bar->Append(file_menu, "&File");
  92   frame->SetMenuBar(menu_bar);
  93
  94   myCanvas = new MyCanvas(frame);
  95   myCanvas->SetBackgroundColour(*wxWHITE);
  96
  97   frame->Centre(wxBOTH);
  98
  99   // Show the frame
 100   frame->Show(TRUE);
 101
 102   SetTopWindow(frame);
 103
 104   return TRUE;
 105 }
 106
 107 // My frame constructor
 108 MyFrame::MyFrame(wxWindow *parent, const wxString& title, const wxPoint& pos, const wxSize& size):
 109   wxFrame(parent, -1, title, pos, size)
 110 {}
 111
 112 void MyFrame::ChooseColour(wxCommandEvent& WXUNUSED(event) )
 113 {
 114       wxColourData data;
 115       data.SetChooseFull(TRUE);
 116       for (int i = 0; i < 16; i++)
 117       {
 118         wxColour colour(i*16, i*16, i*16);
 119         data.SetCustomColour(i, colour);
 120       }
 121
 122       wxColourDialog *dialog = new wxColourDialog(this, &data);
 123       if (dialog->ShowModal() == wxID_OK)
 124       {
 125         wxColourData retData = dialog->GetColourData();
 126         wxColour col = retData.GetColour();
 127 //        wxBrush *brush = wxTheBrushList->FindOrCreateBrush(&col, wxSOLID);
 128         myCanvas->SetBackgroundColour(col);
 129         myCanvas->Clear();
 130         myCanvas->Refresh();
 131       }
 132       dialog->Destroy();
 133 }
 134
 135 void MyFrame::ChooseFont(wxCommandEvent& WXUNUSED(event) )
 136 {
 137       wxFontData data;
 138       data.SetInitialFont(wxGetApp().m_canvasFont);
 139       data.SetColour(wxGetApp().m_canvasTextColour);
 140
 141       wxFontDialog *dialog = new wxFontDialog(this, &data);
 142       if (dialog->ShowModal() == wxID_OK)
 143       {
 144         wxFontData retData = dialog->GetFontData();
 145         wxGetApp().m_canvasFont = retData.GetChosenFont();
 146         wxGetApp().m_canvasTextColour = retData.GetColour();
 147         myCanvas->Refresh();
 148       }
 149       dialog->Destroy();
 150 }
 151
 152 #if defined(__WXMSW__) && wxTEST_GENERIC_DIALOGS_IN_MSW
 153 void MyFrame::ChooseColourGeneric(wxCommandEvent& WXUNUSED(event))
 154 {
 155       wxColourData data;
 156       data.SetChooseFull(TRUE);
 157       for (int i = 0; i < 16; i++)
 158       {
 159         wxColour colour(i*16, i*16, i*16);
 160         data.SetCustomColour(i, colour);
 161       }
 162
 163       wxGenericColourDialog *dialog = new wxGenericColourDialog(this, &data);
 164       if (dialog->ShowModal() == wxID_OK)
 165       {
 166         wxColourData retData = dialog->GetColourData();
 167         wxColour col = retData.GetColour();
 168 //        wxBrush *brush = wxTheBrushList->FindOrCreateBrush(&col, wxSOLID);
 169         myCanvas->SetBackgroundColour(col);
 170         myCanvas->Clear();
 171         myCanvas->Refresh();
 172       }
 173       dialog->Destroy();
 174 }
 175
 176 void MyFrame::ChooseFontGeneric(wxCommandEvent& WXUNUSED(event) )
 177 {
 178       wxFontData data;
 179       data.SetInitialFont(wxGetApp().m_canvasFont);
 180       data.SetColour(wxGetApp().m_canvasTextColour);
 181
 182       wxGenericFontDialog *dialog = new wxGenericFontDialog(this, &data);
 183       if (dialog->ShowModal() == wxID_OK)
 184       {
 185         wxFontData retData = dialog->GetFontData();
 186         wxGetApp().m_canvasFont = retData.GetChosenFont();
 187         wxGetApp().m_canvasTextColour = retData.GetColour();
 188         myCanvas->Refresh();
 189       }
 190       dialog->Destroy();
 191 }
 192 #endif
 193
 194 void MyFrame::MessageBox(wxCommandEvent& WXUNUSED(event) )
 195 {
 196   wxMessageDialog dialog( this, "This is a message box\nA long, long string to test out the message box properly",
 197       "Message box text", wxYES_NO|wxCANCEL|wxICON_INFORMATION);
 198
 199   dialog.ShowModal();
 200 }
 201
 202 void MyFrame::NumericEntry(wxCommandEvent& WXUNUSED(event) )
 203 {
 204     long res = wxGetNumberFromUser( "This is some text, actually a lot of text.\n"
 205                                     "Even two rows of text.",
 206                                     "Enter a number:", "Numeric input test",
 207                                      50, 0, 100, this );
 208
 209     wxString msg;
 210     int icon;
 211     if ( res == -1 )
 212     {
 213         msg = "Invalid number entered or dialog cancelled.";
 214         icon = wxICON_HAND;
 215     }
 216     else
 217     {
 218         msg.Printf(_T("You've entered %lu"), res );
 219         icon = wxICON_INFORMATION;
 220     }
 221
 222     wxMessageBox(msg, "Numeric test result", wxOK | icon, this);
 223 }
 224
 225 void MyFrame::TextEntry(wxCommandEvent& WXUNUSED(event) )
 226 {
 227   wxTextEntryDialog dialog(this, "This is a small sample\nA long, long string to test out the text entrybox",
 228       "Please enter a string", "Default value", wxOK|wxCANCEL);
 229
 230   if (dialog.ShowModal() == wxID_OK)
 231   {
 232     wxMessageDialog dialog2(this, dialog.GetValue(), "Got string");
 233     dialog2.ShowModal();
 234   }
 235 }
 236
 237 void MyFrame::SingleChoice(wxCommandEvent& WXUNUSED(event) )
 238 {
 239     const wxString choices[] = { "One", "Two", "Three", "Four", "Five" } ;
 240     int n = 5;
 241
 242     wxSingleChoiceDialog dialog(this, "This is a small sample\nA single-choice convenience dialog",
 243         "Please select a value", n, (const wxString *)choices);
 244
 245     dialog.SetSelection(2);
 246
 247     if (dialog.ShowModal() == wxID_OK)
 248     {
 249         wxMessageDialog dialog2(this, dialog.GetStringSelection(), "Got string");
 250         dialog2.ShowModal();
 251     }
 252 }
 253
 254 void MyFrame::FileOpen(wxCommandEvent& WXUNUSED(event) )
 255 {
 256     wxFileDialog dialog(this, "Testing open file dialog", "", "", "*.txt", 0);
 257
 258     if (dialog.ShowModal() == wxID_OK)
 259     {
 260         wxString info;
 261         info.Printf(_T("Full file name: %s\n")
 262                     _T("Path: %s\n")
 263                     _T("Name: %s"),
 264                     dialog.GetPath().c_str(),
 265                     dialog.GetDirectory().c_str(),
 266                     dialog.GetFilename().c_str());
 267         wxMessageDialog dialog2(this, info, "Selected file");
 268         dialog2.ShowModal();
 269     }
 270 }
 271
 272 void MyFrame::FileSave(wxCommandEvent& WXUNUSED(event) )
 273 {
 274     wxFileDialog dialog(this, "Testing save file dialog", "", "myletter.txt",
 275         "Text files (*.txt)|*.txt|Document files (*.doc)|*.doc",
 276         wxSAVE|wxOVERWRITE_PROMPT);
 277
 278     if (dialog.ShowModal() == wxID_OK)
 279     {
 280         wxChar buf[400];
 281         wxSprintf(buf, _T("%s, filter %d"), (const wxChar*)dialog.GetPath(), dialog.GetFilterIndex());
 282         wxMessageDialog dialog2(this, wxString(buf), "Selected path");
 283         dialog2.ShowModal();
 284     }
 285 }
 286
 287 void MyFrame::DirChoose(wxCommandEvent& WXUNUSED(event) )
 288 {
 289     // pass some initial dir to wxDirDialog
 290     wxString dirHome;
 291     wxGetHomeDir(&dirHome);
 292
 293     wxDirDialog dialog(this, "Testing directory picker", dirHome);
 294
 295     if (dialog.ShowModal() == wxID_OK)
 296     {
 297         wxMessageDialog dialog2(this, dialog.GetPath(), "Selected path");
 298         dialog2.ShowModal();
 299     }
 300 }
 301
 302 void MyFrame::ShowTip(wxCommandEvent& event)
 303 {
 304 #if wxUSE_STARTUP_TIPS
 305     static size_t s_index = (size_t)-1;
 306
 307     if ( s_index == (size_t)-1 )
 308     {
 309         srand(time(NULL));
 310
 311         // this is completely bogus, we don't know how many lines are there
 312         // in the file, but who cares, it's a demo only...
 313         s_index = rand() % 5;
 314     }
 315
 316     wxTipProvider *tipProvider = wxCreateFileTipProvider("tips.txt", s_index);
 317
 318     bool showAtStartup = wxShowTip(this, tipProvider);
 319
 320     if ( showAtStartup )
 321     {
 322         wxMessageBox("Will show tips on startup", "Tips dialog",
 323                      wxOK | wxICON_INFORMATION, this);
 324     }
 325
 326     s_index = tipProvider->GetCurrentTip();
 327     delete tipProvider;
 328 #endif
 329 }
 330
 331 void MyFrame::OnExit(wxCommandEvent& WXUNUSED(event) )
 332 {
 333     Close(TRUE);
 334 }
 335
 336 void MyCanvas::OnPaint(wxPaintEvent& WXUNUSED(event) )
 337 {
 338     wxPaintDC dc(this);
 339     dc.SetFont(wxGetApp().m_canvasFont);
 340     dc.SetTextForeground(wxGetApp().m_canvasTextColour);
 341     dc.SetBackgroundMode(wxTRANSPARENT);
 342     dc.DrawText("wxWindows common dialogs test application", 10, 10);
 343 }
 344
 345 BEGIN_EVENT_TABLE(MyCanvas, wxScrolledWindow)
 346     EVT_PAINT(MyCanvas::OnPaint)
 347 END_EVENT_TABLE()
 348
 349 BEGIN_EVENT_TABLE(MyFrame, wxFrame)
 350     EVT_MENU(DIALOGS_CHOOSE_COLOUR,                MyFrame::ChooseColour)
 351     EVT_MENU(DIALOGS_CHOOSE_FONT,                MyFrame::ChooseFont)
 352     EVT_MENU(DIALOGS_MESSAGE_BOX,                MyFrame::MessageBox)
 353     EVT_MENU(DIALOGS_TEXT_ENTRY,                MyFrame::TextEntry)
 354     EVT_MENU(DIALOGS_NUM_ENTRY,                MyFrame::NumericEntry)
 355     EVT_MENU(DIALOGS_SINGLE_CHOICE,                MyFrame::SingleChoice)
 356     EVT_MENU(DIALOGS_FILE_OPEN,                    MyFrame::FileOpen)
 357     EVT_MENU(DIALOGS_FILE_SAVE,                    MyFrame::FileSave)
 358     EVT_MENU(DIALOGS_DIR_CHOOSE,                MyFrame::DirChoose)
 359     EVT_MENU(DIALOGS_TIP,                        MyFrame::ShowTip)
 360 #if defined(__WXMSW__) && wxTEST_GENERIC_DIALOGS_IN_MSW
 361     EVT_MENU(DIALOGS_CHOOSE_COLOUR_GENERIC,        MyFrame::ChooseColourGeneric)
 362     EVT_MENU(DIALOGS_CHOOSE_FONT_GENERIC,        MyFrame::ChooseFontGeneric)
 363 #endif
 364     EVT_MENU(wxID_EXIT,                            MyFrame::OnExit)
 365 END_EVENT_TABLE()
 366