object dlgBgm: TdlgBgm Left = 430 Top = 541 HelpContext = 75 BorderStyle = bsDialog Caption = '�T�E���h�̐ݒ�' ClientHeight = 121 ClientWidth = 380 Color = clBtnFace Font.Charset = SHIFTJIS_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = '�l�r �o�S�V�b�N' Font.Style = [] OldCreateOrder = False Position = poScreenCenter OnClose = FormClose OnShow = FormShow PixelsPerInch = 96 TextHeight = 12 object Label1: TLabel Left = 6 Top = 20 Width = 74 Height = 12 Caption = '�t�@�C����(&P)�F' FocusControl = edtPath end object btnOpen: TSpeedButton Left = 348 Top = 48 Width = 20 Height = 20 Hint = '�t�@�C���ǂݍ���|' Glyph.Data = { F6000000424DF600000000000000760000002800000010000000100000000100 0400000000008000000000000000000000001000000000000000000000000000 80000080000000808000800000008000800080800000C0C0C000808080000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00777777777777 77777000000000007777700333333333077770B033333333307770BB03333333 330770BBB0333333333070BBBB000000000070BBBBBBBBB0777770BBBBBBBBB0 777770BBB0000000777777000777777777777777777777700077777777777777 0077777777707770707777777777000777777777777777777777} ParentShowHint = False ShowHint = True OnClick = btnOpenClick end object Label2: TLabel Left = 17 Top = 52 Width = 62 Height = 12 Caption = '�J��Ԃ�(&L)�F' FocusControl = lstLoop end object btnOk: TButton Left = 136 Top = 88 Width = 75 Height = 25 Caption = 'OK' Default = True ModalResult = 1 TabOrder = 0 OnClick = btnOkClick end object btnCancel: TButton Left = 216 Top = 88 Width = 75 Height = 25 Cancel = True Caption = '�L�����Z��' ModalResult = 2 TabOrder = 1 end object btnHlp: TButton Left = 296 Top = 88 Width = 75 Height = 25 Caption = '�w���v(&H)' TabOrder = 2 OnClick = btnHlpClick end object edtPath: TEllipsesEdit Left = 80 Top = 16 Width = 289 Height = 20 EditStyle = esAlwaysEllipses TabOrder = 3 OnButtonClick = edtPathButtonClick end object mPlay: TMediaPlayer Left = 263 Top = 48 Width = 85 Height = 20 ColoredButtons = [btPlay, btStop] EnabledButtons = [btPlay, btPause, btStop] VisibleButtons = [btPlay, btPause, btStop] TabOrder = 4 end object edtLoop: TEditHex Left = 184 Top = 48 Width = 33 Height = 20 Color = clBtnFace Enabled = False TabOrder = 5 Text = '0' Alignment = taRightJustify NumeralOnly = True NumericType = Decimal end object udLoop: TUpDown Left = 217 Top = 48 Width = 16 Height = 20 Associate = edtLoop Enabled = False Min = 0 Max = 9999 Position = 0 TabOrder = 6 Thousands = False Wrap = False end object lstLoop: TComboBox Left = 80 Top = 48 Width = 97 Height = 20 Style = csDropDownList ItemHeight = 12 TabOrder = 7 OnClick = lstLoopClick Items.Strings = ( '�w�肵�Ȃ�' '����' '�񐔎w��') end end