ucalculator.dfm

EXE+代码

object Form1: TForm1
  Left = 303
  Top = 198
  Width = 579
  Height = 312
  Caption = #31616#26131#35745#31639#22120
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  Position = poDesktopCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnResize = FormResize
  DesignSize = (
    571
    278)
  PixelsPerInch = 96
  TextHeight = 13
  object sg: TStringGrid
    Left = 0
    Top = 0
    Width = 393
    Height = 256
    Align = alClient
    ColCount = 1
    FixedColor = clTeal
    FixedCols = 0
    FixedRows = 0
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = #26032#23435#20307
    Font.Style = [fsBold]
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goEditing, goAlwaysShowEditor]
    ParentFont = False
    PopupMenu = pm
    ScrollBars = ssVertical
    TabOrder = 0
    OnKeyDown = sgKeyDown
    ColWidths = (
      428)
  end
  object Button2: TButton
    Left = 89
    Top = 57
    Width = 79
    Height = 32
    Anchors = [akTop, akRight]
    Caption = #21518#32512#27861#20998#26512
    TabOrder = 1
    Visible = False
    OnClick = Button2Click
  end
  object sb: TStatusBar
    Left = 0
    Top = 256
    Width = 571
    Height = 22
    Panels = <
      item
        Text = #25903#25345#31185#23398#20989#25968#35745#31639#65288#25324#21495','#24359#24230',PI,'#21313#36827#21046#65289','#34920#36798#24335#36755#20837','#22238#36710','#21452#20987#20445#23384#25991#20214' [HY]'
        Width = 50
      end>
    PopupMenu = pm
  end
  object Button3: TButton
    Left = 18
    Top = 56
    Width = 65
    Height = 33
    Anchors = [akTop, akRight]
    Caption = #24211#36816#31639
    TabOrder = 3
    Visible = False
    OnClick = Button3Click
  end
  object Panel1: TPanel
    Left = 393
    Top = 0
    Width = 178
    Height = 256
    Align = alRight
    BevelOuter = bvLowered
    Color = clScrollBar
    PopupMenu = pm
    TabOrder = 4
    object Button4: TButton
      Left = 3
      Top = 3
      Width = 41
      Height = 41
      Caption = 'CL'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = Button4Click
    end
    object Button5: TButton
      Left = 136
      Top = 208
      Width = 41
      Height = 41
      Cursor = crHandPoint
      BiDiMode = bdLeftToRight
      Caption = '='
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -24
      Font.Name = 'Baskerville Old Face'
      Font.Style = [fsBold]
      ParentBiDiMode = False
      ParentFont = False
      ParentShowHint = False
      ShowHint = False
      TabOrder = 1
      OnClick = Button5Click
    end
    object Button7: TButton
      Left = 3
      Top = 47
      Width = 41
      Height = 41
      Caption = '^'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = Button22Click
    end
    object Button8: TButton
      Left = 136
      Top = 48
      Width = 41
      Height = 41
      Caption = '+'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 3
      OnClick = Button22Click
    end
    object Button9: TButton
      Left = 92
      Top = 88
      Width = 41
      Height = 41
      Caption = '9'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 4
      OnClick = Button22Click
    end
    object Button10: TButton
      Left = 48
      Top = 88
      Width = 41
      Height = 41
      Caption = '8'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 5
      OnClick = Button22Click
    end
    object Button11: TButton
      Left = 3
      Top = 88
      Width = 41
      Height = 41
      Caption = '7'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 6
      OnClick = Button22Click
    end
    object Button12: TButton
      Left = 3
      Top = 168
      Width = 41
      Height = 41
      Caption = '1'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 7
      OnClick = Button22Click
    end
    object Button13: TButton
      Left = 48
      Top = 168
      Width = 41
      Height = 41
      Caption = '2'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 8
      OnClick = Button22Click
    end
    object Button14: TButton
      Left = 92
      Top = 168
      Width = 41
      Height = 41
      Caption = '3'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 9
      OnClick = Button22Click
    end
    object Button15: TButton
      Left = 136
      Top = 128
      Width = 41
      Height = 41
      Caption = '*'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 10
      OnClick = Button22Click
    end
    object Button16: TButton
      Left = 136
      Top = 88
      Width = 41
      Height = 41
      Caption = '-'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -29
      Font.Name = 'MingLiU'
      Font.Style = []
      ParentFont = False
      TabOrder = 11
      OnClick = Button22Click
    end
    object Button17: TButton
      Left = 92
      Top = 128
      Width = 41
      Height = 41
      Caption = '6'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 12
      OnClick = Button22Click
    end
    object Button18: TButton
      Left = 48
      Top = 128
      Width = 41
      Height = 41
      Caption = '5'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 13
      OnClick = Button22Click
    end
    object Button19: TButton
      Left = 3
      Top = 128
      Width = 41
      Height = 41
      Caption = '4'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 14
      OnClick = Button22Click
    end
    object Button20: TButton
      Left = 92
      Top = 208
      Width = 41
      Height = 41
      Caption = '00'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 15
      OnClick = Button22Click
    end
    object Button21: TButton
      Left = 48
      Top = 48
      Width = 41
      Height = 41
      Caption = '('
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 16
      OnClick = Button22Click
    end
    object Button22: TButton
      Left = 3
      Top = 208
      Width = 41
      Height = 41
      Caption = '0'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 17
      OnClick = Button22Click
    end
    object Button23: TButton
      Left = 136
      Top = 168
      Width = 41
      Height = 41
      Caption = '/'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 18
      OnClick = Button22Click
    end
    object Button26: TButton
      Left = 48
      Top = 208
      Width = 41
      Height = 41
      Caption = '.'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 19
      OnClick = Button22Click
    end
    object Button28: TButton
      Left = 92
      Top = 3
      Width = 85
      Height = 41
      Caption = 'BackSpace'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 20
      OnClick = Button28Click
    end
    object Button24: TButton
      Left = 92
      Top = 48
      Width = 41
      Height = 41
      Caption = ')'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 21
      OnClick = Button22Click
    end
    object Button6: TButton
      Left = 48
      Top = 3
      Width = 41
      Height = 41
      Caption = ','
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 22
      OnClick = Button22Click
    end
  end
  object Button1: TButton
    Left = 8
    Top = 208
    Width = 75
    Height = 33
    Caption = 'Button1'
    TabOrder = 5
    Visible = False
  end
  object ExprParser1: TExParser
    RegFuncs = EPRegFuncs1
    UserLib = EPUserLib1
    UserVars = EPVars1
    OnFunction = ExprParser1Function
    Left = 56
    Top = 120
  end
  object EPUserLib1: TEPUserLib
    RegFuncs = EPRegFuncs1
    Variables = EPVars1
    Left = 88
    Top = 120
  end
  object EPVars1: TEPVars
    UserLib = EPUserLib1
    RegFuncs = EPRegFuncs1
    Left = 120
    Top = 120
    object EPVars1VAR1: TVariable
      Descr = 'An '#39'on event'#39' evaluated variable'
      ValueType = vvOnEvent
      Value = Null
      VarName = 'VAR1'
    end
  end
  object EPRegFuncs1: TEPRegFuncs
    RegClasses = EPVCLClasses1
    Left = 152
    Top = 120
    object EPRegFuncs1MYPROD1: TEPEventFunc
      FuncName = 'MYPROD'
      FuncDescr = 'An example of '#39'on event'#39' evaluated function'
      FuncCategory = fct_Custom
    end
  end
  object EPVCLClasses1: TEPVCLClasses
    Left = 184
    Top = 120
  end
  object Timer1: TTimer
    Interval = 10000
    OnTimer = Timer1Timer
    Left = 16
    Top = 24
  end
  object pm: TPopupMenu
    AutoHotkeys = maManual
    Left = 24
    Top = 120
    object N4: TMenuItem
      Caption = #19977#35282#20989#25968
      object Sin1: TMenuItem
        Caption = 'Sin()'
        OnClick = Sin1Click
      end
      object Cos1: TMenuItem
        Caption = 'Cos()'
        OnClick = Sin1Click
      end
      object an1: TMenuItem
        Caption = 'Tan()'
        OnClick = Sin1Click
      end
      object N11: TMenuItem
        Caption = '-'
      end
      object Asin1: TMenuItem
        Caption = 'Asin()'
        OnClick = Sin1Click
      end
      object Acos1: TMenuItem
        Caption = 'Acos()'
        OnClick = Sin1Click
      end
      object Atan1: TMenuItem
        Caption = 'Atan()'
        OnClick = Sin1Click
      end
      object PI1: TMenuItem
        Caption = 'PI'
        OnClick = Sin1Click
      end
    end
    object N5: TMenuItem
      Caption = #31185#23398#20989#25968
      object Ln1: TMenuItem
        Caption = 'Ln()'
        OnClick = Sin1Click
      end
      object Lg1: TMenuItem
        Caption = 'Lg()'
        OnClick = Sin1Click
      end
      object Log1: TMenuItem
        Caption = 'Log()'
        OnClick = Sin1Click
      end
      object N12: TMenuItem
        Caption = '-'
      end
      object Exp1: TMenuItem
        Caption = 'Exp()'
        OnClick = Sin1Click
      end
      object Power1: TMenuItem
        Caption = 'Power()'
        OnClick = Sin1Click
      end
    end
    object N9: TMenuItem
      Caption = '-'
    end
    object N15: TMenuItem
      Caption = #31995#32479
      object SaveToFile1: TMenuItem
        Caption = 'SaveToFile'
        OnClick = SaveToFile1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object N2: TMenuItem
        Caption = #32500#25252#20989#25968#24211
      end
    end
    object Help1: TMenuItem
      Caption = 'Help'
      OnClick = Help1Click
    end
  end
end