字体设置器(TSpinEdit、TListBox使用)

原创 2012年03月21日 09:39:20

DFM:

object FontSelectorfrm: TFontSelectorfrm
  Left = 568
  Top = 409
  Width = 205
  Height = 234
  Caption = #23383#20307#35774#32622#22120
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object lblFont: TLabel
    Left = 127
    Top = 8
    Width = 57
    Height = 25
    AutoSize = False
    Caption = #23383#20307#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object lblFontLarge: TLabel
    Left = 125
    Top = 144
    Width = 59
    Height = 20
    AutoSize = False
    Caption = #22823#23567#65306
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object lstFont: TListBox
    Left = 125
    Top = 40
    Width = 62
    Height = 97
    ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
    ItemHeight = 13
    TabOrder = 0
    OnClick = lstFontClick
  end
  object mmoText: TMemo
    Left = 8
    Top = 8
    Width = 105
    Height = 185
    ImeName = #20013#25991' ('#31616#20307') - '#25628#29399#25340#38899#36755#20837#27861
    Lines.Strings = (
      'mmoText')
    TabOrder = 1
  end
  object seFontLarge: TSpinEdit
    Left = 125
    Top = 168
    Width = 65
    Height = 22
    MaxValue = 0
    MinValue = 0
    TabOrder = 2
    Value = 0
    OnChange = seFontLargeChange
  end
end

PAS:

unit frmFontSelector;

interface

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

type
  TFontSelectorfrm = class(TForm)
    lstFont: TListBox;
    mmoText: TMemo;
    lblFont: TLabel;
    lblFontLarge: TLabel;
    seFontLarge: TSpinEdit;
    procedure FormCreate(Sender: TObject);
    procedure lstFontClick(Sender: TObject);
    procedure seFontLargeChange(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FontSelectorfrm: TFontSelectorfrm;

implementation

{$R *.dfm}

procedure TFontSelectorfrm.FormCreate(Sender: TObject);
begin
  //Memo内容设置
  mmoText.Lines.Clear;
  mmoText.Lines.Append('测试内容');
  mmoText.Lines.Append('Test Content');
  //字体样式设置
  lstFont.Items.Clear;
  lstFont.Items.Append('隶书');
  lstFont.Items.Append('宋体');
  lstFont.Items.Append('黑体');
  lstFont.Items.Append('Arial');
  lstFont.Items.Append('Batang');
  lstFont.Items.Append('Broadway');
  //字体大小设置
  seFontLarge.MinValue := 5;
  seFontLarge.MaxValue := 30;
  seFontLarge.Increment := 1;
  seFontLarge.Value := 5;
end;

procedure TFontSelectorfrm.lstFontClick(Sender: TObject);
begin
  //设置字体
  mmoText.Font.Name := lstFont.Items.Strings[lstFont.itemIndex];
end;

procedure TFontSelectorfrm.seFontLargeChange(Sender: TObject);
var
  i: Integer;
  sFontLarge: string;
begin
  //获取当前字体大小值
  sFontLarge := seFontLarge.Text;
  //如果为空,则退出字体大小设置
  if sFontLarge = '' then
  begin
    Exit;
  end
  else
  begin
    //如果字体大小值中包括非法字符,则弹出提示信息并退出
    for i := 1 to Length(sFontLarge) do
    begin
      if sFontLarge[i] in ['+', '-', '.'] then
      begin
        ShowMessage('字体大小只能为整数值');
        seFontLarge.SelectAll;
        Exit;
      end;
    end;
    //设置字体大小
    mmoText.Font.Size := seFontLarge.Value;
  end;
end;

end.
截图:


Delphi列表框组件(TListBox)详解

http://blog.csdn.net/yt_maomao/article/details/37725275 列表框组件(TListBox) 此组件为一个标准的Windows 列表框组件...
  • ly930156123
  • ly930156123
  • 2016年09月02日 14:36
  • 1284

HTML5&CSS3笔记:CSS3选择器、字体和颜色模式

HTML5&CSS3笔记:CSS3选择器、字体和颜色模式
  • u014328357
  • u014328357
  • 2016年10月19日 14:50
  • 1086

Python(Pygame)字体设置

使用字体模块 使用系统自带的字体:my_font = pygame.font.SysFont("arial", 16) 第一个参数是字体名,第二个自然就是大小,一般来说“Arial”字体在很多系统...
  • zengxiantao1994
  • zengxiantao1994
  • 2017年02月28日 12:31
  • 2129

在Xcode项目里使用自定义字体的方法

第一步:下载字体(一般是.ttf或者.otf文件) 第二步:将字体拷贝到项目中去(注意:两个打钩的地方,很容易不注意导致后面的步骤搜索不到字体) 第三步:打开info.plist文件,在下面增加...
  • huanghuanghonghong
  • huanghuanghonghong
  • 2016年10月02日 12:44
  • 1089

[Linux]Vim设置Monaco字体Vim颜色模板

以下这段可以使用中文: if has("multi_byte") set encoding=utf-8 "set fileencoding=chinese set fileencodings=...
  • lsy5631932
  • lsy5631932
  • 2013年06月20日 17:06
  • 5903

Python字体颜色设置

Python字体颜色设置 平时学习工作中,我们经常会接触到一些大佬写的Python工具,运行起来总会显示出五颜六色的字体,比如红色代表Error , 黄色代表Warning , 绿色代表Su...
  • PeterZ1997
  • PeterZ1997
  • 2017年08月07日 22:47
  • 1268

Android开发中如何设置字体

首先,在Android系统中有默认支持3种字体,而在Android studio中也可以设置字体: 如图所示,AS提供了4种字体可供开发者选择,不过楼主不怎么用,因为用了也不见什么用。。 ...
  • yingyuqi4738
  • yingyuqi4738
  • 2017年07月15日 00:02
  • 635

Delphi列表框组件(TListBox)详解

列表组件     该组件能够让编程人员集中地管理某类信息,如事件和图像等。Delphi 7 中包含多种列表组件,如列表框组件、动作列表组件、图像列表组件、树型视图组件和列表视图组件等。下面将分别对相...
  • yt_maomao
  • yt_maomao
  • 2014年07月12日 13:38
  • 5859

Java引用外部字体即自定义字体文件

有时候我们在程序中,会使用到Java字体,但不是所有的字体系统中都会有,我们就可能会使用外部自定义字体,这样在程序迁移部署中就会少些工作,最近在一个项目中使用到了自定义字体文件,研究清楚了如何是使用了...
  • nahancy
  • nahancy
  • 2017年07月20日 10:40
  • 1670

iOS 中如何添加应用自己的字体,使用萍方体

1.第一步找到你想用的字体的 ttf 格式。加入到你的工程的resouce目录下。 2.在工程的plist中AddRow,“Fonts provided by application” ,然后...
  • u010742414
  • u010742414
  • 2016年01月25日 13:01
  • 2013
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:字体设置器(TSpinEdit、TListBox使用)
举报原因:
原因补充:

(最多只允许输入30个字)