解决方案 »

  1.   


    我上面的代码确实不行,如何才能得到类似Form标题和主菜单这种绘制效果?
      

  2.   

    在家里和公司都相同,使用VB和WM虚拟机都是相同,只有在winxp系统下没这效果
      

  3.   

    确实比较模糊,但不知道用什么词比较确切。  这种效果就像Mac和PC显示相同字体不同效果一样。ios系统的字体看上去感觉更舒服些。
    ps中也有这种类似字体的处理效果:正常、锐利、犀利、浑厚和平滑  这5中状态
      

  4.   

    在家里和公司都相同,使用VB和WM虚拟机都是相同,只有在winxp系统下没这效果
    vista以上的系统默认字体采用“微软雅黑”,看起来比较柔和、平滑。而winxp并没有这种字体,可以试着在winxp安装这种字体,程序文字指定为“微软雅黑”字体,再看看输出效果(字体下载:http://dl.pconline.com.cn/html_2/1/82/id=50601&pn=0.html
      

  5.   


    谢谢!
    本来想不管在啥字体情况下都能有这种效果,看了实现难度比较大。
    不折腾了,弄微软雅黑字体。没有就宋体,难看就难看些。[code]const
      cst_MicrElegantBlack = '微软雅黑';
      cst_Song = '宋体';
      cst_Song_En = 'SimSun';function GetDefaultFont:string;
    var
      sFontName: string;
    begin
      sFontName := cst_Song;
      if Screen.Fonts.IndexOf(cst_MicrElegantBlack) <> -1 then
        sFontName := cst_MicrElegantBlack
      else if Screen.Fonts.IndexOf(cst_Song) <> -1 then
        sFontName := cst_Song
      else if Screen.Fonts.IndexOf(cst_Song_En) <> -1 then
        sFontName := cst_Song_En;  Result := sFontName;
    end;[/code]