contrib/samples/stc/stctest.cpp

   1 /////////////////////////////////////////////////////////////////////////////
   2 // Name:        stctest.cpp
   3 // Purpose:     sample of using wxStyledTextCtrl
   4 // Author:      Robin Dunn
   5 // Modified by:
   6 // Created:     3-Feb-2000
   7 // RCS-ID:      $Id$
   8 // Copyright:   (c) 2000 by Total Control Software
   9 // Licence:     wxWindows licence
  10 /////////////////////////////////////////////////////////////////////////////
  11
  12 #ifdef __GNUG__
  13     #pragma implementation "stctest.cpp"
  14     #pragma interface "stctest.cpp"
  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 // for all others, include the necessary headers (this file is usually all you
  25 // need because it includes almost all "standard" wxWindows headers
  26 #ifndef WX_PRECOMP
  27     #include "wx/wx.h"
  28 #endif
  29
  30 #include <wx/wfstream.h>
  31
  32 #include <wx/stc/stc.h>
  33
  34 //----------------------------------------------------------------------
  35
  36 class MyApp : public wxApp
  37 {
  38 public:
  39     virtual bool OnInit();
  40 };
  41
  42 //----------------------------------------------------------------------
  43
  44 // Define a new frame type: this is going to be our main frame
  45 class MyFrame : public wxFrame
  46 {
  47 public:
  48     MyFrame(const wxString& title, const wxPoint& pos, const wxSize& size);
  49
  50     void OnQuit(wxCommandEvent& event);
  51     void OnAbout(wxCommandEvent& event);
  52
  53 private:
  54     wxStyledTextCtrl* ed;
  55
  56     DECLARE_EVENT_TABLE()
  57 };
  58
  59
  60 // IDs for the controls and the menu commands
  61 enum
  62 {
  63     // menu items
  64     ID_Quit = 1,
  65     ID_About,
  66     ID_ED
  67 };
  68
  69 BEGIN_EVENT_TABLE(MyFrame, wxFrame)
  70     EVT_MENU            (ID_Quit,  MyFrame::OnQuit)
  71     EVT_MENU            (ID_About, MyFrame::OnAbout)
  72 END_EVENT_TABLE()
  73
  74 IMPLEMENT_APP(MyApp)
  75
  76 //----------------------------------------------------------------------
  77 // `Main program' equivalent: the program execution "starts" here
  78
  79 bool MyApp::OnInit()
  80 {
  81     MyFrame *frame = new MyFrame("Testing wxStyledTextCtrl",
  82                                  wxPoint(5, 5), wxSize(400, 600));
  83
  84     frame->Show(TRUE);
  85     return TRUE;
  86 }
  87
  88 //----------------------------------------------------------------------
  89
  90 // frame constructor
  91 MyFrame::MyFrame(const wxString& title, const wxPoint& pos, const wxSize& size)
  92        : wxFrame((wxFrame *)NULL, -1, title, pos, size)
  93 {
  94 #ifdef __WXMAC__
  95     // we need this in order to allow the about menu relocation, since ABOUT is
  96     // not the default id of the about menu
  97     wxApp::s_macAboutMenuItemId = ID_About;
  98 #endif
  99
 100
 101     // create a menu bar
 102     wxMenu *menuFile = new wxMenu("", wxMENU_TEAROFF);
 103
 104     // the "About" item should be in the help menu
 105     wxMenu *helpMenu = new wxMenu;
 106     helpMenu->Append(ID_About, "&About...\tCtrl-A", "Show about dialog");
 107
 108     menuFile->Append(ID_Quit, "E&xit\tAlt-X", "Quit this program");
 109
 110     // now append the freshly created menu to the menu bar...
 111     wxMenuBar *menuBar = new wxMenuBar();
 112     menuBar->Append(menuFile, "&File");
 113     menuBar->Append(helpMenu, "&Help");
 114
 115     // ... and attach this menu bar to the frame
 116     SetMenuBar(menuBar);
 117
 118 #if wxUSE_STATUSBAR
 119     CreateStatusBar(2);
 120     SetStatusText("Testing wxStyledTextCtrl");
 121 #endif // wxUSE_STATUSBAR
 122
 123
 124     //----------------------------------------
 125     // Setup the editor
 126     ed = new wxStyledTextCtrl(this, ID_ED);
 127
 128     // Default font
 129     wxFont font(10, wxMODERN, wxNORMAL, wxNORMAL);
 130     ed->StyleSetFont(wxSTC_STYLE_DEFAULT, font);
 131     ed->StyleClearAll();
 132
 133     ed->StyleSetForeground(0,  wxColour(0x80, 0x80, 0x80));
 134     ed->StyleSetForeground(1,  wxColour(0x00, 0x7f, 0x00));
 135     //ed->StyleSetForeground(2,  wxColour(0x00, 0x7f, 0x00));
 136     ed->StyleSetForeground(3,  wxColour(0x7f, 0x7f, 0x7f));
 137     ed->StyleSetForeground(4,  wxColour(0x00, 0x7f, 0x7f));
 138     ed->StyleSetForeground(5,  wxColour(0x00, 0x00, 0x7f));
 139     ed->StyleSetForeground(6,  wxColour(0x7f, 0x00, 0x7f));
 140     ed->StyleSetForeground(7,  wxColour(0x7f, 0x00, 0x7f));
 141     ed->StyleSetForeground(8,  wxColour(0x00, 0x7f, 0x7f));
 142     ed->StyleSetForeground(9,  wxColour(0x7f, 0x7f, 0x7f));
 143     ed->StyleSetForeground(10, wxColour(0x00, 0x00, 0x00));
 144     ed->StyleSetForeground(11, wxColour(0x00, 0x00, 0x00));
 145     ed->StyleSetBold(5,  TRUE);
 146     ed->StyleSetBold(10, TRUE);
 147
 148 #ifdef __WXMSW__
 149     ed->StyleSetSpec(2, "fore:#007f00,bold,face:Arial,size:9");
 150 #else
 151     ed->StyleSetSpec(2, "fore:#007f00,bold,face:Helvetica,size:9");
 152 #endif
 153
 154     // give it some text to play with
 155     wxFile   file("stctest.cpp");
 156     wxString st;
 157
 158     char* buff = st.GetWriteBuf(file.Length());
 159     file.Read(buff, file.Length());
 160     st.UngetWriteBuf();
 161
 162     ed->InsertText(0, st);
 163     ed->EmptyUndoBuffer();
 164
 165     ed->SetLexer(wxSTC_LEX_CPP);
 166     ed->SetKeyWords(0,
 167                     "asm auto bool break case catch char class const "
 168                     "const_cast continue default delete do double "
 169                     "dynamic_cast else enum explicit export extern "
 170                     "false float for friend goto if inline int long "
 171                     "mutable namespace new operator private protected "
 172                     "public register reinterpret_cast return short signed "
 173                     "sizeof static static_cast struct switch template this "
 174                     "throw true try typedef typeid typename union unsigned "
 175                     "using virtual void volatile wchar_t while");
 176
 177 }
 178
 179
 180 // event handlers
 181
 182 void MyFrame::OnQuit(wxCommandEvent& WXUNUSED(event))
 183 {
 184     // TRUE is to force the frame to close
 185     Close(TRUE);
 186 }
 187
 188 void MyFrame::OnAbout(wxCommandEvent& WXUNUSED(event))
 189 {
 190     wxString msg;
 191     msg.Printf( _T("Testing wxStyledTextCtrl...\n"));
 192
 193     wxMessageBox(msg, "About This Test", wxOK | wxICON_INFORMATION, this);
 194 }