home *** CD-ROM | disk | FTP | other *** search
- object PurchaseForm: TPurchaseForm
- Left = 368
- Top = 222
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'Recharge Credit Card'
- ClientHeight = 250
- ClientWidth = 319
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = True
- Position = poScreenCenter
- Scaled = False
- OnClose = FormClose
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object Label2: TLabel
- Left = 11
- Top = 232
- Width = 199
- Height = 13
- Caption = 'Contacting Server. Please Wait ...'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- end
- object OkBtn: TButton
- Left = 48
- Top = 192
- Width = 75
- Height = 25
- Caption = 'OK'
- TabOrder = 0
- OnClick = OkBtnClick
- end
- object CancelBtn: TButton
- Left = 176
- Top = 192
- Width = 75
- Height = 25
- Cancel = True
- Caption = 'Cancel'
- TabOrder = 1
- OnClick = CancelBtnClick
- end
- object Panel1: TPanel
- Left = 0
- Top = 8
- Width = 319
- Height = 169
- BevelOuter = bvNone
- TabOrder = 2
- object Label1: TLabel
- Left = 11
- Top = 7
- Width = 224
- Height = 13
- Caption = 'Please Enter Your Personal ID Number:'
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- end
- object Label3: TLabel
- Left = 11
- Top = 70
- Width = 186
- Height = 13
- Caption = 'Please Enter Amount To Charge:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object LocalPinNo: TEdit
- Left = 123
- Top = 32
- Width = 88
- Height = 21
- Color = clWhite
- MaxLength = 5
- PasswordChar = '*'
- TabOrder = 0
- Text = 'LocalPinNo'
- OnChange = LocalPinNoChange
- end
- object val25: TRadioButton
- Left = 48
- Top = 94
- Width = 105
- Height = 17
- Caption = '$25'
- Checked = True
- TabOrder = 1
- TabStop = True
- end
- object val50: TRadioButton
- Left = 48
- Top = 118
- Width = 121
- Height = 17
- Caption = '$50'
- TabOrder = 2
- end
- object val100: TRadioButton
- Left = 48
- Top = 142
- Width = 137
- Height = 17
- Caption = '$100'
- TabOrder = 3
- end
- end
- object Timer1: TTimer
- Enabled = False
- Interval = 3000
- OnTimer = DoTimer
- Left = 256
- Top = 40
- end
- end
-