Delphi 4 Bible/Delphi_4_Bible_Tom_Swan_IDG_Books_1998.iso/source/CALC32/CALC.dfm/CALC.txt

Text File | 1998-04-23 | 9KB | 481 lines

object CalcForm: TCalcForm
  Left = 198
  Top = 100
  Width = 424
  Height = 360
  Caption = 'Calculator 32'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  KeyPreview = True
  Menu = CalcMainMenu
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  PixelsPerInch = 96
  TextHeight = 16
  object MemButton: TSpeedButton
    Left = 8
    Top = 8
    Width = 25
    Height = 25
    Caption = 'M'
    Enabled = False
  end
  object DecButton: TSpeedButton
    Left = 8
    Top = 40
    Width = 25
    Height = 25
    GroupIndex = 1
    Down = True
    Caption = '&D'
    OnClick = DecHexBinButtonClick
  end
  object HexButton: TSpeedButton
    Left = 8
    Top = 72
    Width = 25
    Height = 25
    GroupIndex = 1
    Caption = '&H'
    OnClick = DecHexBinButtonClick
  end
  object BinButton: TSpeedButton
    Left = 8
    Top = 104
    Width = 25
    Height = 25
    GroupIndex = 1
    Caption = '&B'
    OnClick = DecHexBinButtonClick
  end
  object Button7: TSpeedButton
    Tag = 7
    Left = 184
    Top = 144
    Width = 25
    Height = 25
    AllowAllUp = True
    Caption = '7'
    OnClick = ButtonDigitClick
  end
  object Button8: TSpeedButton
    Tag = 8
    Left = 224
    Top = 144
    Width = 25
    Height = 25
    AllowAllUp = True
    Caption = '8'
    OnClick = ButtonDigitClick
  end
  object Button9: TSpeedButton
    Tag = 9
    Left = 264
    Top = 144
    Width = 25
    Height = 25
    AllowAllUp = True
    Caption = '9'
    OnClick = ButtonDigitClick
  end
  object Button4: TSpeedButton
    Tag = 4
    Left = 184
    Top = 176
    Width = 25
    Height = 25
    AllowAllUp = True
    Caption = '4'
    OnClick = ButtonDigitClick
  end
  object Button5: TSpeedButton
    Tag = 5
    Left = 224
    Top = 176
    Width = 25
    Height = 25
    AllowAllUp = True
    Caption = '5'
    OnClick = ButtonDigitClick
  end
  object Button6: TSpeedButton
    Tag = 6
    Left = 264
    Top = 176
    Width = 25
    Height = 25
    AllowAllUp = True
    Caption = '6'
    OnClick = ButtonDigitClick
  end
  object Button1: TSpeedButton
    Tag = 1
    Left = 184
    Top = 208
    Width = 25
    Height = 25
    AllowAllUp = True
    Caption = '1'
    OnClick = ButtonDigitClick
  end
  object Button2: TSpeedButton
    Tag = 2
    Left = 224
    Top = 208
    Width = 25
    Height = 25
    AllowAllUp = True
    Caption = '2'
    OnClick = ButtonDigitClick
  end
  object Button3: TSpeedButton
    Tag = 3
    Left = 264
    Top = 208
    Width = 25
    Height = 25
    AllowAllUp = True
    Caption = '3'
    OnClick = ButtonDigitClick
  end
  object Button0: TSpeedButton
    Left = 184
    Top = 240
    Width = 25
    Height = 25
    AllowAllUp = True
    Caption = '0'
    OnClick = ButtonDigitClick
  end
  object PlusMinusButton: TSpeedButton
    Left = 224
    Top = 240
    Width = 25
    Height = 25
    AllowAllUp = True
    Caption = '+ -'
    OnClick = PlusMinusButtonClick
  end
  object EqualButton: TSpeedButton
    Left = 264
    Top = 240
    Width = 25
    Height = 25
    AllowAllUp = True
    Caption = '='
    OnClick = EqualButtonClick
  end
  object ButtonA: TSpeedButton
    Tag = 10
    Left = 184
    Top = 272
    Width = 25
    Height = 25
    AllowAllUp = True
    Caption = 'A'
    Enabled = False
    OnClick = ButtonDigitClick
  end
  object ButtonB: TSpeedButton
    Tag = 11
    Left = 224
    Top = 272
    Width = 25
    Height = 25
    AllowAllUp = True
    Caption = 'B'
    Enabled = False
    OnClick = ButtonDigitClick
  end
  object ButtonC: TSpeedButton
    Tag = 12
    Left = 264
    Top = 272
    Width = 25
    Height = 25
    AllowAllUp = True
    Caption = 'C'
    Enabled = False
    OnClick = ButtonDigitClick
  end
  object ButtonD: TSpeedButton
    Tag = 13
    Left = 304
    Top = 272
    Width = 25
    Height = 25
    AllowAllUp = True
    Caption = 'D'
    Enabled = False
    OnClick = ButtonDigitClick
  end
  object ButtonE: TSpeedButton
    Tag = 14
    Left = 344
    Top = 272
    Width = 25
    Height = 25
    AllowAllUp = True
    Caption = 'E'
    Enabled = False
    OnClick = ButtonDigitClick
  end
  object ButtonF: TSpeedButton
    Tag = 15
    Left = 384
    Top = 272
    Width = 25
    Height = 25
    AllowAllUp = True
    Caption = 'F'
    Enabled = False
    OnClick = ButtonDigitClick
  end
  object DivButton: TSpeedButton
    Tag = -2
    Left = 304
    Top = 176
    Width = 25
    Height = 25
    AllowAllUp = True
    Caption = '/'
    OnClick = OpButtonClick
  end
  object TimesButton: TSpeedButton
    Tag = -1
    Left = 304
    Top = 144
    Width = 25
    Height = 25
    AllowAllUp = True
    Caption = '*'
    OnClick = OpButtonClick
  end
  object MinusButton: TSpeedButton
    Tag = -4
    Left = 304
    Top = 240
    Width = 25
    Height = 25
    AllowAllUp = True
    Caption = '-'
    OnClick = OpButtonClick
  end
  object PlusButton: TSpeedButton
    Tag = -3
    Left = 304
    Top = 208
    Width = 25
    Height = 25
    AllowAllUp = True
    Caption = '+'
    OnClick = OpButtonClick
  end
  object ANDButton: TSpeedButton
    Tag = -5
    Left = 344
    Top = 144
    Width = 65
    Height = 25
    AllowAllUp = True
    Caption = 'AND'
    OnClick = OpButtonClick
  end
  object ORButton: TSpeedButton
    Tag = -6
    Left = 344
    Top = 176
    Width = 65
    Height = 25
    AllowAllUp = True
    Caption = 'OR'
    OnClick = OpButtonClick
  end
  object XORButton: TSpeedButton
    Tag = -7
    Left = 344
    Top = 208
    Width = 65
    Height = 25
    AllowAllUp = True
    Caption = 'XOR'
    OnClick = OpButtonClick
  end
  object NOTButton: TSpeedButton
    Left = 344
    Top = 240
    Width = 65
    Height = 25
    AllowAllUp = True
    Caption = 'NOT'
    OnClick = NOTButtonClick
  end
  object MemBevel: TBevel
    Left = 40
    Top = 8
    Width = 369
    Height = 25
  end
  object MemLabel: TLabel
    Left = 45
    Top = 12
    Width = 356
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = '0'
    Color = clScrollBar
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -19
    Font.Name = 'Courier New'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
  end
  object DecBevel: TBevel
    Left = 40
    Top = 40
    Width = 369
    Height = 25
  end
  object DecLabel: TLabel
    Left = 45
    Top = 44
    Width = 356
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = '-2147483648'
    Color = clScrollBar
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -19
    Font.Name = 'Courier New'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
  end
  object HexBevel: TBevel
    Left = 40
    Top = 72
    Width = 369
    Height = 25
  end
  object HexLabel: TLabel
    Left = 45
    Top = 76
    Width = 356
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = '7FFFFFFF'
    Color = clScrollBar
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -19
    Font.Name = 'Courier New'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
  end
  object BinBevel: TBevel
    Left = 40
    Top = 104
    Width = 369
    Height = 25
  end
  object BinLabel: TLabel
    Left = 45
    Top = 108
    Width = 356
    Height = 17
    Alignment = taRightJustify
    AutoSize = False
    Caption = '10000000000000000000000000000000'
    Color = clScrollBar
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clBlack
    Font.Height = -19
    Font.Name = 'Courier New'
    Font.Style = [fsBold]
    ParentColor = False
    ParentFont = False
  end
  object LineBevel: TBevel
    Left = 8
    Top = 128
    Width = 401
    Height = 9
    Shape = bsBottomLine
  end
  object ClearButton: TSpeedButton
    Left = 104
    Top = 144
    Width = 65
    Height = 25
    Caption = 'C'
    OnClick = ClearButtonClick
  end
  object ClearEntryButton: TSpeedButton
    Left = 104
    Top = 176
    Width = 65
    Height = 25
    Caption = '&CE'
    OnClick = ClearEntryButtonClick
  end
  object BackButton: TSpeedButto