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