object FrmMain: TFrmMain
  Left = 686
  Top = 231
  Caption = 'Exemplo Integra'#231#227'o em C++'
  ClientHeight = 691
  ClientWidth = 476
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Tahoma'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poDesigned
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 14
  object Label5: TLabel
    Left = 8
    Top = 435
    Width = 106
    Height = 14
    Caption = 'Display de Eventos:'
  end
  object Label8: TLabel
    Left = 110
    Top = 656
    Width = 248
    Height = 14
    Caption = 'Exemplo de Integra'#231#227'o Concentrador IdCode'
  end
  object Label9: TLabel
    Left = 122
    Top = 672
    Width = 219
    Height = 14
    Caption = 'Cesna Technology - www.cesna.com.br'
  end
  object GroupBoxFcmMaster: TGroupBox
    Left = 9
    Top = 2
    Width = 458
    Height = 71
    Margins.Left = 4
    Margins.Top = 4
    Margins.Right = 4
    Margins.Bottom = 4
    Caption = 'Comandos Master IdCode USB'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    object BtnInitCom: TButton
      Left = 13
      Top = 21
      Width = 91
      Height = 39
      Margins.Left = 4
      Margins.Top = 4
      Margins.Right = 4
      Margins.Bottom = 4
      Caption = 'Inicia COM'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = BtnInitComClick
    end
    object BtnVersaoDll: TButton
      Left = 178
      Top = 21
      Width = 91
      Height = 39
      Margins.Left = 4
      Margins.Top = 4
      Margins.Right = 4
      Margins.Bottom = 4
      Caption = 'Vers'#227'o Dll'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = BtnVersaoDllClick
    end
    object BtnSair: TButton
      Left = 343
      Top = 20
      Width = 91
      Height = 39
      Caption = 'Sair'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = BtnSairClick
    end
  end
  object GroupBoxFcmSlave: TGroupBox
    Left = 9
    Top = 76
    Width = 458
    Height = 173
    Margins.Left = 4
    Margins.Top = 4
    Margins.Right = 4
    Margins.Bottom = 4
    Caption = 'Comandos MAB'#39'S IdCode'
    TabOrder = 1
    object Label2: TLabel
      Left = 13
      Top = 68
      Width = 46
      Height = 14
      Margins.Left = 4
      Margins.Top = 4
      Margins.Right = 4
      Margins.Bottom = 4
      Caption = 'Bombas:'
    end
    object Label1: TLabel
      Left = 13
      Top = 22
      Width = 31
      Height = 14
      Margins.Left = 4
      Margins.Top = 4
      Margins.Right = 4
      Margins.Bottom = 4
      Caption = 'Mabs:'
    end
    object Label11: TLabel
      Left = 128
      Top = 22
      Width = 208
      Height = 14
      Caption = 'Modo Opera'#231#227'o para Abastecimentos:'
    end
    object Label12: TLabel
      Left = 128
      Top = 68
      Width = 174
      Height = 14
      Caption = 'Tipo de Bomba para Comunicar:'
    end
    object BtnConfigura: TButton
      Left = 127
      Top = 122
      Width = 91
      Height = 39
      Margins.Left = 4
      Margins.Top = 4
      Margins.Right = 4
      Margins.Bottom = 4
      Caption = 'Envia Configura'#231#227'o'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      WordWrap = True
      OnClick = BtnConfiguraClick
    end
    object CmbNumMab: TComboBox
      Left = 14
      Top = 38
      Width = 90
      Height = 22
      TabOrder = 0
      Text = '1'
      Items.Strings = (
        '1'
        '2'
        '3'
        '4'
        '5'
        '6'
        '7'
        '8'
        '9'
        '10'
        '11'
        '12'
        '13'
        '14'
        '15'
        '16'
        '17'
        '18'
        '19'
        '20'
        '21'
        '22'
        '23'
        '24'
        '25'
        '26'
        '27'
        '28'
        '29'
        '30'
        '31'
        '32')
    end
    object CmbNumBo: TComboBox
      Left = 13
      Top = 85
      Width = 91
      Height = 22
      TabOrder = 1
      Text = '1'
      Items.Strings = (
        '1'
        '2'
        '3'
        '4')
    end
    object BtnObtemConfig: TButton
      Left = 13
      Top = 122
      Width = 91
      Height = 39
      Caption = 'Obt'#233'm Configura'#231#227'o'
      TabOrder = 3
      WordWrap = True
      OnClick = BtnObtemConfigClick
    end
    object BtnObtemNumAbastOff: TButton
      Left = 241
      Top = 122
      Width = 91
      Height = 39
      Caption = 'Obt'#233'm N'#250'm Abast Off'
      TabOrder = 4
      WordWrap = True
      OnClick = BtnObtemNumAbastOffClick
    end
    object CmbBoxModoOp: TComboBox
      Left = 128
      Top = 38
      Width = 322
      Height = 22
      ItemIndex = 0
      TabOrder = 5
      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 = 128
      Top = 85
      Width = 322
      Height = 22
      TabOrder = 6
      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 BtnObtemAbastFlash: TButton
      Left = 355
      Top = 122
      Width = 91
      Height = 39
      Caption = 'Obt'#233'm Abast Flash'
      TabOrder = 7
      WordWrap = True
      OnClick = BtnObtemAbastFlashClick
    end
  end
  object GroupBoxCmdBombas: TGroupBox
    Left = 11
    Top = 252
    Width = 456
    Height = 162
    Margins.Left = 4
    Margins.Top = 4
    Margins.Right = 4
    Margins.Bottom = 4
    Caption = 'Comandos Bombas'
    TabOrder = 2
    object Label3: TLabel
      Left = 365
      Top = 13
      Width = 75
      Height = 14
      Caption = 'Pre'#231'o p/ Litro'
    end
    object Label4: TLabel
      Left = 365
      Top = 52
      Width = 70
      Height = 14
      Caption = 'Vol Pr'#233'-Pago'
    end
    object LblSlave: TLabel
      Left = 3
      Top = 138
      Width = 30
      Height = 14
      Caption = 'Mab:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label6: TLabel
      Left = 86
      Top = 138
      Width = 20
      Height = 14
      Caption = 'Bo:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label7: TLabel
      Left = 158
      Top = 138
      Width = 15
      Height = 14
      Caption = 'Bi:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object BtnAutoriza: TButton
      Left = 4
      Top = 22
      Width = 80
      Height = 30
      Margins.Left = 4
      Margins.Top = 4
      Margins.Right = 4
      Margins.Bottom = 4
      Caption = 'Autoriza'
      TabOrder = 0
      OnClick = BtnAutorizaClick
    end
    object BtnUltVol: TButton
      Left = 92
      Top = 22
      Width = 80
      Height = 30
      Margins.Left = 4
      Margins.Top = 4
      Margins.Right = 4
      Margins.Bottom = 4
      Caption = #218'ltimo Vol.'
      TabOrder = 1
      OnClick = BtnUltVolClick
    end
    object BtnObtemPpl: TButton
      Left = 180
      Top = 22
      Width = 80
      Height = 30
      Margins.Left = 4
      Margins.Top = 4
      Margins.Right = 4
      Margins.Bottom = 4
      Caption = 'Obtem Pre'#231'o'
      TabOrder = 2
      OnClick = BtnObtemPplClick
    end
    object BtnTrocaPpl: TButton
      Left = 268
      Top = 22
      Width = 90
      Height = 30
      Margins.Left = 4
      Margins.Top = 4
      Margins.Right = 4
      Margins.Bottom = 4
      Caption = 'Troca Pre'#231'o'
      TabOrder = 3
      OnClick = BtnTrocaPplClick
    end
    object BtnTrava: TButton
      Left = 4
      Top = 60
      Width = 80
      Height = 30
      Margins.Left = 4
      Margins.Top = 4
      Margins.Right = 4
      Margins.Bottom = 4
      Caption = 'Trava'
      TabOrder = 5
      OnClick = BtnTravaClick
    end
    object BtnDestrava: TButton
      Left = 92
      Top = 60
      Width = 80
      Height = 30
      Margins.Left = 4
      Margins.Top = 4
      Margins.Right = 4
      Margins.Bottom = 4
      Caption = 'Destrava'
      TabOrder = 6
      OnClick = BtnDestravaClick
    end
    object BtnTot: TButton
      Left = 180
      Top = 60
      Width = 80
      Height = 30
      Margins.Left = 4
      Margins.Top = 4
      Margins.Right = 4
      Margins.Bottom = 4
      Caption = 'Totalizador'
      TabOrder = 7
      OnClick = BtnTotClick
    end
    object BtnPrePago: TButton
      Left = 268
      Top = 60
      Width = 90
      Height = 30
      Margins.Left = 4
      Margins.Top = 4
      Margins.Right = 4
      Margins.Bottom = 4
      Caption = 'Pr'#233'-Pago'
      TabOrder = 8
      OnClick = BtnPrePagoClick
    end
    object ChBoxAutoriza: TCheckBox
      Left = 268
      Top = 135
      Width = 176
      Height = 17
      Caption = 'Autoriza'#231#227'o Autom'#225'tica'
      TabOrder = 15
    end
    object BtnObtemStatusBo: TButton
      Left = 3
      Top = 97
      Width = 80
      Height = 30
      Caption = 'Status BO'
      TabOrder = 10
      OnClick = BtnObtemStatusBoClick
    end
    object ChbTodas: TCheckBox
      Left = 89
      Top = 105
      Width = 56
      Height = 17
      Caption = 'Todas'
      TabOrder = 11
    end
    object CmbEndMab: TComboBox
      Left = 35
      Top = 133
      Width = 40
      Height = 22
      TabOrder = 12
      Text = '1'
      Items.Strings = (
        '1'
        '2'
        '3'
        '4'
        '5'
        '6'
        '7'
        '8'
        '9'
        '10'
        '11'
        '12'
        '13'
        '14'
        '15'
        '16'
        '17'
        '18'
        '19'
        '20'
        '21'
        '22'
        '23'
        '24'
        '25'
        '26'
        '27'
        '28'
        '29'
        '30'
        '31'
        '32')
    end
    object CmbEndBomba: TComboBox
      Left = 107
      Top = 133
      Width = 40
      Height = 22
      TabOrder = 13
      Text = '1'
      Items.Strings = (
        '1'
        '2'
        '3'
        '4')
    end
    object CmbEndBico: TComboBox
      Left = 174
      Top = 133
      Width = 40
      Height = 22
      TabOrder = 14
      Text = '1'
      Items.Strings = (
        '1'
        '2'
        '3'
        '4')
    end
    object MEdtPpl: TMaskEdit
      Left = 365
      Top = 29
      Width = 80
      Height = 22
      EditMask = '0,000;1;_'
      MaxLength = 5
      TabOrder = 4
      Text = '1,000'
    end
    object MEdtPrePago: TMaskEdit
      Left = 365
      Top = 67
      Width = 80
      Height = 22
      EditMask = '000,000;1;_'
      MaxLength = 7
      TabOrder = 9
      Text = '000,000'
    end
  end
  object MemDisp: TMemo
    Left = 8
    Top = 455
    Width = 457
    Height = 195
    Lines.Strings = (
      'MemDisp')
    ScrollBars = ssVertical
    TabOrder = 3
  end
  object MainMenu1: TMainMenu
    Left = 224
    Top = 560
    object ObtemEncerrantes1: TMenuItem
      Caption = 'File'
    end
    object Operaes1: TMenuItem
      Caption = 'Opera'#231#245'es'
      object ObtemEncerrantes2: TMenuItem
        Caption = 'Obtem Encerrantes'
        OnClick = ObtemEncerrantes2Click
      end
    end
  end
  object Cesna: TCesna
    AutoConnect = False
    ConnectKind = ckRunningOrNew
    OnIdCodeAbasteceu = CesnaIdCodeAbasteceu
    OnIdCodeMudancaDeEstado = CesnaIdCodeMudancaDeEstado
    OnIdCodeVolume = CesnaIdCodeVolume
    OnIdCodeTotalizador = CesnaIdCodeTotalizador
    OnIdCodePrecoPorLitro = CesnaIdCodePrecoPorLitro
    OnIdCodeNumAbastOff = CesnaIdCodeNumAbastOff
    OnIdCodeValorBombaAbast = CesnaIdCodeValorBombaAbast
    OnIdCodeConfigMab = CesnaIdCodeConfigMab
    OnIdCodeInfoEvento = CesnaIdCodeInfoEvento
    OnIdCodeErroCrcTab = CesnaIdCodeErroCrcTab
    Left = 48
    Top = 480
  end
end
