让Source Insight完美支持中文注释

文章来源：http://blog.chinaunix.net/uid-10540984-id-3214137.html

如何让source insight支持中文注释，解决回车删除，移动光标出现乱码的问题？下面是解决方案：

-------Source Insight3 中文操作(左右键、删除和后退键）支持宏-------

感谢丁兆杰（[email protected]）及互联网上辛勤耕耘的朋友们！！！

Evan: [email protected]

① Project→Open Project，打开Base项目，将文中代码框中的所有内容函数复制到utils.em文件的最后；

② 重启SourceInsight；

③ Options→Key Assignments，将下面宏依次与相应按键绑定：

Marco: SuperBackspace绑定到BackSpace键；

Marco: SuperCursorLeft绑定到<-键，

Marco: SuperCursorRight绑定到->键，

Marco: SuperShiftCursorLeft绑定到Shift+<-，

Macro: SuperShiftCursorRight绑定到shift+->，

Macro: SuperDelete绑定到del。

④ Enjoy

------------解决source insight 中文间距的方法：-----------------

默认情况下，往Source Insight里输入中文，字间距相当的大，要解决这个问题，具体设置如下：

1. Options->Style Properties

2. 在左边Style Name下找到Comment Multi Line和Comment.在其右边对应的Font属性框下的

Font Name中选“Pick...” 设置为宋体、常规、小四。确定，退回Style Properties界面，

Size设为10。最后设置Clolors框下Foreground，点“Pick...”选择一种自己喜欢的颜色就OK了。

代码：

 /*======================================================================
 1、BackSpace后退键
 ======================================================================*/
 macro SuperBackspace()
 {
     hwnd = GetCurrentWnd();
     hbuf = GetCurrentBuf();
     if (hbuf == 0)
         stop; // empty buffer
     // get current cursor postion
     ipos = GetWndSelIchFirst(hwnd);
     // get current line number
     ln = GetBufLnCur(hbuf);
     if ((GetBufSelText(hbuf) != "") || (GetWndSelLnFirst(hwnd) != GetWndSelLnLast(hwnd))) {
         // sth. was selected, del selection
         SetBufSelText(hbuf, " "); // stupid & buggy sourceinsight
         // del the " "
         SuperBackspace(1);
         stop;
     }
     // copy current line
     text = GetBufLine(hbuf, ln);
     // get string length
     len = strlen(text);
     // if the cursor is at the start of line, combine with prev line
     if (ipos == 0 || len == 0) {
         if (ln <= 0)
             stop; // top of file
         ln = ln - 1; // do not use "ln--" for compatibility with older versions
         prevline = GetBufLine(hbuf, ln);
         prevlen = strlen(prevline);
         // combine two lines
         text = cat(prevline, text);
         // del two lines
         DelBufLine(hbuf, ln);
         DelBufLine(hbuf, ln);
         // insert the combined one
         InsBufLine(hbuf, ln, text);
         // set the cursor position
         SetBufIns(hbuf, ln, prevlen);
         stop;
     }
     num = 1; // del one char
     if (ipos >= 1) {
         // process Chinese character
         i = ipos;
         count = 0;
         while (AsciiFromChar(text[i - 1]) >= 160) {
             i = i - 1;
             count = count + 1;
             if (i == 0)
                 break;
         }
         if (count > 0) {
             // I think it might be a two-byte character
             num = 2;
             // This idiot does not support mod and bitwise operators
             if ((count / 2 * 2 != count) && (ipos < len))
                 ipos = ipos + 1; // adjust cursor position
         }
     }
     // keeping safe
     if (ipos - num < 0)
         num = ipos;
     // del char(s)
     text = cat(strmid(text, 0, ipos - num), strmid(text, ipos, len));
     DelBufLine(hbuf, ln);
     InsBufLine(hbuf, ln, text);
     SetBufIns(hbuf, ln, ipos - num);
     stop;
 }
 /*======================================================================
 2、删除键——SuperDelete.em
 ======================================================================*/
 macro SuperDelete()
 {
     hwnd = GetCurrentWnd();
     hbuf = GetCurrentBuf();
     if (hbuf == 0)
         stop; // empty buffer
     // get current cursor postion
     ipos = GetWndSelIchFirst(hwnd);
     // get current line number
     ln = GetBufLnCur(hbuf);
     if ((GetBufSelText(hbuf) != "") || (GetWndSelLnFirst(hwnd) != GetWndSelLnLast(hwnd))) {
         // sth. was selected, del selection
         SetBufSelText(hbuf, " "); // stupid & buggy sourceinsight
         // del the " "
         SuperDelete(1);
         stop;
     }
     // copy current line
     text = GetBufLine(hbuf, ln);
     // get string length
     len = strlen(text);

     if (ipos == len || len == 0) {
 totalLn = GetBufLineCount (hbuf);
 lastText = GetBufLine(hBuf, totalLn-1);
 lastLen = strlen(lastText);
         if (ipos == lastLen)// end of file
    stop;
         ln = ln + 1; // do not use "ln--" for compatibility with older versions
         nextline = GetBufLine(hbuf, ln);
         nextlen = strlen(nextline);
         // combine two lines
         text = cat(text, nextline);
         // del two lines
         DelBufLine(hbuf, ln-1);
         DelBufLine(hbuf, ln-1);
         // insert the combined one
         InsBufLine(hbuf, ln-1, text);
         // set the cursor position
         SetBufIns(hbuf, ln-1, len);
         stop;
     }
     num = 1; // del one char
     if (ipos > 0) {
         // process Chinese character
         i = ipos;
         count = 0;
       while (AsciiFromChar(text[i-1]) >= 160) {
             i = i - 1;
             count = count + 1;
             if (i == 0)
                 break;
         }
         if (count > 0) {
             // I think it might be a two-byte character
             num = 2;
             // This idiot does not support mod and bitwise operators
             if (((count / 2 * 2 != count) || count == 0) && (ipos < len-1))
                 ipos = ipos + 1; // adjust cursor position
         }
 // keeping safe
 if (ipos - num < 0)
             num = ipos;
     }
     else {
 i = ipos;
 count = 0;
 while(AsciiFromChar(text) >= 160) {
      i = i + 1;
      count = count + 1;
      if(i == len-1)
    break;
 }
 if(count > 0) {
      num = 2;
 }
     }

     text = cat(strmid(text, 0, ipos), strmid(text, ipos+num, len));
     DelBufLine(hbuf, ln);
     InsBufLine(hbuf, ln, text);
     SetBufIns(hbuf, ln, ipos);
     stop;
 }
 /*======================================================================
 3、左移键——SuperCursorLeft.em
 ======================================================================*/
 macro IsComplexCharacter()
 {
 hwnd = GetCurrentWnd();
 hbuf = GetCurrentBuf();
 if (hbuf == 0)
    return 0;
 //当前位置
 pos = GetWndSelIchFirst(hwnd);
 //当前行数
 ln = GetBufLnCur(hbuf);
 //得到当前行
 text = GetBufLine(hbuf, ln);
 //得到当前行长度
 len = strlen(text);
 //从头计算汉字字符的个数
 if(pos > 0)
 {
    i=pos;
    count=0;
    while(AsciiFromChar(text[i-1]) >= 160)
    {
     i = i - 1;
     count = count+1;
     if(i == 0)
      break;
    }
    if((count/2)*2==count|| count==0)
     return 0;
    else
     return 1;
 }
 return 0;
 }
 macro moveleft()
 {
 hwnd = GetCurrentWnd();
 hbuf = GetCurrentBuf();
 if (hbuf == 0)
         stop; // empty buffer

 ln = GetBufLnCur(hbuf);
 ipos = GetWndSelIchFirst(hwnd);
 if(GetBufSelText(hbuf) != "" || (ipos == 0 && ln == 0)) // 第0行或者是选中文字,则不移动
 {
    SetBufIns(hbuf, ln, ipos);
    stop;
 }
 if(ipos == 0)
 {
    preLine = GetBufLine(hbuf, ln-1);
    SetBufIns(hBuf, ln-1, strlen(preLine)-1);
 }
 else
 {
    SetBufIns(hBuf, ln, ipos-1);
 }
 }
 macro SuperCursorLeft()
 {
 moveleft();
 if(IsComplexCharacter())
    moveleft();
 }
 /*======================================================================
 4、右移键——SuperCursorRight.em
 ======================================================================*/
 macro moveRight()
 {
 hwnd = GetCurrentWnd();
 hbuf = GetCurrentBuf();
 if (hbuf == 0)
         stop; // empty buffer
 ln = GetBufLnCur(hbuf);
 ipos = GetWndSelIchFirst(hwnd);
 totalLn = GetBufLineCount(hbuf);
 text = GetBufLine(hbuf, ln);
 if(GetBufSelText(hbuf) != "") //选中文字
 {
    ipos = GetWndSelIchLim(hwnd);
    ln = GetWndSelLnLast(hwnd);
    SetBufIns(hbuf, ln, ipos);
    stop;
 }
 if(ipos == strlen(text)-1 && ln == totalLn-1) // 末行
    stop;
 if(ipos == strlen(text))
 {
    SetBufIns(hBuf, ln+1, 0);
 }
 else
 {
    SetBufIns(hBuf, ln, ipos+1);
 }
 }
 macro SuperCursorRight()
 {
 moveRight();
 if(IsComplexCharacter()) // defined in SuperCursorLeft.em
    moveRight();
 }
 /*======================================================================
 5、shift+右移键——ShiftCursorRight.em
 ======================================================================*/
 macro IsShiftRightComplexCharacter()
 {
 hwnd = GetCurrentWnd();
 hbuf = GetCurrentBuf();
 if (hbuf == 0)
    return 0;
 selRec = GetWndSel(hwnd);
 pos = selRec.ichLim;
 ln = selRec.lnLast;
 text = GetBufLine(hbuf, ln);
 len = strlen(text);
 if(len == 0 || len < pos)
 return 1;
 //Msg("@len@;@pos@;");
 if(pos > 0)
 {
    i=pos;
    count=0;
    while(AsciiFromChar(text[i-1]) >= 160)
    {
     i = i - 1;
     count = count+1;
     if(i == 0)
      break;
    }
    if((count/2)*2==count|| count==0)
     return 0;
    else
     return 1;
 }
 return 0;
 }
 macro shiftMoveRight()
 {
 hwnd = GetCurrentWnd();
 hbuf = GetCurrentBuf();
 if (hbuf == 0)
         stop;

 ln = GetBufLnCur(hbuf);
 ipos = GetWndSelIchFirst(hwnd);
 totalLn = GetBufLineCount(hbuf);
 text = GetBufLine(hbuf, ln);
 selRec = GetWndSel(hwnd);
 curLen = GetBufLineLength(hbuf, selRec.lnLast);
 if(selRec.ichLim == curLen+1 || curLen == 0)
 {
    if(selRec.lnLast == totalLn -1)
     stop;
    selRec.lnLast = selRec.lnLast + 1;
    selRec.ichLim = 1;
    SetWndSel(hwnd, selRec);
    if(IsShiftRightComplexCharacter())
     shiftMoveRight();
    stop;
 }
 selRec.ichLim = selRec.ichLim+1;
 SetWndSel(hwnd, selRec);
 }
 macro SuperShiftCursorRight()
 {
 if(IsComplexCharacter())
    SuperCursorRight();
 shiftMoveRight();
 if(IsShiftRightComplexCharacter())
    shiftMoveRight();
 }
 /*======================================================================
 6、shift+左移键——ShiftCursorLeft.em
 ======================================================================*/
 macro IsShiftLeftComplexCharacter()
 {
 hwnd = GetCurrentWnd();
 hbuf = GetCurrentBuf();
 if (hbuf == 0)
    return 0;
 selRec = GetWndSel(hwnd);
 pos = selRec.ichFirst;
 ln = selRec.lnFirst;
 text = GetBufLine(hbuf, ln);
 len = strlen(text);
 if(len == 0 || len < pos)
    return 1;
 //Msg("@len@;@pos@;");
 if(pos > 0)
 {
    i=pos;
    count=0;
    while(AsciiFromChar(text[i-1]) >= 160)
    {
     i = i - 1;
     count = count+1;
     if(i == 0)
      break;
    }
    if((count/2)*2==count|| count==0)
     return 0;
    else
     return 1;
 }
 return 0;
 }
 macro shiftMoveLeft()
 {
 hwnd = GetCurrentWnd();
 hbuf = GetCurrentBuf();
 if (hbuf == 0)
         stop;

 ln = GetBufLnCur(hbuf);
 ipos = GetWndSelIchFirst(hwnd);
 totalLn = GetBufLineCount(hbuf);
 text = GetBufLine(hbuf, ln);
 selRec = GetWndSel(hwnd);
 //curLen = GetBufLineLength(hbuf, selRec.lnFirst);
 //Msg("@curLen@;@selRec@");
 if(selRec.ichFirst == 0)
 {
    if(selRec.lnFirst == 0)
     stop;
    selRec.lnFirst = selRec.lnFirst - 1;
    selRec.ichFirst = GetBufLineLength(hbuf, selRec.lnFirst)-1;
    SetWndSel(hwnd, selRec);
    if(IsShiftLeftComplexCharacter())
     shiftMoveLeft();
    stop;
 }
 selRec.ichFirst = selRec.ichFirst-1;
 SetWndSel(hwnd, selRec);
 }
 macro SuperShiftCursorLeft()
 {
 if(IsComplexCharacter())
    SuperCursorLeft();
 shiftMoveLeft();
 if(IsShiftLeftComplexCharacter())
    shiftMoveLeft();
 }
 /*---END---*/