让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. /*======================================================================
   
2. 1、BackSpace后退键
   
3. ======================================================================*/
   
4. macro SuperBackspace()
   
5. {
   
6.     hwnd = GetCurrentWnd();
   
7.     hbuf = GetCurrentBuf();
   
8.     if (hbuf == 0)
   
9.         stop; // empty buffer
   
10.     // get current cursor postion
    
11.     ipos = GetWndSelIchFirst(hwnd);
    
12.     // get current line number
    
13.     ln = GetBufLnCur(hbuf);
    
14.     if ((GetBufSelText(hbuf) != "") || (GetWndSelLnFirst(hwnd) != GetWndSelLnLast(hwnd))) {
    
15.         // sth. was selected, del selection
    
16.         SetBufSelText(hbuf, " "); // stupid & buggy sourceinsight
    
17.         // del the " "
    
18.         SuperBackspace(1);
    
19.         stop;
    
20.     }
    
21.     // copy current line
    
22.     text = GetBufLine(hbuf, ln);
    
23.     // get string length
    
24.     len = strlen(text);
    
25.     // if the cursor is at the start of line, combine with prev line
    
26.     if (ipos == 0 || len == 0) {
    
27.         if (ln <= 0)
    
28.             stop; // top of file
    
29.         ln = ln - 1; // do not use "ln--" for compatibility with older versions
    
30.         prevline = GetBufLine(hbuf, ln);
    
31.         prevlen = strlen(prevline);
    
32.         // combine two lines
    
33.         text = cat(prevline, text);
    
34.         // del two lines
    
35.         DelBufLine(hbuf, ln);
    
36.         DelBufLine(hbuf, ln);
    
37.         // insert the combined one
    
38.         InsBufLine(hbuf, ln, text);
    
39.         // set the cursor position
    
40.         SetBufIns(hbuf, ln, prevlen);
    
41.         stop;
    
42.     }
    
43.     num = 1; // del one char
    
44.     if (ipos >= 1) {
    
45.         // process Chinese character
    
46.         i = ipos;
    
47.         count = 0;
    
48.         while (AsciiFromChar(text[i - 1]) >= 160) {
    
49.             i = i - 1;
    
50.             count = count + 1;
    
51.             if (i == 0)
    
52.                 break;
    
53.         }
    
54.         if (count > 0) {
    
55.             // I think it might be a two-byte character
    
56.             num = 2;
    
57.             // This idiot does not support mod and bitwise operators
    
58.             if ((count / 2 * 2 != count) && (ipos < len))
    
59.                 ipos = ipos + 1; // adjust cursor position
    
60.         }
    
61.     }
    
62.     // keeping safe
    
63.     if (ipos - num < 0)
    
64.         num = ipos;
    
65.     // del char(s)
    
66.     text = cat(strmid(text, 0, ipos - num), strmid(text, ipos, len));
    
67.     DelBufLine(hbuf, ln);
    
68.     InsBufLine(hbuf, ln, text);
    
69.     SetBufIns(hbuf, ln, ipos - num);
    
70.     stop;
    
71. }
    
72. /*======================================================================
    
73. 2、删除键——SuperDelete.em
    
74. ======================================================================*/
    
75. macro SuperDelete()
    
