object MacroDlg: TMacroDlg
  Left = 82
  Top = 75
  ActiveControl = FileEdit
  BorderStyle = bsDialog
  Caption = 'Macros'
  ClientHeight = 268
  ClientWidth = 506
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  Position = poScreenCenter
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Panel1: TPanel
    Left = 3
    Top = 4
    Width = 325
    Height = 169
    TabOrder = 0
    object FileListBox: TFileListBox
      Left = 153
      Top = 7
      Width = 167
      Height = 126
      Hint = 'liste des fichiers'
      FileEdit = FileEdit
      ItemHeight = 13
      Mask = '*.fmc'
      TabOrder = 0
      OnClick = FileListBoxClick
    end
    object DirectoryListBox: TDirectoryListBox
      Left = 4
      Top = 7
      Width = 145
      Height = 103
      Hint = 'liste des r�pertoires.'
      FileList = FileListBox
      ItemHeight = 16
      TabOrder = 1
    end
    object DriveComboBox: TDriveComboBox
      Left = 4
      Top = 114
      Width = 145
      Height = 19
      Hint = 'liste des lecteurs.'
      DirList = DirectoryListBox
      TabOrder = 2
    end
    object FileEdit: TEdit
      Left = 3
      Top = 142
      Width = 318
      Height = 21
      Hint = 'nom du fichier.'
      TabOrder = 3
      Text = '*.fmc'
      OnKeyPress = FileEditKeyPress
    end
  end
  object Panel2: TPanel
    Left = 3
    Top = 173
    Width = 325
    Height = 91
    BorderWidth = 3
    TabOrder = 1
    object Memo: TMemo
      Left = 4
      Top = 4
      Width = 317
      Height = 83
      Hint = 'titre/r�sum� de la macro d�j� sur disque.'
      Align = alClient
      BorderStyle = bsNone
      Ctl3D = True
      MaxLength = 255
      ParentCtl3D = False
      ReadOnly = True
      TabOrder = 0
      OnChange = MemoChange
    end
  end
  object Panel3: TPanel
    Left = 328
    Top = 139
    Width = 174
    Height = 125
    Hint = 'validation des choix.'
    TabOrder = 2
    object Bevel1: TBevel
      Left = 15
      Top = 92
      Width = 143
      Height = 29
    end
    object CancelBtn: TBitBtn
      Left = 16
      Top = 93
      Width = 141
      Height = 27
      Cancel = True
      Caption = 'Quitter'
      ModalResult = 2
      TabOrder = 0
      NumGlyphs = 2
      Style = bsNew
      Spacing = -1
      IsControl = True
    end
    object Panel5: TPanel
      Left = 21
      Top = 7
      Width = 131
      Height = 81
      BevelOuter = bvLowered
      TabOrder = 1
      object BtnExec: TBitBtn
        Left = 1
        Top = 1
        Width = 129
        Height = 27
        Hint = 'Ex�cute une macro'
        Caption = '&Ex�cuter'
        ModalResult = 6
        TabOrder = 0
        OnClick = BtnExecClick
        Style = bsNew
      end
      object BtnModif: TBitBtn
        Left = 1
        Top = 27
        Width = 129
        Height = 27
        Hint = 'Recharge la figure de la macro.'
        Caption = '&Modifier'
        ModalResult = 7
        TabOrder = 1
        OnClick = BtnModifClick
        Style = bsNew
      end
      object BtnEnregistre: TBitBtn
        Left = 1
        Top = 53
        Width = 129
        Height = 27
        Hint = 'Enregistre la figure actuelle comme macro.'
        Caption = '&Enregistrer &sous'
        TabOrder = 2
        OnClick = BtnEnregistreClick
        Style = bsNew
      end
    end
  end
  object Panel4: TPanel
    Left = 328
    Top = 4
    Width = 174
    Height = 135
    BevelInner = bvLowered
    BorderWidth = 2
    TabOrder = 3
    object Image: TImage
      Left = 4
      Top = 4
      Width = 166
      Height = 127
      Hint = 'image associ�e � la figure.'
      Align = alClient
      Center = True
      Stretch = True
    end
  end
end