Direct2D (35) : 通过 DirectWrite 获取字体列表

uses Direct2D, D2D1;procedure TForm1.Button1Click(Sender: TObject);
variFontCollection: IDWriteFontCollection;     //字体集合iFontFamily: IDWriteFontFamily;             //字族iLocalizedStrings: IDWriteLocalizedStrings; //按区域设置名称编制索引的字符串集合i,j: Integer;buf: array[0..LF_FACESIZE] of Char;
beginListBox1.Clear;DWriteFactory.GetSystemFontCollection(iFontCollection);for i := 0 to iFontCollection.GetFontFamilyCount - 1 dobeginiFontCollection.GetFontFamily(i, iFontFamily);iFontFamily.GetFamilyNames(iLocalizedStrings);for j := 0 to iLocalizedStrings.GetCount - 1 dobeginiLocalizedStrings.GetString(j, buf, Length(buf));ListBox1.Items.Add(buf);end;end;
end;procedure TForm1.Button2Click(Sender: TObject);
variFontCollection: IDWriteFontCollection;iFontFamily: IDWriteFontFamily;iLocalizedStrings: IDWriteLocalizedStrings;buf: array[0..LOCALE_NAME_MAX_LENGTH] of Char;cn: string;n: Cardinal;b: LongBool;i: Integer;
beginListBox1.Clear;LCIDToLocaleName(GetUserDefaultLangID, buf, Length(buf), 0);cn := buf; //'zh-CN'DWriteFactory.GetSystemFontCollection(iFontCollection);for i := 0 to iFontCollection.GetFontFamilyCount - 1 dobeginiFontCollection.GetFontFamily(i, iFontFamily);iFontFamily.GetFamilyNames(iLocalizedStrings);iLocalizedStrings.FindLocaleName(cn[1], n, b);if not b then Continue;iLocalizedStrings.GetString(n, buf, Length(buf));ListBox1.Items.Add(buf);end;
end;

效果图：

转载于:https://www.cnblogs.com/del/archive/2011/04/11/2012802.html

Direct2D (35) : 通过 DirectWrite 获取字体列表相关推荐

TScreen 类 - 获取字体列表
为什么80%的码农都做不了架构师?>>> unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Clas ...
JavaAwtSwing笔记之查看所支持的字体种类字体名称获取字体列表
本地所支持的字体查看支持的本地字体列表查看支持的本体字体名称查看本地所支持的字体效果查看支持的本地字体列表 import java.awt.*; public class 查看支持的本地字体F ...
快速获取系统字体列表
Windows中的字体都安装在Windows\Fonts目录中,为了保证显示效果经常需要使用特殊字体,在代码中如何确认系统已经安装某种字体呢?其实利用Excel中工具条可以很容易的获取系统字体列表. ...
android获取系统使用的字体,android - 我如何获取已安装的Android系统字体列表并将其应用于自定义键盘 - 堆栈内存溢出...
加载系统字体的文件管理器类 public class FontManager { // This function enumerates all fonts on Android system and ...
c# 通过字体对话框获取字体名称和字体大小_【插件】PS、AI、ID都能用的字体管理插件...
插件获取方式见文末一直觉得干设计是件没有安全感的事情总是觉得素材不够新,不够好,不够多尤其是面对成千上万的素材不管用不用得上,先收入囊中再说以字体为例,全世界种类何止上万假如你和素材君一样 ...
Python-装饰器-案例-获取文件列表
1 import os 2 3 4 def get_all_path(fun): 5 '''装饰器.功能:获取全路径文件名.如:D:/tmp/12.txt 6 :param fun: 7 :retur ...
c# 通过字体对话框获取字体名称和字体大小_PS插件神器：fonTags，超好用的PS字体管理插件（附安装方法）
在Photoshop 中想准确找到一款字体,是特别烦人的事,今天这个神器帮你搞定这个难题!这是一款由大神开发的Photoshop 插件,可以扫描字体.自动分组.文本预览等等,功能丰富,使用方便,一起来 ...
前端学习（2024）vue之电商管理系统电商系统之根据分页获取订单列表数据
目录结构 router.js import Vue from 'vue' import Router from 'vue-router' import Login from './components ...
前端学习（1988）vue之电商管理系统电商系统之获取商品列表
目录结构 router.js import Vue from 'vue' import Router from 'vue-router' import Login from './components ...

Direct2D (35) : 通过 DirectWrite 获取字体列表

Direct2D (35) : 通过 DirectWrite 获取字体列表相关推荐

最新文章

热门文章