76. {
    
77.     hwnd = GetCurrentWnd();
    
78.     hbuf = GetCurrentBuf();
    
79.     if (hbuf == 0)
    
80.         stop; // empty buffer
    
81.     // get current cursor postion
    
82.     ipos = GetWndSelIchFirst(hwnd);
    
83.     // get current line number
    
84.     ln = GetBufLnCur(hbuf);
    
85.     if ((GetBufSelText(hbuf) != "") || (GetWndSelLnFirst(hwnd) != GetWndSelLnLast(hwnd))) {
    
86.         // sth. was selected, del selection
    
87.         SetBufSelText(hbuf, " "); // stupid & buggy sourceinsight
    
88.         // del the " "
    
89.         SuperDelete(1);
    
90.         stop;
    
91.     }
    
92.     // copy current line
    
93.     text = GetBufLine(hbuf, ln);
    
94.     // get string length
    
95.     len = strlen(text);
    
96. 
    
97.     if (ipos == len || len == 0) {
    
98. totalLn = GetBufLineCount (hbuf);
    
99. lastText = GetBufLine(hBuf, totalLn-1);
    
100. lastLen = strlen(lastText);
     
101.         if (ipos == lastLen)// end of file
     
102.    stop;
     
103.         ln = ln + 1; // do not use "ln--" for compatibility with older versions
     
104.         nextline = GetBufLine(hbuf, ln);
     
105.         nextlen = strlen(nextline);
     
106.         // combine two lines
     
107.         text = cat(text, nextline);
     
108.         // del two lines
     
109.         DelBufLine(hbuf, ln-1);
     
110.         DelBufLine(hbuf, ln-1);
     
111.         // insert the combined one
     
112.         InsBufLine(hbuf, ln-1, text);
     
113.         // set the cursor position
     
114.         SetBufIns(hbuf, ln-1, len);
     
115.         stop;
     
116.     }
     
117.     num = 1; // del one char
     
118.     if (ipos > 0) {
     
119.         // process Chinese character
     
120.         i = ipos;
     
121.         count = 0;
     
122.       while (AsciiFromChar(text[i-1]) >= 160) {
     
123.             i = i - 1;
     
124.             count = count + 1;
     
125.             if (i == 0)
     
126.                 break;
     
127.         }
     
128.         if (count > 0) {
     
129.             // I think it might be a two-byte character
     
130.             num = 2;
     
131.             // This idiot does not support mod and bitwise operators
     
132.             if (((count / 2 * 2 != count) || count == 0) && (ipos < len-1))
     
133.                 ipos = ipos + 1; // adjust cursor position
     
134.         }
     
135. // keeping safe
     
136. if (ipos - num < 0)
     
137.             num = ipos;
     
138.     }
     
139.     else {
     
140. i = ipos;
     
141. count = 0;
     
142. while(AsciiFromChar(text) >= 160) {
     
143.      i = i + 1;
     
144.      count = count + 1;
     
145.      if(i == len-1)
     
146.    break;
     
147. }
     
148. if(count > 0) {
     
149.      num = 2;
     
150. }
     
151.     }
     
152. 
     
153.     text = cat(strmid(text, 0, ipos), strmid(text, ipos+num, len));
     
154.     DelBufLine(hbuf, ln);
     
155.     InsBufLine(hbuf, ln, text);
     
156.     SetBufIns(hbuf, ln, ipos);
     
157.     stop;
     
158. }
     
159. /*======================================================================
     
160. 3、左移键——SuperCursorLeft.em
     
161. ======================================================================*/
     
162. macro IsComplexCharacter()
     
163. {
     
164. hwnd = GetCurrentWnd();
     
165. hbuf = GetCurrentBuf();
     
166. if (hbuf == 0)
     
167.    return 0;
     
168. //当前位置
     
169. pos = GetWndSelIchFirst(hwnd);
     
170. //当前行数
     
171. ln = GetBufLnCur(hbuf);
     
172. //得到当前行
     
173. text = GetBufLine(hbuf, ln);
     
174. //得到当前行长度
     
175. len = strlen(text);
     
176. //从头计算汉字字符的个数
     
177. if(pos > 0)
     
178. {
     
179.    i=pos;
     
180.    count=0;
     
181.    while(AsciiFromChar(text[i-1]) >= 160)
     
182.    {
     
183.     i = i - 1;
     
184.     count = count+1;
     
185.     if(i == 0)
     
186.      break;
     
187.    }
     
188.    if((count/2)*2==count|| count==0)
     
189.     return 0;
     
190.    else
     
191.     return 1;
     
192. }
     
193. return 0;
     
194. }
     
195. macro moveleft()
     
