文档章节

学用 TStringGrid [8] - 字体列表

涂孟超
 涂孟超
发布于 2014/09/26 15:38
字数 163
阅读 9
收藏 0
本例效果图:


unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    StringGrid1: TStringGrid;
    procedure StringGrid1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  FontCount,i: Integer;
begin
  {获取字体总数}
  FontCount := Screen.Fonts.Count;

  {设置行列}
  StringGrid1.RowCount := FontCount + 1;
  StringGrid1.ColCount := 1;
  StringGrid1.FixedCols := 0;
  StringGrid1.DefaultColWidth := 128;
  StringGrid1.DefaultRowHeight := 18;

  {跟随拖动与选定效果}
  StringGrid1.Options := StringGrid1.Options + [goThumbTracking,goDrawFocusSelected];

  {设置标题与字号}
  StringGrid1.Cells[0,0] := '字体名称';
  StringGrid1.Font.Size := 9;

  {写入字体名称}
  for i := 0 to FontCount - 1 do
    StringGrid1.Cells[0,i+1] := Screen.Fonts[i];
end;

{随当前字体变化}
procedure TForm1.StringGrid1Click(Sender: TObject);
begin
  with StringGrid1 do Font.Name := Cells[Col,Row];
end;

end.

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2008/03/06/1094161.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
R语言之词云:wordcloud&wordcloud2安装及参数说明

一、wordcloud安装说明 install.packages("wordcloud"); 二、wordcloud2安装说明 install.packages("devtools"); devtools::install_github("lchiffon/wordcloud2",type="source") 错误提示:......

胖子哥
2016/07/22
0
0
ubuntu下locale设定

第一步,编辑文件 sudo vi /var/lib/locales/supported.d/local 写入相关内容,比如写入如下内容: zh_CN.UTF-8 UTF-8zh_CN GB2312zh_CN.GBK GBKen_US.UTF-8 UTF-8zhCN.GB18030 GB18030 这个文件......

Vim0r
2014/11/08
0
0
Windows 8 and WP 8 开发 FAQ

1. 如何在Windows商店应用中防止HTTPS通讯被中间人攻击解密? 2. 关于给WP推送通知启用HTTPS验证的细节 3. 如何在Windows Phone和Windows 8 Store中获取到设备ID 4. 学用Windows Phone 8中H...

失足处男的倒霉孩子
2013/12/25
500
0
稍微有点难度的10道java面试题,你会几道?

1、jvm对频繁调用的方法做了哪些优化? 2、常见的攻击手段有哪些?如何防范? 3、restful api有哪些设计原则? 4、hessian是做什么用的?它的传输单位是什么? 5、http中的post、get有什么区...

java技术栈
2017/08/13
0
0
牌Exel文件xls读写和生成控件Bytescout Spreadsheet SDK for.NET

Bytescout Spreadsheet SDK for.NET能在Delphi和.NET下访问Excel文件的完美解决方案。 读写任何单元值 数字型、字符型、布尔型以及错误型。但是你了解日期和时间型单元吗?在Excel中没有这样...

netkongjian
2014/06/03
0
0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

高三暑假我是怎么想开去学linux系统的

高三的时候,我有一句口头禅:“老了老了,现在做题越来越迟钝了”。当时整天日夜苦读,体重日益增加,脸色越来越黯淡,我在终于熬过了高考的时候,简直心里面乐得开了花。我终于可以去做自己...

linuxprobe16
25分钟前
0
0
Python 获得命令行参数的方法

需要模块:sys 参数个数:len(sys.argv) 脚本名: sys.argv[0] 参数1: sys.argv[1] 参数2: sys.argv[2]

编程老陆
32分钟前
0
0
链队

队列用链表来表示时,需要用两个变量来记录队列两端的变化:theFront,theBack. 根据链接方向的不同,链队有两种链接方式(其实就是链表的头插入节点和尾插入节点,头删除节点和尾删除节点)。...

Frost729
36分钟前
0
0
IDEA toString() json模板

public java.lang.String toString() {java.lang.StringBuilder builder = new java.lang.StringBuilder();#set ($i = 0)#foreach ($member in $members)#if ($i == 0)builder.appen......

Mtok
46分钟前
0
0
Dubbo内核实现之SPI简单介绍

Dubbo采用微内核+插件体系,使得设计优雅,扩展性强。那所谓的微内核+插件体系是如何实现的呢!即我们定义了服务接口标准,让厂商去实现(如果不了解spi的请谷歌百度下), jdk通过ServiceLo...

明理萝
51分钟前
0
1

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部