文档章节

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

涂孟超
 涂孟超
发布于 2014/09/26 15:33
字数 125
阅读 9
收藏 0
点赞 0
评论 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
博文 2004
码字总数 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
0
0
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
Android Oreo 可下载字体

可下载字体是如何工作的? 基础 通过 Android Studio 和 Google Play 服务使用可下载字体 以编程方式使用可下载字体 FontsContract.FontRequestCallback callback =new FontsContract.FontRe...

Android_开发者
2017/10/25
0
0
Wine 1.5.25 发布

Wine 项目近期发布了最新的开发版 Wine 1.5.25。本版本继续完善了 Mac 上的后端驱动的开发[注1],具体包括如下更新: Mac 后端驱动对光标的正确支持。 RichEdit 对从右往左文本支持的修复。 ...

oschina
2013/03/04
1K
5
GDI+里面的问题。。。。。。。。。。

error C2248: “Gdiplus::Bitmap::Bitmap”: 无法访问 private 成员(在“Gdiplus::Bitmap”类中声明) 1> c:program filesmicrosoft sdkswindowsv7.0aincludegdiplusheaders.h(630) : 参见“G......

xxdd
2013/10/24
60
0
mac photo 破解

安装破解方法(断网安装): 软件下载完成后是一个叫PS_2015.5.zip的压缩文件,解压缩开后,是两个.dmg文件。 一个是叫AdobePhotoshop17-mul.dmg(PS官方安装包),另一个是PS2015.5破解补丁...

丁佳辉
2016/11/03
1
0
Windows环境下Android Studio系列3—简单设置

参考资料 [1] Android Studio简单设置, http://ask.android-studio.org/?/article/14 [2] Windows环境下Android Studio系列1—下载与安装, http://my.oschina.net/1pei/blog/467210 [3] Wind......

一配
2015/06/23
0
1

没有更多内容

加载失败,请刷新页面

加载更多

下一页

32.filter表案例 nat表应用 (iptables)

10.15 iptables filter表案例 10.16/10.17/10.18 iptables nat表应用 10.15 iptables filter表案例: ~1. 写一个具体的iptables小案例,需求是把80端口、22端口、21 端口放行。但是,22端口我...

王鑫linux
今天
0
0
shell中的函数&shell中的数组&告警系统需求分析

20.16/20.17 shell中的函数 20.18 shell中的数组 20.19 告警系统需求分析

影夜Linux
今天
0
0
Linux网络基础、Linux防火墙

Linux网络基础 ip addr 命令 :查看网口信息 ifconfig命令:查看网口信息,要比ip addr更明了一些 centos 7默认没安装ifconfig命令,可以使用yum install -y net-tools命令来安装。 ifconfig...

李超小牛子
今天
1
0
[机器学习]回归--Decision Tree Regression

CART决策树又称分类回归树,当数据集的因变量为连续性数值时,该树算法就是一个回归树,可以用叶节点观察的均值作为预测值;当数据集的因变量为离散型数值时,该树算法就是一个分类树,可以很...

wangxuwei
昨天
1
0
Redis做分布式无锁CAS的问题

因为Redis本身是单线程的,具备原子性,所以可以用来做分布式无锁的操作,但会有一点小问题。 public interface OrderService { public String getOrderNo();} public class OrderRe...

算法之名
昨天
9
0
143. Reorder List - LeetCode

Question 143. Reorder List Solution 题目大意:给一个链表,将这个列表分成前后两部分,后半部分反转,再将这两分链表的节点交替连接成一个新的链表 思路 :先将链表分成前后两部分,将后部...

yysue
昨天
1
0
数据结构与算法1

第一个代码,描述一个被称为BankAccount的类,该类模拟了银行中的账户操作。程序建立了一个开户金额,显示金额,存款,取款并显示余额。 主要的知识点联系为类的含义,构造函数,公有和私有。...

沉迷于编程的小菜菜
昨天
1
0
从为什么别的队伍总比你的快说起

在机场候检排队的时候,大多数情况下,别的队伍都要比自己所在的队伍快,并常常懊悔当初怎么没去那个队。 其实,最快的队伍只能有一个,而排队之前并不知道那个队快。所以,如果有六个队伍你...

我是菜鸟我骄傲
昨天
1
0
分布式事务常见的解决方案

随着互联网的发展,越来越多的多服务相互之间的调用,这时候就产生了一个问题,在单项目情况下很容易实现的事务控制(通过数据库的acid控制),变得不那么容易。 这时候就产生了多种方案: ...

小海bug
昨天
3
0
python从零学——scrapy初体验

python从零学——scrapy初体验 近日因为一些事情,需要从网上爬取一些东西,故而想通过使用爬虫来顺便学习下强大的python。现将一些学习中遇到的问题记录下来,以便日后查询 1. 开发环境的准...

咾咔叽
昨天
1
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部