1 /////////////////////////////////////////////////////////////////////////////
3 // Purpose: wxFont demo
4 // Author: Vadim Zeitlin
8 // Copyright: (c) 1999 Vadim Zeitlin
9 // Licence: wxWindows licence
10 /////////////////////////////////////////////////////////////////////////////
12 // For compilers that support precompilation, includes "wx/wx.h".
13 #include "wx/wxprec.h"
19 // for all others, include the necessary headers (this file is usually all you
20 // need because it includes almost all standard wxWidgets headers
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"
35 #include "../sample.xpm"
39 #include "wx/mac/fontdlg.h"
42 // ----------------------------------------------------------------------------
44 // ----------------------------------------------------------------------------
46 // Define a new application type, each program should derive a class from wxApp
47 class MyApp
: public wxApp
50 // override base class virtuals
51 // ----------------------------
53 // this one is called on application startup and is a good place for the app
54 // initialization (doing it here and not in the ctor allows to have an error
55 // return: if OnInit() returns false, the application terminates)
56 virtual bool OnInit();
59 // MyCanvas is a canvas on which we show the font sample
60 class MyCanvas
: public wxWindow
63 MyCanvas( wxWindow
*parent
);
64 virtual ~MyCanvas(){};
66 // accessors for the frame
67 const wxFont
& GetTextFont() const { return m_font
; }
68 const wxColour
& GetColour() const { return m_colour
; }
69 void SetTextFont(const wxFont
& font
) { m_font
= font
; }
70 void SetColour(const wxColour
& colour
) { m_colour
= colour
; }
73 void OnPaint( wxPaintEvent
&event
);
82 // Define a new frame type: this is going to be our main frame
83 class MyFrame
: public wxFrame
87 MyFrame(const wxString
& title
, const wxPoint
& pos
, const wxSize
& size
);
90 MyCanvas
*GetCanvas() const { return m_canvas
; }
92 // event handlers (these functions should _not_ be virtual)
93 void OnQuit(wxCommandEvent
& event
);
94 void OnAbout(wxCommandEvent
& event
);
96 void OnIncFont(wxCommandEvent
& WXUNUSED(event
)) { DoResizeFont(+2); }
97 void OnDecFont(wxCommandEvent
& WXUNUSED(event
)) { DoResizeFont(-2); }
99 void OnBold(wxCommandEvent
& event
);
100 void OnItalic(wxCommandEvent
& event
);
101 void OnUnderline(wxCommandEvent
& event
);
103 void OnwxPointerFont(wxCommandEvent
& event
);
105 void OnViewMsg(wxCommandEvent
& event
);
106 void OnSelectFont(wxCommandEvent
& event
);
107 void OnEnumerateFamiliesForEncoding(wxCommandEvent
& event
);
108 void OnEnumerateFamilies(wxCommandEvent
& WXUNUSED(event
))
109 { DoEnumerateFamilies(false); }
110 void OnEnumerateFixedFamilies(wxCommandEvent
& WXUNUSED(event
))
111 { DoEnumerateFamilies(true); }
112 void OnEnumerateEncodings(wxCommandEvent
& event
);
114 void OnCheckNativeToFromString(wxCommandEvent
& event
);
117 bool DoEnumerateFamilies(bool fixedWidthOnly
,
118 wxFontEncoding encoding
= wxFONTENCODING_SYSTEM
,
119 bool silent
= false);
121 void DoResizeFont(int diff
);
122 void DoChangeFont(const wxFont
& font
, const wxColour
& col
= wxNullColour
);
124 size_t m_fontSize
; // in points
126 wxTextCtrl
*m_textctrl
;
130 // any class wishing to process wxWidgets events must use this macro
131 DECLARE_EVENT_TABLE()
134 // ----------------------------------------------------------------------------
136 // ----------------------------------------------------------------------------
138 // IDs for the controls and the menu commands
157 Font_EnumFamiliesForEncoding
,
159 Font_EnumFixedFamilies
,
161 Font_CheckNativeToFromString
,
165 // ----------------------------------------------------------------------------
166 // event tables and other macros for wxWidgets
167 // ----------------------------------------------------------------------------
169 // the event tables connect the wxWidgets events with the functions (event
170 // handlers) which process them. It can be also done at run-time, but for the
171 // simple menu events like this the static method is much simpler.
172 BEGIN_EVENT_TABLE(MyFrame
, wxFrame
)
173 EVT_MENU(Font_Quit
, MyFrame::OnQuit
)
174 EVT_MENU(Font_ViewMsg
, MyFrame::OnViewMsg
)
175 EVT_MENU(Font_About
, MyFrame::OnAbout
)
177 EVT_MENU(Font_IncSize
, MyFrame::OnIncFont
)
178 EVT_MENU(Font_DecSize
, MyFrame::OnDecFont
)
179 EVT_MENU(Font_Bold
, MyFrame::OnBold
)
180 EVT_MENU(Font_Italic
, MyFrame::OnItalic
)
181 EVT_MENU(Font_Underlined
, MyFrame::OnUnderline
)
183 EVT_MENU(Font_wxNORMAL_FONT
, MyFrame::OnwxPointerFont
)
184 EVT_MENU(Font_wxSMALL_FONT
, MyFrame::OnwxPointerFont
)
185 EVT_MENU(Font_wxITALIC_FONT
, MyFrame::OnwxPointerFont
)
186 EVT_MENU(Font_wxSWISS_FONT
, MyFrame::OnwxPointerFont
)
188 EVT_MENU(Font_CheckNativeToFromString
, MyFrame::OnCheckNativeToFromString
)
190 EVT_MENU(Font_Choose
, MyFrame::OnSelectFont
)
191 EVT_MENU(Font_EnumFamiliesForEncoding
, MyFrame::OnEnumerateFamiliesForEncoding
)
192 EVT_MENU(Font_EnumFamilies
, MyFrame::OnEnumerateFamilies
)
193 EVT_MENU(Font_EnumFixedFamilies
, MyFrame::OnEnumerateFixedFamilies
)
194 EVT_MENU(Font_EnumEncodings
, MyFrame::OnEnumerateEncodings
)
197 // Create a new application object: this macro will allow wxWidgets to create
198 // the application object during program execution (it's better than using a
199 // static object for many reasons) and also declares the accessor function
200 // wxGetApp() which will return the reference of the right type (i.e. MyApp and
204 // ============================================================================
206 // ============================================================================
208 // ----------------------------------------------------------------------------
209 // the application class
210 // ----------------------------------------------------------------------------
212 // `Main program' equivalent: the program execution "starts" here
215 // Create the main application window
216 MyFrame
*frame
= new MyFrame(wxT("Font wxWidgets demo"),
217 wxPoint(50, 50), wxSize(600, 400));
219 // Show it and tell the application that it's our main window
223 // success: wxApp::OnRun() will be called which will enter the main message
224 // loop and the application will run. If we returned 'false' here, the
225 // application would exit immediately.
229 // ----------------------------------------------------------------------------
231 // ----------------------------------------------------------------------------
234 MyFrame::MyFrame(const wxString
& title
, const wxPoint
& pos
, const wxSize
& size
)
235 : wxFrame((wxFrame
*)NULL
, wxID_ANY
, title
, pos
, size
), m_textctrl(NULL
)
239 SetIcon(wxIcon(sample_xpm
));
242 wxMenu
*menuFile
= new wxMenu
;
244 menuFile
->Append(Font_ViewMsg
, wxT("&View...\tCtrl-V"),
245 wxT("View an email message file"));
246 menuFile
->AppendSeparator();
247 menuFile
->Append(Font_About
, wxT("&About...\tCtrl-A"), wxT("Show about dialog"));
248 menuFile
->AppendSeparator();
249 menuFile
->Append(Font_Quit
, wxT("E&xit\tAlt-X"), wxT("Quit this program"));
251 wxMenu
*menuFont
= new wxMenu
;
252 menuFont
->Append(Font_IncSize
, wxT("&Increase font size by 2 points\tCtrl-I"));
253 menuFont
->Append(Font_DecSize
, wxT("&Decrease font size by 2 points\tCtrl-D"));
254 menuFont
->AppendSeparator();
255 menuFont
->AppendCheckItem(Font_Bold
, wxT("&Bold\tCtrl-B"), wxT("Toggle bold state"));
256 menuFont
->AppendCheckItem(Font_Italic
, wxT("&Oblique\tCtrl-O"), wxT("Toggle italic state"));
257 menuFont
->AppendCheckItem(Font_Underlined
, wxT("&Underlined\tCtrl-U"),
258 wxT("Toggle underlined state"));
260 menuFont
->AppendSeparator();
261 menuFont
->Append(Font_CheckNativeToFromString
,
262 wxT("Check Native Font Info To/From String"));
264 wxMenu
*menuSelect
= new wxMenu
;
265 menuSelect
->Append(Font_Choose
, wxT("&Select font...\tCtrl-S"),
266 wxT("Select a standard font"));
268 wxMenu
*menuStdFonts
= new wxMenu
;
269 menuStdFonts
->Append(Font_wxNORMAL_FONT
, wxT("wxNORMAL_FONT"), wxT("Normal font used by wxWidgets"));
270 menuStdFonts
->Append(Font_wxSMALL_FONT
, wxT("wxSMALL_FONT"), wxT("Small font used by wxWidgets"));
271 menuStdFonts
->Append(Font_wxITALIC_FONT
, wxT("wxITALIC_FONT"), wxT("Italic font used by wxWidgets"));
272 menuStdFonts
->Append(Font_wxSWISS_FONT
, wxT("wxSWISS_FONT"), wxT("Swiss font used by wxWidgets"));
273 menuSelect
->Append(Font_Standard
, wxT("Standar&d fonts"), menuStdFonts
);
275 menuSelect
->AppendSeparator();
276 menuSelect
->Append(Font_EnumFamilies
, wxT("Enumerate font &families\tCtrl-F"));
277 menuSelect
->Append(Font_EnumFixedFamilies
,
278 wxT("Enumerate fi&xed font families\tCtrl-X"));
279 menuSelect
->Append(Font_EnumEncodings
,
280 wxT("Enumerate &encodings\tCtrl-E"));
281 menuSelect
->Append(Font_EnumFamiliesForEncoding
,
282 wxT("Find font for en&coding...\tCtrl-C"),
283 wxT("Find font families for given encoding"));
285 // now append the freshly created menu to the menu bar...
286 wxMenuBar
*menuBar
= new wxMenuBar
;
287 menuBar
->Append(menuFile
, wxT("&File"));
288 menuBar
->Append(menuFont
, wxT("F&ont"));
289 menuBar
->Append(menuSelect
, wxT("&Select"));
291 // ... and attach this menu bar to the frame
294 wxSplitterWindow
*splitter
= new wxSplitterWindow(this);
296 m_textctrl
= new wxTextCtrl(splitter
, wxID_ANY
,
297 wxT("Paste text here to see how it looks\nlike in the given font"),
298 wxDefaultPosition
, wxDefaultSize
,
301 m_canvas
= new MyCanvas(splitter
);
303 splitter
->SplitHorizontally(m_textctrl
, m_canvas
, 100);
306 // create a status bar just for fun (by default with 1 pane only)
308 SetStatusText(wxT("Welcome to wxWidgets font demo!"));
309 #endif // wxUSE_STATUSBAR
312 // --------------------------------------------------------
314 class MyEncodingEnumerator
: public wxFontEnumerator
317 MyEncodingEnumerator()
320 const wxString
& GetText() const
324 virtual bool OnFontEncoding(const wxString
& facename
,
325 const wxString
& encoding
)
328 text
.Printf(wxT("Encoding %u: %s (available in facename '%s')\n"),
329 (unsigned int) ++m_n
, encoding
.c_str(), facename
.c_str());
339 void MyFrame::OnEnumerateEncodings(wxCommandEvent
& WXUNUSED(event
))
341 MyEncodingEnumerator fontEnumerator
;
343 fontEnumerator
.EnumerateEncodings();
345 wxLogMessage(wxT("Enumerating all available encodings:\n%s"),
346 fontEnumerator
.GetText().c_str());
349 // -------------------------------------------------------------
351 class MyFontEnumerator
: public wxFontEnumerator
355 { return !m_facenames
.IsEmpty(); }
357 const wxArrayString
& GetFacenames() const
358 { return m_facenames
; }
361 virtual bool OnFacename(const wxString
& facename
)
363 m_facenames
.Add(facename
);
368 wxArrayString m_facenames
;
371 bool MyFrame::DoEnumerateFamilies(bool fixedWidthOnly
,
372 wxFontEncoding encoding
,
375 MyFontEnumerator fontEnumerator
;
377 fontEnumerator
.EnumerateFacenames(encoding
, fixedWidthOnly
);
379 if ( fontEnumerator
.GotAny() )
381 int nFacenames
= fontEnumerator
.GetFacenames().GetCount();
384 wxLogStatus(this, wxT("Found %d %sfonts"),
385 nFacenames
, fixedWidthOnly
? wxT("fixed width ") : wxT(""));
393 facename
= fontEnumerator
.GetFacenames().Item(0);
397 // let the user choose
398 wxString
*facenames
= new wxString
[nFacenames
];
400 for ( n
= 0; n
< nFacenames
; n
++ )
401 facenames
[n
] = fontEnumerator
.GetFacenames().Item(n
);
403 n
= wxGetSingleChoiceIndex(wxT("Choose a facename"), wxT("Font demo"),
404 nFacenames
, facenames
, this);
407 facename
= facenames
[n
];
412 if ( !facename
.empty() )
414 wxFont
font(12, wxFONTFAMILY_DEFAULT
, wxFONTSTYLE_NORMAL
,
415 wxFONTWEIGHT_NORMAL
, false, facename
, encoding
);
424 wxLogWarning(wxT("No such fonts found."));
430 void MyFrame::OnEnumerateFamiliesForEncoding(wxCommandEvent
& WXUNUSED(event
))
432 static wxFontEncoding encodings
[] =
434 wxFONTENCODING_ISO8859_1
,
435 wxFONTENCODING_ISO8859_2
,
436 wxFONTENCODING_ISO8859_5
,
437 wxFONTENCODING_ISO8859_7
,
438 wxFONTENCODING_ISO8859_15
,
440 wxFONTENCODING_KOI8_U
,
441 wxFONTENCODING_CP1250
,
442 wxFONTENCODING_CP1251
,
443 wxFONTENCODING_CP1252
,
446 static const wxString encodingNames
[] =
448 wxT("Western European (ISO-8859-1)"),
449 wxT("Central European (ISO-8859-2)"),
450 wxT("Cyrillic (ISO-8859-5)"),
451 wxT("Greek (ISO-8859-7)"),
452 wxT("Western European with Euro (ISO-8859-15)"),
455 wxT("Windows Central European (CP 1250)"),
456 wxT("Windows Cyrillic (CP 1251)"),
457 wxT("Windows Western European (CP 1252)"),
460 int n
= wxGetSingleChoiceIndex(wxT("Choose an encoding"), wxT("Font demo"),
461 WXSIZEOF(encodingNames
),
467 DoEnumerateFamilies(false, encodings
[n
]);
471 void MyFrame::OnCheckNativeToFromString(wxCommandEvent
& WXUNUSED(event
))
473 wxString fontInfo
= m_canvas
->GetTextFont().GetNativeFontInfoDesc();
475 if ( fontInfo
.empty() )
477 wxLogError(wxT("Native font info string is empty!"));
481 wxFont
*font
= wxFont::New(fontInfo
);
482 if ( fontInfo
!= font
->GetNativeFontInfoDesc() )
483 wxLogError(wxT("wxNativeFontInfo ToString()/FromString() broken!"));
485 wxLogMessage(wxT("wxNativeFontInfo works: %s"), fontInfo
.c_str());
491 void MyFrame::DoResizeFont(int diff
)
493 wxFont font
= m_canvas
->GetTextFont();
495 font
.SetPointSize(font
.GetPointSize() + diff
);
499 void MyFrame::OnBold(wxCommandEvent
& event
)
501 wxFont font
= m_canvas
->GetTextFont();
503 font
.SetWeight(event
.IsChecked() ? wxFONTWEIGHT_BOLD
: wxFONTWEIGHT_NORMAL
);
507 void MyFrame::OnItalic(wxCommandEvent
& event
)
509 wxFont font
= m_canvas
->GetTextFont();
511 font
.SetStyle(event
.IsChecked() ? wxFONTSTYLE_ITALIC
: wxFONTSTYLE_NORMAL
);
515 void MyFrame::OnUnderline(wxCommandEvent
& event
)
517 wxFont font
= m_canvas
->GetTextFont();
519 font
.SetUnderlined(event
.IsChecked());
523 void MyFrame::OnwxPointerFont(wxCommandEvent
& event
)
527 switch (event
.GetId())
529 case Font_wxNORMAL_FONT
: font
= wxFont(*wxNORMAL_FONT
); break;
530 case Font_wxSMALL_FONT
: font
= wxFont(*wxSMALL_FONT
); break;
531 case Font_wxITALIC_FONT
: font
= wxFont(*wxITALIC_FONT
); break;
532 case Font_wxSWISS_FONT
: font
= wxFont(*wxSWISS_FONT
); break;
533 default : font
= wxFont(*wxNORMAL_FONT
); break;
536 GetMenuBar()->Check(Font_Bold
, false);
537 GetMenuBar()->Check(Font_Italic
, false);
538 GetMenuBar()->Check(Font_Underlined
, false);
543 void MyFrame::DoChangeFont(const wxFont
& font
, const wxColour
& col
)
545 m_canvas
->SetTextFont(font
);
547 m_canvas
->SetColour(col
);
550 m_textctrl
->SetFont(font
);
552 m_textctrl
->SetForegroundColour(col
);
555 void MyFrame::OnSelectFont(wxCommandEvent
& WXUNUSED(event
))
558 data
.SetInitialFont(m_canvas
->GetTextFont());
559 data
.SetColour(m_canvas
->GetColour());
561 wxFontDialog
dialog(this, data
);
562 if ( dialog
.ShowModal() == wxID_OK
)
564 wxFontData retData
= dialog
.GetFontData();
565 wxFont font
= retData
.GetChosenFont();
566 wxColour colour
= retData
.GetColour();
568 DoChangeFont(font
, colour
);
570 // update the state of the bold/italic/underlined menu items
571 wxMenuBar
*mbar
= GetMenuBar();
574 mbar
->Check(Font_Bold
, font
.GetWeight() == wxFONTWEIGHT_BOLD
);
575 mbar
->Check(Font_Italic
, font
.GetStyle() == wxFONTSTYLE_ITALIC
);
576 mbar
->Check(Font_Underlined
, font
.GetUnderlined());
581 void MyFrame::OnQuit(wxCommandEvent
& WXUNUSED(event
))
583 // true is to force the frame to close
587 void MyFrame::OnViewMsg(wxCommandEvent
& WXUNUSED(event
))
590 // first, choose the file
591 static wxString s_dir
, s_file
;
592 wxFileDialog
dialog(this, wxT("Open an email message file"),
594 if ( dialog
.ShowModal() != wxID_OK
)
597 // save for the next time
598 s_dir
= dialog
.GetDirectory();
599 s_file
= dialog
.GetFilename();
601 wxString filename
= dialog
.GetPath();
603 // load it and search for Content-Type header
604 wxTextFile
file(filename
);
610 static const wxChar
*prefix
= wxT("Content-Type: text/plain; charset=");
611 const size_t len
= wxStrlen(prefix
);
613 size_t n
, count
= file
.GetLineCount();
614 for ( n
= 0; n
< count
; n
++ )
616 wxString line
= file
[n
];
620 // if it is an email message, headers are over, no need to parse
625 if ( line
.Left(len
) == prefix
)
628 const wxChar
*pc
= line
.c_str() + len
;
629 if ( *pc
== wxT('"') )
632 while ( *pc
&& *pc
!= wxT('"') )
643 wxLogError(wxT("The file '%s' doesn't contain charset information."),
649 // ok, now get the corresponding encoding
650 wxFontEncoding fontenc
= wxFontMapper::Get()->CharsetToEncoding(charset
);
651 if ( fontenc
== wxFONTENCODING_SYSTEM
)
653 wxLogError(wxT("Charset '%s' is unsupported."), charset
.c_str());
657 m_textctrl
->LoadFile(filename
);
659 if ( fontenc
== wxFONTENCODING_UTF8
||
660 !wxFontMapper::Get()->IsEncodingAvailable(fontenc
) )
662 // try to find some similar encoding:
663 wxFontEncoding encAlt
;
664 if ( wxFontMapper::Get()->GetAltForEncoding(fontenc
, &encAlt
) )
666 wxEncodingConverter conv
;
668 if (conv
.Init(fontenc
, encAlt
))
671 m_textctrl
-> SetValue(conv
.Convert(m_textctrl
-> GetValue()));
675 wxLogWarning(wxT("Cannot convert from '%s' to '%s'."),
676 wxFontMapper::GetEncodingDescription(fontenc
).c_str(),
677 wxFontMapper::GetEncodingDescription(encAlt
).c_str());
681 wxLogWarning(wxT("No fonts for encoding '%s' on this system."),
682 wxFontMapper::GetEncodingDescription(fontenc
).c_str());
685 // and now create the correct font
686 if ( !DoEnumerateFamilies(false, fontenc
, true /* silent */) )
688 wxFont
font(12, wxFONTFAMILY_DEFAULT
, wxFONTSTYLE_NORMAL
,
689 wxFONTWEIGHT_NORMAL
, false /* !underlined */,
690 wxEmptyString
/* facename */, fontenc
);
697 wxLogWarning(wxT("No fonts for encoding '%s' on this system."),
698 wxFontMapper::GetEncodingDescription(fontenc
).c_str());
701 #endif // wxUSE_FILEDLG
704 void MyFrame::OnAbout(wxCommandEvent
& WXUNUSED(event
))
706 wxMessageBox(wxT("wxWidgets font demo\n")
707 wxT("(c) 1999 Vadim Zeitlin"),
709 wxOK
| wxICON_INFORMATION
, this);
712 // ----------------------------------------------------------------------------
714 // ----------------------------------------------------------------------------
716 BEGIN_EVENT_TABLE(MyCanvas
, wxWindow
)
717 EVT_PAINT(MyCanvas::OnPaint
)
720 MyCanvas::MyCanvas( wxWindow
*parent
)
721 : wxWindow( parent
, wxID_ANY
),
722 m_colour(*wxRED
), m_font(*wxNORMAL_FONT
)
726 void MyCanvas::OnPaint( wxPaintEvent
&WXUNUSED(event
) )
732 dc
.SetBackground(wxBrush(wxT("white"), wxSOLID
));
735 // one text line height
736 wxCoord hLine
= dc
.GetCharHeight();
738 // the current text origin
742 // output the font name/info
744 fontInfo
.Printf(wxT("Font size is %d points, family: %s, encoding: %s"),
745 m_font
.GetPointSize(),
746 m_font
.GetFamilyString().c_str(),
748 GetEncodingDescription(m_font
.GetEncoding()).c_str());
750 dc
.DrawText(fontInfo
, x
, y
);
753 fontInfo
.Printf(wxT("Style: %s, weight: %s, fixed width: %s"),
754 m_font
.GetStyleString().c_str(),
755 m_font
.GetWeightString().c_str(),
756 m_font
.IsFixedWidth() ? _T("yes") : _T("no"));
758 dc
.DrawText(fontInfo
, x
, y
);
763 const wxNativeFontInfo
*info
= m_font
.GetNativeFontInfo();
766 wxString fontDesc
= m_font
.GetNativeFontInfoUserDesc();
767 fontInfo
.Printf(wxT("Native font info: %s"), fontDesc
.c_str());
769 dc
.DrawText(fontInfo
, x
, y
);
776 // prepare to draw the font
778 dc
.SetTextForeground(m_colour
);
780 // the size of one cell (Normally biggest char + small margin)
781 long maxCharWidth
, maxCharHeight
;
782 dc
.GetTextExtent(wxT("W"), &maxCharWidth
, &maxCharHeight
);
783 int w
= maxCharWidth
+ 5,
784 h
= maxCharHeight
+ 4;
787 // print all font symbols from 32 to 256 in 7 rows of 32 chars each
788 for ( int i
= 0; i
< 7; i
++ )
790 for ( int j
= 0; j
< 32; j
++ )
792 wxChar c
= (wxChar
)(32 * (i
+ 1) + j
);
794 long charWidth
, charHeight
;
795 dc
.GetTextExtent(c
, &charWidth
, &charHeight
);
799 x
+ w
*j
+ (maxCharWidth
- charWidth
) / 2 + 1,
800 y
+ h
*i
+ (maxCharHeight
- charHeight
) / 2
805 // draw the lines between them
806 dc
.SetPen(wxPen(wxColour(_T("blue")), 1, wxSOLID
));
810 for ( l
= 0; l
< 8; l
++ )
812 int yl
= y
+ h
*l
- 2;
813 dc
.DrawLine(x
- 2, yl
, x
+ 32*w
- 1, yl
);
817 for ( l
= 0; l
< 33; l
++ )
819 int xl
= x
+ w
*l
- 2;
820 dc
.DrawLine(xl
, y
- 2, xl
, y
+ 7*h
- 1);