256 lines
5.8 KiB
ObjectPascal
256 lines
5.8 KiB
ObjectPascal
object PredefineProjectForm: TPredefineProjectForm
|
|
Left = 0
|
|
Top = 0
|
|
BorderStyle = bsNone
|
|
Caption = 'PredefineProjectForm'
|
|
ClientHeight = 260
|
|
ClientWidth = 520
|
|
Color = clBtnFace
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = 12429980
|
|
Font.Height = -11
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
KeyPreview = True
|
|
Position = poMainFormCenter
|
|
Scaled = False
|
|
OnCreate = FormCreate
|
|
OnKeyDown = FormKeyDown
|
|
TextHeight = 13
|
|
object GeneralDialogPanel: TGeneralDialogPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 520
|
|
Height = 260
|
|
Caption = #39044#35774#24037#31243
|
|
Color = 5064257
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -12
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentBackground = False
|
|
ParentFont = False
|
|
TabOrder = 0
|
|
OnMouseDown = DoGeneraDialogPanelMouseDown
|
|
object mTsLabel: TLabel
|
|
Left = 25
|
|
Top = 58
|
|
Width = 24
|
|
Height = 14
|
|
Caption = #33410#25293
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = 12429980
|
|
Font.Height = -12
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object mTempoLabel: TLabel
|
|
Left = 119
|
|
Top = 58
|
|
Width = 24
|
|
Height = 14
|
|
Caption = #36895#24230
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = 12429980
|
|
Font.Height = -12
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object mKeyComboBox: TComboBoxComponent
|
|
Left = 340
|
|
Top = 54
|
|
Width = 42
|
|
Height = 24
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
Caption = 'C'
|
|
OnChange = DoKeyChange
|
|
ShowItemCount = 8
|
|
Parent = GeneralDialogPanel
|
|
end
|
|
object mKeyTypeComboBox: TComboBoxComponent
|
|
Left = 434
|
|
Top = 54
|
|
Width = 61
|
|
Height = 24
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
Caption = #22823#35843
|
|
OnChange = DoKeyTypeChange
|
|
ShowItemCount = 7
|
|
Parent = GeneralDialogPanel
|
|
end
|
|
object mStageComboBox: TComboBoxComponent
|
|
Left = 79
|
|
Top = 114
|
|
Width = 35
|
|
Height = 24
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
Caption = '1'
|
|
OnChange = DoStageCountChange
|
|
ShowItemCount = 5
|
|
Parent = GeneralDialogPanel
|
|
end
|
|
object mKeyLabel: TLabel
|
|
Left = 310
|
|
Top = 58
|
|
Width = 24
|
|
Height = 14
|
|
Caption = #35843#21495
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = 12429980
|
|
Font.Height = -12
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object mStageLabel: TLabel
|
|
Left = 25
|
|
Top = 118
|
|
Width = 48
|
|
Height = 14
|
|
Caption = #26059#24459#20998#27573
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = 12429980
|
|
Font.Height = -12
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object mKeyTypeLabel: TLabel
|
|
Left = 404
|
|
Top = 58
|
|
Width = 24
|
|
Height = 14
|
|
Caption = #35843#24615
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = 12429980
|
|
Font.Height = -12
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object mCancelButton: TTextButton
|
|
Left = 420
|
|
Top = 211
|
|
Width = 75
|
|
Height = 25
|
|
ModalResult = mrCancel
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
Text = #21462#28040
|
|
end
|
|
object mOkButton: TTextButton
|
|
Left = 333
|
|
Top = 211
|
|
Width = 75
|
|
Height = 25
|
|
ModalResult = mrOk
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
Text = #30830#23450
|
|
end
|
|
object mChordsBox: TPaintBox
|
|
Left = 25
|
|
Top = 154
|
|
Width = 470
|
|
Height = 30
|
|
Cursor = crHandPoint
|
|
Hint = #28857#20987#21152#36733#39044#35774
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
OnMouseDown = DoPaintBoxMouseDown
|
|
OnMouseEnter = DoPaintBoxMouseEnter
|
|
OnMouseLeave = DoPaintBoxMouseLeave
|
|
OnPaint = DoShowPreChordPaint
|
|
end
|
|
object mTSComboBox: TComboBoxComponent
|
|
Left = 55
|
|
Top = 54
|
|
Width = 42
|
|
Height = 24
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
Caption = '4/4'
|
|
OnChange = DoTsChange
|
|
ShowItemCount = 5
|
|
Parent = GeneralDialogPanel
|
|
end
|
|
object mTempoComboBox: TComboBoxComponent
|
|
Left = 149
|
|
Top = 54
|
|
Width = 61
|
|
Height = 24
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
Caption = #20013#36895
|
|
OnChange = DoTempoComboChange
|
|
ShowItemCount = 5
|
|
Parent = GeneralDialogPanel
|
|
end
|
|
object Label1: TLabel
|
|
Left = 178
|
|
Top = 118
|
|
Width = 72
|
|
Height = 14
|
|
Caption = #21644#24358#39044#35774#65292#31532
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = 12429980
|
|
Font.Height = -12
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object Label2: TLabel
|
|
Left = 297
|
|
Top = 118
|
|
Width = 24
|
|
Height = 14
|
|
Caption = #27573#65306
|
|
Font.Charset = DEFAULT_CHARSET
|
|
Font.Color = 12429980
|
|
Font.Height = -12
|
|
Font.Name = 'Tahoma'
|
|
Font.Style = []
|
|
ParentFont = False
|
|
end
|
|
object mStageSetComboBox: TComboBoxComponent
|
|
Left = 256
|
|
Top = 114
|
|
Width = 35
|
|
Height = 24
|
|
ParentShowHint = False
|
|
ShowHint = True
|
|
Caption = '1'
|
|
OnChange = StageSetChange
|
|
ShowItemCount = 5
|
|
Parent = GeneralDialogPanel
|
|
end
|
|
object mTempoLineEdit: TLineEdit
|
|
Left = 216
|
|
Top = 54
|
|
Width = 32
|
|
Height = 24
|
|
OnChange = DoTempoEditChange
|
|
MaxLength = 3
|
|
NumbersOnly = True
|
|
NumberMax = 200
|
|
NumberMin = 50
|
|
Text = '80'
|
|
TabOrder = 0
|
|
end
|
|
object mTempoUpDown: TUpDown
|
|
Left = 247
|
|
Top = 55
|
|
Width = 16
|
|
Height = 22
|
|
TabOrder = 1
|
|
OnClick = mTempoUpDownClick
|
|
end
|
|
end
|
|
end
|