-
Notifications
You must be signed in to change notification settings - Fork 0
/
Main.dfm
169 lines (169 loc) · 3.26 KB
/
Main.dfm
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
object Form1: TForm1
Left = 0
Top = 0
Caption = 'Module Player'
ClientHeight = 406
ClientWidth = 422
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
TextHeight = 13
object Label1: TLabel
Left = 8
Top = 50
Width = 65
Height = 13
Caption = 'Module Type:'
end
object Label2: TLabel
Left = 8
Top = 74
Width = 51
Height = 13
Caption = 'Song Title:'
end
object Label3: TLabel
Left = 8
Top = 101
Width = 49
Height = 13
Caption = 'Comment:'
end
object txtModuleType: TEdit
Left = 89
Top = 44
Width = 273
Height = 21
ReadOnly = True
TabOrder = 0
end
object ToolBar1: TToolBar
Left = 0
Top = 0
Width = 422
Height = 33
ButtonHeight = 30
ButtonWidth = 31
Caption = 'ToolBar1'
Images = ImageList1
TabOrder = 3
object tbOpenFile: TToolButton
Left = 0
Top = 0
ImageIndex = 3
OnClick = tbOpenFileClick
end
object tbSeparator1: TToolButton
Left = 31
Top = 0
Width = 8
ImageIndex = 3
Style = tbsSeparator
end
object tbPlay: TToolButton
Left = 39
Top = 0
ImageIndex = 0
OnClick = tbPlayClick
end
object tbPause: TToolButton
Left = 70
Top = 0
ImageIndex = 1
OnClick = tbPauseClick
end
object tbStop: TToolButton
Left = 101
Top = 0
ImageIndex = 2
OnClick = tbStopClick
end
object tbRepeat: TToolButton
Left = 132
Top = 0
Caption = 'tbRepeat'
ImageIndex = 9
Style = tbsCheck
OnClick = tbRepeatClick
end
object tbSeparator2: TToolButton
Left = 163
Top = 0
Width = 8
ImageIndex = 3
Style = tbsSeparator
end
object tbMute: TToolButton
Left = 171
Top = 0
ImageIndex = 7
Style = tbsCheck
OnClick = tbMuteClick
end
object TrackBar1: TTrackBar
Left = 202
Top = 0
Width = 165
Height = 30
Max = 128
Frequency = 10
Position = 128
ShowSelRange = False
TabOrder = 0
OnChange = TrackBar1Change
end
end
object txtSongTitle: TEdit
Left = 89
Top = 71
Width = 273
Height = 21
ReadOnly = True
TabOrder = 1
end
object memoComment: TMemo
Left = 89
Top = 98
Width = 273
Height = 56
ReadOnly = True
ScrollBars = ssVertical
TabOrder = 2
end
object Panel1: TPanel
AlignWithMargins = True
Left = 8
Top = 162
Width = 406
Height = 236
Margins.Left = 8
Margins.Top = 8
Margins.Right = 8
Margins.Bottom = 8
Align = alBottom
BevelOuter = bvLowered
ShowCaption = False
TabOrder = 4
end
object Timer1: TTimer
Interval = 30
OnTimer = Timer1Timer
Left = 368
Top = 240
end
object ImageList1: TImageList
ColorDepth = cd32Bit
Height = 24
Width = 24
Left = 368
Top = 184
end
object OpenDialog1: TOpenDialog
FilterIndex = 0
Left = 304
Top = 184
end
end