jsj.dfm

用Delphi编写的一个小小的计算器

object Form1: TForm1
  Left = 293
  Top = 116
  AutoSize = True
  BorderStyle = bsSingle
  Caption = #35745#31639#22120
  ClientHeight = 227
  ClientWidth = 261
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Icon.Data = {
    0000010001002020100000000000E80200001600000028000000200000004000
    0000010004000000000080020000000000000000000000000000000000000000
    0000000080000080000000808000800000008000800080800000C0C0C0008080
    80000000FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000664
    444444444444444444444444444006E6666666666666666666666666664006F6
    600060006000600060000000664006E66F706F706F706F706F777770664006F6
    6FF06FF06FF06FF06FFFFFF0664006E6666666666666666666666666664006F6
    600060006000600060006000664006E66F706F706F706F706F706F70664006F6
    6FF06FF06FF06FF06FF06FF0664006E6666666666666666666666666664006F6
    600060006000600060006000664006E66F706F706F706F706F706F70664006F6
    6FF06FF06FF06FF06FF06FF0664006E6666666666666666666666666664006F6
    607777777777777766666666664006E660FFFFFFFFFFFFF766666666664006F6
    607777777777777766666666664006E6600000000000000066666666664006FE
    FEFEFEFEFEFEFEFEFEFEFEFEFE40006666666666666666666666666666600000
    0000000000000000000000000000000000000000000000000000000000000000
    0000000000000000000000000000000000000000000000000000000000000000
    000000000000000000000000000000000000000000000000000000000000FFFF
    FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFC000000180000000800000008000
    0000800000008000000080000000800000008000000080000000800000008000
    0000800000008000000080000000800000008000000080000000800000008000
    0000C0000001FFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFFF}
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object SpeedButton1: TSpeedButton
    Left = 0
    Top = 72
    Width = 48
    Height = 35
    BiDiMode = bdLeftToRight
    Caption = 'MC'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'Microsoft Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentBiDiMode = False
    OnClick = SpeedButton1Click
  end
  object SpeedButton2: TSpeedButton
    Left = 64
    Top = 72
    Width = 35
    Height = 34
    Caption = '7'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -17
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton2Click
  end
  object SpeedButton3: TSpeedButton
    Left = 104
    Top = 72
    Width = 35
    Height = 34
    Caption = '8'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -17
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton3Click
  end
  object SpeedButton4: TSpeedButton
    Left = 144
    Top = 72
    Width = 35
    Height = 34
    Caption = '9'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -17
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton4Click
  end
  object SpeedButton5: TSpeedButton
    Left = 184
    Top = 72
    Width = 35
    Height = 34
    Caption = '/'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -17
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton5Click
  end
  object SpeedButton6: TSpeedButton
    Left = 224
    Top = 72
    Width = 35
    Height = 34
    Caption = 'sqrt'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -17
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton6Click
  end
  object SpeedButton7: TSpeedButton
    Left = 0
    Top = 112
    Width = 48
    Height = 35
    Caption = 'MR'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton7Click
  end
  object SpeedButton8: TSpeedButton
    Left = 0
    Top = 152
    Width = 48
    Height = 35
    Caption = 'MS'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton8Click
  end
  object SpeedButton9: TSpeedButton
    Left = 0
    Top = 192
    Width = 48
    Height = 35
    Caption = 'M+'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton9Click
  end
  object SpeedButton10: TSpeedButton
    Left = 64
    Top = 112
    Width = 35
    Height = 34
    Caption = '4'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -17
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton10Click
  end
  object SpeedButton11: TSpeedButton
    Left = 64
    Top = 152
    Width = 35
    Height = 34
    Caption = '1'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -17
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton11Click
  end
  object SpeedButton12: TSpeedButton
    Left = 64
    Top = 192
    Width = 35
    Height = 34
    Caption = '0'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -17
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton12Click
  end
  object SpeedButton13: TSpeedButton
    Left = 104
    Top = 112
    Width = 35
    Height = 34
    Caption = '5'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -17
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton13Click
  end
  object SpeedButton14: TSpeedButton
    Left = 104
    Top = 152
    Width = 35
    Height = 34
    Caption = '2'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -17
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton14Click
  end
  object SpeedButton15: TSpeedButton
    Left = 104
    Top = 192
    Width = 35
    Height = 34
    Caption = '+/-'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -17
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton15Click
  end
  object SpeedButton16: TSpeedButton
    Left = 144
    Top = 112
    Width = 35
    Height = 34
    Caption = '6'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -17
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton16Click
  end
  object SpeedButton17: TSpeedButton
    Left = 144
    Top = 152
    Width = 35
    Height = 34
    Caption = '3'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -17
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton17Click
  end
  object SpeedButton18: TSpeedButton
    Left = 144
    Top = 192
    Width = 35
    Height = 34
    Caption = '.'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -17
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton18Click
  end
  object SpeedButton19: TSpeedButton
    Left = 184
    Top = 112
    Width = 35
    Height = 34
    Caption = '*'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -17
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton19Click
  end
  object SpeedButton20: TSpeedButton
    Left = 184
    Top = 152
    Width = 35
    Height = 34
    Caption = '-'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -17
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton20Click
  end
  object SpeedButton21: TSpeedButton
    Left = 184
    Top = 192
    Width = 35
    Height = 34
    Caption = '+'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -17
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton21Click
  end
  object SpeedButton22: TSpeedButton
    Left = 224
    Top = 112
    Width = 35
    Height = 34
    Caption = '%'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -17
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton22Click
  end
  object SpeedButton23: TSpeedButton
    Left = 224
    Top = 152
    Width = 35
    Height = 34
    Caption = '1/x'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlue
    Font.Height = -17
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton23Click
  end
  object SpeedButton24: TSpeedButton
    Left = 224
    Top = 192
    Width = 35
    Height = 34
    Caption = '='
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -17
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton24Click
  end
  object SpeedButton25: TSpeedButton
    Left = 64
    Top = 30
    Width = 59
    Height = 31
    Caption = 'Backspace'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton25Click
  end
  object SpeedButton26: TSpeedButton
    Left = 132
    Top = 30
    Width = 59
    Height = 31
    Caption = 'CE'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton26Click
  end
  object SpeedButton27: TSpeedButton
    Left = 200
    Top = 30
    Width = 59
    Height = 31
    Caption = 'C'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton27Click
  end
  object Label1: TLabel
    Left = 16
    Top = 40
    Width = 3
    Height = 13
  end
  object Edit1: TMaskEdit
    Left = 0
    Top = 0
    Width = 261
    Height = 21
    ImeName = #26497#21697#20116#31508#36755#20837#27861'5.0'
    TabOrder = 0
    OnChange = Edit1Change
    OnKeyPress = Edit1KeyPress
  end
  object MainMenu1: TMainMenu
    Left = 24
    Top = 16
    object N1: TMenuItem
      Caption = #32534#36753'(&E)'
      object N2: TMenuItem
        Caption = #22797#21046'(&C)   Ctrl+C'
        OnClick = N2Click
      end
      object N3: TMenuItem
        Caption = #31896#36148'(&V)   Ctrl+V'
        OnClick = N3Click
      end
    end
    object N4: TMenuItem
      Caption = #24110#21161'(&H)'
      object N5: TMenuItem
        Caption = #20851#20110#35745#31639#22120'...'
        OnClick = N5Click
      end
      object N6: TMenuItem
        Caption = #20851#20110#24110#21161'...'
        OnClick = N6Click
      end
    end
  end
end