capteur.dfm

Captor network, a small program for captor network with delphi

object capteurf: Tcapteurf
  Left = 212
  Top = 74
  BorderStyle = bsSingle
  BorderWidth = 2
  Caption = 'capteur'
  ClientHeight = 545
  ClientWidth = 800
  Color = clCaptionText
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  OnClose = FormClose
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Image2: TImage
    Left = 0
    Top = 0
    Width = 577
    Height = 540
    Center = True
  end
  object Panel1: TPanel
    Left = 579
    Top = 0
    Width = 221
    Height = 545
    Align = alRight
    BevelInner = bvLowered
    BevelOuter = bvLowered
    BevelWidth = 2
    BorderWidth = 2
    Color = clInactiveCaption
    TabOrder = 0
    object SpeedButton11: TSpeedButton
      Left = 65
      Top = 267
      Width = 105
      Height = 17
      Hint = 'Calculer le nombre de capteurs'
      Caption = 'Nombre de capteur'
      Flat = True
      ParentShowHint = False
      ShowHint = True
      OnClick = SpeedButton11Click
    end
    object Image1: TImage
      Left = 7
      Top = 7
      Width = 221
      Height = 65
      Transparent = True
    end
    object Panel2: TPanel
      Left = 13
      Top = 312
      Width = 202
      Height = 145
      BevelInner = bvLowered
      BevelOuter = bvLowered
      Color = clInactiveCaption
      TabOrder = 0
      object SpeedButton1: TSpeedButton
        Left = 49
        Top = 3
        Width = 97
        Height = 25
        Hint = 'Ajouter un capteur'
        Caption = 'Ajouter'
        ParentShowHint = False
        ShowHint = True
        OnClick = SpeedButton1Click
      end
      object SpeedButton2: TSpeedButton
        Left = 101
        Top = 30
        Width = 97
        Height = 25
        Hint = 'Supprimer un capteur'
        Caption = 'Supprimer'
        ParentShowHint = False
        ShowHint = True
        OnClick = SpeedButton2Click
      end
      object SpeedButton3: TSpeedButton
        Left = 3
        Top = 31
        Width = 98
        Height = 25
        Hint = 'Modifier un capteur'
        Caption = 'Modifier'
        ParentShowHint = False
        ShowHint = True
        OnClick = SpeedButton3Click
      end
      object SpeedButton4: TSpeedButton
        Left = 3
        Top = 58
        Width = 98
        Height = 25
        Hint = 'Enregistrer les donne閟 d'#39'un capteur'
        Caption = 'Enregistrer'
        ParentShowHint = False
        ShowHint = True
        OnClick = SpeedButton4Click
      end
      object SpeedButton6: TSpeedButton
        Left = 101
        Top = 58
        Width = 97
        Height = 25
        Hint = 'Recherche d'#39'un capteur'
        Caption = 'Recherche'
        ParentShowHint = False
        ShowHint = True
        OnClick = SpeedButton6Click
      end
      object SpeedButton7: TSpeedButton
        Left = 7
        Top = 85
        Width = 91
        Height = 24
        Hint = 'annuler '
        Caption = 'Annuler'
        ParentShowHint = False
        ShowHint = True
        OnClick = SpeedButton7Click
      end
      object SpeedButton16: TSpeedButton
        Left = 104
        Top = 85
        Width = 92
        Height = 24
        Hint = 'Effacer le graphe'
        Caption = 'Effacer l'#39'閏ran'
        ParentShowHint = False
        ShowHint = True
        OnClick = SpeedButton16Click
      end
      object SpeedButton8: TSpeedButton
        Left = 56
        Top = 117
        Width = 92
        Height = 24
        Glyph.Data = {
          76010000424D7601000000000000760000002800000020000000100000000100
          04000000000000010000130B0000130B00001000000000000000000000000000
          800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
          FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
          00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
          8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
          8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
          8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
          03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
          03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
          33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
          33333337FFFF7733333333300000033333333337777773333333}
        NumGlyphs = 2
        OnClick = SpeedButton8Click
      end
    end
    object Panel3: TPanel
      Left = 41
      Top = 487
      Width = 161
      Height = 41
      BevelInner = bvLowered
      BevelOuter = bvLowered
      Color = clInactiveCaption
      TabOrder = 1
      object SpeedButton5: TSpeedButton
        Left = 24
        Top = 8
        Width = 113
        Height = 25
        Hint = 'Fermer '
        Caption = 'Fermer'
        ParentShowHint = False
        ShowHint = True
        OnClick = SpeedButton5Click
      end
    end
    object DBNavigator1: TDBNavigator
      Left = 66
      Top = 80
      Width = 112
      Height = 18
      DataSource = menuf.dscapteur
      VisibleButtons = [nbFirst, nbPrior, nbNext, nbLast]
      Flat = True
      TabOrder = 2
    end
    object Edit1: TEdit
      Left = 79
      Top = 286
      Width = 71
      Height = 21
      TabOrder = 3
      Text = 'Edit1'
    end
    object GroupBox1: TGroupBox
      Left = 14
      Top = 104
      Width = 195
      Height = 157
      Caption = 'Capteur '
      Color = clInactiveCaption
      ParentColor = False
      TabOrder = 4
      object Label5: TLabel
        Left = 7
        Top = 33
        Width = 64
        Height = 13
        Caption = 'Code capteur'
      end
      object Label6: TLabel
        Left = 7
        Top = 65
        Width = 47
        Height = 13
        Caption = 'Position X'
      end
      object Label7: TLabel
        Left = 7
        Top = 91
        Width = 47
        Height = 13
        Caption = 'Position Y'
      end
      object Label8: TLabel
        Left = 13
        Top = 124
        Width = 36
        Height = 13
        Caption = 'Energie'
      end
      object DBEdit5: TDBEdit
        Left = 85
        Top = 26
        Width = 98
        Height = 21
        DataField = 'Codecapt'
        DataSource = menuf.dscapteur
        TabOrder = 0
        OnKeyPress = DBEdit5KeyPress
      end
      object DBEdit6: TDBEdit
        Left = 85
        Top = 59
        Width = 98
        Height = 21
        DataField = 'Posxca'
        DataSource = menuf.dscapteur
        TabOrder = 1
        OnKeyPress = DBEdit6KeyPress
      end
      object DBEdit7: TDBEdit
        Left = 85
        Top = 85
        Width = 98
        Height = 21
        DataField = 'Posyca'
        DataSource = menuf.dscapteur
        TabOrder = 2
        OnKeyPress = DBEdit7KeyPress
      end
      object DBEdit8: TDBEdit
        Left = 85
        Top = 117
        Width = 98
        Height = 21
        DataField = 'Energie'
        DataSource = menuf.dscapteur
        TabOrder = 3
      end
    end
  end
  object MainMenu1: TMainMenu
    Left = 680
    object Voir1: TMenuItem
      Caption = '&Voir'
      object Tables1: TMenuItem
        Caption = 'Tables'
        object Cible1: TMenuItem
          Caption = 'Cible'
          OnClick = Cible1Click
        end
        object N5: TMenuItem
          Caption = '-'
        end
        object Parametrerseau1: TMenuItem
          Caption = 'Parametre r閟eau'
          OnClick = Parametrerseau1Click
        end
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Graphes1: TMenuItem
        Caption = 'Graphes'
        object Conextion1: TMenuItem
          Caption = 'Conextion'
          OnClick = Conextion1Click
        end
        object N6: TMenuItem
          Caption = '-'
        end
        object N1: TMenuItem
          Caption = 'Couverture'
          OnClick = N1Click
        end
        object N8: TMenuItem
          Caption = '-'
        end
        object capteurparcible1: TMenuItem
          Bitmap.Data = {
            76010000424D7601000000000000760000002800000020000000100000000100
            04000000000000010000120B0000120B00001000000000000000000000000000
            800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
            FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333300030003
            0003333377737773777333333333333333333FFFFFFFFFFFFFFF770000000000
            0000777777777777777733039993BBB3CCC3337F737F737F737F37039993BBB3
            CCC3377F737F737F737F33039993BBB3CCC33F7F737F737F737F77079997BBB7
            CCC77777737773777377330399930003CCC3337F737F7773737F370399933333
            CCC3377F737F3333737F330399933333CCC33F7F737FFFFF737F770700077777
            CCC77777777777777377330333333333CCC3337F33333333737F370333333333
            0003377F33333333777333033333333333333F7FFFFFFFFFFFFF770777777777
            7777777777777777777733333333333333333333333333333333}
          Caption = 'capteur par cible'
          OnClick = capteurparcible1Click
        end
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object Dploiment1: TMenuItem
        Caption = 'D閜loiment'
        object Capteur1: TMenuItem
          Caption = 'Capteur'
          OnClick = Capteur1Click
        end
        object N7: TMenuItem
          Caption = '-'
        end
        object Cible2: TMenuItem
          Caption = 'Cible'
          OnClick = Cible2Click
        end
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object Quitter1: TMenuItem
        Caption = 'Quitter'
        OnClick = Quitter1Click
      end
    end
  end
end