samples/font/font.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        font.cpp
   3 // Purpose:     wxFont demo
   4 // Author:      Vadim Zeitlin
   5 // Modified by:
   6 // Created:     30.09.99
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) 1999 Vadim Zeitlin
   9 // Licence:     wxWindows licence
  10 /////////////////////////////////////////////////////////////////////////////
  11
  12 // For compilers that support precompilation, includes "wx/wx.h".
  13 #include "wx/wxprec.h"
  14
  15 #ifdef __BORLANDC__
  16     #pragma hdrstop
  17 #endif
  18
  19 // for all others, include the necessary headers (this file is usually all you
  20 // need because it includes almost all standard wxWidgets headers
  21 #ifndef WX_PRECOMP
  22     #include "wx/wx.h"
  23
  24     #include "wx/log.h"
  25 #endif
  26
  27 #include "wx/choicdlg.h"
  28 #include "wx/fontdlg.h"
  29 #include "wx/fontenum.h"
  30 #include "wx/fontmap.h"
  31 #include "wx/encconv.h"
  32 #include "wx/splitter.h"
  33 #include "wx/textfile.h"
  34 #include "wx/settings.h"
  35
  36 #include "../sample.xpm"
  37
  38 #ifdef __WXMAC__
  39     #undef wxFontDialog
  40     #include "wx/osx/fontdlg.h"
  41 #endif
  42
  43 // used as title for several dialog boxes
  44 static const wxChar SAMPLE_TITLE[] = wxT("wxWidgets Font Sample");
  45
  46 // ----------------------------------------------------------------------------
  47 // private classes
  48 // ----------------------------------------------------------------------------
  49
  50 // Define a new application type, each program should derive a class from wxApp
  51 class MyApp : public wxApp
  52 {
  53 public:
  54     // override base class virtuals
  55     // ----------------------------
  56
  57     // this one is called on application startup and is a good place for the app
  58     // initialization (doing it here and not in the ctor allows to have an error
  59     // return: if OnInit() returns false, the application terminates)
  60     virtual bool OnInit();
  61 };
  62
  63 // MyCanvas is a canvas on which we show the font sample
  64 class MyCanvas: public wxWindow
  65 {
  66 public:
  67     MyCanvas( wxWindow *parent );
  68     virtual ~MyCanvas(){};
  69
  70     // accessors for the frame
  71     const wxFont& GetTextFont() const { return m_font; }
  72     const wxColour& GetColour() const { return m_colour; }
  73     void SetTextFont(const wxFont& font) { m_font = font; }
  74     void SetColour(const wxColour& colour) { m_colour = colour; }
  75
  76     // event handlers
  77     void OnPaint( wxPaintEvent &event );
  78
  79 private:
  80     wxColour m_colour;
  81     wxFont   m_font;
  82
  83     DECLARE_EVENT_TABLE()
  84 };
  85
  86 // Define a new frame type: this is going to be our main frame
  87 class MyFrame : public wxFrame
  88 {
  89 public:
  90     // ctor(s)
  91     MyFrame(const wxString& title, const wxPoint& pos, const wxSize& size);
  92
  93     // accessors
  94     MyCanvas *GetCanvas() const { return m_canvas; }
  95
  96     // event handlers (these functions should _not_ be virtual)
  97     void OnQuit(wxCommandEvent& event);
  98     void OnAbout(wxCommandEvent& event);
  99
 100     void OnIncFont(wxCommandEvent& WXUNUSED(event)) { DoResizeFont(+2); }
 101     void OnDecFont(wxCommandEvent& WXUNUSED(event)) { DoResizeFont(-2); }
 102
 103     void OnBold(wxCommandEvent& event);
 104     void OnLight(wxCommandEvent& event);
 105
 106     void OnItalic(wxCommandEvent& event);
 107     void OnSlant(wxCommandEvent& event);
 108
 109     void OnUnderline(wxCommandEvent& event);
 110
 111     void OnwxPointerFont(wxCommandEvent& event);
 112     void OnwxSystemSettingsFont(wxCommandEvent& event);
 113
 114     void OnTestTextValue(wxCommandEvent& event);
 115     void OnViewMsg(wxCommandEvent& event);
 116     void OnSelectFont(wxCommandEvent& event);
 117     void OnEnumerateFamiliesForEncoding(wxCommandEvent& event);
 118     void OnEnumerateFamilies(wxCommandEvent& WXUNUSED(event))
 119         { DoEnumerateFamilies(false); }
 120     void OnEnumerateFixedFamilies(wxCommandEvent& WXUNUSED(event))
 121         { DoEnumerateFamilies(true); }
 122     void OnEnumerateEncodings(wxCommandEvent& event);
 123
 124     void OnSetNativeDesc(wxCommandEvent& event);
 125     void OnSetNativeUserDesc(wxCommandEvent& event);
 126
 127     void OnSetFamily(wxCommandEvent& event);
 128     void OnSetFaceName(wxCommandEvent& event);
 129     void OnSetEncoding(wxCommandEvent& event);
 130
 131 protected:
 132     bool DoEnumerateFamilies(bool fixedWidthOnly,
 133                              wxFontEncoding encoding = wxFONTENCODING_SYSTEM,
 134                              bool silent = false);
 135
 136     void DoResizeFont(int diff);
 137     void DoChangeFont(const wxFont& font, const wxColour& col = wxNullColour);
 138
 139     // ask the user to choose an encoding and return it or
 140     // wxFONTENCODING_SYSTEM if the dialog was cancelled
 141     wxFontEncoding GetEncodingFromUser();
 142
 143     // ask the user to choose a font family and return it or
 144     // wxFONTFAMILY_DEFAULT if the dialog was cancelled
 145     wxFontFamily GetFamilyFromUser();
 146
 147     size_t      m_fontSize; // in points
 148
 149     wxTextCtrl *m_textctrl;
 150     MyCanvas   *m_canvas;
 151
 152 private:
 153     // any class wishing to process wxWidgets events must use this macro
 154     DECLARE_EVENT_TABLE()
 155 };
 156
 157 // ----------------------------------------------------------------------------
 158 // constants
 159 // ----------------------------------------------------------------------------
 160
 161 // IDs for the controls and the menu commands
 162 enum
 163 {
 164     // menu items
 165     Font_Quit = wxID_EXIT,
 166     Font_About = wxID_ABOUT,
 167
 168     Font_ViewMsg = wxID_HIGHEST+1,
 169     Font_TestTextValue,
 170
 171     Font_IncSize,
 172     Font_DecSize,
 173
 174     Font_Bold,
 175     Font_Light,
 176
 177     Font_Italic,
 178     Font_Slant,
 179
 180     Font_Underlined,
 181
 182     // standard global wxFont objects:
 183     Font_wxNORMAL_FONT,
 184     Font_wxSMALL_FONT,
 185     Font_wxITALIC_FONT,
 186     Font_wxSWISS_FONT,
 187     Font_Standard,
 188
 189     // wxSystemSettings::GetFont possible objects:
 190     Font_wxSYS_OEM_FIXED_FONT,
 191     Font_wxSYS_ANSI_FIXED_FONT,
 192     Font_wxSYS_ANSI_VAR_FONT,
 193     Font_wxSYS_SYSTEM_FONT,
 194     Font_wxSYS_DEVICE_DEFAULT_FONT,
 195     Font_wxSYS_DEFAULT_GUI_FONT,
 196     Font_SystemSettings,
 197
 198     Font_Choose = 100,
 199     Font_EnumFamiliesForEncoding,
 200     Font_EnumFamilies,
 201     Font_EnumFixedFamilies,
 202     Font_EnumEncodings,
 203     Font_SetNativeDesc,
 204     Font_SetNativeUserDesc,
 205     Font_SetFamily,
 206     Font_SetFaceName,
 207     Font_SetEncoding,
 208     Font_Max
 209 };
 210
 211 // ----------------------------------------------------------------------------
 212 // event tables and other macros for wxWidgets
 213 // ----------------------------------------------------------------------------
 214
 215 // the event tables connect the wxWidgets events with the functions (event
 216 // handlers) which process them. It can be also done at run-time, but for the
 217 // simple menu events like this the static method is much simpler.
 218 BEGIN_EVENT_TABLE(MyFrame, wxFrame)
 219     EVT_MENU(Font_Quit,  MyFrame::OnQuit)
 220     EVT_MENU(Font_TestTextValue, MyFrame::OnTestTextValue)
 221     EVT_MENU(Font_ViewMsg, MyFrame::OnViewMsg)
 222     EVT_MENU(Font_About, MyFrame::OnAbout)
 223
 224     EVT_MENU(Font_IncSize, MyFrame::OnIncFont)
 225     EVT_MENU(Font_DecSize, MyFrame::OnDecFont)
 226
 227     EVT_MENU(Font_Bold, MyFrame::OnBold)
 228     EVT_MENU(Font_Light, MyFrame::OnLight)
 229
 230     EVT_MENU(Font_Italic, MyFrame::OnItalic)
 231     EVT_MENU(Font_Slant, MyFrame::OnSlant)
 232
 233     EVT_MENU(Font_Underlined, MyFrame::OnUnderline)
 234
 235     EVT_MENU(Font_wxNORMAL_FONT, MyFrame::OnwxPointerFont)
 236     EVT_MENU(Font_wxSMALL_FONT, MyFrame::OnwxPointerFont)
 237     EVT_MENU(Font_wxITALIC_FONT, MyFrame::OnwxPointerFont)
 238     EVT_MENU(Font_wxSWISS_FONT, MyFrame::OnwxPointerFont)
 239
 240     EVT_MENU(Font_wxSYS_OEM_FIXED_FONT, MyFrame::OnwxSystemSettingsFont)
 241     EVT_MENU(Font_wxSYS_ANSI_FIXED_FONT, MyFrame::OnwxSystemSettingsFont)
 242     EVT_MENU(Font_wxSYS_ANSI_VAR_FONT, MyFrame::OnwxSystemSettingsFont)
 243     EVT_MENU(Font_wxSYS_SYSTEM_FONT, MyFrame::OnwxSystemSettingsFont)
 244     EVT_MENU(Font_wxSYS_DEVICE_DEFAULT_FONT, MyFrame::OnwxSystemSettingsFont)
 245     EVT_MENU(Font_wxSYS_DEFAULT_GUI_FONT, MyFrame::OnwxSystemSettingsFont)
 246
 247     EVT_MENU(Font_SetNativeDesc, MyFrame::OnSetNativeDesc)
 248     EVT_MENU(Font_SetNativeUserDesc, MyFrame::OnSetNativeUserDesc)
 249     EVT_MENU(Font_SetFamily, MyFrame::OnSetFamily)
 250     EVT_MENU(Font_SetFaceName, MyFrame::OnSetFaceName)
 251     EVT_MENU(Font_SetEncoding, MyFrame::OnSetEncoding)
 252
 253     EVT_MENU(Font_Choose, MyFrame::OnSelectFont)
 254     EVT_MENU(Font_EnumFamiliesForEncoding, MyFrame::OnEnumerateFamiliesForEncoding)
 255     EVT_MENU(Font_EnumFamilies, MyFrame::OnEnumerateFamilies)
 256     EVT_MENU(Font_EnumFixedFamilies, MyFrame::OnEnumerateFixedFamilies)
 257     EVT_MENU(Font_EnumEncodings, MyFrame::OnEnumerateEncodings)
 258 END_EVENT_TABLE()
 259
 260 // Create a new application object: this macro will allow wxWidgets to create
 261 // the application object during program execution (it's better than using a
 262 // static object for many reasons) and also declares the accessor function
 263 // wxGetApp() which will return the reference of the right type (i.e. MyApp and
 264 // not wxApp)
 265 IMPLEMENT_APP(MyApp)
 266
 267 // ============================================================================
 268 // implementation
 269 // ============================================================================
 270
 271 // ----------------------------------------------------------------------------
 272 // the application class
 273 // ----------------------------------------------------------------------------
 274
 275 // `Main program' equivalent: the program execution "starts" here
 276 bool MyApp::OnInit()
 277 {
 278     if ( !wxApp::OnInit() )
 279         return false;
 280
 281     // Create the main application window
 282     MyFrame *frame = new MyFrame(wxT("Font wxWidgets demo"),
 283                                  wxPoint(50, 50), wxSize(600, 400));
 284
 285     // Show it and tell the application that it's our main window
 286     frame->Show(true);
 287     SetTopWindow(frame);
 288
 289     // success: wxApp::OnRun() will be called which will enter the main message
 290     // loop and the application will run. If we returned 'false' here, the
 291     // application would exit immediately.
 292     return true;
 293 }
 294
 295 // ----------------------------------------------------------------------------
 296 // main frame
 297 // ----------------------------------------------------------------------------
 298
 299 // frame constructor
 300 MyFrame::MyFrame(const wxString& title, const wxPoint& pos, const wxSize& size)
 301        : wxFrame((wxFrame *)NULL, wxID_ANY, title, pos, size), m_textctrl(NULL)
 302 {
 303     m_fontSize = wxNORMAL_FONT->GetPointSize();
 304
 305     SetIcon(wxICON(sample));
 306
 307     // create a menu bar
 308     wxMenu *menuFile = new wxMenu;
 309
 310     menuFile->Append(Font_TestTextValue, wxT("&Test text value"),
 311                      wxT("Verify that getting and setting text value doesn't change it"));
 312     menuFile->Append(Font_ViewMsg, wxT("&View...\tCtrl-V"),
 313                      wxT("View an email message file"));
 314     menuFile->AppendSeparator();
 315     menuFile->Append(Font_About, wxT("&About...\tCtrl-A"), wxT("Show about dialog"));
 316     menuFile->AppendSeparator();
 317     menuFile->Append(Font_Quit, wxT("E&xit\tAlt-X"), wxT("Quit this program"));
 318
 319     wxMenu *menuFont = new wxMenu;
 320     menuFont->Append(Font_IncSize, wxT("&Increase font size by 2 points\tCtrl-I"));
 321     menuFont->Append(Font_DecSize, wxT("&Decrease font size by 2 points\tCtrl-D"));
 322     menuFont->AppendSeparator();
 323     menuFont->AppendCheckItem(Font_Bold, wxT("&Bold\tCtrl-B"), wxT("Toggle bold state"));
 324     menuFont->AppendCheckItem(Font_Light, wxT("&Light\tCtrl-L"), wxT("Toggle light state"));
 325     menuFont->AppendSeparator();
 326     menuFont->AppendCheckItem(Font_Italic, wxT("&Oblique\tCtrl-O"), wxT("Toggle italic state"));
 327 #ifndef __WXMSW__
 328     // under wxMSW slant == italic so there's no reason to provide another menu item for the same thing
 329     menuFont->AppendCheckItem(Font_Slant, wxT("&Slant\tCtrl-S"), wxT("Toggle slant state"));
 330 #endif
 331     menuFont->AppendSeparator();
 332     menuFont->AppendCheckItem(Font_Underlined, wxT("&Underlined\tCtrl-U"),
 333                               wxT("Toggle underlined state"));
 334
 335     menuFont->AppendSeparator();
 336     menuFont->Append(Font_SetNativeDesc,
 337                      wxT("Set native font &description\tShift-Ctrl-D"));
 338     menuFont->Append(Font_SetNativeUserDesc,
 339                      wxT("Set &user font description\tShift-Ctrl-U"));
 340     menuFont->AppendSeparator();
 341     menuFont->Append(Font_SetFamily, wxT("Set font family"));
 342     menuFont->Append(Font_SetFaceName, wxT("Set font face name"));
 343     menuFont->Append(Font_SetEncoding, wxT("Set font &encoding\tShift-Ctrl-E"));
 344
 345     wxMenu *menuSelect = new wxMenu;
 346     menuSelect->Append(Font_Choose, wxT("&Select font...\tCtrl-S"),
 347                        wxT("Select a standard font"));
 348
 349     wxMenu *menuStdFonts = new wxMenu;
 350     menuStdFonts->Append(Font_wxNORMAL_FONT, wxT("wxNORMAL_FONT"), wxT("Normal font used by wxWidgets"));
 351     menuStdFonts->Append(Font_wxSMALL_FONT,  wxT("wxSMALL_FONT"),  wxT("Small font used by wxWidgets"));
 352     menuStdFonts->Append(Font_wxITALIC_FONT, wxT("wxITALIC_FONT"), wxT("Italic font used by wxWidgets"));
 353     menuStdFonts->Append(Font_wxSWISS_FONT,  wxT("wxSWISS_FONT"),  wxT("Swiss font used by wxWidgets"));
 354     menuSelect->Append(Font_Standard, wxT("Standar&d fonts"), menuStdFonts);
 355
 356     wxMenu *menuSettingFonts = new wxMenu;
 357     menuSettingFonts->Append(Font_wxSYS_OEM_FIXED_FONT, wxT("wxSYS_OEM_FIXED_FONT"),
 358                          wxT("Original equipment manufacturer dependent fixed-pitch font."));
 359     menuSettingFonts->Append(Font_wxSYS_ANSI_FIXED_FONT,  wxT("wxSYS_ANSI_FIXED_FONT"),
 360                          wxT("Windows fixed-pitch (monospaced) font. "));
 361     menuSettingFonts->Append(Font_wxSYS_ANSI_VAR_FONT, wxT("wxSYS_ANSI_VAR_FONT"),
 362                          wxT("Windows variable-pitch (proportional) font."));
 363     menuSettingFonts->Append(Font_wxSYS_SYSTEM_FONT,  wxT("wxSYS_SYSTEM_FONT"),
 364                          wxT("System font."));
 365     menuSettingFonts->Append(Font_wxSYS_DEVICE_DEFAULT_FONT,  wxT("wxSYS_DEVICE_DEFAULT_FONT"),
 366                          wxT("Device-dependent font."));
 367     menuSettingFonts->Append(Font_wxSYS_DEFAULT_GUI_FONT,  wxT("wxSYS_DEFAULT_GUI_FONT"),
 368                          wxT("Default font for user interface objects such as menus and dialog boxes. "));
 369     menuSelect->Append(Font_SystemSettings, wxT("System fonts"), menuSettingFonts);
 370
 371
 372     menuSelect->AppendSeparator();
 373     menuSelect->Append(Font_EnumFamilies, wxT("Enumerate font &families\tCtrl-F"));
 374     menuSelect->Append(Font_EnumFixedFamilies,
 375                      wxT("Enumerate fi&xed font families\tCtrl-X"));
 376     menuSelect->Append(Font_EnumEncodings,
 377                      wxT("Enumerate &encodings\tCtrl-E"));
 378     menuSelect->Append(Font_EnumFamiliesForEncoding,
 379                      wxT("Find font for en&coding...\tCtrl-C"),
 380                      wxT("Find font families for given encoding"));
 381
 382     // now append the freshly created menu to the menu bar...
 383     wxMenuBar *menuBar = new wxMenuBar;
 384     menuBar->Append(menuFile, wxT("&File"));
 385     menuBar->Append(menuFont, wxT("F&ont"));
 386     menuBar->Append(menuSelect, wxT("&Select"));
 387
 388     // ... and attach this menu bar to the frame
 389     SetMenuBar(menuBar);
 390
 391     wxSplitterWindow *splitter = new wxSplitterWindow(this);
 392
 393     m_textctrl = new wxTextCtrl(splitter, wxID_ANY,
 394                                 wxT("Paste text here to see how it looks\nlike in the given font"),
 395                                 wxDefaultPosition, wxDefaultSize,
 396                                 wxTE_MULTILINE);
 397
 398     m_canvas = new MyCanvas(splitter);
 399
 400     splitter->SplitHorizontally(m_textctrl, m_canvas, 100);
 401
 402 #if wxUSE_STATUSBAR
 403     // create a status bar just for fun (by default with 1 pane only)
 404     CreateStatusBar();
 405     SetStatusText(wxT("Welcome to wxWidgets font demo!"));
 406 #endif // wxUSE_STATUSBAR
 407 }
 408
 409 // --------------------------------------------------------
 410
 411 class MyEncodingEnumerator : public wxFontEnumerator
 412 {
 413 public:
 414     MyEncodingEnumerator()
 415         { m_n = 0; }
 416
 417     const wxString& GetText() const
 418         { return m_text; }
 419
 420 protected:
 421     virtual bool OnFontEncoding(const wxString& facename,
 422                                 const wxString& encoding)
 423     {
 424         wxString text;
 425         text.Printf(wxT("Encoding %u: %s (available in facename '%s')\n"),
 426                     (unsigned int) ++m_n, encoding.c_str(), facename.c_str());
 427         m_text += text;
 428         return true;
 429     }
 430
 431 private:
 432     size_t m_n;
 433     wxString m_text;
 434 };
 435
 436 void MyFrame::OnEnumerateEncodings(wxCommandEvent& WXUNUSED(event))
 437 {
 438     MyEncodingEnumerator fontEnumerator;
 439
 440     fontEnumerator.EnumerateEncodings();
 441
 442     wxLogMessage(wxT("Enumerating all available encodings:\n%s"),
 443                  fontEnumerator.GetText().c_str());
 444 }
 445
 446 // -------------------------------------------------------------
 447
 448 class MyFontEnumerator : public wxFontEnumerator
 449 {
 450 public:
 451     bool GotAny() const
 452         { return !m_facenames.IsEmpty(); }
 453
 454     const wxArrayString& GetFacenames() const
 455         { return m_facenames; }
 456
 457 protected:
 458     virtual bool OnFacename(const wxString& facename)
 459     {
 460         m_facenames.Add(facename);
 461         return true;
 462     }
 463
 464     private:
 465         wxArrayString m_facenames;
 466 } fontEnumerator;
 467
 468 bool MyFrame::DoEnumerateFamilies(bool fixedWidthOnly,
 469                                   wxFontEncoding encoding,
 470                                   bool silent)
 471 {
 472     MyFontEnumerator fontEnumerator;
 473
 474     fontEnumerator.EnumerateFacenames(encoding, fixedWidthOnly);
 475
 476     if ( fontEnumerator.GotAny() )
 477     {
 478         int nFacenames = fontEnumerator.GetFacenames().GetCount();
 479         if ( !silent )
 480         {
 481             wxLogStatus(this, wxT("Found %d %sfonts"),
 482                         nFacenames, fixedWidthOnly ? wxT("fixed width ") : wxT(""));
 483         }
 484
 485         wxString facename;
 486
 487         if ( silent )
 488         {
 489             // choose the first
 490             facename = fontEnumerator.GetFacenames().Item(0);
 491         }
 492         else
 493         {
 494             // let the user choose
 495             wxString *facenames = new wxString[nFacenames];
 496             int n;
 497             for ( n = 0; n < nFacenames; n++ )
 498                 facenames[n] = fontEnumerator.GetFacenames().Item(n);
 499
 500             n = wxGetSingleChoiceIndex
 501                 (
 502                     wxT("Choose a facename"),
 503                     SAMPLE_TITLE,
 504                     nFacenames,
 505                     facenames,
 506                     this
 507                 );
 508
 509             if ( n != -1 )
 510                 facename = facenames[n];
 511
 512             delete [] facenames;
 513         }
 514
 515         if ( !facename.empty() )
 516         {
 517             wxFont font(wxNORMAL_FONT->GetPointSize(),
 518                         wxFONTFAMILY_DEFAULT, wxFONTSTYLE_NORMAL,
 519                         wxFONTWEIGHT_NORMAL, false, facename, encoding);
 520
 521             DoChangeFont(font);
 522         }
 523
 524         return true;
 525     }
 526     else if ( !silent )
 527     {
 528         wxLogWarning(wxT("No such fonts found."));
 529     }
 530
 531     return false;
 532 }
 533
 534 void MyFrame::OnEnumerateFamiliesForEncoding(wxCommandEvent& WXUNUSED(event))
 535 {
 536     wxFontEncoding enc = GetEncodingFromUser();
 537     if ( enc != wxFONTENCODING_SYSTEM )
 538     {
 539         DoEnumerateFamilies(false, enc);
 540     }
 541 }
 542
 543 void MyFrame::OnSetNativeDesc(wxCommandEvent& WXUNUSED(event))
 544 {
 545     wxString fontInfo = wxGetTextFromUser
 546                         (
 547                             wxT("Enter native font string"),
 548                             wxT("Input font description"),
 549                             m_canvas->GetTextFont().GetNativeFontInfoDesc(),
 550                             this
 551                         );
 552     if ( fontInfo.empty() )
 553         return;     // user clicked "Cancel" - do nothing
 554
 555     wxFont font;
 556     font.SetNativeFontInfo(fontInfo);
 557     if ( !font.Ok() )
 558     {
 559         wxLogError(wxT("Font info string \"%s\" is invalid."),
 560                    fontInfo.c_str());
 561         return;
 562     }
 563
 564     DoChangeFont(font);
 565 }
 566
 567 void MyFrame::OnSetNativeUserDesc(wxCommandEvent& WXUNUSED(event))
 568 {
 569     wxString fontdesc = GetCanvas()->GetTextFont().GetNativeFontInfoUserDesc();
 570     wxString fontUserInfo = wxGetTextFromUser(
 571             wxT("Here you can edit current font description"),
 572             wxT("Input font description"), fontdesc,
 573             this);
 574     if (fontUserInfo.IsEmpty())
 575         return;     // user clicked "Cancel" - do nothing
 576
 577     wxFont font;
 578     if (font.SetNativeFontInfoUserDesc(fontUserInfo))
 579     {
 580         wxASSERT_MSG(font.Ok(), wxT("The font should now be valid"));
 581         DoChangeFont(font);
 582     }
 583     else
 584     {
 585         wxASSERT_MSG(!font.Ok(), wxT("The font should now be invalid"));
 586         wxMessageBox(wxT("Error trying to create a font with such description..."));
 587     }
 588 }
 589
 590 void MyFrame::OnSetFamily(wxCommandEvent& WXUNUSED(event))
 591 {
 592     wxFontFamily f = GetFamilyFromUser();
 593
 594     wxFont font = m_canvas->GetTextFont();
 595     font.SetFamily(f);
 596     DoChangeFont(font);
 597 }
 598
 599 void MyFrame::OnSetFaceName(wxCommandEvent& WXUNUSED(event))
 600 {
 601     wxString facename = GetCanvas()->GetTextFont().GetFaceName();
 602     wxString newFaceName = wxGetTextFromUser(
 603             wxT("Here you can edit current font face name."),
 604             wxT("Input font facename"), facename,
 605             this);
 606     if (newFaceName.IsEmpty())
 607         return;     // user clicked "Cancel" - do nothing
 608
 609     wxFont font(GetCanvas()->GetTextFont());
 610     if (font.SetFaceName(newFaceName))      // change facename only
 611     {
 612         wxASSERT_MSG(font.Ok(), wxT("The font should now be valid"));
 613         DoChangeFont(font);
 614     }
 615     else
 616     {
 617         wxASSERT_MSG(!font.Ok(), wxT("The font should now be invalid"));
 618         wxMessageBox(wxT("There is no font with such face name..."),
 619                      wxT("Invalid face name"), wxOK|wxICON_ERROR, this);
 620     }
 621 }
 622
 623 void MyFrame::OnSetEncoding(wxCommandEvent& WXUNUSED(event))
 624 {
 625     wxFontEncoding enc = GetEncodingFromUser();
 626     if ( enc == wxFONTENCODING_SYSTEM )
 627         return;
 628
 629     wxFont font = m_canvas->GetTextFont();
 630     font.SetEncoding(enc);
 631     DoChangeFont(font);
 632 }
 633
 634 wxFontEncoding MyFrame::GetEncodingFromUser()
 635 {
 636     wxArrayString names;
 637     wxArrayInt encodings;
 638
 639     const size_t count = wxFontMapper::GetSupportedEncodingsCount();
 640     names.reserve(count);
 641     encodings.reserve(count);
 642
 643     for ( size_t n = 0; n < count; n++ )
 644     {
 645         wxFontEncoding enc = wxFontMapper::GetEncoding(n);
 646         encodings.push_back(enc);
 647         names.push_back(wxFontMapper::GetEncodingName(enc));
 648     }
 649
 650     int i = wxGetSingleChoiceIndex
 651             (
 652                 wxT("Choose the encoding"),
 653                 SAMPLE_TITLE,
 654                 names,
 655                 this
 656             );
 657
 658     return i == -1 ? wxFONTENCODING_SYSTEM : (wxFontEncoding)encodings[i];
 659 }
 660
 661 wxFontFamily MyFrame::GetFamilyFromUser()
 662 {
 663     wxArrayString names;
 664     wxArrayInt families;
 665
 666     families.push_back(wxFONTFAMILY_DECORATIVE);
 667     families.push_back(wxFONTFAMILY_ROMAN);
 668     families.push_back(wxFONTFAMILY_SCRIPT);
 669     families.push_back(wxFONTFAMILY_SWISS);
 670     families.push_back(wxFONTFAMILY_MODERN);
 671     families.push_back(wxFONTFAMILY_TELETYPE);
 672
 673     names.push_back("DECORATIVE");
 674     names.push_back("ROMAN");
 675     names.push_back("SCRIPT");
 676     names.push_back("SWISS");
 677     names.push_back("MODERN");
 678     names.push_back("TELETYPE");
 679
 680     int i = wxGetSingleChoiceIndex
 681             (
 682                 wxT("Choose the family"),
 683                 SAMPLE_TITLE,
 684                 names,
 685                 this
 686             );
 687
 688     return i == -1 ? wxFONTFAMILY_DEFAULT : (wxFontFamily)families[i];
 689 }
 690
 691 void MyFrame::DoResizeFont(int diff)
 692 {
 693     wxFont font = m_canvas->GetTextFont();
 694
 695     font.SetPointSize(font.GetPointSize() + diff);
 696     DoChangeFont(font);
 697 }
 698
 699 void MyFrame::OnBold(wxCommandEvent& event)
 700 {
 701     wxFont font = m_canvas->GetTextFont();
 702
 703     font.SetWeight(event.IsChecked() ? wxFONTWEIGHT_BOLD : wxFONTWEIGHT_NORMAL);
 704     DoChangeFont(font);
 705 }
 706
 707 void MyFrame::OnLight(wxCommandEvent& event)
 708 {
 709     wxFont font = m_canvas->GetTextFont();
 710
 711     font.SetWeight(event.IsChecked() ? wxFONTWEIGHT_LIGHT : wxFONTWEIGHT_NORMAL);
 712     DoChangeFont(font);
 713 }
 714
 715 void MyFrame::OnItalic(wxCommandEvent& event)
 716 {
 717     wxFont font = m_canvas->GetTextFont();
 718
 719     font.SetStyle(event.IsChecked() ? wxFONTSTYLE_ITALIC : wxFONTSTYLE_NORMAL);
 720     DoChangeFont(font);
 721 }
 722
 723 void MyFrame::OnSlant(wxCommandEvent& event)
 724 {
 725     wxFont font = m_canvas->GetTextFont();
 726
 727     font.SetStyle(event.IsChecked() ? wxFONTSTYLE_SLANT : wxFONTSTYLE_NORMAL);
 728     DoChangeFont(font);
 729 }
 730
 731 void MyFrame::OnUnderline(wxCommandEvent& event)
 732 {
 733     wxFont font = m_canvas->GetTextFont();
 734
 735     font.SetUnderlined(event.IsChecked());
 736     DoChangeFont(font);
 737 }
 738
 739 void MyFrame::OnwxPointerFont(wxCommandEvent& event)
 740 {
 741     wxFont font;
 742
 743     switch ( event.GetId() )
 744     {
 745         case Font_wxNORMAL_FONT:
 746             font = *wxNORMAL_FONT;
 747             break;
 748
 749         case Font_wxSMALL_FONT:
 750             font = *wxSMALL_FONT;
 751             break;
 752
 753         case Font_wxITALIC_FONT:
 754             font = *wxITALIC_FONT;
 755             break;
 756
 757         case Font_wxSWISS_FONT:
 758             font = *wxSWISS_FONT;
 759             break;
 760
 761         default:
 762             wxFAIL_MSG( wxT("unknown standard font") );
 763             return;
 764     }
 765
 766     DoChangeFont(font);
 767 }
 768
 769 void MyFrame::OnwxSystemSettingsFont(wxCommandEvent& event)
 770 {
 771     wxFont font;
 772
 773     switch ( event.GetId() )
 774     {
 775         case Font_wxSYS_OEM_FIXED_FONT:
 776             font = wxSystemSettings::GetFont(wxSYS_OEM_FIXED_FONT);
 777             break;
 778
 779         case Font_wxSYS_ANSI_FIXED_FONT:
 780             font = wxSystemSettings::GetFont(wxSYS_ANSI_FIXED_FONT);
 781             break;
 782
 783         case Font_wxSYS_ANSI_VAR_FONT:
 784             font = wxSystemSettings::GetFont(wxSYS_ANSI_VAR_FONT);
 785             break;
 786
 787         case Font_wxSYS_SYSTEM_FONT:
 788             font = wxSystemSettings::GetFont(wxSYS_SYSTEM_FONT);
 789             break;
 790
 791         case Font_wxSYS_DEVICE_DEFAULT_FONT:
 792             font = wxSystemSettings::GetFont(wxSYS_DEVICE_DEFAULT_FONT);
 793             break;
 794
 795         case Font_wxSYS_DEFAULT_GUI_FONT:
 796             font = wxSystemSettings::GetFont(wxSYS_DEFAULT_GUI_FONT);
 797             break;
 798
 799         default:
 800             wxFAIL_MSG( wxT("unknown standard font") );
 801             return;
 802     }
 803
 804     DoChangeFont(font);
 805 }
 806
 807 void MyFrame::DoChangeFont(const wxFont& font, const wxColour& col)
 808 {
 809     m_canvas->SetTextFont(font);
 810     if ( col.Ok() )
 811         m_canvas->SetColour(col);
 812     m_canvas->Refresh();
 813
 814     m_textctrl->SetFont(font);
 815     if ( col.Ok() )
 816         m_textctrl->SetForegroundColour(col);
 817
 818     // update the state of the bold/italic/underlined menu items
 819     wxMenuBar *mbar = GetMenuBar();
 820     if ( mbar )
 821     {
 822         mbar->Check(Font_Light, font.GetWeight() == wxFONTWEIGHT_LIGHT);
 823         mbar->Check(Font_Bold, font.GetWeight() == wxFONTWEIGHT_BOLD);
 824
 825         mbar->Check(Font_Italic, font.GetStyle() == wxFONTSTYLE_ITALIC);
 826 #ifndef __WXMSW__
 827         mbar->Check(Font_Slant, font.GetStyle() == wxFONTSTYLE_SLANT);
 828 #endif
 829
 830         mbar->Check(Font_Underlined, font.GetUnderlined());
 831     }
 832 }
 833
 834 void MyFrame::OnSelectFont(wxCommandEvent& WXUNUSED(event))
 835 {
 836     wxFontData data;
 837     data.SetInitialFont(m_canvas->GetTextFont());
 838     data.SetColour(m_canvas->GetColour());
 839
 840     wxFontDialog dialog(this, data);
 841     if ( dialog.ShowModal() == wxID_OK )
 842     {
 843         wxFontData retData = dialog.GetFontData();
 844         wxFont font = retData.GetChosenFont();
 845         wxColour colour = retData.GetColour();
 846
 847         DoChangeFont(font, colour);
 848     }
 849 }
 850
 851 void MyFrame::OnQuit(wxCommandEvent& WXUNUSED(event))
 852 {
 853     // true is to force the frame to close
 854     Close(true);
 855 }
 856
 857 void MyFrame::OnTestTextValue(wxCommandEvent& WXUNUSED(event))
 858 {
 859     wxString value = m_textctrl->GetValue();
 860     m_textctrl->SetValue(value);
 861     if ( m_textctrl->GetValue() != value )
 862     {
 863         wxLogError(wxT("Text value changed after getting and setting it"));
 864     }
 865 }
 866
 867 void MyFrame::OnViewMsg(wxCommandEvent& WXUNUSED(event))
 868 {
 869 #if wxUSE_FILEDLG
 870     // first, choose the file
 871     static wxString s_dir, s_file;
 872     wxFileDialog dialog(this, wxT("Open an email message file"),
 873                         s_dir, s_file);
 874     if ( dialog.ShowModal() != wxID_OK )
 875         return;
 876
 877     // save for the next time
 878     s_dir = dialog.GetDirectory();
 879     s_file = dialog.GetFilename();
 880
 881     wxString filename = dialog.GetPath();
 882
 883     // load it and search for Content-Type header
 884     wxTextFile file(filename);
 885     if ( !file.Open() )
 886         return;
 887
 888     wxString charset;
 889
 890     static const wxChar *prefix = wxT("Content-Type: text/plain; charset=");
 891     const size_t len = wxStrlen(prefix);
 892
 893     size_t n, count = file.GetLineCount();
 894     for ( n = 0; n < count; n++ )
 895     {
 896         wxString line = file[n];
 897
 898         if ( !line )
 899         {
 900             // if it is an email message, headers are over, no need to parse
 901             // all the file
 902             break;
 903         }
 904
 905         if ( line.Left(len) == prefix )
 906         {
 907             // found!
 908             const wxChar *pc = line.c_str() + len;
 909             if ( *pc == wxT('"') )
 910                 pc++;
 911
 912             while ( *pc && *pc != wxT('"') )
 913             {
 914                 charset += *pc++;
 915             }
 916
 917             break;
 918         }
 919     }
 920
 921     if ( !charset )
 922     {
 923         wxLogError(wxT("The file '%s' doesn't contain charset information."),
 924                    filename.c_str());
 925
 926         return;
 927     }
 928
 929     // ok, now get the corresponding encoding
 930     wxFontEncoding fontenc = wxFontMapper::Get()->CharsetToEncoding(charset);
 931     if ( fontenc == wxFONTENCODING_SYSTEM )
 932     {
 933         wxLogError(wxT("Charset '%s' is unsupported."), charset.c_str());
 934         return;
 935     }
 936
 937     m_textctrl->LoadFile(filename);
 938
 939     if ( fontenc == wxFONTENCODING_UTF8 ||
 940             !wxFontMapper::Get()->IsEncodingAvailable(fontenc) )
 941     {
 942         // try to find some similar encoding:
 943         wxFontEncoding encAlt;
 944         if ( wxFontMapper::Get()->GetAltForEncoding(fontenc, &encAlt) )
 945         {
 946             wxEncodingConverter conv;
 947
 948             if (conv.Init(fontenc, encAlt))
 949             {
 950                 fontenc = encAlt;
 951                 m_textctrl -> SetValue(conv.Convert(m_textctrl -> GetValue()));
 952             }
 953             else
 954             {
 955                 wxLogWarning(wxT("Cannot convert from '%s' to '%s'."),
 956                              wxFontMapper::GetEncodingDescription(fontenc).c_str(),
 957                              wxFontMapper::GetEncodingDescription(encAlt).c_str());
 958             }
 959         }
 960         else
 961             wxLogWarning(wxT("No fonts for encoding '%s' on this system."),
 962                          wxFontMapper::GetEncodingDescription(fontenc).c_str());
 963     }
 964
 965     // and now create the correct font
 966     if ( !DoEnumerateFamilies(false, fontenc, true /* silent */) )
 967     {
 968         wxFont font(wxNORMAL_FONT->GetPointSize(),
 969                     wxFONTFAMILY_DEFAULT, wxFONTSTYLE_NORMAL,
 970                     wxFONTWEIGHT_NORMAL, false /* !underlined */,
 971                     wxEmptyString /* facename */, fontenc);
 972         if ( font.Ok() )
 973         {
 974             DoChangeFont(font);
 975         }
 976         else
 977         {
 978             wxLogWarning(wxT("No fonts for encoding '%s' on this system."),
 979                          wxFontMapper::GetEncodingDescription(fontenc).c_str());
 980         }
 981     }
 982 #endif // wxUSE_FILEDLG
 983 }
 984
 985 void MyFrame::OnAbout(wxCommandEvent& WXUNUSED(event))
 986 {
 987     wxMessageBox(wxT("wxWidgets font sample\n")
 988                  wxT("(c) 1999-2006 Vadim Zeitlin"),
 989                  wxString(wxT("About ")) + SAMPLE_TITLE,
 990                  wxOK | wxICON_INFORMATION, this);
 991 }
 992
 993 // ----------------------------------------------------------------------------
 994 // MyCanvas
 995 // ----------------------------------------------------------------------------
 996
 997 BEGIN_EVENT_TABLE(MyCanvas, wxWindow)
 998     EVT_PAINT(MyCanvas::OnPaint)
 999 END_EVENT_TABLE()
