字体设置器(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)使用实例

Delphi ActionList 用法介绍   delphi列表视图组件(TListView)使用方法|实例 Delphi列表框组件(TListBox)使用实例  ...

php验证码函数 使用imagestring() imagefttext()设置字体大小

转载路径:http://hi.baidu.com/asdasd_cn/item/62977d1e26ca36e85e53b142

node.js开发之WebStrom9之主题,字体,编码设置及使用

File-->Settings-->Colors&Fonts

TextView设置超链接、背景颜色、字体颜色等等,Spannable的使用。

Spannable改变TextView的字体颜色、增加超链接

可设置的NumberPicker(时间选择器)分割线 字体颜色以及大小等属性

NumberPicker 这个空间可以帮助我们实现很多效果,如 自定义的日期时间选择器,城市的多级联动等。当我们实现了自己想要的功能后,往往会觉得系统自带的样式和我们要开发的应用的风格主题不搭配的请情...

Android-PickerView 三级联动选择器的标题和内容的字体大小、颜色设置

最近项目中使用了Android-PickerView这个开源项目,用来做省市区三级联动选择器,发现这个开源项目中有些地方处理得不是蛮恰当,自己做了下改动处理。 原项目GitHub地址:h...

android中字体设置Typeface的使用

第一种字体设置方法:方法一:XML中使用android默认字体, Android系统默认支持三种字体,分别为:“sans”, “serif”, “monospace”... Android:text=...

IDEA使用--字体、编码和基本设置

IDEA这么高端的工具之前只是断断续续使用了一下,因为项目的开发都是在eclipse上,每次学习IDEA的使用都得上网搜索半天,今天自己整理一下,方便以后查阅。 IDEA版本15.0.4 ...

textField使用合集(附字体设置合集)

//初始化textfield并设置位置及大小   UITextField *text = [[UITextField alloc]initWithFrame:CGRectMake(20, 20, 1...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:深度学习:神经网络中的前向传播和反向传播算法推导
举报原因:
原因补充:

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