196. {
     
197. hwnd = GetCurrentWnd();
     
198. hbuf = GetCurrentBuf();
     
199. if (hbuf == 0)
     
200.         stop; // empty buffer
     
201. 
     
202. ln = GetBufLnCur(hbuf);
     
203. ipos = GetWndSelIchFirst(hwnd);
     
204. if(GetBufSelText(hbuf) != "" || (ipos == 0 && ln == 0)) // 第0行或者是选中文字,则不移动
     
205. {
     
206.    SetBufIns(hbuf, ln, ipos);
     
207.    stop;
     
208. }
     
209. if(ipos == 0)
     
210. {
     
211.    preLine = GetBufLine(hbuf, ln-1);
     
212.    SetBufIns(hBuf, ln-1, strlen(preLine)-1);
     
213. }
     
214. else
     
215. {
     
216.    SetBufIns(hBuf, ln, ipos-1);
     
217. }
     
218. }
     
219. macro SuperCursorLeft()
     
220. {
     
221. moveleft();
     
222. if(IsComplexCharacter())
     
223.    moveleft();
     
224. }
     
225. /*======================================================================
     
226. 4、右移键——SuperCursorRight.em
     
227. ======================================================================*/
     
228. macro moveRight()
     
229. {
     
230. hwnd = GetCurrentWnd();
     
231. hbuf = GetCurrentBuf();
     
232. if (hbuf == 0)
     
233.         stop; // empty buffer
     
234. ln = GetBufLnCur(hbuf);
     
235. ipos = GetWndSelIchFirst(hwnd);
     
236. totalLn = GetBufLineCount(hbuf);
     
237. text = GetBufLine(hbuf, ln);
     
238. if(GetBufSelText(hbuf) != "") //选中文字
     
239. {
     
240.    ipos = GetWndSelIchLim(hwnd);
     
241.    ln = GetWndSelLnLast(hwnd);
     
242.    SetBufIns(hbuf, ln, ipos);
     
243.    stop;
     
244. }
     
245. if(ipos == strlen(text)-1 && ln == totalLn-1) // 末行
     
246.    stop;
     
247. if(ipos == strlen(text))
     
248. {
     
249.    SetBufIns(hBuf, ln+1, 0);
     
250. }
     
251. else
     
252. {
     
253.    SetBufIns(hBuf, ln, ipos+1);
     
254. }
     
255. }
     
256. macro SuperCursorRight()
     
257. {
     
258. moveRight();
     
259. if(IsComplexCharacter()) // defined in SuperCursorLeft.em
     
260.    moveRight();
     
261. }
     
262. /*======================================================================
     
263. 5、shift+右移键——ShiftCursorRight.em
     
264. ======================================================================*/
     
265. macro IsShiftRightComplexCharacter()
     
266. {
     
267. hwnd = GetCurrentWnd();
     
268. hbuf = GetCurrentBuf();
     
269. if (hbuf == 0)
     
270.    return 0;
     
271. selRec = GetWndSel(hwnd);
     
272. pos = selRec.ichLim;
     
273. ln = selRec.lnLast;
     
274. text = GetBufLine(hbuf, ln);
     
275. len = strlen(text);
     
276. if(len == 0 || len < pos)
     
277. return 1;
     
278. //Msg("@len@;@pos@;");
     
279. if(pos > 0)
     
280. {
     
281.    i=pos;
     
282.    count=0;
     
283.    while(AsciiFromChar(text[i-1]) >= 160)
     
284.    {
     
285.     i = i - 1;
     
286.     count = count+1;
     
287.     if(i == 0)
     
288.      break;
     
289.    }
     
290.    if((count/2)*2==count|| count==0)
     
291.     return 0;
     
292.    else
     
293.     return 1;
     
294. }
     
295. return 0;
     
296. }
     
297. macro shiftMoveRight()
     