1000
1001 MyCanvas::MyCanvas( wxWindow *parent )
1002         : wxWindow( parent, wxID_ANY ),
1003           m_colour(*wxRED), m_font(*wxNORMAL_FONT)
1004 {
1005 }
1006
1007 void MyCanvas::OnPaint( wxPaintEvent &WXUNUSED(event) )
1008 {
1009     wxPaintDC dc(this);
1010     PrepareDC(dc);
1011
1012     // set background
1013     dc.SetBackground(wxBrush(wxT("white"), wxSOLID));
1014     dc.Clear();
1015     dc.SetFont(m_font);
1016
1017     // one text line height
1018     wxCoord hLine = dc.GetCharHeight();
1019
1020     // the current text origin
1021     wxCoord x = 5,
1022             y = 5;
1023
1024     // output the font name/info
1025     wxString fontInfo;
1026
1027     fontInfo.Printf(wxT("Face name: %s, family: %s"),
1028                     m_font.GetFaceName().c_str(),
1029                     m_font.GetFamilyString().c_str());
1030
1031     dc.DrawText(fontInfo, x, y);
1032     y += hLine;
1033
1034     fontInfo.Printf(wxT("Size: %d points or %d pixels; %d*%d average char size"),
1035                     m_font.GetPointSize(),
1036                     m_font.GetPixelSize().y,
1037                     dc.GetCharWidth(), dc.GetCharHeight());
1038
1039     dc.DrawText(fontInfo, x, y);
1040     y += hLine;
1041
1042     fontInfo.Printf(wxT("Style: %s, weight: %s, fixed width: %s, encoding: %s"),
1043                     m_font.GetStyleString().c_str(),
1044                     m_font.GetWeightString().c_str(),
1045                     m_font.IsFixedWidth() ? wxT("yes") : wxT("no"),
1046                     wxFontMapper::GetEncodingDescription(m_font.GetEncoding()));
1047
1048     dc.DrawText(fontInfo, x, y);
1049     y += hLine;
1050
1051     if ( m_font.Ok() )
1052     {
1053         const wxNativeFontInfo *info = m_font.GetNativeFontInfo();
1054         if ( info )
1055         {
1056             wxString fontDesc = m_font.GetNativeFontInfoUserDesc();
1057             fontInfo.Printf(wxT("Native font info: %s"), fontDesc.c_str());
1058
1059             dc.DrawText(fontInfo, x, y);
1060             y += hLine;
1061         }
1062     }
1063
1064     y += hLine;
1065
1066     // prepare to draw the font
1067     dc.SetTextForeground(m_colour);
1068
1069     // the size of one cell (Normally biggest char + small margin)
1070     wxCoord maxCharWidth, maxCharHeight;
1071     dc.GetTextExtent(wxT("W"), &maxCharWidth, &maxCharHeight);
1072     int w = maxCharWidth + 5,
1073         h = maxCharHeight + 4;
1074
1075
1076     // print all font symbols from 32 to 256 in 7 rows of 32 chars each
1077     for ( int i = 0; i < 7; i++ )
1078     {
1079         for ( int j = 0; j < 32; j++ )
1080         {
1081             wxChar c = (wxChar)(32 * (i + 1) + j);
1082
1083             wxCoord charWidth, charHeight;
1084             dc.GetTextExtent(c, &charWidth, &charHeight);
1085             dc.DrawText
1086             (
1087                 c,
1088                 x + w*j + (maxCharWidth - charWidth) / 2 + 1,
1089                 y + h*i + (maxCharHeight - charHeight) / 2
1090             );
1091         }
1092     }
1093
1094     // draw the lines between them
1095     dc.SetPen(wxPen(wxColour(wxT("blue")), 1, wxSOLID));
1096     int l;
1097
1098     // horizontal
1099     for ( l = 0; l < 8; l++ )
1100     {
1101         int yl = y + h*l - 2;
1102         dc.DrawLine(x - 2, yl, x + 32*w - 1, yl);
1103     }
1104
1105     // and vertical
1106     for ( l = 0; l < 33; l++ )
1107     {
1108         int xl = x + w*l - 2;
1109         dc.DrawLine(xl, y - 2, xl, y + 7*h - 1);
1110     }
1111 }