开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 金融证券系统 > 查看源码
CGuiEditView.cpp
资源名称：clking_src.rar　[点击查看]
上传用户：zhanglf88
上传日期：2013-11-19
资源大小：6036k
文件大小：14k
源码类别：

金融证券系统

开发平台：

Visual C++

CGuiEditView.cpp：源码内容
  1. //-----------------------------------------------------------------------//
  2. // This is a part of the GuiLib MFC Extention.  //
  3. // Modified  :  Francisco Campos  //
  4. // (C) 2002 Francisco Campos <www.beyondata.com> All rights reserved     //
  5. // This code is provided "as is", with absolutely no warranty expressed  //
  6. // or implied. Any use is at your own risk.  //
  7. // You must obtain the author's consent before you can include this code //
  8. // in a software library.  //
  9. // If the source code in  this file is used in any application  //
  10. // then acknowledgement must be made to the author of this program  //
  11. // fcampos@tutopia.com  //
  12. //-----------------------------------------------------------------------//
  14. // Copyright (C) 1998 by Juraj Rojko jrojko@twist.cz
  15. // All rights reserved
  16. //
  19. #include "stdafx.h"
  20. #include "CGuiEditView.h"
  22. #ifdef _DEBUG
  23. #define new DEBUG_NEW
  24. #undef THIS_FILE
  25. static char THIS_FILE[] = __FILE__;
  26. #endif
  28. /////////////////////////////////////////////////////////////////////////////
  29. // CGuiEditView
  31. IMPLEMENT_DYNCREATE(CGuiEditView, CRichEditView)
  33. BEGIN_MESSAGE_MAP(CGuiEditView, CRichEditView)
  34. //{{AFX_MSG_MAP(CGuiEditView)
  35. ON_CONTROL_REFLECT(EN_CHANGE, OnChange)
  36. ON_WM_CREATE()
  37. //}}AFX_MSG_MAP
  38. // Standard printing commands
  39. ON_COMMAND(ID_FILE_PRINT, CRichEditView::OnFilePrint)
  40. ON_COMMAND(ID_FILE_PRINT_DIRECT, CRichEditView::OnFilePrint)
  41. ON_COMMAND(ID_FILE_PRINT_PREVIEW, CRichEditView::OnFilePrintPreview)
  43. ON_NOTIFY_REFLECT(EN_PROTECTED, OnProtected)
  44. ON_MESSAGE(WM_SETTEXT, OnSetText)
  45. END_MESSAGE_MAP()
  47. /////////////////////////////////////////////////////////////////////////////
  48. // CGuiEditView construction/destruction
  50. CGuiEditView::CGuiEditView()
  51. {
  52. m_chComment = 1;
  53. m_bCaseSensitive = FALSE;
  54. m_bChangeCase = TRUE;
  56. SetStringQuotes(_T("""));
  58. SetKeywordColor(RGB(0,0,255), FALSE);
  59. SetConstantColor(RGB(0,0,0), TRUE);
  60. SetCommentColor(RGB(0,128,0), FALSE);
  61. SetNumberColor(RGB(255,0,255), FALSE);
  62. SetStringColor(RGB(255,0,255), FALSE);
  64. m_bInForcedChange = FALSE;
  65. m_changeType = ctUndo;
  66. m_crOldSel.cpMin = m_crOldSel.cpMax = 0;
  67. }
  69. CGuiEditView::~CGuiEditView()
  70. {
  71. }
  73. BOOL CGuiEditView::PreCreateWindow(CREATESTRUCT& cs)
  74. {
  75. // TODO: Modify the Window class or styles here by modifying
  76. //  the CREATESTRUCT cs
  78. return CRichEditView::PreCreateWindow(cs);
  79. }
  82. void CGuiEditView::OnInitialUpdate()
  83. {
  84. // Set the printing margins (720 twips = 1/2 inch).
  85. SetMargins(CRect(720, 720, 720, 720));
  87. CRichEditView::OnInitialUpdate();
  88. }
  90. /////////////////////////////////////////////////////////////////////////////
  91. // CGuiEditView printing
  93. BOOL CGuiEditView::OnPreparePrinting(CPrintInfo* pInfo)
  94. {
  95. // default preparation
  96. return DoPreparePrinting(pInfo);
  97. }
  100. /////////////////////////////////////////////////////////////////////////////
  101. // CGuiEditView diagnostics
  103. #ifdef _DEBUG
  104. void CGuiEditView::AssertValid() const
  105. {
  106. CRichEditView::AssertValid();
  107. }
  109. void CGuiEditView::Dump(CDumpContext& dc) const
  110. {
  111. CRichEditView::Dump(dc);
  112. }
  114. CVBScriptEditorDoc* CGuiEditView::GetDocument() // non-debug version is inline
  115. {
  116. ASSERT(m_pDocument->IsKindOf(RUNTIME_CLASS(CVBScriptEditorDoc)));
  117. return (CVBScriptEditorDoc*)m_pDocument;
  118. }
  119. #endif //_DEBUG
  121. /////////////////////////////////////////////////////////////////////////////
  122. // CGuiEditView message handlers
  123. void CGuiEditView::Initialize() 
  124. {
  125. PARAFORMAT2 pf;
  126. pf.cbSize = sizeof(PARAFORMAT);
  127. pf.dwMask = PFM_TABSTOPS ;
  128. pf.cTabCount = MAX_TAB_STOPS;
  129. for( int itab = 0 ; itab < pf.cTabCount  ; itab++ )
  130. pf.rgxTabs[itab] = (itab + 1) * 1440/5 ;
  132. SetParaFormat( pf );
  134. CHARFORMAT cfDefault;
  135. cfDefault.cbSize = sizeof(cfDefault);
  136. cfDefault.dwEffects = CFE_PROTECTED; 
  137. cfDefault.dwMask = CFM_BOLD | CFM_FACE | CFM_SIZE | CFM_CHARSET | CFM_PROTECTED;
  138. cfDefault.yHeight = 200;
  139. cfDefault.bCharSet = 0xEE; 
  140. strcpy(cfDefault.szFaceName, _T("Courier New")); 
  142. GetRichEditCtrl().SetDefaultCharFormat(cfDefault);
  144. GetRichEditCtrl().SetEventMask(ENM_CHANGE | ENM_SELCHANGE | ENM_PROTECTED);
  145. }
  147. void CGuiEditView::SetSLComment(TCHAR chComment, TCHAR chComment2)
  148. {
  149. m_chComment = chComment;
  150. m_chComment2 = chComment2;
  151. }
  153. void CGuiEditView::SetSLComment(LPCTSTR lpszComment)
  154. {
  155. m_strComment = lpszComment;
  156. }
  158. void CGuiEditView::AddKeywords(LPCTSTR lpszKwd)
  159. {
  160. m_strKeywords = m_strKeywords + lpszKwd;
  161. m_strKeywordsLower = m_strKeywords;
  162. if (!m_bCaseSensitive)
  163. m_strKeywordsLower.MakeLower();
  164. }
  166. void CGuiEditView::ClearKeywords()
  167. {
  168. m_strKeywords.Empty();
  169. m_strKeywordsLower.Empty();
  170. }   
  172. void CGuiEditView::AddConstants(LPCTSTR lpszConst)
  173. {
  174. m_strConstants = m_strConstants + lpszConst;
  175. m_strConstantsLower = m_strConstants;
  176. if (!m_bCaseSensitive)
  177. m_strConstantsLower.MakeLower();
  178. }
  180. void CGuiEditView::ClearConstants()
  181. {
  182. m_strConstants.Empty();
  183. m_strConstantsLower.Empty();
  184. }   
  186. void CGuiEditView::SetCaseSensitive(BOOL bSensitive)
  187. {
  188. m_bCaseSensitive = bSensitive;
  189. }
  191. void CGuiEditView::SetChangeCase(BOOL bChange)
  192. {
  193. m_bChangeCase = bChange;
  194. }
  196. void CGuiEditView::SetStringQuotes(LPCTSTR lpszStrQ)
  197. {
  198. m_strStringQuotes = lpszStrQ;
  199. }
  201. void CGuiEditView::SetKeywordColor(COLORREF clr, BOOL bBold)
  202. {
  203. m_icKeyword.clrColor = clr;
  204. m_icKeyword.bBold = bBold;
  205. }
  207. void CGuiEditView::SetConstantColor(COLORREF clr, BOOL bBold)
  208. {
  209. m_icConstant.clrColor = clr;
  210. m_icConstant.bBold = bBold;
  211. }
  213. void CGuiEditView::SetCommentColor(COLORREF clr, BOOL bBold)
  214. {
  215. m_icComment.clrColor = clr;
  216. m_icComment.bBold = bBold;
  217. }
  219. void CGuiEditView::SetNumberColor(COLORREF clr, BOOL bBold)
  220. {
  221. m_icNumber.clrColor = clr;
  222. m_icNumber.bBold = bBold;
  223. }
  225. void CGuiEditView::SetStringColor(COLORREF clr, BOOL bBold)
  226. {
  227. m_icString.clrColor = clr;
  228. m_icString.bBold = bBold;
  229. }
  230. int CGuiEditView::IsKeyword(LPCTSTR lpszSymbol)
  231. {
  232. CString strSymbol; strSymbol.Format(" %s ", lpszSymbol);
  233. if (!m_bCaseSensitive) 
  234. strSymbol.MakeLower();
  236. return m_strKeywordsLower.Find(strSymbol);
  237. }
  239. int CGuiEditView::IsConstant(LPCTSTR lpszSymbol)
  240. {
  241. CString strSymbol; strSymbol.Format(" %s ", lpszSymbol);
  242. if (!m_bCaseSensitive) 
  243. strSymbol.MakeLower();
  245. return m_strConstantsLower.Find(strSymbol);
  246. }
  248. BOOL CGuiEditView::IsStringQuote(TCHAR ch)
  249. {
  250. return (m_strStringQuotes.Find(ch) >= 0);
  251. }
  254. void CGuiEditView::SetFormatRange(int nStart, int nEnd, BOOL bBold, COLORREF clr)
  255. {
  256. if (nStart >= nEnd)
  257. return;
  259. GetRichEditCtrl().SetSel(nStart, nEnd);
  261. DWORD dwEffects = bBold?CFE_BOLD:0;
  263. CHARFORMAT cfm;
  264. cfm.cbSize = sizeof(cfm);
  265.     GetRichEditCtrl().GetSelectionCharFormat(cfm);
  267. if ((cfm.dwMask & CFM_COLOR)  && cfm.crTextColor == clr && 
  268. (cfm.dwMask & CFM_BOLD) && (cfm.dwEffects & CFE_BOLD) == dwEffects)
  269. return;
  271. cfm.dwEffects = dwEffects;
  272. cfm.crTextColor = clr;
  273. cfm.dwMask = CFM_BOLD | CFM_COLOR;
  275. GetRichEditCtrl().SetSelectionCharFormat(cfm);
  276. }
  278. void CGuiEditView::ChangeCase(int nStart, int nEnd, LPCTSTR lpsz)
  279. {
  280. ASSERT((nEnd - nStart) == (int)_tcslen(lpsz));
  282. if (!m_bCaseSensitive && m_bChangeCase) {
  283. GetRichEditCtrl().SetSel(nStart, nEnd);
  284. GetRichEditCtrl().ReplaceSel(lpsz);
  285. }
  286. }
  288. void CGuiEditView::FormatTextRange(int nStart, int nEnd)
  289. {
  290. if (nStart >= nEnd)
  291. return;
  293. m_bInForcedChange = TRUE;
  295. CHARRANGE crOldSel;
  297. GetRichEditCtrl().GetSel(crOldSel);
  298. LockWindowUpdate();
  299. GetRichEditCtrl().HideSelection(TRUE, FALSE);
  301. TCHAR *pBuffer = NULL;
  302. try {
  303. GetRichEditCtrl().SetSel(nStart, nEnd);
  304. pBuffer = new TCHAR[nEnd - nStart + 1];
  305. long nLen = GetRichEditCtrl().GetSelText(pBuffer);
  307. ASSERT(nLen <= nEnd - nStart);
  309. pBuffer[nLen] = 0;
  311. TCHAR *pStart, *pPtr;
  312. pStart = pPtr = pBuffer;
  314. TCHAR* pSymbolStart = NULL;
  315. SymbolColor ic;
  317. while (*pPtr != 0) {
  318. TCHAR ch = *pPtr;
  320. if (ch == m_chComment && (m_chComment2 == 0 || pPtr[1] == m_chComment2)) {
  321. pSymbolStart = pPtr;
  322. do {
  323. ch = *(++pPtr);
  324. } while (ch != 0 && ch != 'r');
  325. ic = m_icComment;
  326. } else if (IsStringQuote(ch)) { // Process strings
  327. pSymbolStart = pPtr;
  328. TCHAR ch1 = ch;
  329. do {
  330. ch = *(++pPtr);
  331. } while (ch != 0 && ch != ch1 && ch != 'r');
  332. if (ch == ch1) pPtr++;
  333. ic = m_icString;
  334. } else if (_istdigit(ch)) { // Process numbers
  335. pSymbolStart = pPtr;
  336. _tcstod(pSymbolStart, &pPtr);
  337. ic = m_icNumber;
  338. } else if (_istalpha(ch) || ch == '_') { // Process keywords
  339. pSymbolStart = pPtr;
  340. do {
  341. ch = *(++pPtr);
  342. } while (_istalnum(ch) || ch == '_');
  343. *pPtr = 0;
  344. int nPos = IsKeyword(pSymbolStart);
  345. if (nPos >= 0) {
  346. ChangeCase(nStart + pSymbolStart - pBuffer, nStart + pPtr - pBuffer, 
  347. m_strKeywords.Mid(nPos+1, pPtr - pSymbolStart));
  348. if (_tcsicmp(m_strComment, pSymbolStart) == 0) {
  349. *pPtr = ch;
  350. *pSymbolStart = m_chComment;
  351. if (pSymbolStart[1] != 0 && m_chComment2 != 0)
  352. pSymbolStart[1] = m_chComment2;
  353. pPtr = pSymbolStart;
  354. pSymbolStart = NULL;
  355. continue;
  356. }
  357. ic = m_icKeyword;
  358. } else {
  359. nPos = IsConstant(pSymbolStart);
  360. if (nPos >= 0) {
  361. ChangeCase(nStart + pSymbolStart - pBuffer, nStart + pPtr - pBuffer, 
  362. m_strConstants.Mid(nPos+1, pPtr - pSymbolStart));
  363. ic = m_icConstant;
  364. } else {
  365. pSymbolStart = NULL;
  366. }
  367. }
  368. *pPtr = ch;
  369. } else {
  370. pPtr++;
  371. }
  373. if (pSymbolStart != NULL) {
  374. ASSERT(pSymbolStart < pPtr);
  375. SetFormatRange(nStart + pStart - pBuffer, nStart + pSymbolStart - pBuffer, FALSE, RGB(0,0,0));
  376. SetFormatRange(nStart + pSymbolStart - pBuffer, nStart + pPtr - pBuffer, ic.bBold, ic.clrColor);
  377. pStart = pPtr;
  378. pSymbolStart = 0;
  379. } else if (*pPtr == 0)
  380. SetFormatRange(nStart + pStart - pBuffer, nStart + pPtr - pBuffer, FALSE, RGB(0,0,0));
  381. }
  383. } catch(...){}
  385. delete [] pBuffer;
  387. GetRichEditCtrl().SetSel(crOldSel);
  388. GetRichEditCtrl().HideSelection(FALSE, FALSE);
  389. UnlockWindowUpdate();
  391. m_bInForcedChange = FALSE;
  392. }
  394. void CGuiEditView::FormatTextLines(int nLineStart, int nLineEnd)
  395. {
  396. long nStart = GetRichEditCtrl().LineIndex(GetRichEditCtrl().LineFromChar(nLineStart));
  397. long nEnd = GetRichEditCtrl().LineIndex(GetRichEditCtrl().LineFromChar(nLineEnd));
  398. nEnd += GetRichEditCtrl().LineLength(nLineEnd);
  400. FormatTextRange(nStart, nEnd);
  401. }
  404. void CGuiEditView::FormatAll()
  405. {
  406. FormatTextRange(0, GetTextLength());
  407. }
  409. LRESULT CGuiEditView::OnSetText(WPARAM wParam, LPARAM lParam)
  410. {
  411. LRESULT res = Default();
  412. //FormatAll();
  413. return res;
  414. }
  416. void CGuiEditView::OnChange() 
  417. {
  418. if (m_bInForcedChange)
  419. return;
  421. CHARRANGE crCurSel; 
  422. GetRichEditCtrl().GetSel(crCurSel);
  424. if (m_changeType == ctMove && crCurSel.cpMin == crCurSel.cpMax) {
  425. // cut was canceled, so this is paste operation
  426. m_changeType = ctPaste;
  427. }
  429. switch(m_changeType) {
  430. case ctReplSel:// old=(x,y) -> cur=(x+len,x+len)
  431. case ctPaste:  // old=(x,y) -> cur=(x+len,x+len)
  432. FormatTextLines(m_crOldSel.cpMin, crCurSel.cpMax);
  433. break;
  434. case ctDelete: // old=(x,y) -> cur=(x,x)
  435. case ctBack:   // old=(x,y) -> cur=(x,x), newline del => old=(x,x+1) -> cur=(x-1,x-1)
  436. case ctCut:    // old=(x,y) -> cur=(x,x)
  437. FormatTextLines(crCurSel.cpMin, crCurSel.cpMax);
  438. break;
  439. case ctUndo:   // old=(?,?) -> cur=(x,y)
  440. FormatTextLines(crCurSel.cpMin, crCurSel.cpMax);
  441. break;
  442. case ctMove:   // old=(x,x+len) -> cur=(y-len,y) | cur=(y,y+len)
  443. FormatTextLines(crCurSel.cpMin, crCurSel.cpMax);
  444. if (crCurSel.cpMin > m_crOldSel.cpMin) // move after
  445. FormatTextLines(m_crOldSel.cpMin, m_crOldSel.cpMin);
  446. else // move before
  447. FormatTextLines(m_crOldSel.cpMax, m_crOldSel.cpMax);
  448. break;
  449. default:
  450. FormatAll();
  451. break;
  452. }
  454. //undo action does not call OnProtected, so make it default
  455. m_changeType = ctUndo;
  456. }
  458. void CGuiEditView::OnProtected(NMHDR* pNMHDR, LRESULT* pResult)
  459. {
  460. ENPROTECTED* pEP = (ENPROTECTED*)pNMHDR;
  462. // determine type of change will occur
  464. switch (pEP->msg) {
  465. case WM_KEYDOWN:
  466. switch (pEP->wParam) {
  467. case VK_DELETE:
  468. m_changeType = ctDelete;
  469. break;
  470. case VK_BACK:
  471. m_changeType = ctBack;
  472. break;
  473. default:
  474. m_changeType = ctUnknown;
  475. break;
  476. }
  477. break;
  478. case EM_REPLACESEL:
  479. case WM_CHAR:
  480. m_changeType = ctReplSel;
  481. break;
  482. case WM_PASTE:
  483. m_changeType = (m_changeType == ctCut)?ctMove:ctPaste;
  484. break;
  485. case WM_CUT:
  486. m_changeType = ctCut;
  487. break;
  488. case EM_SETCHARFORMAT:
  489. // Ignore this
  490. break;
  491. default:
  492. m_changeType = ctUnknown;
  493. break;
  494. };
  496. if (pEP->msg != EM_SETCHARFORMAT && m_changeType != ctMove)
  497. m_crOldSel = pEP->chrg;
  499. *pResult = FALSE;
  500. }
  502. static LPCTSTR szKeywords = " Call Const Dim Do Loop Erase Exit For To Step Next "
  503. "Each Function If Then Else On Error Resume Option Explicit Private Public Randomize "
  504. "ReDim Rem Select Case Set Sub End While Wend "
  505. "And Eqv Imp Is Mod Not Or Xor ";
  507. static LPCTSTR szConstants = " Empty False True Nothing Null "
  508. "vbBlack vbRed vbGreen vbYellow vbBlue vbMagenta vbCyan vbWhite "
  509. "vbBinaryCompare vbTextCompare vbDatabaseCompare "
  510. "vbGeneralDate vbLongDate vbShortDate vbLongTime vbShortTime "
  511. "vbSunday vbMonday vbTuesday vbWednesday vbThursday vbFriday vbSaturday "
  512. "vbFirstJan1 vbFirstFourDays vbFirstFullWeek vbUseSystem vbUseSystemDayOfWeek "
  513. "vbObjectError vbOKOnly vbOKCancel vbAbortRetryIgnore vbYesNoCancel vbYesNo "
  514. "vbRetryCancel vbCritical vbQuestion vbExclamation vbInformation "
  515. "vbDefaultButton1 vbDefaultButton2 vbDefaultButton3 vbDefaultButton4 "
  516. "vbApplicationModal vbSystemModal "
  517. "vbCr vbCrLf vbFormFeed vbLf vbNewLine vbNullChar vbNullString vbTab vbVerticalTab "
  518. "vbEmpty vbNull vbInteger vbLong vbSingle vbDouble vbCurrency vbDate vbString "
  519. "vbObject vbError vbBoolean vbVariant vbDataObject vbDecimal vbByte vbArray ";
  521. int CGuiEditView::OnCreate(LPCREATESTRUCT lpCreateStruct) 
  522. {
  523. if (CRichEditView::OnCreate(lpCreateStruct) == -1)
  524. return -1;
  526. Initialize();
  528. SetCaseSensitive(FALSE);
  529. SetStringQuotes(_T("""));
  530. SetSLComment(_T('''));
  531. SetSLComment(_T("rem"));
  532. AddKeywords(szKeywords);
  533. AddConstants(szConstants);
  535. return 0;
  536. }