home *** CD-ROM | disk | FTP | other *** search
/ PC Plus SuperCD (UK) 2002 September / PCPlus_193_Laplink2000.iso / Prog / delphi / vatcalc / vatform.dfm / vatform.txt
Encoding:
Text File  |  1995-12-13  |  2.0 KB  |  97 lines

  1. object Form1: TForm1
  2.   Left = 261
  3.   Top = 180
  4.   ActiveControl = CalcBtn
  5.   BorderStyle = bsDialog
  6.   Caption = 'PC Plus VAT Calculator'
  7.   ClientHeight = 173
  8.   ClientWidth = 285
  9.   Color = clBtnFace
  10.   Font.Charset = DEFAULT_CHARSET
  11.   Font.Color = clWindowText
  12.   Font.Height = -13
  13.   Font.Name = 'System'
  14.   Font.Style = []
  15.   OldCreateOrder = True
  16.   PixelsPerInch = 96
  17.   TextHeight = 16
  18.   object CalcBtn: TButton
  19.     Left = 8
  20.     Top = 137
  21.     Width = 273
  22.     Height = 33
  23.     Caption = '&Calculate the Grand Total'
  24.     Font.Charset = DEFAULT_CHARSET
  25.     Font.Color = clBlack
  26.     Font.Height = -13
  27.     Font.Name = 'Times New Roman'
  28.     Font.Style = [fsBold]
  29.     ParentFont = False
  30.     TabOrder = 0
  31.     OnClick = CalcBtnClick
  32.   end
  33.   object GroupBox1: TGroupBox
  34.     Left = 8
  35.     Top = 1
  36.     Width = 273
  37.     Height = 129
  38.     Caption = ' Base Calc on...'
  39.     TabOrder = 1
  40.     object Label1: TLabel
  41.       Left = 168
  42.       Top = 56
  43.       Width = 20
  44.       Height = 16
  45.       Caption = 'Vat'
  46.     end
  47.     object SubTotRB: TRadioButton
  48.       Left = 152
  49.       Top = 24
  50.       Width = 89
  51.       Height = 17
  52.       Hint = 
  53.         'Select this to generate a grand total from the cost (ex VAT) in ' +
  54.         'the first field'
  55.       Caption = 'SubTotal'
  56.       Checked = True
  57.       TabOrder = 0
  58.       TabStop = True
  59.       OnClick = SubTotRBClick
  60.     end
  61.     object GrandTotRB: TRadioButton
  62.       Left = 152
  63.       Top = 88
  64.       Width = 97
  65.       Height = 17
  66.       Caption = 'Grand Total'
  67.       TabOrder = 1
  68.       OnClick = GrandTotRBClick
  69.     end
  70.     object SubTotal: TEdit
  71.       Left = 16
  72.       Top = 24
  73.       Width = 121
  74.       Height = 24
  75.       TabOrder = 2
  76.     end
  77.     object Vat: TEdit
  78.       Left = 16
  79.       Top = 56
  80.       Width = 121
  81.       Height = 24
  82.       ReadOnly = True
  83.       TabOrder = 3
  84.     end
  85.     object GrandTotal: TEdit
  86.       Left = 16
  87.       Top = 88
  88.       Width = 121
  89.       Height = 24
  90.       Hint = 
  91.         'Select this to generate a subtotal from the cost (inc VAT) in th' +
  92.         'e last field'
  93.       TabOrder = 4
  94.     end
  95.   end
  96. end
  97.