Hot Shareware 35/hot35.iso/ficheros/9APLI/CBAR200E.ZIP/CBAR20.EX_/CBAR20.EX/0/RCDATA/TFORMMODORD/TFORMMODORD.txt

Text File | 1997-10-15 | 17KB | 716 lines

object FormModOrd: TFormModOrd
  Left = 241
  Top = 114
  BorderStyle = bsDialog
  Caption = 'Order form'
  ClientHeight = 365
  ClientWidth = 531
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object GroupData: TGroupBox
    Left = 2
    Top = 3
    Width = 355
    Height = 204
    Caption = 'Write your data'
    TabOrder = 0
    object LName: TLabel
      Left = 19
      Top = 17
      Width = 48
      Height = 13
      Alignment = taRightJustify
      Caption = 'Full name:'
    end
    object LAz: TLabel
      Left = 20
      Top = 41
      Width = 47
      Height = 13
      Alignment = taRightJustify
      Caption = 'Company:'
    end
    object LVia: TLabel
      Left = 26
      Top = 63
      Width = 41
      Height = 13
      Alignment = taRightJustify
      Caption = 'Address:'
    end
    object LCitta: TLabel
      Left = 47
      Top = 86
      Width = 20
      Height = 13
      Alignment = taRightJustify
      Caption = 'City:'
    end
    object LProv: TLabel
      Left = 286
      Top = 86
      Width = 28
      Height = 13
      Caption = 'State:'
    end
    object LCap: TLabel
      Left = 19
      Top = 110
      Width = 48
      Height = 13
      Alignment = taRightJustify
      Caption = 'Postcode:'
    end
    object LTel: TLabel
      Left = 33
      Top = 157
      Width = 34
      Height = 13
      Alignment = taRightJustify
      Caption = 'Phone:'
    end
    object LFax: TLabel
      Left = 220
      Top = 157
      Width = 23
      Height = 13
      Alignment = taRightJustify
      Caption = 'Fax.:'
    end
    object LPIVA: TLabel
      Left = 43
      Top = 134
      Width = 24
      Height = 13
      Alignment = taRightJustify
      Caption = 'VAT:'
    end
    object LFatt: TLabel
      Left = 247
      Top = 133
      Width = 61
      Height = 13
      Caption = '( for invoice )'
    end
    object LData: TLabel
      Left = 41
      Top = 182
      Width = 26
      Height = 13
      Alignment = taRightJustify
      Caption = 'Date:'
    end
    object Leml: TLabel
      Left = 155
      Top = 181
      Width = 70
      Height = 13
      Alignment = taRightJustify
      Caption = 'e-mail address:'
    end
    object LCountry: TLabel
      Left = 184
      Top = 110
      Width = 39
      Height = 13
      Alignment = taRightJustify
      Caption = 'Country:'
    end
    object Nome: TEdit
      Left = 70
      Top = 13
      Width = 281
      Height = 21
      HelpContext = 1016
      MaxLength = 80
      TabOrder = 0
      Text = 'Nome'
    end
    object Az: TEdit
      Left = 70
      Top = 36
      Width = 281
      Height = 21
      HelpContext = 1016
      MaxLength = 80
      TabOrder = 1
      Text = 'Az'
    end
    object Via: TEdit
      Left = 70
      Top = 59
      Width = 281
      Height = 21
      HelpContext = 1016
      MaxLength = 80
      TabOrder = 2
      Text = 'Via'
    end
    object Citta: TEdit
      Left = 70
      Top = 82
      Width = 205
      Height = 21
      HelpContext = 1016
      MaxLength = 80
      TabOrder = 3
      Text = 'Citta'
    end
    object Prov: TEdit
      Left = 319
      Top = 82
      Width = 32
      Height = 21
      HelpContext = 1016
      MaxLength = 2
      TabOrder = 4
      Text = 'Prov'
    end
    object CAP: TEdit
      Left = 70
      Top = 106
      Width = 79
      Height = 21
      HelpContext = 1016
      MaxLength = 20
      TabOrder = 5
      Text = 'CAP'
    end
    object Tel: TEdit
      Left = 70
      Top = 154
      Width = 117
      Height = 21
      HelpContext = 1016
      MaxLength = 20
      TabOrder = 8
      Text = 'Tel'
    end
    object FAX: TEdit
      Left = 250
      Top = 154
      Width = 101
      Height = 21
      HelpContext = 1016
      MaxLength = 20
      TabOrder = 9
      Text = 'FAX'
    end
    object PIVA: TEdit
      Left = 70
      Top = 130
      Width = 165
      Height = 21
      HelpContext = 1016
      MaxLength = 30
      TabOrder = 7
      Text = 'PIVA'
    end
    object Data: TEdit
      Left = 70
      Top = 178
      Width = 76
      Height = 21
      HelpContext = 1016
      MaxLength = 20
      TabOrder = 10
      Text = 'Data'
    end
    object Eml: TEdit
      Left = 230
      Top = 178
      Width = 121
      Height = 21
      HelpContext = 1016
      MaxLength = 70
      TabOrder = 11
      Text = 'Eml'
    end
    object Country: TEdit
      Left = 230
      Top = 106
      Width = 121
      Height = 21
      MaxLength = 80
      TabOrder = 6
      Text = 'Country'
    end
  end
  object GroupPayment: TGroupBox
    Left = 2
    Top = 248
    Width = 391
    Height = 91
    Caption = 'Payment'
    TabOrder = 3
    object Panel3: TPanel
      Left = 4
      Top = 34
      Width = 383
      Height = 53
      BevelInner = bvLowered
      TabOrder = 5
      object LTitCard: TLabel
        Left = 14
        Top = 8
        Width = 54
        Height = 13
        Alignment = taRightJustify
        Caption = 'Cardholder:'
      end
      object LCardNo: TLabel
        Left = 23
        Top = 30
        Width = 45
        Height = 13
        Alignment = taRightJustify
        Caption = 'Card No.:'
      end
      object LExp: TLabel
        Left = 258
        Top = 30
        Width = 50
        Height = 13
        Alignment = taRightJustify
        Caption = 'Exp. Date:'
      end
      object Label16: TLabel
        Left = 340
        Top = 28
        Width = 5
        Height = 13
        Caption = '/'
      end
      object TitCard: TEdit
        Left = 70
        Top = 4
        Width = 203
        Height = 21
        MaxLength = 80
        TabOrder = 0
        Text = 'TitCard'
      end
      object NumCard: TEdit
        Left = 70
        Top = 26
        Width = 173
        Height = 21
        MaxLength = 40
        TabOrder = 1
        Text = 'NumCard'
      end
      object MCard: TEdit
        Left = 314
        Top = 26
        Width = 27
        Height = 21
        MaxLength = 2
        TabOrder = 2
        Text = 'MCard'
      end
      object ACard: TEdit
        Left = 346
        Top = 26
        Width = 27
        Height = 21
        MaxLength = 2
        TabOrder = 3
        Text = 'ACard'
      end
    end
    object RVisa: TRadioButton
      Left = 6
      Top = 14
      Width = 47
      Height = 17
      Caption = 'Visa'
      TabOrder = 0
    end
    object RAmeric: TRadioButton
      Left = 52
      Top = 14
      Width = 105
      Height = 17
      Caption = 'American Express'
      TabOrder = 1
    end
    object RMaster: TRadioButton
      Left = 162
      Top = 14
      Width = 83
      Height = 17
      Caption = 'Master Card'
      TabOrder = 2
    end
    object REuro: TRadioButton
      Left = 246
      Top = 14
      Width = 71
      Height = 17
      Caption = 'Eurocard'
      TabOrder = 3
    end
    object RElectron: TRadioButton
      Left = 318
      Top = 14
      Width = 63
      Height = 17
      Caption = 'Electron'
      TabOrder = 4
    end
  end
  object PanelScroll: TPanel
    Left = 4
    Top = 340
    Width = 395
    Height = 21
    BevelInner = bvLowered
    TabOrder = 8
    object ScrollText1: TScrollText
      Left = 2
      Top = 2
      Width = 391
      Height = 17
      Align = alClient
      Text =
        'If you have an Internet link, you can register the program direc' +
        'tly. Your data will be sent in encrypted form. Our server will s' +
        'ent you  the code for unlocking the program by e-mail automatica' +
        'lly.'
      Color = clNavy
      Font.Color = clYellow
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
    end
  end
  object ButReg: TBitBtn
    Left = 398
    Top = 336
    Width = 127
    Height = 27
    Caption = 'Registration on line'
    TabOrder = 7
    OnClick = ButRegClick
    Glyph.Data = {
      06020000424D0602000000000000760000002800000028000000140000000100
      0400000000009001000000000000000000000000000000000000000000000000
      80000080000000808000800000008000800080800000C0C0C000808080000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      3300000000000003333333FFFFFFFFFFFFF33333388888888888880333333888
      8888888888F3300008B7B7B7B7B7B803388888F333333333F8F33333380B7B7B
      7B7B080333FFF88F333F333F88F3300008B0B7B0B7B0B80338888838F3F8F3F8
      38F3333338FB0B0B0B0B780333FFF8338F838F8338F3300008B7B0B7B0B7B803
      38888833F83338F338F3333338FB0B7B7B0B780333FFF83F8333338F38F33000
      08B0B7B7B7B0B803388888F833333338F8F33333380BFBFBFBFB080333333883
      3333333388F33333388888888888883333333888888888888833333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      3333333333333333333333333333333333333333333333333333333333333333
      33333333333333333333}
    NumGlyphs = 2
  end
  object ButPrint: TBitBtn
    Left = 398
    Top = 307
    Width = 127
    Height = 25
    Caption = 'Print'
    TabOrder = 6
    OnClick = ButPrintClick
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
      00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
      8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
      8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
      8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
      03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
      03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
      33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
      33333337FFFF7733333333300000033333333337777773333333}
    NumGlyphs = 2
  end
  object ButClose: TBitBtn
    Left = 398
    Top = 248
    Width = 127
    Height = 25
    Caption = 'Close'
    TabOrder = 4
    OnClick = ButCloseClick
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
      03333377777777777F333301111111110333337F333333337F33330111111111
      0333337F333333337F333301111111110333337F333333337F33330111111111
      0333337F333333337F333301111111110333337F333333337F33330111111111
      0333337F3333333F7F333301111111B10333337F333333737F33330111111111
      0333337F333333337F333301111111110333337F33FFFFF37F3333011EEEEE11
      0333337F377777F37F3333011EEEEE110333337F37FFF7F37F3333011EEEEE11
      0333337F377777337F333301111111110333337F333333337F33330111111111
      0333337FFFFFFFFF7F33330000000000033333777777777773330000}
    NumGlyphs = 2
  end
  object PanelUpgr: TPanel
    Left = 2
    Top = 208
    Width = 355
    Height = 41
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 1
    Visible = False
    object LUpgr1: TLabel
      Left = 4
      Top = 2
      Width = 334
      Height = 13
      Caption =
        'Enter the code of the previous version of the registered program' +
        ', if you '
    end
    object LUpgr2: TLabel
      Left = 4
      Top = 20
      Width = 151
      Height = 13
      Caption = 'have one, for upgrade discount:'
    end
    object EUpgr: TEdit
      Left = 164
      Top = 16
      Width = 185
      Height = 21
      MaxLength = 19
      TabOrder = 0
    end
  end
  object BtnHelp: TBitBtn
    Left = 398
    Top = 277
    Width = 127
    Height = 25
    Caption = 'Help'
    TabOrder = 5
    OnClick = BtnHelpClick
    Glyph.Data = {
      78010000424D7801000000000000760000002800000020000000100000000100
      04000000000000000000120B0000120B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
      3333333333FFFFF3333333333F797F3333333333F737373FF333333BFB999BFB
      33333337737773773F3333BFBF797FBFB33333733337333373F33BFBFBFBFBFB
      FB3337F33333F33337F33FBFBFB9BFBFBF3337333337F333373FFBFBFBF97BFB
      FBF37F333337FF33337FBFBFBFB99FBFBFB37F3333377FF3337FFBFBFBFB99FB
      FBF37F33333377FF337FBFBF77BF799FBFB37F333FF3377F337FFBFB99FB799B
      FBF373F377F3377F33733FBF997F799FBF3337F377FFF77337F33BFBF99999FB
      FB33373F37777733373333BFBF999FBFB3333373FF77733F7333333BFBFBFBFB
      3333333773FFFF77333333333FBFBF33333333333777773333330000}
    NumGlyphs = 2
  end
  object PageControl: TPageControl
    Left = 364
    Top = 4
    Width = 161
    Height = 241
    ActivePage = EnInfo
    TabOrder = 2
    object EnInfo: TTabSheet
      Caption = 'EnInfo'
      TabVisible = False
      object Label1: TLabel
        Left = 4
        Top = 2
        Width = 141
        Height = 113
        AutoSize = False
        Caption =
          'The program costs only Italian Lire 46.500 (about 27$ - US Dolla' +
          'rs). Compile this form and send it by e-mail (using the "Registr' +
          'ation on line") or by fax or mail to the following address:'
        WordWrap = True
      end
      object Panel1: TPanel
        Left = 2
        Top = 116
        Width = 149
        Height = 97
        BevelInner = bvLowered
        TabOrder = 0
        object Label2: TLabel
          Left = 4
          Top = 3
          Width = 46
          Height = 13
          Caption = 'CompuArt'
        end
        object Label3: TLabel
          Left = 4
          Top = 17
          Width = 47
          Height = 13
          Caption = 'C.P. 5541'
        end
        object Label4: TLabel
          Left = 4
          Top = 30
          Width = 97
          Height = 13
          Caption = '16158 Genova Voltri'
        end
        object Label5: TLabel
          Left = 4
          Top = 62
          Width = 101
          Height = 13
          Caption = 'Fax: [phone]'
        end
        object Label6: TLabel
          Left = 4
          Top = 44
          Width = 30
          Height = 13
          Caption = 'ITALY'
        end
        object Label13: TLabel
          Left = 28
          Top = 78
          Width = 78
          Height = 13
          Caption = '[phone]'
        end
      end
    end
    object ItPag: TTabSheet
      Caption = 'ItPag'
      TabVisible = False
      object Label7: TLabel
        Left = 2
        Top = 84
        Width = 141
        Height = 71
        AutoSize = False
        Caption =
          'Il costo del programma � di sole 46.500 iva inclusa e spese di s' +
          'pedizione escluse. Stampa il modulo e spediscilo via posta o fax' +
          ' a:'
        WordWrap = True
      end
      object RadioGroup1: TRadioGroup
        Left = 0
        Top = -2
        Width = 151
        Height = 83
        Caption = 'Pagamento'
        TabOrder = 0
      end
      object RAntInc: TRadioButton
        Left = 6
        Top = 12
        Width = 121
        Height = 17
        Caption = 'Anticipato incluso'
        TabOrder = 1
        OnClick = RAntIncClick
      end
      object RAntV: TRadioButton
        Left = 6
        Top = 28
        Width = 121
        Height = 17
        Caption = 'Anticipato vaglia'
        TabOrder = 2
        OnClick = RAntVClick
      end
      object RContr: TRadioButton
        Left = 6
        Top = 44
        Width = 121
        Height = 17
        Caption = 'Contrassegno'
        TabOrder = 3
        OnClick = RContrClick
      end
      object RAntCC: TRadioButton
        Left = 6
        Top = 60
        Width = 121
        Height = 17
        Caption = 'Carta di credito'
        TabOrder = 4
        OnClick = RAntCCClick
      end
      object Panel2: TPanel
        Left = 0
        Top = 156
        Width = 149
        Height = 75
        BevelInner = bvLowered
        Caption = 'Panel1'
        TabOrder = 5
        object Label8: TLabel
          Left = 4
          Top = 3
          Width = 46
          Height = 13
          Caption = 'CompuArt'
        end
        object Label9: TLabel
          Left = 4
          Top = 17
          Width = 47
          Height = 13
          Caption = 'C.P. 5541'
        end
        object Label10: TLabel
          Left = 4
          Top = 30
          Width = 97
          Height = 13
          Caption = '16158 Genova Voltri'
        end
        object Label11: TLabel
          Left = 4
          Top = 58
          Width = 101
          Height = 13
          Caption = 'Fax: [phone]'
        end
        object Label12: TLabel
          Left = 4
          Top = 44
          Width = 30
          Height = 13
          Caption = 'ITALY'
        end
      end
    end
  end
  object Timer1: TTimer
    Interval = 100
    OnTimer = Timer1Timer
    Left = 302
    Top = 332
  end
  object PrintDialog1: TPrintDialog
    Left = 214
    Top = 332
  end
end