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
  PixelsPerInch = 96
  TextHeight = 14
  object Label5: TLabel
    Left = 8
    Top = 408
    Width = 106
    Height = 14
    Caption = 'Display de Eventos:'
  end
  object Label8: TLabel
    Left = 114
    Top = 656
    Width = 231
    Height = 14
    Caption = 'Exemplo de Integra'#231#227'o Concentrador Fcm'
  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 = 456
    Height = 71
    Margins.Left = 4
    Margins.Top = 4
    Margins.Right = 4
    Margins.Bottom = 4
    Caption = 'Comandos FcmMaster USB'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object BtnFcmOpen1: TButton
      Left = 13
      Top = 29
      Width = 80
      Height = 30
      Margins.Left = 4
      Margins.Top = 4
      Margins.Right = 4
      Margins.Bottom = 4
      Caption = 'Fcm Open 1'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 0
      OnClick = BtnFcmOpen1Click
    end
    object BtnFcmOpen2: TButton
      Left = 101
      Top = 29
      Width = 80
      Height = 30
      Margins.Left = 4
      Margins.Top = 4
      Margins.Right = 4
      Margins.Bottom = 4
      Caption = 'Fcm Open 2'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
      OnClick = BtnFcmOpen2Click
    end
    object BtnFcmOpen3: TButton
      Left = 189
      Top = 29
      Width = 80
      Height = 30
      Margins.Left = 4
      Margins.Top = 4
      Margins.Right = 4
      Margins.Bottom = 4
      Caption = 'Fcm Open 3'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 2
      OnClick = BtnFcmOpen3Click
    end
    object BtnVersaoDll: TButton
      Left = 365
      Top = 29
      Width = 80
      Height = 30
      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 = 4
      OnClick = BtnVersaoDllClick
    end
    object BtnClose: TButton
      Left = 277
      Top = 29
      Width = 80
      Height = 30
      Margins.Left = 4
      Margins.Top = 4
      Margins.Right = 4
      Margins.Bottom = 4
      Caption = 'Close'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      OnClick = BtnCloseClick
    end
  end
  object GroupBoxFcmSlave: TGroupBox
    Left = 9
    Top = 76
    Width = 456
    Height = 160
    Margins.Left = 4
    Margins.Top = 4
    Margins.Right = 4
    Margins.Bottom = 4
    Caption = 'Comandos Concentrador Fcm'
    TabOrder = 1
    object Label2: TLabel
      Left = 13
      Top = 55
      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 = 27
      Width = 37
      Height = 14
      Margins.Left = 4
      Margins.Top = 4
      Margins.Right = 4
      Margins.Bottom = 4
      Caption = 'Slaves:'
    end
    object RdoGroupModoOper: TRadioGroup
      Left = 171
      Top = 10
      Width = 274
      Height = 83
      Margins.Left = 4
      Margins.Top = 4
      Margins.Right = 4
      Margins.Bottom = 4
      Caption = 'Modo de Opera'#231#227'o'
      Items.Strings = (
        'A - Autoriza pelo Concentrador com Off-Line.'
        'B - Autoriza pelo Computador com Off-Line.'
        'C - Autoriza pelo Computador sem Off-Line.')
      TabOrder = 3
    end
    object BtnVersaoSlave: TButton
      Left = 13
      Top = 118
      Width = 150
      Height = 30
      Margins.Left = 4
      Margins.Top = 4
      Margins.Right = 4
      Margins.Bottom = 4
      Caption = 'Vers'#227'o Slave'
      TabOrder = 2
      OnClick = BtnVersaoSlaveClick
    end
    object BtnConfigura: TButton
      Left = 13
      Top = 81
      Width = 150
      Height = 30
      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 = [fsBold]
      ParentFont = False
      TabOrder = 4
      OnClick = BtnConfiguraClick
    end
    object CmbNumSl: TComboBox
      Left = 64
      Top = 24
      Width = 80
      Height = 22
      TabOrder = 0
      Text = '1'
      Items.Strings = (
        '1'
        '2'
        '3'
        '4')
    end
    object CmbNumBo: TComboBox
      Left = 64
      Top = 52
      Width = 80
      Height = 22
      TabOrder = 1
      Text = '1'
      Items.Strings = (
        '1'
        '2'
        '3'
        '4'
        '5'
        '6'
        '7'
        '8'
        '9'
        '10'
        '11'
        '12'
        '13'
        '14'
        '15'
        '16')
    end
    object RdoGroupMsgAbastecimento: TRadioGroup
      Left = 170
      Top = 92
      Width = 274
      Height = 64
      Caption = 'Mensagem de Abastecimento'
      Items.Strings = (
        'Sem Totalizador Inicial'
        'Com Totalizador Inicial')
      TabOrder = 5
    end
  end
  object GroupBoxCmdBombas: TGroupBox
    Left = 9
    Top = 239
    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 = 15
      Height = 14
      Caption = 'Sl:'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -12
      Font.Name = 'Tahoma'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label6: TLabel
      Left = 70
      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 = 142
      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 Label10: TLabel
      Left = 365
      Top = 89
      Width = 59
      Height = 14
      Caption = 'Totalizador'
    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 = 17
    end
    object BtnObtemStatusBo: TButton
      Left = 3
      Top = 97
      Width = 80
      Height = 30
      Caption = 'Status BO'
      TabOrder = 10
      OnClick = BtnObtemStatusBoClick
    end
    object BtnConfigTot: TButton
      Left = 268
      Top = 97
      Width = 90
      Height = 30
      Caption = 'Config Tot Mec'
      TabOrder = 12
      OnClick = BtnConfigTotClick
    end
    object ChbTodas: TCheckBox
      Left = 89
      Top = 105
      Width = 56
      Height = 17
      Caption = 'Todas'
      TabOrder = 11
    end
    object CmbSlave: TComboBox
      Left = 24
      Top = 133
      Width = 40
      Height = 22
      TabOrder = 14
      Text = '1'
      Items.Strings = (
        '1'
        '2'
        '3'
        '4')
    end
    object CmbBomba: TComboBox
      Left = 96
      Top = 133
      Width = 40
      Height = 22
      TabOrder = 15
      Text = '1'
      Items.Strings = (
        '1'
        '2'
        '3'
        '4'
        '5'
        '6'
        '7'
        '8'
        '9'
        '10'
        '11'
        '12'
        '13'
        '14'
        '15'
        '16')
    end
    object CmbBico: TComboBox
      Left = 163
      Top = 133
      Width = 40
      Height = 22
      TabOrder = 16
      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
    object MEdtTotMec: TMaskEdit
      Left = 365
      Top = 105
      Width = 80
      Height = 22
      EditMask = '0,000;1;_'
      MaxLength = 5
      TabOrder = 13
      Text = '1,000'
    end
  end
  object MemDisp: TMemo
    Left = 8
    Top = 423
    Width = 457
    Height = 228
    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
    OnFcmAbasteceu = CesnaFcmAbasteceu
    OnFcmMudancaDeEstado = CesnaFcmMudancaDeEstado
    OnFcmVolume = CesnaFcmVolume
    OnFcmTotalizador = CesnaFcmTotalizador
    OnFcmPrecoPorLitro = CesnaFcmPrecoPorLitro
    OnFcmVersaoFcmSlave = CesnaFcmVersaoFcmSlave
    OnFcmEventoSlave = CesnaFcmEventoSlave
    OnFcmErroDLL = CesnaFcmErroDLL
    Left = 32
    Top = 456
  end
end
