287 lines
6.4 KiB
ObjectPascal
287 lines
6.4 KiB
ObjectPascal
object ImportForm: TImportForm
|
|
Left = 0
|
|
Top = 0
|
|
BorderStyle = bsNone
|
|
Caption = 'ImportForm'
|
|
ClientHeight = 206
|
|
ClientWidth = 410
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = 12569562
|
|
Font.Height = -13
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
KeyPreview = True
|
|
Position = poMainFormCenter
|
|
Scaled = False
|
|
OnCreate = FormCreate
|
|
OnKeyDown = FormKeyDown
|
|
TextHeight = 16
|
|
object m_panGeneral: TGeneralDialogPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 410
|
|
Height = 206
|
|
ParentCustomHint = False
|
|
Caption = #23548#20837#21333#26059#24459#25991#20214
|
|
Color = 5064257
|
|
UseDockManager = False
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = 12569562
|
|
Font.Height = -12
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentBackground = False
|
|
ParentFont = False
|
|
ParentShowHint = False
|
|
ShowHint = False
|
|
TabOrder = 0
|
|
object m_MediaFilePathLabel: TLabel
|
|
Left = 29
|
|
Top = 53
|
|
Width = 36
|
|
Height = 14
|
|
Caption = #25991#20214#21517
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = 14339007
|
|
Font.Height = -12
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object m_TSLabel: TLabel
|
|
Left = 29
|
|
Top = 113
|
|
Width = 24
|
|
Height = 14
|
|
Caption = #33410#25293
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = 14339007
|
|
Font.Height = -12
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object m_TempoLabel: TLabel
|
|
Left = 158
|
|
Top = 113
|
|
Width = 24
|
|
Height = 14
|
|
Caption = #36895#24230
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = 14339007
|
|
Font.Height = -12
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object m_TipsLabel: TLabel
|
|
Left = 29
|
|
Top = 162
|
|
Width = 132
|
|
Height = 14
|
|
Caption = #25552#31034#65306#35831#35774#32622#36895#24230#19982#33410#25293
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = 14339007
|
|
Font.Height = -12
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object m_BrowsButton: TTextButton
|
|
Left = 313
|
|
Top = 50
|
|
Width = 60
|
|
Height = 25
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
OnClick = DoBrows
|
|
Text = #27983#35272
|
|
end
|
|
object m_CancelButton: TTextButton
|
|
Left = 298
|
|
Top = 157
|
|
Width = 75
|
|
Height = 27
|
|
ModalResult = mrCancel
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
Text = #21462#28040
|
|
end
|
|
object m_OKButton: TTextButton
|
|
Left = 217
|
|
Top = 157
|
|
Width = 75
|
|
Height = 27
|
|
ModalResult = mrOk
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
Text = #30830#23450
|
|
end
|
|
object ts_44: TLabel
|
|
Left = 60
|
|
Top = 90
|
|
Width = 19
|
|
Height = 16
|
|
Caption = '4/4'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = 14339007
|
|
Font.Height = -13
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object ts_34: TLabel
|
|
Left = 82
|
|
Top = 90
|
|
Width = 19
|
|
Height = 16
|
|
Caption = '3/4'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = 14339007
|
|
Font.Height = -13
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object ts_24: TLabel
|
|
Left = 104
|
|
Top = 90
|
|
Width = 19
|
|
Height = 16
|
|
Caption = '2/4'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = 14339007
|
|
Font.Height = -13
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object ts_68: TLabel
|
|
Left = 127
|
|
Top = 90
|
|
Width = 19
|
|
Height = 16
|
|
Caption = '6/8'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = 14339007
|
|
Font.Height = -13
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object m_ShowTempoMin: TLabel
|
|
Left = 190
|
|
Top = 90
|
|
Width = 14
|
|
Height = 16
|
|
Caption = '50'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = 14339007
|
|
Font.Height = -13
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object m_ShowTempoMax: TLabel
|
|
Left = 295
|
|
Top = 90
|
|
Width = 21
|
|
Height = 16
|
|
Caption = '200'
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = 14339007
|
|
Font.Height = -13
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object m_MediaFilePath: TLineEdit
|
|
Left = 80
|
|
Top = 50
|
|
Width = 230
|
|
Height = 23
|
|
OnChange = DoFilePathChange
|
|
HintText = #35831#36873#25321#25991#20214
|
|
NumberMax = -1
|
|
NumberMin = -1
|
|
Color = 15591652
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -12
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
TabOrder = 0
|
|
end
|
|
object m_ShowTempo: TLineEdit
|
|
Left = 325
|
|
Top = 110
|
|
Width = 33
|
|
Height = 24
|
|
OnChange = DoShowTempoChange
|
|
Alignment = taCenter
|
|
NumbersOnly = True
|
|
NumberMax = 200
|
|
NumberMin = 50
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
TabOrder = 1
|
|
end
|
|
object m_TempoTrackBar: TSkinTrackBar
|
|
Left = 187
|
|
Top = 112
|
|
Width = 132
|
|
Height = 20
|
|
Hint = '50'
|
|
Caption = 'm_TempoTrackBar'
|
|
FullRepaint = False
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = 12569562
|
|
Font.Height = -13
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentColor = True
|
|
ParentFont = False
|
|
TabOrder = 2
|
|
OnChange = DoTempoTrackBar
|
|
Max = 200
|
|
Min = 50
|
|
Position = 50
|
|
end
|
|
object m_TSTrackBar: TSkinTrackBar
|
|
Left = 60
|
|
Top = 112
|
|
Width = 85
|
|
Height = 20
|
|
Hint = '2'
|
|
Caption = 'm_TSTrackBar'
|
|
FullRepaint = False
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = 12569562
|
|
Font.Height = -13
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentColor = True
|
|
ParentFont = False
|
|
TabOrder = 3
|
|
OnChange = DoTSTrackBar
|
|
Max = 3
|
|
Position = 2
|
|
end
|
|
object m_TempoUpDown: TUpDown
|
|
Left = 357
|
|
Top = 111
|
|
Width = 16
|
|
Height = 22
|
|
Min = 50
|
|
Max = 200
|
|
Position = 50
|
|
TabOrder = 4
|
|
OnClick = DoTempoUpDown
|
|
end
|
|
end
|
|
end
|