Emuladores 7/EMULADORES_7.iso/kit/discador_netcerta.exe/DiscadorNetCerta.exe/0/RCDATA/TFORMCOMPRAR/TFORMCOMPRAR.txt

Text File | 2004-05-10 | 6KB | 276 lines

object FormComprar: TFormComprar
  Left = 282
  Top = 171
  BorderIcons = [biSystemMenu]
  BorderStyle = bsDialog
  Caption = 'Compra de Cr'#233'ditos'
  ClientHeight = 373
  ClientWidth = 425
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  OnShow = FormShow
  DesignSize = (
    425
    373)
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 8
    Width = 409
    Height = 41
    AutoSize = False
    Caption =
      'O Discador @NomeServico@ iniciar'#225' uma conex'#227'o para voc'#234' comprar ' +
      'cr'#233'ditos de acesso. Para efetuar a opera'#231#227'o '#233' necess'#225'rio que voc' +
      #234' informe seu e-mail, sua senha e a forma de pagamento desejada.'
    WordWrap = True
  end
  object Label2: TLabel
    Left = 16
    Top = 64
    Width = 52
    Height = 13
    Caption = 'Seu &e-mail:'
  end
  object Label3: TLabel
    Left = 16
    Top = 88
    Width = 54
    Height = 13
    Caption = 'Sua &senha:'
  end
  object Label4: TLabel
    Left = 16
    Top = 140
    Width = 103
    Height = 13
    Caption = '&Forma de pagamento:'
  end
  object Label5: TLabel
    Left = 216
    Top = 64
    Width = 99
    Height = 13
    Caption = '@@DominioConta@'
  end
  object Label11: TLabel
    Left = 16
    Top = 114
    Width = 175
    Height = 13
    Caption = 'Quantos cr'#233'ditos voc'#234' quer comprar:'
  end
  object gbDadosCartao: TGroupBox
    Left = 8
    Top = 168
    Width = 409
    Height = 153
    Caption = 'Dados do seu &Cart'#227'o de Cr'#233'dito'
    TabOrder = 4
    Visible = False
    object Label6: TLabel
      Left = 16
      Top = 26
      Width = 40
      Height = 13
      Caption = '&N'#250'mero:'
    end
    object Label7: TLabel
      Left = 216
      Top = 26
      Width = 44
      Height = 13
      Caption = '&V'#225'lidade:'
    end
    object Label8: TLabel
      Left = 311
      Top = 26
      Width = 12
      Height = 13
      Caption = 'de'
    end
    object Label9: TLabel
      Left = 16
      Top = 50
      Width = 104
      Height = 13
      Caption = 'C'#243'digo de &seguran'#231'a:'
    end
    object Label29: TLabel
      Left = 10
      Top = 102
      Width = 391
      Height = 43
      AutoSize = False
      Caption =
        'Obs.: os dados do cart'#227'o de cr'#233'dito ser'#227'o enviados criptografado' +
        's com total seguran'#231'a para a administradora de seu cart'#227'o. Para ' +
        'sua seguran'#231'a, o Discador n'#227'o armazena os dados de seu cart'#227'o de' +
        ' cr'#233'dito.'
      WordWrap = True
    end
    object Label10: TLabel
      Left = 184
      Top = 50
      Width = 65
      Height = 13
      Cursor = crHandPoint
      Caption = 'O que '#233' isso?'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsUnderline]
      ParentFont = False
      OnClick = Label10Click
    end
    object Label12: TLabel
      Left = 16
      Top = 72
      Width = 99
      Height = 13
      Caption = '&Telefone de contato:'
    end
    object edNumCC: TEdit
      Left = 64
      Top = 20
      Width = 129
      Height = 21
      MaxLength = 16
      TabOrder = 0
      OnKeyPress = edFiltraDigitos
    end
    object edCVV2: TEdit
      Left = 128
      Top = 44
      Width = 49
      Height = 21
      MaxLength = 3
      TabOrder = 3
      OnKeyPress = edFiltraDigitos
    end
    object cbxMesCC: TComboBox
      Left = 264
      Top = 20
      Width = 41
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 1
      Items.Strings = (
        '01'
        '02'
        '03'
        '04'
        '05'
        '06'
        '07'
        '08'
        '09'
        '10'
        '11'
        '12')
    end
    object cbxAnoCC: TComboBox
      Left = 328
      Top = 20
      Width = 65
      Height = 21
      Style = csDropDownList
      ItemHeight = 13
      TabOrder = 2
    end
    object edTelefone: TEdit
      Left = 128
      Top = 68
      Width = 121
      Height = 21
      TabOrder = 4
    end
  end
  object btProsseguir: TButton
    Left = 119
    Top = 337
    Width = 75
    Height = 25
    Anchors = [akLeft, akBottom]
    Caption = 'Prosseguir'
    Default = True
    TabOrder = 5
    OnClick = btProsseguirClick
  end
  object btCancelar: TButton
    Left = 231
    Top = 337
    Width = 75
    Height = 25
    Anchors = [akLeft, akBottom]
    Cancel = True
    Caption = 'Cancelar'
    TabOrder = 6
    OnClick = btCancelarClick
  end
  object edLogin: TEdit
    Left = 72
    Top = 60
    Width = 145
    Height = 21
    MaxLength = 16
    TabOrder = 0
    OnKeyPress = edLoginKeyPress
  end
  object edSenha: TEdit
    Left = 72
    Top = 84
    Width = 145
    Height = 20
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Wingdings'
    Font.Style = []
    ParentFont = False
    PasswordChar = 'l'
    TabOrder = 1
  end
  object cbxFormaPagamento: TComboBox
    Left = 128
    Top = 136
    Width = 281
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    TabOrder = 3
    OnChange = cbxFormaPagamentoChange
    Items.Strings = (
      'Cart'#227'o de cr'#233'dito Visa'
      'Transfer'#234'ncia Bradesco (somente clientes Bradesco)'
      'Boleta banc'#225'ria'
      'Outras op'#231#245'es do site')
  end
  object cbxCreditos: TComboBox
    Left = 200
    Top = 112
    Width = 121
    Height = 21
    Style = csDropDownList
    ItemHeight = 13
    ItemIndex = 1
    TabOrder = 2
    Text = 'R$ 20'
    Items.Strings = (
      'R$ 10'
      'R$ 20'
      'R$ 30'
      'R$ 50'
      'R$ 100')
  end
end