object FrmMain: TFrmMain
  Left = 638
  Top = 31
  Caption = 'Exemplo Integra'#231#227'o em Delphi'
  ClientHeight = 659
  ClientWidth = 490
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDesigned
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object Label8: TLabel
    Left = 9
    Top = 402
    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 = 74
    Top = 622
    Width = 336
    Height = 16
    Caption = 'Exemplo Integra'#231#227'o Concentrador IdCode 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 = 637
    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 = 9
    Top = 8
    Width = 473
    Height = 57
    Caption = 'Comandos FcmMaster 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 = 18
      Width = 84
      Height = 28
      Caption = 'Inicia COM'
      TabOrder = 0
      OnClick = BtnIniciaComClick
    end
    object BtnSair: TButton
      Left = 380
      Top = 18
      Width = 84
      Height = 28
      Caption = 'Sair'
      TabOrder = 1
      OnClick = BtnSairClick
    end
    object BtnVersaoDll: TButton
      Left = 198
      Top = 18
      Width = 84
      Height = 28
      Caption = 'Vers'#227'o Dll'
      TabOrder = 2
      OnClick = BtnVersaoDllClick
    end
  end
  object GroupBoxFcmSlave: TGroupBox
    Left = 9
    Top = 71
    Width = 473
    Height = 155
    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 = 22
      Width = 60
      Height = 13
      Caption = 'N'#186' de Mab:'
    end
    object Label2: TLabel
      Left = 8
      Top = 66
      Width = 81
      Height = 13
      Caption = 'N'#186' de Bombas:'
    end
    object Label12: TLabel
      Left = 116
      Top = 22
      Width = 232
      Height = 13
      Caption = 'Modo de Opera'#231#227'o para Abastecimentos:'
    end
    object Label13: TLabel
      Left = 116
      Top = 66
      Width = 178
      Height = 13
      Caption = 'Tipo de Bomba para Comunicar:'
    end
    object BtnObtemNumAbastOff: TButton
      Left = 251
      Top = 107
      Width = 91
      Height = 39
      Caption = 'Obt'#233'm N'#250'm Abast Off-Line'
      TabOrder = 0
      WordWrap = True
      OnClick = BtnObtemNumAbastOffClick
    end
    object BtnConfigura: TButton
      Left = 129
      Top = 107
      Width = 91
      Height = 39
      BiDiMode = bdLeftToRight
      Caption = 'Enviar Configura'#231#227'o'
      DoubleBuffered = False
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentBiDiMode = False
      ParentDoubleBuffered = False
      ParentFont = False
      TabOrder = 1
      WordWrap = True
      OnClick = BtnConfiguraClick
    end
    object CmbBoxNumMab: TComboBox
      Left = 8
      Top = 38
      Width = 81
      Height = 21
      TabOrder = 2
      Text = '1'
      Items.Strings = (
        '1'
        '2'
        '3'
        '4')
    end
    object CmbBoxNumBo: TComboBox
      Left = 8
      Top = 80
      Width = 81
      Height = 21
      TabOrder = 3
      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 = 116
      Top = 38
      Width = 280
      Height = 21
      TabOrder = 4
      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 = 116
      Top = 80
      Width = 280
      Height = 21
      TabOrder = 5
      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 = 107
      Width = 91
      Height = 39
      Caption = 'Obt'#233'm Configura'#231#227'o'
      TabOrder = 6
      WordWrap = True
      OnClick = BtnObtemConfigClick
    end
    object BtnObtemAbastFlash: TButton
      Left = 373
      Top = 107
      Width = 91
      Height = 39
      Caption = 'Obt'#233'm Abast Flash'
      TabOrder = 7
      WordWrap = True
      OnClick = BtnObtemAbastFlashClick
    end
  end
  object GroupBoxBombas: TGroupBox
    Left = 9
    Top = 225
    Width = 473
    Height = 175
    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 = 7
      Top = 150
      Width = 27
      Height = 13
      Caption = 'Mab:'
    end
    object Label6: TLabel
      Left = 83
      Top = 150
      Width = 17
      Height = 13
      Caption = 'Bo:'
    end
    object Label7: TLabel
      Left = 152
      Top = 150
      Width = 13
      Height = 13
      Caption = 'Bi:'
    end
    object BtnAutoriza: TButton
      Left = 14
      Top = 21
      Width = 80
      Height = 30
      Caption = 'Autoriza'
      TabOrder = 0
      OnClick = BtnAutorizaClick
    end
    object BtnTrava: TButton
      Left = 14
      Top = 68
      Width = 80
      Height = 30
      Caption = 'Trava'
      TabOrder = 1
      OnClick = BtnTravaClick
    end
    object BtnUltVol: TButton
      Left = 100
      Top = 21
      Width = 80
      Height = 30
      Caption = #218'ltimo Vol.'
      TabOrder = 2
      OnClick = BtnUltVolClick
    end
    object BtnDestrava: TButton
      Left = 100
      Top = 68
      Width = 80
      Height = 30
      Caption = 'Destrava'
      TabOrder = 3
      OnClick = BtnDestravaClick
    end
    object BtnObtemPpl: TButton
      Left = 186
      Top = 21
      Width = 80
      Height = 30
      Caption = 'Obtem Pre'#231'o'
      TabOrder = 4
      OnClick = BtnObtemPplClick
    end
    object BtnTot: TButton
      Left = 186
      Top = 68
      Width = 80
      Height = 30
      Caption = 'Totalizador'
      TabOrder = 5
      OnClick = BtnTotClick
    end
    object BtnTrocaPpl: TButton
      Left = 272
      Top = 21
      Width = 93
      Height = 30
      Caption = 'Troca Pre'#231'o'
      TabOrder = 6
      OnClick = BtnTrocaPplClick
    end
    object BtnPrePago: TButton
      Left = 272
      Top = 68
      Width = 93
      Height = 30
      Caption = 'Pr'#233'-Pago'
      TabOrder = 7
      OnClick = BtnPrePagoClick
    end
    object ChBoxAutoriza: TCheckBox
      Left = 272
      Top = 149
      Width = 161
      Height = 17
      Caption = 'Autoriza'#231#227'o Autom'#225'tica'
      TabOrder = 8
    end
    object BtnObtemStatusBo: TButton
      Left = 15
      Top = 112
      Width = 80
      Height = 30
      Caption = 'Status Bo'
      TabOrder = 9
      OnClick = BtnObtemStatusBoClick
    end
    object MEdtPpl: TMaskEdit
      Left = 376
      Top = 28
      Width = 77
      Height = 21
      EditMask = '0,000;1;_'
      MaxLength = 5
      TabOrder = 10
      Text = '1,000'
    end
    object MEdtPrePago: TMaskEdit
      Left = 376
      Top = 76
      Width = 75
      Height = 21
      EditMask = '000,000;1;_'
      MaxLength = 7
      TabOrder = 11
      Text = '000,000'
    end
    object CmbBoxMab: TComboBox
      Left = 37
      Top = 148
      Width = 40
      Height = 21
      TabOrder = 12
      Text = '1'
      Items.Strings = (
        '1'
        '2'
        '3'
        '4'
        '5'
        '6'
        '7'
        '8'
        '9'
        '10'
        '11'
        '12'
        '13'
        '14'
        '15'
        '16')
    end
    object CmbBoxBomba: TComboBox
      Left = 106
      Top = 147
      Width = 40
      Height = 21
      TabOrder = 13
      Text = '1'
      Items.Strings = (
        '1'
        '2'
        '3'
        '4')
    end
    object CmbBoxBico: TComboBox
      Left = 171
      Top = 147
      Width = 40
      Height = 21
      TabOrder = 14
      Text = '1'
      Items.Strings = (
        '1'
        '2'
        '3'
        '4')
    end
    object ChbTodas: TCheckBox
      Left = 101
      Top = 120
      Width = 64
      Height = 17
      Caption = 'Todas'
      TabOrder = 15
    end
  end
  object MemDisp: TMemo
    Left = 8
    Top = 415
    Width = 474
    Height = 202
    Lines.Strings = (
      'MemDisp')
    ScrollBars = ssVertical
    TabOrder = 3
  end
  object MainMenu1: TMainMenu
    Left = 360
    Top = 568
    object File1: TMenuItem
      Caption = 'Bile'
    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
    Left = 24
    Top = 448
  end
end
