文档章节

GdiPlus[25]: IGPInstalledFontCollection: 获取已安装的字体列表

涂孟超
 涂孟超
发布于 2014/09/26 15:33
字数 125
阅读 9
收藏 0

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    Button1: TButton;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

uses GdiPlus;

//通过 IGPInstalledFontCollection 获取字体列表
procedure TForm1.Button1Click(Sender: TObject);
var
  FontCollection: IGPInstalledFontCollection;
  FontFamily: IGPFontFamily;
begin
  FontCollection := TGPInstalledFontCollection.Create;

  Text := Format('字体总数: %d', [FontCollection.Families.Count]);

  ListBox1.Clear;
  for FontFamily in FontCollection.Families do
  begin
    ListBox1.Items.Add(FontFamily.FamilyName);
  end;
end;

//通过 Screen 获取字体列表
procedure TForm1.Button2Click(Sender: TObject);
begin
  Text := Format('字体总数: %d', [Screen.Fonts.Count]);
  ListBox1.Items.Assign(Screen.Fonts);
end;

end.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2009/12/15/1624930.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
Linux 下使用 Wine 安装运行 TM2008 Beta 及乱码、与 Windows 共享聊天

前言 腾讯已经发布了官方的 QQ for Linux,虽然有很多问题,例如没有 amd64 版本,功能太弱,聊天记录格式与 Windows 下的 QQ/TM 格式不一致等等,但无疑是 Linux 里使用 QQ/TM 最简单的方案...

红薯
2009/03/14
1K
1
vs 2005 添加GDI配置

在VS2005当中由于自带了GDI+的开发包,所以不需要在安装GDI开发包,这些头文件的位置由VS中的$(WindowsSdkDir)/include自动包含进来了 下午自己添加了好几次,总是出现有报错,,在 stdafx.h...

种地瓜
2015/12/08
85
0
Python使用openpyxl读写excel文件

Python使用读写excel文件 Python使用openpyxl读写excel文件 这是一个第三方库,可以处理xlsx格式的Excel文件。pip install openpyxl安装。如果使用Aanconda,应该自带了。 读取Excel文件 需要...

知止内明
04/21
0
0
深度字体安装器 V1.0 正式发布,打造个性化字体库

深度家族又添加了一个新成员,深度字体安装器V1.0正式发布啦! 深度字体安装器是一款字体安装和卸载工具,简化字体安装和卸载的操作,支持批量安装、字体信息识别等功能,让您轻松用上喜欢的...

melodyzou
03/07
1K
16
MFC边框重绘

? 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 pragma once incl......

江河海流
2016/01/30
509
0

没有更多内容

加载失败,请刷新页面

加载更多

微服务分布式事务实现

https://www.processon.com/view/link/5b2144d7e4b001a14d3d2d30

WALK_MAN
今天
2
0
《大漠烟尘》读书笔记及读后感文章3700字

《大漠烟尘》读书笔记及读后感文章3700字: 在这个浮躁的社会里,你有多久没有好好读完一本书了? 我们总觉得自己和别人不一样,所以当看到别人身上的问题时,很少有“反求诸己”,反思自己。...

原创小博客
今天
3
0
大数据教程(9.5)用MR实现sql中的jion逻辑

上一篇博客讲解了使用jar -jar的方式来运行提交MR程序,以及通过修改YarnRunner的源码来实现MR的windows开发环境提交到集群的方式。本篇博主将分享sql中常见的join操作。 一、需求 订单数据表...

em_aaron
今天
3
0
十万个为什么之什么是resultful规范

起源 越来越多的人开始意识到,网站即软件,而且是一种新型的软件。这种"互联网软件"采用客户端/服务器模式,建立在分布式体系上,通过互联网通信,具有高延时(high latency)、高并发等特点...

尾生
今天
3
0
Terraform配置文件(Terraform configuration)

Terraform配置文件 翻译自Terraform Configuration Terraform用文本文件来描述设备、设置变量。这些文件被称为Terraform配置文件,以.tf结尾。这一部分将讲述Terraform配置文件的加载与格式。...

buddie
今天
5
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部