home *** CD-ROM | disk | FTP | other *** search
- object chson: Tchson
- Left = 258
- Top = 83
- ActiveControl = OKBtn
- BorderIcons = [biSystemMenu]
- BorderStyle = bsDialog
- Caption = 'Son en boucle ; balise BGSOUND'
- ClientHeight = 234
- ClientWidth = 445
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- OldCreateOrder = True
- Position = poScreenCenter
- OnActivate = FormActivate
- PixelsPerInch = 96
- TextHeight = 13
- object Bevel1: TBevel
- Left = 8
- Top = 8
- Width = 345
- Height = 217
- Shape = bsFrame
- IsControl = True
- end
- object Label1: TLabel
- Left = 184
- Top = 32
- Width = 128
- Height = 13
- Caption = 'G:\Developpement\netedit'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label2: TLabel
- Left = 184
- Top = 16
- Width = 52
- Height = 13
- Caption = 'R�pertoire:'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label3: TLabel
- Left = 24
- Top = 200
- Width = 104
- Height = 13
- Hint = 'laisser vide pour un nombre infini'
- Caption = 'Nombre de boucle(s) :'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object OKBtn: TBitBtn
- Left = 364
- Top = 8
- Width = 77
- Height = 27
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 7
- Kind = bkOK
- Margin = 2
- Spacing = -1
- IsControl = True
- end
- object CancelBtn: TBitBtn
- Left = 364
- Top = 40
- Width = 77
- Height = 27
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 8
- Kind = bkCancel
- Margin = 2
- Spacing = -1
- IsControl = True
- end
- object DriveComboBox1: TDriveComboBox
- Left = 184
- Top = 160
- Width = 161
- Height = 19
- DirList = DirectoryListBox1
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 4
- end
- object DirectoryListBox1: TDirectoryListBox
- Left = 184
- Top = 56
- Width = 161
- Height = 97
- DirLabel = Label1
- FileList = FileListBox1
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 16
- ParentFont = False
- TabOrder = 3
- end
- object FileListBox1: TFileListBox
- Left = 24
- Top = 56
- Width = 145
- Height = 97
- FileEdit = Edit1
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- Mask = '*.wav;*.mid'
- ParentFont = False
- TabOrder = 1
- OnChange = FileListBox1Change
- OnDblClick = FileListBox1DblClick
- end
- object FilterComboBox1: TFilterComboBox
- Left = 24
- Top = 160
- Width = 145
- Height = 21
- FileList = FileListBox1
- Filter =
- 'Fichiers sons (*.wav,*.mid)|*.wav;*.mid|Tous les fichiers(*.*)|*' +
- '.*'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- end
- object Edit1: TEdit
- Left = 24
- Top = 24
- Width = 145
- Height = 21
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- Text = '*.wav;*.mid'
- end
- object Edit2: TEdit
- Left = 144
- Top = 192
- Width = 41
- Height = 21
- Hint = '0 si infini'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 5
- Text = '1'
- end
- object BitBtn1: TBitBtn
- Left = 200
- Top = 184
- Width = 145
- Height = 33
- Caption = 'Ecouter le fichier'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 6
- OnClick = BitBtn1Click
- Glyph.Data = {
- 76010000424D7601000000000000760000002800000020000000100000000100
- 04000000000000010000120B0000120B00001000000000000000000000000000
- 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
- 33333333333FFF3333F333333300033339333333337773F33733333330008033
- 933333333737F7F37333333307078733333933337337373F3337333077088803
- 33933337F37F337F3373333077088803393333F7337FF37F3733300777008803
- 9333377F33773F7F733307088808087333337F7F337F7F7F3FFF070777080873
- 99997F7F337F7F7F77770808880808733333737F337F737F3F33300888008803
- 93333773F377337F73F333308807880339333337F37F337F373F333088077803
- 339333373F73F37333733333087777333339333373F7F7F33F37333330807033
- 933333333737F73373F333333300033339333333337773333733}
- NumGlyphs = 2
- end
- object BitBtn2: TBitBtn
- Left = 364
- Top = 72
- Width = 77
- Height = 27
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 9
- OnClick = BitBtn2Click
- Kind = bkHelp
- Margin = 2
- Spacing = -1
- IsControl = True
- end
- end
-