文档章节

学用 TStringGrid [8] - 字体列表

涂孟超
 涂孟超
发布于 2014/09/26 15:38
字数 163
阅读 9
收藏 0
点赞 0
评论 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
博文 2004
码字总数 14107
作品 0
深圳
程序员
R语言之词云:wordcloud&wordcloud2安装及参数说明

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

胖子哥 ⋅ 2016/07/22 ⋅ 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 ⋅ 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

10个设计师必看的最新高质量免费字体

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

老枪 ⋅ 2011/07/10 ⋅ 2

牌Exel文件xls读写和生成控件Bytescout Spreadsheet SDK for.NET

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

netkongjian ⋅ 2014/06/03 ⋅ 0

如何检测你的访问者安装了什么软件

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

腊八粥 ⋅ 2014/04/13 ⋅ 2

debian修改字体

今天装了个deban 6,不想安装x window,感觉console得字体太难看了,想做下修改,安装了个ttf字体在/usr/share/fonts/truetype, google了下,sudo dpkg-reconfigure console-setup 可以配置...

actberw ⋅ 2011/12/15 ⋅ 1

支持.NET和移动设备的XLS读写控件XLSReadWriteII控件介绍

XLSReadWriteII 相关文章 在Delphi中使用XlsReadWrite xlsreadwriteII对excel进行读取操作的几点提示 解决 XLSReadWriteII 解析Excel95格式的文件乱码的问题 Excel读写方案XLSReadWriteII使用...

yidongkaifa ⋅ 2014/06/04 ⋅ 0

HTML基础学习笔记

1、页面 1、文件结构 <html>......</html> <head>......</head> <body>.......</body> <HTML><HEAD> <title>, <base>, <link>, <isindex>, <meta></HEAD><BODY> <h1>正文</h1></BODY></HTML>......

mrmusic ⋅ 2016/04/02 ⋅ 0

Markdown种基本语法

标题设置(让字体变大,和word的标题意思一样) 在Markdown当中设置标题,有两种方式: 第一种:通过在文字下方添加“=”和“-”,他们分别表示一级标题和二级标题。 第二种:在文字开头加上...

蔡少东 ⋅ 2016/07/06 ⋅ 1

没有更多内容

加载失败,请刷新页面

加载更多

下一页

个人博客的运营模式能否学习TMALL天猫质量为上?

心情随笔|个人博客的运营模式能否学习TMALL天猫质量为上? 中国的互联网已经发展了很多年了,记得在十年前,个人博客十分流行,大量的人都在写博客,而且质量还不错,很多高质量的文章都是在...

原创小博客 ⋅ 21分钟前 ⋅ 0

JavaScript零基础入门——(十一)JavaScript的DOM操作

JavaScript零基础入门——(十一)JavaScript的DOM操作 大家好,欢迎回到我们的JavaScript零基础入门。最近有些同学问我说,我讲的的比书上的精简不少。其实呢,我主要讲的是我在开发中经常会...

JandenMa ⋅ 今天 ⋅ 0

volatile和synchronized的区别

volatile和synchronized的区别 在讲这个之前需要先了解下JMM(Java memory Model :java内存模型):并发过程中如何处理可见性、原子性、有序性的问题--建立JMM模型 详情请看:https://baike.b...

MarinJ_Shao ⋅ 今天 ⋅ 0

深入分析Kubernetes Critical Pod(一)

Author: xidianwangtao@gmail.com 摘要:大家在部署Kubernetes集群AddOn组件的时候,经常会看到Annotation scheduler.alpha.kubernetes.io/critical-pod"="",以表示这是一个关键服务,那你知...

WaltonWang ⋅ 今天 ⋅ 0

原子性 - synchronized关键词

原子性概念 原子性提供了程序的互斥操作,同一时刻只能有一个线程能对某块代码进行操作。 原子性的实现方式 在jdk中,原子性的实现方式主要分为: synchronized:关键词,它依赖于JVM,保证了同...

dotleo ⋅ 今天 ⋅ 0

【2018.06.22学习笔记】【linux高级知识 14.4-15.3】

14.4 exportfs命令 14.5 NFS客户端问题 15.1 FTP介绍 15.2/15.3 使用vsftpd搭建ftp

lgsxp ⋅ 今天 ⋅ 0

JeeSite 4.0 功能权限管理基础(Shiro)

Shiro是Apache的一个开源框架,是一个权限管理的框架,实现用户认证、用户授权等。 只要有用户参与一般都要有权限管理,权限管理实现对用户访问系统的控制,按照安全规则或者安全策略控制用户...

ThinkGem ⋅ 昨天 ⋅ 0

python f-string 字符串格式化

主要内容 从Python 3.6开始,f-string是格式化字符串的一种很好的新方法。与其他格式化方式相比,它们不仅更易读,更简洁,不易出错,而且速度更快! 在本文的最后,您将了解如何以及为什么今...

阿豪boy ⋅ 昨天 ⋅ 0

Python实现自动登录站点

如果我们想要实现自动登录,那么我们就需要能够驱动浏览器(比如谷歌浏览器)来实现操作,ChromeDriver 刚好能够帮助我们这一点(非谷歌浏览器的驱动有所不同)。 一、确认软件版本 首先我们...

blackfoxya ⋅ 昨天 ⋅ 0

线性回归原理和实现基本认识

一:介绍 定义:线性回归在假设特证满足线性关系,根据给定的训练数据训练一个模型,并用此模型进行预测。为了了解这个定义,我们先举个简单的例子;我们假设一个线性方程 Y=2x+1, x变量为商...

wangxuwei ⋅ 昨天 ⋅ 0

没有更多内容

加载失败,请刷新页面

加载更多

下一页

返回顶部
顶部