zoukankan      html  css  js  c++  java
  • 枚举当前字体

    function EnumFontFamilyProc(var lf : TLogFont;
                                var tm : TNewTextMetric;
                                FontType : integer;
                                var Memo : TMemo) : integer
    {$IFDEF WIN32} stdcall; {$ELSE} ; export; {$ENDIF}
    begin
      Memo.Lines.Add(StrPas(@lf.lfFaceName) +
                            #32 + IntToStr(lf.lfHeight));
      result := 1;
    end;

    function EnumFontFamiliesProc(var lf : TLogFont;
                                  var tm : TNewTextMetric;
                                  FontType : integer;
                                  var Memo : TMemo) : integer
    {$IFDEF WIN32} stdcall; {$ELSE} ; export; {$ENDIF}
    begin
      if FontType = TRUETYPE_FONTTYPE then begin
        Memo.Lines.Add(StrPas(@lf.lfFaceName) + #32 + 'All Sizes');
      end else
        EnumFontFamilies(Printer.Handle,
                         @lf.lfFaceName,
                         @EnumFontFamilyProc,
                         LongInt(@Memo));
      result := 1;
    end;

    procedure TForm1.Button1Click(Sender: TObject);
    var
      tm : TTextMetric;
      i : integer;
    begin
      if PrintDialog1.Execute then begin
        EnumFontFamilies(Printer.Handle,
                         nil,
                         @EnumFontFamiliesProc,
                         LongInt(@Memo1));
      end;
    end;

  • 相关阅读:
    常用Java工具类
    Enum应用
    mybatis xml <if>判断字符串相等
    sqlserver插入图片数据
    [转载]Jquery Chosen 插件动态生成option或重新绑定
    工作问题整理-- sqlserver 新增参数限制,maven pom邮件发送
    【转载】redis.windows.conf 参数说明
    oracle11g更改字符集
    oracle基础知识小结
    [转载]SQL Server 数据库定时自动备份
  • 原文地址:https://www.cnblogs.com/yzryc/p/6374302.html
Copyright © 2011-2022 走看看