298. {
     
299. hwnd = GetCurrentWnd();
     
300. hbuf = GetCurrentBuf();
     
301. if (hbuf == 0)
     
302.         stop; 
     
303. 
     
304. ln = GetBufLnCur(hbuf);
     
305. ipos = GetWndSelIchFirst(hwnd);
     
306. totalLn = GetBufLineCount(hbuf);
     
307. text = GetBufLine(hbuf, ln);
     
308. selRec = GetWndSel(hwnd);
     
309. curLen = GetBufLineLength(hbuf, selRec.lnLast);
     
310. if(selRec.ichLim == curLen+1 || curLen == 0)
     
311. {
     
312.    if(selRec.lnLast == totalLn -1)
     
313.     stop;
     
314.    selRec.lnLast = selRec.lnLast + 1;
     
315.    selRec.ichLim = 1;
     
316.    SetWndSel(hwnd, selRec);
     
317.    if(IsShiftRightComplexCharacter())
     
318.     shiftMoveRight();
     
319.    stop;
     
320. }
     
321. selRec.ichLim = selRec.ichLim+1;
     
322. SetWndSel(hwnd, selRec);
     
323. }
     
324. macro SuperShiftCursorRight()
     
325. {
     
326. if(IsComplexCharacter())
     
327.    SuperCursorRight();
     
328. shiftMoveRight();
     
329. if(IsShiftRightComplexCharacter())
     
330.    shiftMoveRight();
     
331. }
     
332. /*======================================================================
     
333. 6、shift+左移键——ShiftCursorLeft.em
     
334. ======================================================================*/
     
335. macro IsShiftLeftComplexCharacter()
     
336. {
     
337. hwnd = GetCurrentWnd();
     
338. hbuf = GetCurrentBuf();
     
339. if (hbuf == 0)
     
340.    return 0;
     
341. selRec = GetWndSel(hwnd);
     
342. pos = selRec.ichFirst;
     
343. ln = selRec.lnFirst;
     
344. text = GetBufLine(hbuf, ln);
     
345. len = strlen(text);
     
346. if(len == 0 || len < pos)
     
347.    return 1;
     
348. //Msg("@len@;@pos@;");
     
349. if(pos > 0)
     
350. {
     
351.    i=pos;
     
352.    count=0;
     
353.    while(AsciiFromChar(text[i-1]) >= 160)
     
354.    {
     
355.     i = i - 1;
     
356.     count = count+1;
     
357.     if(i == 0)
     
358.      break;
     
359.    }
     
360.    if((count/2)*2==count|| count==0)
     
361.     return 0;
     
362.    else
     
363.     return 1;
     
364. }
     
365. return 0;
     
366. }
     
367. macro shiftMoveLeft()
     
368. {
     
369. hwnd = GetCurrentWnd();
     
370. hbuf = GetCurrentBuf();
     
371. if (hbuf == 0)
     
372.         stop; 
     
373. 
     
374. ln = GetBufLnCur(hbuf);
     
375. ipos = GetWndSelIchFirst(hwnd);
     
376. totalLn = GetBufLineCount(hbuf);
     
377. text = GetBufLine(hbuf, ln);
     
378. selRec = GetWndSel(hwnd);
     
379. //curLen = GetBufLineLength(hbuf, selRec.lnFirst);
     
380. //Msg("@curLen@;@selRec@");
     
381. if(selRec.ichFirst == 0)
     
382. {
     
383.    if(selRec.lnFirst == 0)
     
384.     stop;
     
385.    selRec.lnFirst = selRec.lnFirst - 1;
     
386.    selRec.ichFirst = GetBufLineLength(hbuf, selRec.lnFirst)-1;
     
387.    SetWndSel(hwnd, selRec);
     
388.    if(IsShiftLeftComplexCharacter())
     
389.     shiftMoveLeft();
     
390.    stop;
     
391. }
     
392. selRec.ichFirst = selRec.ichFirst-1;
     
393. SetWndSel(hwnd, selRec);
     
394. }
     
395. macro SuperShiftCursorLeft()
     
396. {
     
397. if(IsComplexCharacter())
     
398.    SuperCursorLeft();
     
399. shiftMoveLeft();
     
400. if(IsShiftLeftComplexCharacter())
     
401.    shiftMoveLeft();
     
402. }
     
403. /*---END---*/