void Edit::OnUseCharset (wxCommandEvent &event) {
int Nr;
int charset = GetCodePage();
switch (event.GetId()) {
case myID_CHARSETANSI: {charset = wxSTC_CHARSET_ANSI; break;}
case myID_CHARSETMAC: {charset = wxSTC_CHARSET_ANSI; break;}
}
for (Nr = 0; Nr < wxSTC_STYLE_LASTPREDEFINED; Nr++) {
StyleSetCharacterSet (Nr, charset);
}
SetCodePage (charset);
}
ScriptEditor::ScriptEditor(wxWindow *parent, wxWindowID id, ScriptEditorPane *owner)
: wxStyledTextCtrl(parent, id), owner(owner)
{
SetLexer(wxSTC_LEX_SQL);
#if wxUSE_UNICODE
SetCodePage(wxSTC_CP_UTF8);
#endif
SetKeyWords(0, WordList_keywords);
SetKeyWords(1, WordList_database_objects);
SetKeyWords(3, WordList_sqlplus);
SetKeyWords(4, WordList_user1);
SetKeyWords(5, WordList_user2);
SetKeyWords(6, WordList_user3);
SetKeyWords(7, WordList_user4);
StyleClearAll();
// taken from sql.properties in scite
StyleSetSpec(wxSTC_SQL_DEFAULT, _T("fore:#808080"));
StyleSetSpec(wxSTC_SQL_COMMENT, _T("fore:#007f00")); // + font.comment
StyleSetSpec(wxSTC_SQL_COMMENTLINE, _T("fore:#007f00")); // + font.comment
StyleSetSpec(wxSTC_SQL_COMMENTDOC, _T("fore:#7f7f7f"));
StyleSetSpec(wxSTC_SQL_NUMBER, _T("fore:#007f7f"));
StyleSetSpec(wxSTC_SQL_WORD, _T("fore:#00007F,bold"));
StyleSetSpec(wxSTC_SQL_STRING, _T("fore:#7f007f")); // + font.monospace
StyleSetSpec(wxSTC_SQL_CHARACTER, _T("fore:#7f007f")); // + font.monospace
StyleSetSpec(wxSTC_SQL_SQLPLUS, _T("fore:#7F7F00")); // colour.preproc
StyleSetSpec(wxSTC_SQL_SQLPLUS_PROMPT, _T("fore:#007F00,back:#E0FFE0,eolfilled")); // + font.monospace
StyleSetSpec(wxSTC_SQL_OPERATOR, _T("bold"));
StyleSetSpec(wxSTC_SQL_IDENTIFIER, _T(""));
StyleSetSpec(wxSTC_SQL_COMMENTLINEDOC, _T("fore:#007f00")); // + font.comment
StyleSetSpec(wxSTC_SQL_WORD2, _T("fore:#b00040"));
StyleSetSpec(wxSTC_SQL_COMMENTDOCKEYWORD, _T("fore:#3060a0")); // + font.code.comment.doc
StyleSetSpec(wxSTC_SQL_COMMENTDOCKEYWORDERROR, _T("fore:#804020")); // + font.code.comment.doc
StyleSetSpec(wxSTC_SQL_USER1, _T("fore:#4b0082"));
StyleSetSpec(wxSTC_SQL_USER2, _T("fore:#b00040"));
StyleSetSpec(wxSTC_SQL_USER3, _T("fore:#8b0000"));
StyleSetSpec(wxSTC_SQL_USER4, _T("fore:#800080"));
}
void ScriptEditCtrl::Impl::PreSubclassWindow()
{
self_->m_hWnd = m_hWnd; // expose HWND
SetupDirectAccess();
// If we are running as Unicode, then use the UTF8 codepage
#ifdef _UNICODE
SetCodePage(SC_CP_UTF8);
#endif
SetLexer(SCLEX_LUA);
StyleSetFont(STYLE_DEFAULT, "Lucida Console");
StyleSetSize(STYLE_DEFAULT, 10);
SetKeyWords(0, LuaKeywords);
SetKeyWords(1, LuaFunctions);
if (enable_input_attribs_)
SetKeyWords(2, LuaUser);
SetKeyWords(3, ConcatAttributes().c_str());
COLORREF comment= RGB(0,128,128);
COLORREF string= RGB(128,128,0);
StyleSetFore(SCE_LUA_COMMENT, comment);
StyleSetFore(SCE_LUA_COMMENTLINE, comment);
StyleSetFore(SCE_LUA_COMMENTDOC, comment);
StyleSetFore(SCE_LUA_NUMBER, RGB(0,0,255));
StyleSetFore(SCE_LUA_WORD, RGB(34,78,160)); // keywords
StyleSetFore(SCE_LUA_STRING, string);
StyleSetFore(SCE_LUA_CHARACTER, string);
StyleSetFore(SCE_LUA_LITERALSTRING, string);
StyleSetFore(SCE_LUA_WORD2, RGB(53,113,202)); // functions
StyleSetFore(SCE_LUA_WORD3, RGB(124,37,203)); // test & number
StyleSetBack(SCE_LUA_WORD3, CalcColor(::GetSysColor(COLOR_WINDOW), RGB(0,0,255), 0.95f));
StyleSetFore(SCE_LUA_WORD4, RGB(164,97,49)); // todo: attributes
StyleSetFont(SCE_LUA_WORD, "Lucida Console");
StyleSetSize(SCE_LUA_WORD, 10);
StyleSetBold(SCE_LUA_WORD, true);
//#define SCE_LUA_PREPROCESSOR 9
//#define SCE_LUA_OPERATOR 10
//#define SCE_LUA_IDENTIFIER 11
//#define SCE_LUA_STRINGEOL 12
//#define SCE_LUA_WORD2 13
//#define SCE_LUA_WORD3 14
//#define SCE_LUA_WORD4 15
//#define SCE_LUA_WORD5 16
//#define SCE_LUA_WORD6 17
//#define SCE_LUA_WORD7 18
//#define SCE_LUA_WORD8 19
Colorize(0, -1);
//MarkerDefine(MARKER_POINTER, SC_MARK_ARROW);
//MarkerSetBack(MARKER_POINTER, RGB(255,255,0));
//MarkerDefine(MARKER_BREAKPOINT, SC_MARK_ROUNDRECT);
//MarkerSetBack(MARKER_BREAKPOINT, RGB(0,0,255));
//MarkerDefine(MARKER_ERROR, SC_MARK_ARROW);
//MarkerSetBack(MARKER_ERROR, RGB(255,0,0));
int width= 0;
SetMarginWidthN(1, width);
SetScrollWidthTracking(true);
SetScrollWidth(1);
SetWrapMode(SC_WRAP_WORD);
SetWrapVisualFlags(SC_WRAPVISUALFLAG_END);
SetSelBack(true, CalcShade(::GetSysColor(COLOR_HIGHLIGHT), 50.0f));
SetTabWidth(4);
SetIndent(4);
DWORD pixels= 1;
::SystemParametersInfo(SPI_GETCARETWIDTH, 0, &pixels, 0);
SetCaretWidth(pixels);
// hwnd is attached, but message processing is not working yet, we are not yet subclassed,
// so postpone this WM_NCCALCSIZE call:
PostMessage(WM_APP+1234);
}
Edit::Edit (wxWindow *parent, wxWindowID id, const wxPoint &pos, const wxSize &size, long style)
: wxStyledTextCtrl (parent, id, pos, size, style) {
m_findReplace = NULL;
m_filename = wxEmptyString;
m_LineNrID = 0;
m_DividerID = 1;
m_FoldingID = 2;
// initialize language
m_language = NULL;
// Use all the bits in the style byte as styles, not indicators.
SetStyleBits(8);
#ifdef __WXOSX_COCOA__
SetZoom(4);
#endif
m_modified = false;
SetModEventMask(wxSTC_MOD_INSERTTEXT | wxSTC_MOD_DELETETEXT);
// setup unicode support
SetKeysUnicode(true);
SetCodePage(wxSTC_CP_UTF8);
wxConvCurrent = &wxConvUTF8;
// default font for all styles
SetViewEOL (g_CommonPrefs.displayEOLEnable);
SetIndentationGuides (g_CommonPrefs.indentGuideEnable);
SetEdgeMode (g_CommonPrefs.longLineOnEnable?
wxSTC_EDGE_LINE: wxSTC_EDGE_NONE);
SetViewWhiteSpace (g_CommonPrefs.whiteSpaceEnable?
wxSTC_WS_VISIBLEALWAYS: wxSTC_WS_INVISIBLE);
SetOvertype (g_CommonPrefs.overTypeInitial);
SetReadOnly (g_CommonPrefs.readOnlyInitial);
SetWrapMode (g_CommonPrefs.wrapModeInitial?
wxSTC_WRAP_WORD: wxSTC_WRAP_NONE);
wxFont font (10, wxMODERN, wxNORMAL, wxNORMAL);
StyleSetFont (wxSTC_STYLE_DEFAULT, font);
StyleSetForeground (wxSTC_STYLE_DEFAULT, *wxBLACK);
StyleSetBackground (wxSTC_STYLE_DEFAULT, *wxWHITE);
StyleSetForeground (wxSTC_STYLE_LINENUMBER, wxColour (wxT("DARK GREY")));
StyleSetBackground (wxSTC_STYLE_LINENUMBER, *wxWHITE);
StyleSetForeground(wxSTC_STYLE_INDENTGUIDE, wxColour (wxT("DARK GREY")));
InitializePrefs (DEFAULT_LANGUAGE);
// set visibility
SetVisiblePolicy (wxSTC_VISIBLE_STRICT|wxSTC_VISIBLE_SLOP, 1);
SetXCaretPolicy (wxSTC_CARET_EVEN|wxSTC_VISIBLE_STRICT|wxSTC_CARET_SLOP, 1);
SetYCaretPolicy (wxSTC_CARET_EVEN|wxSTC_VISIBLE_STRICT|wxSTC_CARET_SLOP, 1);
// markers
// ---- Enable code folding
SetMarginType(MARGIN_FOLD, wxSTC_MARGIN_SYMBOL);
SetMarginWidth(MARGIN_FOLD, 15);
SetMarginMask(MARGIN_FOLD, wxSTC_MASK_FOLDERS);
SetMarginSensitive(MARGIN_FOLD, true);
// Properties found from http://www.scintilla.org/SciTEDoc.html
SetProperty(wxT("fold"), wxT("1"));
SetProperty(wxT("fold.comment"), wxT("1"));
SetProperty(wxT("fold.compact"), wxT("1"));
SetProperty(wxT("fold"), wxT("1"));
SetProperty(wxT("fold.comment"), wxT("1"));
SetProperty(wxT("fold.compact"), wxT("1"));
SetProperty(wxT("fold.preprocessor"), wxT("1"));
MarkerDefine(wxSTC_MARKNUM_FOLDER, wxSTC_MARK_BOXPLUS, wxT("WHITE"), wxT("GREY"));
MarkerDefine(wxSTC_MARKNUM_FOLDEROPEN, wxSTC_MARK_BOXMINUS, wxT("WHITE"), wxT("GREY"));
MarkerDefine(wxSTC_MARKNUM_FOLDERSUB, wxSTC_MARK_VLINE, wxT("WHITE"), wxT("GREY"));
MarkerDefine(wxSTC_MARKNUM_FOLDEREND, wxSTC_MARK_BOXPLUSCONNECTED, wxT("WHITE"), wxT("GREY"));
MarkerDefine(wxSTC_MARKNUM_FOLDEROPENMID, wxSTC_MARK_BOXMINUSCONNECTED, wxT("WHITE"), wxT("GREY"));
MarkerDefine(wxSTC_MARKNUM_FOLDERMIDTAIL, wxSTC_MARK_TCORNER, wxT("WHITE"), wxT("GREY"));
MarkerDefine(wxSTC_MARKNUM_FOLDERTAIL, wxSTC_MARK_LCORNER, wxT("WHITE"), wxT("GREY"));
SetFoldFlags(wxSTC_FOLDFLAG_LINEBEFORE_CONTRACTED | wxSTC_FOLDFLAG_LINEAFTER_CONTRACTED);
// miscellaneous
m_LineNrMargin = TextWidth (wxSTC_STYLE_LINENUMBER, wxT("_999999"));
m_FoldingMargin = 16;
SetLayoutCache (wxSTC_CACHE_PAGE);
}