Freelog 7/Freelog007.iso/Divers/FichImp/_SETUP.1/fichimp.exe/0/RCDATA/TFORM1/TFORM1.txt

Text File | 1999-10-03 | 6KB | 213 lines

object Form1: TForm1
  Left = 192
  Top = 110
  AutoScroll = False
  Caption = 'FichImp, un logiciel gratuit de R�mi JANOT.'
  ClientHeight = 453
  ClientWidth = 632
  Color = clNavy
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object SpeedButton1: TSpeedButton
    Left = 304
    Top = 320
    Width = 23
    Height = 21
    Caption = 'Ok'
    Flat = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnClick = SpeedButton1Click
  end
  object Label1: TLabel
    Left = 48
    Top = 416
    Width = 225
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = 'R�pertoire:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clYellow
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Label2: TLabel
    Left = 48
    Top = 432
    Width = 225
    Height = 13
    Alignment = taCenter
    AutoSize = False
    Caption = 'D:\fichimp\2.0'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clYellow
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsBold]
    ParentFont = False
  end
  object Image1: TImage
    Left = 48
    Top = 344
    Width = 225
    Height = 89
    Picture.Data = {<image000.bmp>}
    Stretch = True
    Transparent = True
  end
  object Image2: TImage
    Left = 344
    Top = 6
    Width = 273
    Height = 89
    Picture.Data = {<image001.bmp>}
    Stretch = True
    Transparent = True
  end
  object Image3: TImage
    Left = 344
    Top = 342
    Width = 273
    Height = 89
    Picture.Data = {<image002.bmp>}
    Stretch = True
    Transparent = True
  end
  object DriveComboBox1: TDriveComboBox
    Left = 8
    Top = 8
    Width = 145
    Height = 19
    DirList = DirectoryListBox1
    TabOrder = 0
  end
  object DirectoryListBox1: TDirectoryListBox
    Left = 8
    Top = 32
    Width = 145
    Height = 281
    DirLabel = Label2
    FileList = FileListBox1
    ItemHeight = 16
    TabOrder = 1
  end
  object FilterComboBox1: TFilterComboBox
    Left = 8
    Top = 320
    Width = 145
    Height = 21
    FileList = FileListBox1
    Filter =
      'Tous les fichiers (*.*)|*.*|Fichiers texte (*.txt)|*.txt|Applica' +
      'tions (*.exe)|*.exe'
    TabOrder = 3
    OnChange = FilterComboBox1Change
  end
  object FileListBox1: TFileListBox
    Left = 160
    Top = 8
    Width = 169
    Height = 305
    ItemHeight = 13
    TabOrder = 2
  end
  object Edit1: TEdit
    Left = 160
    Top = 320
    Width = 169
    Height = 21
    TabOrder = 4
    Text = '*.*'
    OnChange = Edit1Change
    OnClick = Edit1Change
    OnExit = SpeedButton1Click
  end
  object BitBtn1: TBitBtn
    Left = 344
    Top = 142
    Width = 273
    Height = 49
    Caption = 'Imprimer'
    TabOrder = 5
    OnClick = BitBtn1Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
      0003377777777777777308888888888888807F33333333333337088888888888
      88807FFFFFFFFFFFFFF7000000000000000077777777777777770F8F8F8F8F8F
      8F807F333333333333F708F8F8F8F8F8F9F07F333333333337370F8F8F8F8F8F
      8F807FFFFFFFFFFFFFF7000000000000000077777777777777773330FFFFFFFF
      03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
      03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
      33333337F3F37F3733333330F08F0F0333333337F7337F7333333330FFFF0033
      33333337FFFF7733333333300000033333333337777773333333}
    NumGlyphs = 2
  end
  object BitBtn2: TBitBtn
    Left = 344
    Top = 238
    Width = 273
    Height = 49
    Caption = 'Cr�er un fichier texte'
    TabOrder = 6
    OnClick = BitBtn2Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000120B0000120B00001000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555500000000
      0555555F7777777775F55500FFFFFFFFF0555577F5FFFFFFF7F550F0FEEEEEEE
      F05557F7F777777757F550F0FFFFFFFFF05557F7F5FFFFFFF7F550F0FEEEEEEE
      F05557F7F777777757F550F0FF777FFFF05557F7F5FFFFFFF7F550F0FEEEEEEE
      F05557F7F777777757F550F0FF7F777FF05557F7F5FFFFFFF7F550F0FEEEEEEE
      F05557F7F777777757F550F0FF77F7FFF05557F7F5FFFFFFF7F550F0FEEEEEEE
      F05557F7F777777757F550F0FFFFFFFFF05557F7FF5F5F5F57F550F00F0F0F0F
      005557F77F7F7F7F77555055070707070555575F7F7F7F7F7F55550507070707
      0555557575757575755555505050505055555557575757575555}
    NumGlyphs = 2
  end
  object Memo1: TMemo
    Left = 288
    Top = 352
    Width = 185
    Height = 89
    Lines.Strings = (
      'Memo1')
    TabOrder = 7
    Visible = False
  end
  object FontDialog1: TFontDialog
    Font.Charset = ANSI_CHARSET
    Font.Color = clBlack
    Font.Height = -19
    Font.Name = 'Times New Roman'
    Font.Style = []
    MinFontSize = 0
    MaxFontSize = 0
    Left = 336
    Top = 32
  end
  object SaveDialog1: TSaveDialog
    DefaultExt = 'txt'
    Filter = 'Fichiers texte (*.txt)|*.txt'
    Options = [ofOverwritePrompt, ofHideReadOnly, ofEnableSizing]
    Left = 304
    Top = 384
  end
end