文档章节

学用 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
深圳
程序员
私信 提问
echarts 中列表选项与图表互动

不懂java,最近刚开始学用echarts。如下图:我用select做了列表,请问怎么把列表中的多个选项与图表互动起来?能给个案例最好,谢谢~

senstone
2016/02/23
215
1
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
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
444
2

没有更多内容

加载失败,请刷新页面

加载更多

在Python中调用Java扩展包HanLP测试记录

最近在研究中文分词及自然语言相关的内容,关注到JAVA环境下的HanLP,HanLP是一个致力于向生产环境普及NLP技术的开源Java工具包,支持中文分词(N-最短路分词、CRF分词、索引分词、用户自定义...

左手的倒影
4分钟前
0
0
使用python读取mysql数据库并进行数据的操作

(一)环境的配置 使用python调用mysql数据库要引进一些库。 目前我使用的python版本是python3.6。引进库为pymysql 其他对应的库可以有以下选择: mysqldb,oursql, PyMySQL, myconnpy 等,参...

dragon_tech
9分钟前
0
0
基于阿里云物联网平台实现的简易出入监控

本文通过一个简单实例,主要介绍了如何使用树莓派快速接入阿里云iot platform,并实现了一个简易的监控人员出入并拍照上送钉钉群的场景 场景 在公司大门入口处布点树莓派和红外感应,实现出入...

阿里云官方博客
17分钟前
1
0
基于阿里云物联网平台,我们这样实现简易出入监控

本文通过一个简单实例,主要介绍了如何使用树莓派快速接入阿里云iot platform,并实现了一个简易的监控人员出入并拍照上送钉钉群的场景 场景 在公司大门入口处布点树莓派和红外感应,实现出入...

阿里云云栖社区
21分钟前
2
0
fedora linux for 龙芯查看实时输出的tomcat日志

软件源带的tomcat版本较低,所以建议从官网下载最新版本。 解压后,执行./startup.sh文件。 查看实时输出的tomcat日志,请使用命令tail -f /usr/share/tomcat/logs/catalina.out。 “/usr/sh...

gugudu
23分钟前
1
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部