iChangzuo/AC_Pro
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Initial commit

Browse Source
This commit is contained in:
alex_q
2026-06-13 00:05:19 +08:00
commit 754cd7ccdb
402 changed files with 123771 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files
ImportFormUnit.dfm
+286
View File
@@ -0,0 +1,286 @@
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