Hot Shareware 32/hot34.iso/ficheros/9APLI/TIMBNT25.ZIP/INSTALL.EXE/BILLPOWR.EXE/0/RCDATA/TCALCULATOR/TCALCULATOR.txt

Text File | 1998-04-14 | 4KB | 183 lines

object Calculator: TCalculator
  Left = 200
  Top = 121
  Width = 170
  Height = 372
  HelpContext = 295
  BorderIcons = [biSystemMenu]
  Caption = 'Calculator'
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OnClose = FormClose
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  PixelsPerInch = 120
  TextHeight = 16
  object mem1Label: TLabel
    Left = 4
    Top = 30
    Width = 37
    Height = 16
    Caption = 'Mem1'
    OnClick = memLabelClick
  end
  object mem2Label: TLabel
    Left = 2
    Top = 54
    Width = 37
    Height = 16
    Caption = 'Mem2'
    OnClick = memLabelClick
  end
  object calcGrid: TStringGrid
    Left = 0
    Top = 74
    Width = 159
    Height = 239
    HelpContext = 295
    ColCount = 3
    FixedCols = 0
    RowCount = 500
    FixedRows = 0
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Courier New'
    Font.Pitch = fpFixed
    Font.Style = []
    GridLineWidth = 0
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goEditing, goAlwaysShowEditor, goThumbTracking]
    ParentFont = False
    ScrollBars = ssVertical
    TabOrder = 0
    OnDragDrop = calcGridDragDrop
    OnDragOver = calcGridDragOver
    OnGetEditText = calcGridGetEditText
    OnKeyDown = FormKeyDown
    OnKeyPress = calcGridKeyPress
    OnMouseDown = calcGridMouseDown
  end
  object CancelBtn: TButton
    Left = 112
    Top = 2
    Width = 45
    Height = 21
    Cancel = True
    Caption = 'Exit'
    TabOrder = 1
    TabStop = False
    OnClick = CancelBtnClick
  end
  object mem1Btn: TEdit
    Left = 44
    Top = 26
    Width = 97
    Height = 24
    TabStop = False
    MaxLength = 13
    TabOrder = 2
    Text = '0.00000000000'
    OnDragDrop = MemBtnDragDrop
    OnDragOver = MemBtnDragOver
    OnExit = memBtnExit
    OnKeyDown = FormKeyDown
    OnMouseDown = MemBtnMouseDown
  end
  object mem2Btn: TEdit
    Left = 44
    Top = 50
    Width = 97
    Height = 24
    TabStop = False
    MaxLength = 13
    TabOrder = 3
    OnDragDrop = MemBtnDragDrop
    OnDragOver = MemBtnDragOver
    OnExit = memBtnExit
    OnKeyDown = FormKeyDown
    OnMouseDown = MemBtnMouseDown
  end
  object MainMenu1: TMainMenu
    Left = 30
    Top = 65534
    object calcFile: TMenuItem
      Caption = 'File'
      object calcPrint: TMenuItem
        Caption = 'Print Tape'
        OnClick = calcPrintClick
      end
      object calcToClipbrd: TMenuItem
        Caption = 'Tape to Clipboard'
        OnClick = calcPrintClick
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object calcTotExit: TMenuItem
        Caption = 'Exit, Total in Clipboard'
        OnClick = calcTotExitClick
      end
      object calcExit: TMenuItem
        Caption = 'Exit'
        OnClick = CancelBtnClick
      end
    end
    object CalcTools: TMenuItem
      Caption = 'Tools'
      object Mem1in: TMenuItem
        Caption = 'Mem1 IN'
        OnClick = MemInClick
      end
      object Mem1Out: TMenuItem
        Caption = 'Mem1 OUT'
        OnClick = MemOutClick
      end
      object Mem2in: TMenuItem
        Caption = 'Mem2 IN'
        OnClick = MemInClick
      end
      object Mem2Out: TMenuItem
        Caption = 'Mem2 OUT'
        OnClick = MemOutClick
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object CalcErase: TMenuItem
        Caption = 'Erase Tape'
        OnClick = CalcEraseClick
      end
      object calcUnerase: TMenuItem
        Caption = 'Un-erase Tape'
        OnClick = calcUneraseClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object calcRecalc: TMenuItem
        Caption = 'Recalc'
        OnClick = calcRecalcClick
      end
      object calcIncDecimals: TMenuItem
        Caption = 'Increase Decimals'
        OnClick = calcIncDecimalsClick
      end
      object calcDecDecimals: TMenuItem
        Caption = 'Decrease Decimals'
        OnClick = calcDecDecimalsClick
      end
    end
    object calcHelp: TMenuItem
      Caption = 'Help'
      OnClick = calcHelpClick
    end
  end
  object PrintDialog1: TPrintDialog
    Left = 2
  end
end