object FrmMain: TFrmMain
  Left = 441
  Top = 157
  Width = 515
  Height = 731
  Caption = 'Exemplo Integra'#231#227'o em Delphi'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label8: TLabel
    Left = 10
    Top = 427
    Width = 109
    Height = 13
    Caption = 'Display de Eventos:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label9: TLabel
    Left = 75
    Top = 634
    Width = 315
    Height = 16
    Caption = 'Exemplo Integra'#231#227'o Concentrador Fcm em Delphi'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label10: TLabel
    Left = 107
    Top = 650
    Width = 253
    Height = 16
    Caption = 'Cesna Technology - www.cesna.com.br'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object GroupBoxFcmMaster: TGroupBox
    Left = 8
    Top = 8
    Width = 473
    Height = 69
    Caption = 'Comandos Master USB'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object BtnIniciaCOM: TButton
      Left = 16
      Top = 24
      Width = 84
      Height = 28
      Caption = 'Iniciar COM'
      TabOrder = 0
      OnClick = BtnIniciaCOMClick
    end
    object BtnSair: TButton
      Left = 368
      Top = 24
      Width = 84
      Height = 28
      Caption = 'Sair'
      TabOrder = 1
      OnClick = BtnSairClick
    end
    object BtnVersaoDll: TButton
      Left = 194
      Top = 24
      Width = 84
      Height = 28
      Caption = 'Vers'#227'o Dll'
      TabOrder = 2
      OnClick = BtnVersaoDllClick
    end
  end
  object GroupBoxFcmSlave: TGroupBox
    Left = 9
    Top = 83
    Width = 473
    Height = 158
    Caption = 'Comandos Concentrador IDcode'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 1
    object Label1: TLabel
      Left = 8
      Top = 24
      Width = 61
      Height = 13
      Caption = 'N'#186' de MAB:'
    end
    object Label2: TLabel
      Left = 16
      Top = 64
      Width = 78
      Height = 13
      Caption = 'N'#186' de Bombas'
    end
    object Label12: TLabel
      Left = 160
      Top = 24
      Width = 232
      Height = 13
      Caption = 'Modo de Opera'#231#227'o para Abastecimentos:'
    end
    object Label13: TLabel
      Left = 160
      Top = 64
      Width = 178
      Height = 13
      Caption = 'Tipo de Bomba para Comunicar:'
    end
    object BtnConfigura: TButton
      Left = 122
      Top = 110
      Width = 110
      Height = 34
      Caption = 'Envia Configura'#231#227'o'
      TabOrder = 0
      WordWrap = True
      OnClick = BtnConfiguraClick
    end
    object CmbBoxNumMab: TComboBox
      Left = 12
      Top = 40
      Width = 100
      Height = 21
      ItemHeight = 13
      TabOrder = 1
      Text = '1'
      Items.Strings = (
        '1'
        '2'
        '3'
        '4')
    end
    object CmbBoxNumBo: TComboBox
      Left = 12
      Top = 80
      Width = 100
      Height = 21
      ItemHeight = 13
      TabOrder = 2
      Text = '1'
      Items.Strings = (
        '1'
        '2'
        '3'
        '4'
        '5'
        '6'
        '7'
        '8'
        '9'
        '10'
        '11'
        '12'
        '13'
        '14'
        '15'
        '16')
    end
    object CmbBoxModoOp: TComboBox
      Left = 160
      Top = 40
      Width = 273
      Height = 21
      ItemHeight = 13
      TabOrder = 3
      Text = 'A - Concentrador Autoriza On-Line e Off-Line.'
      Items.Strings = (
        'A - Concentrador Autoriza On-Line e Off-Line.'
        'B - PC Autoriza On-Line e Concentrador Off-Line.'
        'C - Cart'#245'es Autorizam On-Line e Off-Line.')
    end
    object CmbBoxTipoBomba: TComboBox
      Left = 160
      Top = 80
      Width = 273
      Height = 21
      ItemHeight = 13
      TabOrder = 4
      Text = 'CmbBoxTipoBomba'
      Items.Strings = (
        'BOMBA WAYNE 3G'
        'BOMBA WAYNE DUPLEX'
        'BOMBA WAYNE MINNOW'
        'BOMBA WAYNE RIFRAN'
        'BOMBA GILBARCO'
        'BOMBA STRATEMA LOOP'
        'BOMBA STRATEMA RS485'
        'BOMBA STRATEMA RS485 4800'
        'BOMBA ASPRO DEVELCO'
        'BOMBA ASPRO METROVAL'
        'BOMBA TOKHEIM')
    end
    object BtnObtemConfig: TButton
      Left = 8
      Top = 110
      Width = 110
      Height = 34
      Caption = 'Obt'#233'm Configura'#231#227'o'
      TabOrder = 5
      WordWrap = True
      OnClick = BtnObtemConfigClick
    end
    object BtnObtemNumAbastOff: TButton
      Left = 236
      Top = 110
      Width = 110
      Height = 34
      Caption = 'Obt'#233'm N'#250'm Abast Off-Line'
      TabOrder = 6
      WordWrap = True
      OnClick = BtnObtemNumAbastOffClick
    end
    object BtnObtemAbastFlash: TButton
      Left = 350
      Top = 110
      Width = 110
      Height = 34
      Caption = 'Obt'#233'm Abast Flash'
      TabOrder = 7
      WordWrap = True
      OnClick = BtnObtemAbastFlashClick
    end
  end
  object GroupBoxBombas: TGroupBox
    Left = 8
    Top = 242
    Width = 473
    Height = 180
    Caption = 'Comandos Bombas'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 2
    object Label3: TLabel
      Left = 376
      Top = 12
      Width = 77
      Height = 13
      Caption = 'Pre'#231'o p/ Litro'
    end
    object Label4: TLabel
      Left = 376
      Top = 59
      Width = 72
      Height = 13
      Caption = 'Vol Pr'#233'-Pago'
    end
    object Label5: TLabel
      Left = 18
      Top = 153
      Width = 28
      Height = 13
      Caption = 'MAB:'
    end
    object Label6: TLabel
      Left = 99
      Top = 153
      Width = 17
      Height = 13
      Caption = 'Bo:'
    end
    object Label7: TLabel
      Left = 168
      Top = 153
      Width = 13
      Height = 13
      Caption = 'Bi:'
    end
    object BtnAutoriza: TButton
      Left = 14
      Top = 24
      Width = 80
      Height = 30
      Caption = 'Autoriza'
      TabOrder = 0
      OnClick = BtnAutorizaClick
    end
    object BtnTrava: TButton
      Left = 14
      Top = 70
      Width = 80
      Height = 30
      Caption = 'Trava'
      TabOrder = 1
      OnClick = BtnTravaClick
    end
    object BtnUltVol: TButton
      Left = 100
      Top = 24
      Width = 80
      Height = 30
      Caption = #218'ltimo Vol.'
      TabOrder = 2
      OnClick = BtnUltVolClick
    end
    object BtnDestrava: TButton
      Left = 100
      Top = 70
      Width = 80
      Height = 30
      Caption = 'Destrava'
      TabOrder = 3
      OnClick = BtnDestravaClick
    end
    object BtnObtemPpl: TButton
      Left = 186
      Top = 24
      Width = 80
      Height = 30
      Caption = 'Obtem Pre'#231'o'
      TabOrder = 4
      OnClick = BtnObtemPplClick
    end
    object BtnTot: TButton
      Left = 186
      Top = 70
      Width = 80
      Height = 30
      Caption = 'Totalizador'
      TabOrder = 5
      OnClick = BtnTotClick
    end
    object BtnTrocaPpl: TButton
      Left = 272
      Top = 24
      Width = 86
      Height = 30
      Caption = 'Troca Pre'#231'o'
      TabOrder = 6
      OnClick = BtnTrocaPplClick
    end
    object BtnPrePago: TButton
      Left = 272
      Top = 70
      Width = 88
      Height = 30
      Caption = 'Pr'#233'-Pago'
      TabOrder = 7
      OnClick = BtnPrePagoClick
    end
    object ChBoxAutoriza: TCheckBox
      Left = 272
      Top = 150
      Width = 161
      Height = 17
      Caption = 'Autoriza'#231#227'o Autom'#225'tica'
      TabOrder = 8
    end
    object BtnStatusBo: TButton
      Left = 14
      Top = 114
      Width = 80
      Height = 30
      Caption = 'Status Bo'
      TabOrder = 9
      OnClick = BtnStatusBoClick
    end
    object CmbBoxMab: TComboBox
      Left = 53
      Top = 150
      Width = 40
      Height = 21
      ItemHeight = 13
      TabOrder = 10
      Text = '1'
      Items.Strings = (
        '1'
        '2'
        '3'
        '4')
    end
    object CmbBoxBomba: TComboBox
      Left = 122
      Top = 150
      Width = 40
      Height = 21
      ItemHeight = 13
      TabOrder = 11
      Text = '1'
      Items.Strings = (
        '1'
        '2'
        '3'
        '4'
        '5'
        '6'
        '7'
        '8'
        '9'
        '10'
        '11'
        '12'
        '13'
        '14'
        '15'
        '16')
    end
    object CmbBoxBico: TComboBox
      Left = 187
      Top = 150
      Width = 40
      Height = 21
      ItemHeight = 13
      TabOrder = 12
      Text = '1'
      Items.Strings = (
        '1'
        '2'
        '3'
        '4')
    end
    object MEdtPpl: TMaskEdit
      Left = 376
      Top = 28
      Width = 76
      Height = 21
      EditMask = '0,000;1;_'
      MaxLength = 5
      TabOrder = 13
      Text = '1,000'
    end
    object MEdtPrePago: TMaskEdit
      Left = 376
      Top = 76
      Width = 75
      Height = 21
      EditMask = '000,000;1;_'
      MaxLength = 7
      TabOrder = 14
      Text = '000,000'
    end
    object ChbTodas: TCheckBox
      Left = 104
      Top = 120
      Width = 97
      Height = 17
      Caption = 'Todas'
      TabOrder = 15
    end
  end
  object MemDisp: TMemo
    Left = 8
    Top = 440
    Width = 474
    Height = 193
    Lines.Strings = (
      'MemDisp')
    ScrollBars = ssVertical
    TabOrder = 3
  end
  object MainMenu1: TMainMenu
    Left = 336
    Top = 528
    object File1: TMenuItem
      Caption = 'File'
    end
    object Operaes1: TMenuItem
      Caption = 'Opera'#231#245'es'
      object ObtemEncerrantes1: TMenuItem
        Caption = 'Obtem Encerrantes'
        OnClick = ObtemEncerrantes1Click
      end
    end
  end
  object Cesna: TCesna
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    OnRetornoEspecial = CesnaRetornoEspecial
    OnIdCodeAbasteceu = CesnaIdCodeAbasteceu
    OnIdCodeMudancaDeEstado = CesnaIdCodeMudancaDeEstado
    OnIdCodeVolume = CesnaIdCodeVolume
    OnIdCodeTotalizador = CesnaIdCodeTotalizador
    OnIdCodePrecoPorLitro = CesnaIdCodePrecoPorLitro
    OnIdCodeNumAbastOff = CesnaIdCodeNumAbastOff
    OnIdCodeValorBombaAbast = CesnaIdCodeValorBombaAbast
    OnIdCodeConfigMab = CesnaIdCodeConfigMab
    OnIdCodeInfoEvento = CesnaIdCodeInfoEvento
    OnIdCodeErroCrcTab = CesnaIdCodeErroCrcTab
    OnIdCodeRetornoAbatFlash = CesnaIdCodeRetornoAbatFlash
    Left = 160
    Top = 488
  end
end
