unit1.dfm

在单片机编程中位图及字库点阵提取程序源代码

object Form1: TForm1
  Left = 194
  Top = 178
  AutoScroll = False
  BiDiMode = bdLeftToRight
  Caption = '4096'#33394'BMP'#22270#28857#38453#25552#21462#36719#20214
  ClientHeight = 373
  ClientWidth = 666
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  ParentBiDiMode = False
  Position = poScreenCenter
  PixelsPerInch = 96
  TextHeight = 13
  object button1: TButton
    Left = 232
    Top = 128
    Width = 75
    Height = 25
    Caption = '<'#25552#21462#25968#25454'>'
    TabOrder = 0
    OnClick = button1Click
  end
  object open: TButton
    Left = 232
    Top = 48
    Width = 75
    Height = 25
    Caption = '<'#25171#24320#22270#29255'>'
    TabOrder = 1
    OnClick = openClick
  end
  object save: TButton
    Left = 232
    Top = 80
    Width = 75
    Height = 25
    Caption = '<'#22270#29255#21478#23384'>'
    TabOrder = 2
    OnClick = saveClick
  end
  object savefile: TButton
    Left = 232
    Top = 240
    Width = 73
    Height = 25
    Caption = '<'#20445#23384#25991#26412'>'
    TabOrder = 3
    OnClick = savefileClick
  end
  object openfile: TButton
    Left = 232
    Top = 208
    Width = 75
    Height = 25
    Caption = '<'#25171#24320#25991#26412'>'
    TabOrder = 4
    OnClick = openfileClick
  end
  object clear: TButton
    Left = 232
    Top = 160
    Width = 75
    Height = 25
    Caption = '<'#28165#31354#25968#25454'>'
    TabOrder = 5
    OnClick = clearClick
  end
  object prog: TProgressBar
    Left = 8
    Top = 352
    Width = 649
    Height = 16
    Min = 0
    Max = 100
    TabOrder = 6
  end
  object GroupBox1: TGroupBox
    Left = 8
    Top = 8
    Width = 217
    Height = 329
    Caption = #36755#20837#22270#20687
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 7
    object L1: TLabel
      Left = 72
      Top = 304
      Width = 3
      Height = 13
    end
    object picture: TImage
      Left = 8
      Top = 15
      Width = 201
      Height = 282
      Cursor = crSizeAll
      Center = True
      OnMouseDown = pictureMouseDown
      OnMouseUp = pictureMouseUp
    end
    object Label1: TLabel
      Left = 8
      Top = 304
      Width = 60
      Height = 13
      Caption = #22270#20687#22823#23567#65306
    end
  end
  object GroupBox2: TGroupBox
    Left = 312
    Top = 8
    Width = 345
    Height = 329
    Caption = #36755#20986#25968#25454
    TabOrder = 8
    object out: TRichEdit
      Left = 8
      Top = 24
      Width = 329
      Height = 297
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      PlainText = True
      PopupMenu = PopupMenu1
      ReadOnly = True
      ScrollBars = ssVertical
      TabOrder = 0
    end
  end
  object openpicture: TOpenPictureDialog
    FileName = '*.bmp'
    Options = [ofEnableSizing]
    Left = 56
    Top = 64
  end
  object MainMenu1: TMainMenu
    Left = 88
    Top = 64
    object File1: TMenuItem
      Caption = #25991#20214
      object SaveFile1: TMenuItem
        Caption = #25171#24320'BMP'
        OnClick = savefile1Click
      end
      object SaveFile2: TMenuItem
        Caption = #21478#23384'BMP'
        OnClick = SaveFile2Click
      end
      object Exit1: TMenuItem
        Caption = '-'
        OnClick = Exit1Click
      end
      object q1: TMenuItem
        Caption = #36864#20986'(&Q)'
        OnClick = q1Click
      end
    end
    object About1: TMenuItem
      Caption = #32534#36753
      object N4: TMenuItem
        Caption = #22797#21046
        OnClick = N4Click
      end
      object N5: TMenuItem
        Caption = #20840#36873
        OnClick = N5Click
      end
    end
    object N6: TMenuItem
      Caption = #24110#21161
      object N7: TMenuItem
        Caption = #20851#20110
        OnClick = N7Click
      end
    end
  end
  object savepicture: TSavePictureDialog
    Left = 120
    Top = 64
  end
  object savetxt: TSaveDialog
    FileName = '*.h'
    Filter = 'All (*.txt;*.h;*.dat;*.c)|*.txt;*.h;*.bmp;*.dat;*.c'
    Left = 152
    Top = 64
  end
  object opentxt: TOpenDialog
    Filter = 'All (*.txt;*.h;*.dat;*.c)|*.txt;*.h;*.bmp;*.dat;*.c'
    Left = 184
    Top = 64
  end
  object PopupMenu1: TPopupMenu
    Left = 24
    Top = 64
    object N1: TMenuItem
      Caption = #21478#23384'...'
      OnClick = N1Click
    end
    object N2: TMenuItem
      Caption = #22797#21046
      OnClick = N2Click
    end
    object N3: TMenuItem
      Caption = #20840#36873
      OnClick = N3Click
    end
  end
end