How to change Form & Property & Report font for current User [AX2012]

对于我们开发人员来说，系统默认的字体，本人实在不喜欢，尤其是属性字体【太小，太细，根本看不清】，每次做一个新项目【AX2012】第一件事就是更改字体。

由于AX2012没有像AX2009那样，可以工具选项中自定义更改字体。微软也真是的，干吗把这个功能取消呢。有点不解啊。

所以就写个小Job，update一下。

static void THK_7519_ChangeUserFont(Args _args)
{
    UserInfo    UserInfo;
    container   con;// #! INCIDENT !#.LAST.07.11.12.JXie7519:
;
    ttsBegin;
    select firstonly forupdate UserInfo
        where UserInfo.id == curUserId();

    if(UserInfo)
    {
        UserInfo.propertyFontName   = "Tahoma";
        UserInfo.formFontName       = "Tahoma";
        UserInfo.reportFontName     = "Tahoma";

        UserInfo.doUpdate();

        con = [ "Property : "   + UserInfo.propertyFontName,    UserInfo.propertyFontSize,
                "Form     : "   + UserInfo.formFontName,        UserInfo.formFontSize,
                "Report   : "   + UserInfo.reportFontName,      UserInfo.reportFontSize];
        info(con2Str(con));
    }
    ttsCommit;
}