- 论坛徽章:
- 0
|
TO LZ:
打开base project ,在Utils.em文件中加:
- macro MonthToName(MonthNum)
- {
- if (MonthNum== 1)
- return "Jan"
- if (MonthNum== 2)
- return "Feb"
- if (MonthNum== 3)
- return "Mar"
- if (MonthNum== 4)
- return "Apr"
- if (MonthNum== 5)
- return "May"
- if (MonthNum== 6)
- return "Jun"
- if (MonthNum== 7)
- return "Jul"
- if (MonthNum== 8)
- return "Aug"
- if (MonthNum== 9)
- return "Sep"
- if (MonthNum== 10)
- return "Oct"
- if (MonthNum== 11)
- return "Nov"
- if (MonthNum== 12)
- return "Dec"
- }
- macro DisplayDate()
- {
- szTime = GetSysTime(1)
- Day = szTime.Day
- Month = szTime.Month
- Year = szTime.Year
- if (Day < 10)
- szDay = "0@Day@"
- else
- szDay = Day
- szMonth = MonthToName(Month)
- hbuf = GetCurrentBuf()
- SetBufSelText(hbuf, "@szMonth@ @szDay@, @Year@")
- }
复制代码
然后在:
Options->Menu Assignments 打开Menu Assignments窗口, 在Command中输入Macro, 选中要使用的宏(DisplayDate), 添加到合适的菜单中.还可以自定义快捷键,就可以了,我定义的是Ctrl+F7,放在“Edit”下面。
[ 本帖最后由 nicozhou 于 2009-7-9 13:43 编辑 ] |
|