home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 31 / CDASC_31_1996_juillet_aout.iso / index / source / scan.dfm / scan.txt
Text File  |  1995-08-10  |  2KB  |  99 lines
  1. object ScanForm: TScanForm
  2.   Left = 254
  3.   Top = 216
  4.   BorderIcons = [biSystemMenu]
  5.   BorderStyle = bsDialog
  6.   Caption = 'Recherche en cours....'
  7.   ClientHeight = 266
  8.   ClientWidth = 354
  9.   Font.Color = clBlack
  10.   Font.Height = -17
  11.   Font.Name = 'Courier New'
  12.   Font.Style = []
  13.   PixelsPerInch = 120
  14.   TextHeight = 20
  15.   object FicGroup: TGroupBox
  16.     Left = 10
  17.     Top = 10
  18.     Width = 331
  19.     Height = 61
  20.     Font.Color = clBlack
  21.     Font.Height = -17
  22.     Font.Name = 'System'
  23.     Font.Style = []
  24.     ParentFont = False
  25.     TabOrder = 0
  26.     object FicGauge: TGauge
  27.       Left = 10
  28.       Top = 20
  29.       Width = 311
  30.       Height = 31
  31.       Progress = 0
  32.     end
  33.   end
  34.   object GroupBox2: TGroupBox
  35.     Left = 10
  36.     Top = 80
  37.     Width = 331
  38.     Height = 61
  39.     Caption = 'Total: '
  40.     Font.Color = clBlack
  41.     Font.Height = -17
  42.     Font.Name = 'System'
  43.     Font.Style = []
  44.     ParentFont = False
  45.     TabOrder = 1
  46.     object TotalGauge: TGauge
  47.       Left = 10
  48.       Top = 20
  49.       Width = 311
  50.       Height = 31
  51.       Progress = 0
  52.     end
  53.   end
  54.   object FicSuivBtn: TButton
  55.     Left = 10
  56.     Top = 150
  57.     Width = 161
  58.     Height = 51
  59.     Caption = 'Fichier suivant'
  60.     Default = True
  61.     Font.Color = clBlack
  62.     Font.Height = -17
  63.     Font.Name = 'System'
  64.     Font.Style = []
  65.     ParentFont = False
  66.     TabOrder = 2
  67.     OnClick = FicSuivBtnClick
  68.   end
  69.   object SecSuivBtn: TButton
  70.     Left = 180
  71.     Top = 150
  72.     Width = 161
  73.     Height = 51
  74.     Caption = 'Section suivante'
  75.     Font.Color = clBlack
  76.     Font.Height = -17
  77.     Font.Name = 'System'
  78.     Font.Style = []
  79.     ParentFont = False
  80.     TabOrder = 3
  81.     OnClick = SecSuivBtnClick
  82.   end
  83.   object CancelBtn: TButton
  84.     Left = 10
  85.     Top = 210
  86.     Width = 335
  87.     Height = 47
  88.     Cancel = True
  89.     Caption = 'Annuler'
  90.     Font.Color = clBlack
  91.     Font.Height = -17
  92.     Font.Name = 'System'
  93.     Font.Style = []
  94.     ParentFont = False
  95.     TabOrder = 4
  96.     OnClick = CancelBtnClick
  97.   end
  98. end
  99.