object FrmMain: TFrmMain
  Left = 441
  Top = 157
  Width = 515
  Height = 758
  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 = 411
    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 = 666
    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 = 682
    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 FcmMaster USB'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = [fsBold]
    ParentFont = False
    TabOrder = 0
    object BtnFcmOpen1: TButton
      Left = 16
      Top = 24
      Width = 84
      Height = 28
      Caption = 'Fcm Open 1'
      TabOrder = 0
      OnClick = BtnFcmOpen1Click
    end
    object BtnFcmOpen2: TButton
      Left = 108
      Top = 24
      Width = 84
      Height = 28
      Caption = 'Fcm Open 2'
      TabOrder = 1
      OnClick = BtnFcmOpen2Click
    end
    object BtnFcmOpen3: TButton
      Left = 198
      Top = 24
      Width = 84
      Height = 28
      Caption = 'Fcm Open 3'
      TabOrder = 2
      OnClick = BtnFcmOpen3Click
    end
    object BtnClose: TButton
      Left = 288
      Top = 24
      Width = 84
      Height = 28
      Caption = 'Close'
      TabOrder = 3
      OnClick = BtnCloseClick
    end
    object BtnVersaoDll: TButton
      Left = 378
      Top = 24
      Width = 84
      Height = 28
      Caption = 'Vers'#227'o Dll'
      TabOrder = 4
      OnClick = BtnVersaoDllClick
    end
  end
  object GroupBoxFcmSlave: TGroupBox
    Left = 9
    Top = 83
    Width = 473
    Height = 152
    Caption = 'Comandos Concentrador Fcm'
    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 = 70
      Height = 13
      Caption = 'N'#186' FcmSlave'
    end
    object Label2: TLabel
      Left = 8
      Top = 51
      Width = 78
      Height = 13
      Caption = 'N'#186' de Bombas'
    end
    object RdoGroupModoOper: TRadioGroup
      Left = 216
      Top = 15
      Width = 245
      Height = 71
      Caption = 'Modo de Opera'#231#227'o'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      Items.Strings = (
        'A - Autoriza pelo Concentrador com Off-Line.'
        'B - Autoriza pelo Computador com Off-Line.'
        'C - Autoriza pelo Computador sem Off-Line.')
      ParentFont = False
      TabOrder = 0
    end
    object BtnVersaoSlave: TButton
      Left = 11
      Top = 111
      Width = 199
      Height = 25
      Caption = 'Vers'#227'o Slave'
      TabOrder = 1
      OnClick = BtnVersaoSlaveClick
    end
    object BtnConfigura: TButton
      Left = 10
      Top = 79
      Width = 200
      Height = 25
      Caption = 'Envia Configura'#231#227'o'
      TabOrder = 2
      OnClick = BtnConfiguraClick
    end
    object RdoGroupTipoMsgAbast: TRadioGroup
      Left = 216
      Top = 88
      Width = 244
      Height = 57
      Caption = 'Formato Mensagem de Abastecimento'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'Tahoma'
      Font.Style = []
      Items.Strings = (
        'Sem Totalizador Inicial.'
        'Com Totalizador Inicial.')
      ParentFont = False
      TabOrder = 3
    end
    object CmbBoxNumSl: TComboBox
      Left = 92
      Top = 21
      Width = 100
      Height = 21
      ItemHeight = 13
      TabOrder = 4
      Text = '1'
      Items.Strings = (
        '1'
        '2'
        '3'
        '4')
    end
    object CmbBoxNumBo: TComboBox
      Left = 92
      Top = 48
      Width = 100
      Height = 21
      ItemHeight = 13
      TabOrder = 5
      Text = '1'
      Items.Strings = (
        '1'
        '2'
        '3'
        '4'
        '5'
        '6'
        '7'
        '8'
        '9'
        '10'
        '11'
        '12'
        '13'
        '14'
        '15'
        '16')
    end
  end
  object GroupBoxBombas: TGroupBox
    Left = 8
    Top = 234
    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 = 13
      Height = 13
      Caption = 'Sl:'
    end
    object Label6: TLabel
      Left = 83
      Top = 153
      Width = 17
      Height = 13
      Caption = 'Bo:'
    end
    object Label7: TLabel
      Left = 152
      Top = 153
      Width = 13
      Height = 13
      Caption = 'Bi:'
    end
    object Label11: TLabel
      Left = 377
      Top = 107
      Width = 64
      Height = 13
      Caption = 'Totalizador'
    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 BtnConfigTot: TButton
      Left = 270
      Top = 115
      Width = 89
      Height = 30
      Caption = 'Config Tot Mec'
      TabOrder = 10
      OnClick = BtnConfigTotClick
    end
    object CmbBoxSlave: TComboBox
      Left = 37
      Top = 150
      Width = 40
      Height = 21
      ItemHeight = 13
      TabOrder = 11
      Text = '1'
      Items.Strings = (
        '1'
        '2'
        '3'
        '4')
    end
    object CmbBoxBomba: TComboBox
      Left = 106
      Top = 150
      Width = 40
      Height = 21
      ItemHeight = 13
      TabOrder = 12
      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 = 171
      Top = 150
      Width = 40
      Height = 21
      ItemHeight = 13
      TabOrder = 13
      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 = 14
      Text = '1,000'
    end
    object MEdtPrePago: TMaskEdit
      Left = 376
      Top = 76
      Width = 75
      Height = 21
      EditMask = '000,000;1;_'
      MaxLength = 7
      TabOrder = 15
      Text = '000,000'
    end
    object MEdtTotMec: TMaskEdit
      Left = 376
      Top = 123
      Width = 75
      Height = 21
      EditMask = '0,000;1;_'
      MaxLength = 5
      TabOrder = 16
      Text = '1,000'
    end
    object ChbTodas: TCheckBox
      Left = 104
      Top = 120
      Width = 97
      Height = 17
      Caption = 'Todas'
      TabOrder = 17
    end
  end
  object MemDisp: TMemo
    Left = 8
    Top = 425
    Width = 474
    Height = 240
    Lines.Strings = (
      'MemDisp')
    ScrollBars = ssVertical
    TabOrder = 3
  end
  object MainMenu1: TMainMenu
    Left = 336
    Top = 464
    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
    OnFcmAbasteceu = CesnaFcmAbasteceu
    OnFcmMudancaDeEstado = CesnaFcmMudancaDeEstado
    OnFcmVolume = CesnaFcmVolume
    OnFcmTotalizador = CesnaFcmTotalizador
    OnFcmPrecoPorLitro = CesnaFcmPrecoPorLitro
    OnFcmVersaoFcmSlave = CesnaFcmVersaoFcmSlave
    OnRetornoEspecial = CesnaRetornoEspecial
    OnFcmEventoSlave = CesnaFcmEventoSlave
    OnFcmErroDLL = CesnaFcmErroDLL
    Left = 184
    Top = 576
  end
end
