文档章节

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
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

没有更多内容

加载失败,请刷新页面

加载更多

70.shell的函数 数组 告警系统需求分析

20.16/20.17 shell中的函数 20.18 shell中的数组 20.19 告警系统需求分析 20.16/20.17 shell中的函数: ~1. 函数就是把一段代码整理到了一个小单元中,并给这个小单元起一个名字,当用到这段...

王鑫linux
今天
0
0
分布式框架spring-session实现session一致性使用问题

前言:项目中使用到spring-session来缓存用户信息,保证服务之间session一致性,但是获取session信息为什么不能再服务层获取? 一、spring-session实现session一致性方式 用户每一次请求都会...

WALK_MAN
今天
5
0
C++ yield()与sleep_for()

C++11 标准库提供了yield()和sleep_for()两个方法。 (1)std::this_thread::yield(): 线程调用该方法时,主动让出CPU,并且不参与CPU的本次调度,从而让其他线程有机会运行。在后续的调度周...

yepanl
今天
4
0
Java并发编程实战(chapter_3)(线程池ThreadPoolExecutor源码分析)

这个系列一直没再写,很多原因,中间经历了换工作,熟悉项目,熟悉新团队等等一系列的事情。并发课题对于Java来说是一个又重要又难的一大块,除非气定神闲、精力满满,否则我本身是不敢随便写...

心中的理想乡
今天
33
0
shell学习之获取用户的输入命令read

在运行脚本的时候,命令行参数是可以传入参数,还有就是在脚本运行过程中需要用户输入参数,比如你想要在脚本运行时问个问题,并等待运行脚本的人来回答。bash shell为此提 供了read命令。 ...

woshixin
今天
4
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部