文档章节

学用 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个设计师必看的最新高质量免费字体

继“40组免费的创意字体推荐”“为设计师准备的 30 个高质量的免费字体”之后,OSCHINA再为您推荐10个最新的免费字体。 列表如下: 1) Bandaa 2) Tevegraphy Font 3) Pacificaa Font 4) Full...

老枪
2011/07/10
1K
2
如何检测你的访问者安装了什么软件

使用flash&jQuery的快速概念证明 访问这里的demo:http://johnmcl.github.io/software-detect-js/ 为特定用户的意图和需求量身定制使用网站的体验,无论是让你的网站具有更好的移动友好性,还...

腊八粥
2014/04/13
421
2

没有更多内容

加载失败,请刷新页面

加载更多

django rest framework 外键序列化方法与问题总结

django rest framework 外键序列化方法与问题总结 当借口中需要出现一对多关系的时候,我们可以用rest_framwork的序列化功能来处理,代码如下. # models.pyfrom django.db import modelscl...

_Change_
昨天
0
0
SingleNumber136 leetCode

Given a non-empty array of integers, every element appears twice except for one. Find that single one. Note: Your algorithm should have a linear runtime complexity. Could you im......

woshixin
昨天
1
0
String ,  StringBuffer ,  StringBuilder的区别

String , StringBuffer , StringBuilder的区别 String 首先,String 是用来表示一个字符串常量的,它是一个不可变对象,意味着,一旦我们创建了某个字符串之后,就不能再改变它的值了,我们可...

tsmyk0715
昨天
3
0
区块链100讲:UTXO 和 Account 模型对比

在当前区块链世界中,主要有两种记录保存方式,UTXO 模式(Unspent Transaction Output) 和 Account 模式。Bitcoin 采用的是 UTXO 模型,Ethereum 采用的 Account 模型,同样 CITA 也采用了 ...

HiBlock
昨天
1
0
Vue中路由管理器Vue Router使用介绍(三)

一、路由定义添加动态参数定义 1.路由定义项,使用:xx 方式 定义动态参数 { path:'/user/:id/:name', name:'user', component:()=>import('./views/User.vue') ...

tianma3798
昨天
1
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部