让Source Insight完美支持中文注释

转载自：http://blog.chinaunix.net/uid-10540984-id-3214137.html

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

-------Source Insight3 中文操作(左右键、删除和后退键）支持宏-------
感谢丁兆杰（zhaojie.ding@gmail.com）及互联网上辛勤耕耘的朋友们！！！
Evan: sdcw@163.com

① 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---*/