unit1.dfm

功能完备的计算器 界面

    Tag = 19
    Left = 55
    Top = 70
    Width = 30
    Height = 20
    Cursor = crHandPoint
    Transparent = True
    OnMouseDown = Img0MouseDown
    OnMouseMove = Img0MouseMove
    OnMouseUp = Img0MouseUp
  end
  object SinImg: TImage
    Tag = 20
    Left = 95
    Top = 70
    Width = 30
    Height = 20
    Cursor = crHandPoint
    Transparent = True
    OnMouseDown = Img0MouseDown
    OnMouseMove = Img0MouseMove
    OnMouseUp = Img0MouseUp
  end
  object CosImg: TImage
    Tag = 21
    Left = 135
    Top = 70
    Width = 30
    Height = 20
    Cursor = crHandPoint
    Transparent = True
    OnMouseDown = Img0MouseDown
    OnMouseMove = Img0MouseMove
    OnMouseUp = Img0MouseUp
  end
  object TanImg: TImage
    Tag = 22
    Left = 175
    Top = 70
    Width = 30
    Height = 20
    Cursor = crHandPoint
    Transparent = True
    OnMouseDown = Img0MouseDown
    OnMouseMove = Img0MouseMove
    OnMouseUp = Img0MouseUp
  end
  object XinvImg: TImage
    Tag = 23
    Left = 15
    Top = 95
    Width = 30
    Height = 20
    Cursor = crHandPoint
    Transparent = True
    OnMouseDown = Img0MouseDown
    OnMouseMove = Img0MouseMove
    OnMouseUp = Img0MouseUp
  end
  object RootImg: TImage
    Tag = 24
    Left = 55
    Top = 95
    Width = 30
    Height = 20
    Cursor = crHandPoint
    Transparent = True
    OnMouseDown = Img0MouseDown
    OnMouseMove = Img0MouseMove
    OnMouseUp = Img0MouseUp
  end
  object X2Img: TImage
    Tag = 25
    Left = 95
    Top = 95
    Width = 30
    Height = 20
    Cursor = crHandPoint
    Transparent = True
    OnMouseDown = Img0MouseDown
    OnMouseMove = Img0MouseMove
    OnMouseUp = Img0MouseUp
  end
  object LogImg: TImage
    Tag = 26
    Left = 135
    Top = 95
    Width = 30
    Height = 20
    Cursor = crHandPoint
    Transparent = True
    OnMouseDown = Img0MouseDown
    OnMouseMove = Img0MouseMove
    OnMouseUp = Img0MouseUp
  end
  object LnImg: TImage
    Tag = 27
    Left = 175
    Top = 95
    Width = 30
    Height = 20
    Cursor = crHandPoint
    Transparent = True
    OnMouseDown = Img0MouseDown
    OnMouseMove = Img0MouseMove
    OnMouseUp = Img0MouseUp
  end
  object PmImg: TImage
    Tag = 28
    Left = 15
    Top = 120
    Width = 30
    Height = 20
    Cursor = crHandPoint
    Transparent = True
    OnMouseDown = Img0MouseDown
    OnMouseMove = Img0MouseMove
    OnMouseUp = Img0MouseUp
  end
  object McImg: TImage
    Tag = 29
    Left = 95
    Top = 120
    Width = 30
    Height = 20
    Cursor = crHandPoint
    Transparent = True
    OnMouseDown = Img0MouseDown
    OnMouseMove = Img0MouseMove
    OnMouseUp = Img0MouseUp
  end
  object MrImg: TImage
    Tag = 30
    Left = 135
    Top = 120
    Width = 30
    Height = 20
    Cursor = crHandPoint
    Transparent = True
    OnMouseDown = Img0MouseDown
    OnMouseMove = Img0MouseMove
    OnMouseUp = Img0MouseUp
  end
  object MpImg: TImage
    Tag = 31
    Left = 175
    Top = 120
    Width = 30
    Height = 20
    Cursor = crHandPoint
    Transparent = True
    OnMouseDown = Img0MouseDown
    OnMouseMove = Img0MouseMove
    OnMouseUp = Img0MouseUp
  end
  object CImg: TImage
    Tag = 32
    Left = 135
    Top = 170
    Width = 30
    Height = 20
    Cursor = crHandPoint
    Transparent = True
    OnMouseDown = Img0MouseDown
    OnMouseMove = Img0MouseMove
    OnMouseUp = Img0MouseUp
  end
  object AcImg: TImage
    Tag = 33
    Left = 175
    Top = 170
    Width = 30
    Height = 20
    Cursor = crHandPoint
    Transparent = True
    OnMouseDown = Img0MouseDown
    OnMouseMove = Img0MouseMove
    OnMouseUp = Img0MouseUp
  end
  object Image1: TImage
    Tag = 1100
    Left = 145
    Top = 10
    Width = 16
    Height = 16
    Cursor = crHandPoint
    Hint = 'About..'
    AutoSize = True
    ParentShowHint = False
    Picture.Data = {
      07544269746D617036030000424D360300000000000036000000280000001000
      000010000000010018000000000000030000C40E0000C40E0000000000000000
      000000FF0000FF0000FF0000FF0000FF0093837169523A634B32634B3269523A
      93837100FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF009886737256
      3975583A7256396B5035634B32634B32634B32634B3293837100FF0000FF0000
      FF0000FF0000FF00957A5E936F4A98724C97724C936F4A8C694681614173573A
      634B32634B32634B327A655000FF0000FF0000FF00B69D83AA8055AF875DAF87
      5EAE865CAC8358A67D539D774F906D487F5F3F684F34634B32634B3293837100
      FF0000FF00B28B64B89570BA9773B99672B89470000000000000000000DFCFBE
      98734C836241684F34634B32634B3200FF00CAB095BF9E7DC2A384C2A384C0A1
      81BF9E7D000000000000000000DFCFBEAD845A98734C7F5F3F634B32634B3293
      8371C0A181C8AC8FC9AE92C8AC90C5A88BC2A484C0A181C0A181C0A181BF9E7D
      B6916BA98055906D4873573A634B3269523AC7AA8DCFB69DCFB79ECDB49AC9AE
      92C4A687C0A181000000DFCFBEC0A181BB9976B189619D774F816141634B3263
      4B32CDB399D4BEA8D4BFA9D2BBA3CDB399C5A88BC0A181000000DFCFBEC0A181
      BD9B79B48F68A67D538C69466B5035634B32D2BBA3D8C5B1D9C6B2D6C1ACD1BA
      A2CAAF93C2A484000000DFCFBEC0A181BD9C7AB6926CAC8358936F4A72563969
      523ADFCFBEDBC9B6DDCBB9DAC8B5D6C1ACD0B8A0000000000000000000DFCFBE
      BF9E7DB89470AE865C97724C75583A93837100FF00DBC9B6DFCFBEDECDBCDBC8
      B5D6C1AC000000000000000000DFCFBEC0A181B99672AF875E98724C72563900
      FF0000FF00E3D5C6DFCFBEE0D1C1DECDBCDAC8B5000000000000000000DFCFBE
      C2A384BA9773AF875D936F4A98867300FF0000FF0000FF00DFCEBDDFCFBEDFCF
      BEDDCBB9D9C6B2D4BFA9CFB79EC9AE92C2A384B89570AA8055957A5E00FF0000
      FF0000FF0000FF0000FF00E3D5C6DBC9B6DBC9B6D8C5B1D4BEA8CFB69DC8AC8F
      BF9E7DB28B64B69D8300FF0000FF0000FF0000FF0000FF0000FF0000FF0000FF
      00DFCFBED2BBA3CDB399C7AA8DC0A181CAB09500FF0000FF0000FF0000FF0000
      FF00}
    ShowHint = True
    Transparent = True
    OnClick = Image1Click
  end
  object RanImg: TImage
    Tag = 34
    Left = 55
    Top = 120
    Width = 30
    Height = 20
    Cursor = crHandPoint
    Transparent = True
    OnMouseDown = Img0MouseDown
    OnMouseMove = Img0MouseMove
    OnMouseUp = Img0MouseUp
  end
  object Label3: TLabel
    Left = 15
    Top = 20
    Width = 9
    Height = 13
    Hint = 'Memory'
    Caption = 'M'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    Transparent = True
    Visible = False
  end
  object RoundImg: TImage
    Tag = 37
    Left = 175
    Top = 145
    Width = 30
    Height = 20
    Cursor = crHandPoint
    AutoSize = True
    Transparent = True
    OnMouseDown = Img0MouseDown
    OnMouseMove = Img0MouseMove
    OnMouseUp = Img0MouseUp
  end
  object IntImg: TImage
    Tag = 36
    Left = 135
    Top = 145
    Width = 30
    Height = 20
    Cursor = crHandPoint
    AutoSize = True
    Transparent = True
    OnMouseDown = Img0MouseDown
    OnMouseMove = Img0MouseMove
    OnMouseUp = Img0MouseUp
  end
  object FactImg: TImage
    Tag = 35
    Left = 95
    Top = 145
    Width = 30
    Height = 20
    Cursor = crHandPoint
    AutoSize = True
    Transparent = True
    OnMouseDown = Img0MouseDown
    OnMouseMove = Img0MouseMove
    OnMouseUp = Img0MouseUp
  end
  object Label4: TLabel
    Left = 80
    Top = 20
    Width = 8
    Height = 13
    Hint = 'Degrees'
    Caption = 'D'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
    Transparent = True
  end
end