Chip 1999 January/Chip_1999-01_cd.bin/zkuste/delphi/D1/COOLCALC.ZIP/CCALCDLG.DFM/CCALCDLG.txt

Text File | 1995-09-17 | 7KB | 367 lines

object dlgCalculator: TdlgCalculator
  Left = 228
  Top = 76
  BorderStyle = bsDialog
  Caption = 'Cool Calculator'
  ClientHeight = 291
  ClientWidth = 222
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  PixelsPerInch = 96
  OnCreate = FormCreate
  TextHeight = 16
  object lblResult: TLabel
    Left = 20
    Top = 49
    Width = 9
    Height = 16
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object shpLine: TShape
    Left = 13
    Top = 216
    Width = 192
    Height = 1
    Brush.Color = clGray
  end
  object lblEqualSign: TLabel
    Left = 8
    Top = 48
    Width = 9
    Height = 16
    Caption = '='
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object edtExpression: TEdit
    Left = 7
    Top = 16
    Width = 207
    Height = 24
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    OnKeyUp = edtExpressionKeyUp
  end
  object btn3: TButton
    Left = 115
    Top = 71
    Width = 39
    Height = 28
    Caption = '3'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 3
    OnClick = btn1Click
  end
  object btn1: TButton
    Left = 13
    Top = 71
    Width = 39
    Height = 28
    Caption = '1'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    OnClick = btn1Click
  end
  object btn4: TButton
    Left = 13
    Top = 108
    Width = 39
    Height = 28
    Caption = '4'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 4
    OnClick = btn1Click
  end
  object btn7: TButton
    Left = 13
    Top = 146
    Width = 39
    Height = 28
    Caption = '7'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 7
    OnClick = btn1Click
  end
  object btn2: TButton
    Left = 64
    Top = 71
    Width = 39
    Height = 28
    Caption = '2'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    OnClick = btn1Click
  end
  object btn5: TButton
    Left = 64
    Top = 109
    Width = 39
    Height = 28
    Caption = '5'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 5
    OnClick = btn1Click
  end
  object btn8: TButton
    Left = 64
    Top = 146
    Width = 39
    Height = 28
    Caption = '8'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 8
    OnClick = btn1Click
  end
  object btn9: TButton
    Left = 115
    Top = 146
    Width = 39
    Height = 28
    Caption = '9'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 9
    OnClick = btn1Click
  end
  object btn6: TButton
    Left = 115
    Top = 109
    Width = 39
    Height = 28
    Caption = '6'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 6
    OnClick = btn1Click
  end
  object btn0: TButton
    Left = 13
    Top = 182
    Width = 39
    Height = 28
    Caption = '0'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 10
    OnClick = btn1Click
  end
  object btnDecimal: TButton
    Left = 64
    Top = 182
    Width = 39
    Height = 28
    Caption = '.'
    Font.Color = clBlack
    Font.Height = -24
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 11
    OnClick = btn1Click
  end
  object btnEquals: TButton
    Left = 115
    Top = 182
    Width = 39
    Height = 28
    Caption = '='
    Font.Color = clBlack
    Font.Height = -24
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 16
    OnClick = btnEqualsClick
  end
  object btnDivide: TButton
    Left = 166
    Top = 71
    Width = 39
    Height = 28
    Caption = '/'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 12
    OnClick = btn1Click
  end
  object btnMultiply: TButton
    Left = 166
    Top = 109
    Width = 39
    Height = 28
    Caption = '*'
    Font.Color = clBlack
    Font.Height = -24
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 13
    OnClick = btn1Click
  end
  object btnMinus: TButton
    Left = 166
    Top = 146
    Width = 39
    Height = 28
    Caption = '-'
    Font.Color = clBlack
    Font.Height = -24
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 14
    OnClick = btn1Click
  end
  object btnPlus: TButton
    Left = 166
    Top = 182
    Width = 39
    Height = 28
    Caption = '+'
    Font.Color = clBlack
    Font.Height = -24
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 15
    OnClick = btn1Click
  end
  object btnExampleA: TButton
    Left = 13
    Top = 256
    Width = 64
    Height = 28
    Caption = '&Example A'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    TabOrder = 21
    OnClick = btnExampleAClick
  end
  object btnClear: TButton
    Left = 13
    Top = 222
    Width = 46
    Height = 28
    Caption = '&Clear'
    Font.Color = clBlack
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 17
    OnClick = btnClearClick
  end
  object btnLeftBracket: TButton
    Left = 154
    Top = 222
    Width = 27
    Height = 28
    Caption = '('
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 19
    OnClick = btn1Click
  end
  object btnRightBracket: TButton
    Left = 180
    Top = 222
    Width = 25
    Height = 28
    Caption = ')'
    Font.Color = clBlack
    Font.Height = -13
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 20
    OnClick = btn1Click
  end
  object btnBackSpace: TButton
    Left = 64
    Top = 222
    Width = 84
    Height = 28
    Caption = 'Backspace'
    TabOrder = 18
    OnClick = btnBackSpaceClick
  end
  object btnEnter: TButton
    Left = 143
    Top = 256
    Width = 62
    Height = 28
    Caption = 'Enter'
    Default = True
    TabOrder = 23
    OnClick = btnEqualsClick
  end
  object btnAbout: TButton
    Left = 82
    Top = 256
    Width = 56
    Height = 28
    Caption = '&About'
    TabOrder = 22
    OnClick = btnAboutClick
  end
end