Source Insight添加 注释 宏

1.Project--->Open Project... 打开Base工程。

 2.选中Base工程的文件Utils.em，将下面代码Copy进去。

macro MultiLineComment()  
{  
    hwnd = GetCurrentWnd()  
    selection = GetWndSel(hwnd)  
    LnFirst = GetWndSelLnFirst(hwnd)      //fetch Line First
    LnLast = GetWndSelLnLast(hwnd)      //fetch Line Last
    hbuf = GetCurrentBuf()  
   
    if(GetBufLine(hbuf, 0) == "//magic-number:tph85666031"){  
        stop  
    }  
   
    Ln = Lnfirst  
    buf = GetBufLine(hbuf, Ln)  
    len = strlen(buf)  
   
    while(Ln <= Lnlast) {  
        buf = GetBufLine(hbuf, Ln) 
        if(buf == ""){                     
            Ln = Ln + 1  
            continue  
        }  
   
        if(StrMid(buf, 0, 1) == "/") {       
            if(StrMid(buf, 1, 2) == "/"){  
                PutBufLine(hbuf, Ln, StrMid(buf, 2, Strlen(buf)))  
            }  
        }  
   
        if(StrMid(buf,0,1) != "/"){
            PutBufLine(hbuf, Ln, Cat("//", buf))  
        }  
        Ln = Ln + 1  
    }  
   
    SetWndSel(hwnd, selection)  
}  

3.Option-->Key Assignments... 在Command下找到宏MultiLineComment，并设置快捷键“Ctrl+8”为注释键。

4.回到原工程，即可使用CTRL+8组合快捷键添加注释。