mainfont.dfm

用C++ builer 实现的关于文件操作经典实例 里面有所有工程需要的源代码

object MainForm: TMainForm
  Left = 240
  Top = 114
  Width = 476
  Height = 351
  BorderIcons = [biSystemMenu]
  Caption = '提取汉字字模程序'
  Color = clBtnFace
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = '宋体'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF007777
    7777777777777777777777777777777777777777777777777777777777777777
    77777777777777777777777777777777CCCC77777777777C77777777777777CC
    CCCCCC77777777CC77777777777777CCCCCCCCCC777777CCC777777777777CCC
    CCCCCCCCC7777CCCC777777777777CCCCCCCCCCCCC777CCCCC77777777777CCC
    CCCC77777C777CCCCC77777777777CCCCCC777777777CCCCCCC7777777777CCC
    CCCC77777777CCCCCCC77777777777CCCCCC7777777CCCCCCCCC7777777777CC
    CCCCC777777CCCCCCCCC7777777777CCCCCCCC777777CCCCCCC777777777777C
    CCCCCC777777CCCCCC7777777777777CCCCCCCC777777CCCCC77777777777777
    CCCCCCCC77777CCCC7777777777777777CCCCCCCC77777CCC777C77777777777
    77CCCCCCCC7777CC7777CC7777777777777CCCCCCCCC777C77777CCC77777777
    7777CCCCCCCC777777777CCCC777777777777CCCCCCCC777777777CCCC777777
    777777CCCCCCCCCCC77777CCCC7777777777777CCCCCCCCCCC7777CCCCC77777
    77777777CCCCCCCCCCCCCCCCCCC777777777777777CCCCCCCCCCCCCCCCC77777
    77777777777CCCCCCCCCCCCCCC7777777777777777777CCCCCCCCCCCCC777777
    777777777777777CCCCCCCCCC7777777777777777777777777CCCCCC77777777
    7777777777777777777777777777777777777777777777777777777777770000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000}
  OldCreateOrder = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object PaintBox2: TPaintBox
    Left = 120
    Top = 8
    Width = 16
    Height = 16
  end
  object Label1: TLabel
    Left = 16
    Top = 56
    Width = 96
    Height = 12
    Caption = '输入要显示的汉字'
  end
  object Panel1: TPanel
    Left = 144
    Top = 0
    Width = 324
    Height = 324
    Align = alRight
    TabOrder = 0
    object PaintBox1: TPaintBox
      Left = 1
      Top = 1
      Width = 322
      Height = 322
      Align = alClient
      Color = clBtnHighlight
      ParentColor = False
      OnPaint = PaintBox1Paint
    end
  end
  object NextButton: TButton
    Left = 24
    Top = 264
    Width = 75
    Height = 25
    Caption = '向后'
    Enabled = False
    TabOrder = 1
    OnClick = NextButtonClick
  end
  object Edit1: TEdit
    Left = 24
    Top = 80
    Width = 73
    Height = 20
    MaxLength = 2
    TabOrder = 2
  end
  object ForwardButton: TButton
    Left = 24
    Top = 216
    Width = 75
    Height = 25
    Caption = '向前'
    Enabled = False
    TabOrder = 3
    OnClick = ForwardButtonClick
  end
  object OKButton: TButton
    Left = 24
    Top = 120
    Width = 73
    Height = 25
    Caption = '确定'
    Enabled = False
    TabOrder = 4
    OnClick = OKButtonClick
  end
end