| blob | 4c5e824487d77f8bd26d0ee07b06d5848db0837b |
1 { KOL MCK } // Do not remove this line!\r
2 \r
3 procedure NewMainForm( var Result: PMainForm; AParent: PControl );\r
4 begin\r
5 \r
6 {$IFDEF KOLCLASSES}\r
7 Result := PMainForm.Create;\r
8 {$ELSE OBJECTS}\r
9 New( Result, Create );\r
10 {$ENDIF KOL CLASSES/OBJECTS}\r
11 Result.Form := NewForm( AParent, 'ATL DEMO' ).SetPosition( 254, 105 ).SetClientSize( 824, 585 );\r
12 Applet := Result.Form;\r
13 Result.Form.Add2AutoFree( Result );\r
14 // Result.Label10.TabOrder = -1\r
15 Result.Label10 := NewWordWrapLabel( Result.Form, 'Ôîðìàòû: MP3; WMA; WAV; FLAC; CDA; APE; VQF; AAC; MPC; OGG' ).SetPosition( 504, 552 ).SetSize( 317, 33 );\r
16 // Result.BAPFileBrowser.TabOrder = 0\r
17 Result.BAPFileBrowser := NewBAPFileBrowser(Result.Form, lvsList, [fbcSize, fbcDate], '*.mp3;*.wma;*.wav;*.flac;*.cda;*.ape;*.vqf;*.aac;*.mpc;*.ogg', sdrByExt, False, True);\r
18 Result.BAPFileBrowser.SetPosition( 8, 4 ).SetSize( 309, 541 );\r
19 Result.BAPFileBrowser.Color := clWindow;\r
20 Result.BAPFileBrowser.LVColText[0] := 'Name';\r
21 Result.BAPFileBrowser.LVColWidth[0] := 202;\r
22 Result.BAPFileBrowser.LVColText[1] := 'Size';\r
23 Result.BAPFileBrowser.LVColWidth[1] := 102;\r
24 Result.BAPFileBrowser.LVColText[2] := 'Date';\r
25 Result.BAPFileBrowser.LVColWidth[2] := 84;\r
26 Result.BAPFileBrowser.Directory := '*';\r
27 // Result.GroupBox1.TabOrder = 1\r
28 Result.GroupBox1 := NewGroupBox( Result.Form, 'ID3v2, WMA, FLAC, APE, VQF, AAC, MPC, OGG ' ).SetPosition( 328, 8 ).SetSize( 489, 245 );\r
29 Result.GroupBox1.TabStop := FALSE;\r
30 Result.GroupBox1.Font.Color := clBlack;\r
31 Result.GroupBox1.Font.FontStyle := [ fsBold ];\r
32 Result.GroupBox1.Font.FontHeight := -11;\r
33 Result.GroupBox1.Font.FontCharset := 204;\r
34 // Result.Label9.TabOrder = -1\r
35 Result.Label9 := NewLabel( Result.GroupBox1, 'Tag version:' ).SetPosition( 220, 22 ).AutoSize( TRUE );\r
36 Result.Label9.Font.FontStyle := [ ];\r
37 // Result.TitleLabel.TabOrder = -1\r
38 Result.TitleLabel := NewLabel( Result.GroupBox1, 'Title:' ).SetPosition( 12, 48 ).AutoSize( TRUE );\r
39 Result.TitleLabel.Font.FontStyle := [ ];\r
40 // Result.ArtisTKolLabel.TabOrder = -1\r
41 Result.ArtisTKolLabel := NewLabel( Result.GroupBox1, 'Artist:' ).SetPosition( 12, 72 ).AutoSize( TRUE );\r
42 Result.ArtisTKolLabel.Font.FontStyle := [ ];\r
43 // Result.AlbumLabel.TabOrder = -1\r
44 Result.AlbumLabel := NewLabel( Result.GroupBox1, 'Album:' ).SetPosition( 12, 96 ).AutoSize( TRUE );\r
45 Result.AlbumLabel.Font.FontStyle := [ ];\r
46 // Result.TrackLabel.TabOrder = -1\r
47 Result.TrackLabel := NewLabel( Result.GroupBox1, 'Track:' ).SetPosition( 12, 120 ).AutoSize( TRUE );\r
48 Result.TrackLabel.Font.FontStyle := [ ];\r
49 // Result.YearLabel.TabOrder = -1\r
50 Result.YearLabel := NewLabel( Result.GroupBox1, 'Year:' ).SetPosition( 132, 120 ).AutoSize( TRUE );\r
51 Result.YearLabel.Font.FontStyle := [ ];\r
52 // Result.GenreLabel.TabOrder = -1\r
53 Result.GenreLabel := NewLabel( Result.GroupBox1, 'Genre:' ).SetPosition( 244, 120 ).AutoSize( TRUE );\r
54 Result.GenreLabel.Font.FontStyle := [ ];\r
55 // Result.TagExistsLabel.TabOrder = -1\r
56 Result.TagExistsLabel := NewLabel( Result.GroupBox1, 'Tag exists:' ).SetPosition( 12, 23 ).AutoSize( TRUE );\r
57 Result.TagExistsLabel.Font.FontStyle := [ ];\r
58 // Result.ComposerLabel.TabOrder = -1\r
59 Result.ComposerLabel := NewLabel( Result.GroupBox1, 'Composer:' ).SetPosition( 12, 168 ).AutoSize( TRUE );\r
60 Result.ComposerLabel.Font.FontStyle := [ ];\r
61 // Result.CopyrighTKolLabel.TabOrder = -1\r
62 Result.CopyrighTKolLabel := NewLabel( Result.GroupBox1, 'Copyright:' ).SetPosition( 12, 192 ).AutoSize( TRUE );\r
63 Result.CopyrighTKolLabel.Font.FontStyle := [ ];\r
64 // Result.EncoderLabel.TabOrder = -1\r
65 Result.EncoderLabel := NewLabel( Result.GroupBox1, 'Encoder:' ).SetPosition( 284, 168 ).AutoSize( TRUE );\r
66 Result.EncoderLabel.Font.FontStyle := [ ];\r
67 // Result.LanguageLabel.TabOrder = -1\r
68 Result.LanguageLabel := NewLabel( Result.GroupBox1, 'Language:' ).SetPosition( 284, 192 ).AutoSize( TRUE );\r
69 Result.LanguageLabel.Font.FontStyle := [ ];\r
70 // Result.LinkLabel.TabOrder = -1\r
71 Result.LinkLabel := NewLabel( Result.GroupBox1, 'Link:' ).SetPosition( 12, 216 ).AutoSize( TRUE );\r
72 Result.LinkLabel.Font.FontStyle := [ ];\r
73 // Result.CommenTKolLabel.TabOrder = -1\r
74 Result.CommenTKolLabel := NewLabel( Result.GroupBox1, 'Comment:' ).SetPosition( 12, 144 ).AutoSize( TRUE );\r
75 Result.CommenTKolLabel.Font.FontStyle := [ ];\r
76 // Result.TagExists.TabOrder = 0\r
77 Result.TagExists := NewCheckBox( Result.GroupBox1, '' ).SetPosition( 84, 20 ).SetSize( 17, 0 );\r
78 // Result.TitleEdit.TabOrder = 3\r
79 Result.TitleEdit := NewEditBox( Result.GroupBox1, [ ] ).SetPosition( 84, 44 ).SetSize( 393, 21 );\r
80 Result.TitleEdit.Color := clWindow;\r
81 Result.TitleEdit.Font.FontStyle := [ ];\r
82 // Result.ArtisEdit.TabOrder = 4\r
83 Result.ArtisEdit := NewEditBox( Result.GroupBox1, [ ] ).SetPosition( 84, 68 ).SetSize( 393, 21 );\r
84 Result.ArtisEdit.Color := clWindow;\r
85 Result.ArtisEdit.Font.FontStyle := [ ];\r
86 // Result.AlbumEdit.TabOrder = 5\r
87 Result.AlbumEdit := NewEditBox( Result.GroupBox1, [ ] ).SetPosition( 84, 92 ).SetSize( 393, 21 );\r
88 Result.AlbumEdit.Color := clWindow;\r
89 Result.AlbumEdit.Font.FontStyle := [ ];\r
90 // Result.TrackEdit.TabOrder = 6\r
91 Result.TrackEdit := NewEditBox( Result.GroupBox1, [ eoNumber ] ).SetPosition( 84, 116 ).SetSize( 33, 21 );\r
92 Result.TrackEdit.Color := clWindow;\r
93 Result.TrackEdit.Font.FontStyle := [ ];\r
94 // Result.YearEdit.TabOrder = 7\r
95 Result.YearEdit := NewEditBox( Result.GroupBox1, [ ] ).SetPosition( 172, 116 ).SetSize( 57, 21 );\r
96 Result.YearEdit.Color := clWindow;\r
97 Result.YearEdit.Font.FontStyle := [ ];\r
98 // Result.TagVersionValue.TabOrder = 8\r
99 Result.TagVersionValue := NewEditBox( Result.GroupBox1, [ ] ).SetPosition( 292, 19 ).SetSize( 185, 19 );\r
100 Result.TagVersionValue.Ctl3D := False;\r
101 Result.TagVersionValue.TabStop := FALSE;\r
102 Result.TagVersionValue.Color := clWindow;\r
103 Result.TagVersionValue.Font.FontStyle := [ ];\r
104 // Result.GenreEdit.TabOrder = 8\r
105 Result.GenreEdit := NewEditBox( Result.GroupBox1, [ ] ).SetPosition( 292, 116 ).SetSize( 185, 21 );\r
106 Result.GenreEdit.Color := clWindow;\r
107 Result.GenreEdit.Font.FontStyle := [ ];\r
108 // Result.CommenEdit.TabOrder = 9\r
109 Result.CommenEdit := NewEditBox( Result.GroupBox1, [ ] ).SetPosition( 84, 140 ).SetSize( 393, 21 );\r
110 Result.CommenEdit.Color := clWindow;\r
111 Result.CommenEdit.Font.FontStyle := [ ];\r
112 // Result.ComposerEdit.TabOrder = 10\r
113 Result.ComposerEdit := NewEditBox( Result.GroupBox1, [ ] ).SetPosition( 84, 164 ).SetSize( 177, 21 );\r
114 Result.ComposerEdit.Color := clWindow;\r
115 Result.ComposerEdit.Font.FontStyle := [ ];\r
116 // Result.EncoderEdit.TabOrder = 11\r
117 Result.EncoderEdit := NewEditBox( Result.GroupBox1, [ ] ).SetPosition( 348, 164 ).SetSize( 129, 21 );\r
118 Result.EncoderEdit.Color := clWindow;\r
119 Result.EncoderEdit.Font.FontStyle := [ ];\r
120 // Result.CopyrighEdit.TabOrder = 12\r
121 Result.CopyrighEdit := NewEditBox( Result.GroupBox1, [ ] ).SetPosition( 84, 188 ).SetSize( 177, 21 );\r
122 Result.CopyrighEdit.Color := clWindow;\r
123 Result.CopyrighEdit.Font.FontStyle := [ ];\r
124 // Result.LanguageEdit.TabOrder = 13\r
125 Result.LanguageEdit := NewEditBox( Result.GroupBox1, [ ] ).SetPosition( 348, 188 ).SetSize( 129, 21 );\r
126 Result.LanguageEdit.Color := clWindow;\r
127 Result.LanguageEdit.Font.FontStyle := [ ];\r
128 // Result.LinkEdit.TabOrder = 14\r
129 Result.LinkEdit := NewEditBox( Result.GroupBox1, [ ] ).SetPosition( 84, 212 ).SetSize( 393, 21 );\r
130 Result.LinkEdit.Color := clWindow;\r
131 Result.LinkEdit.Font.FontStyle := [ ];\r
132 // Result.GroupBox2.TabOrder = 2\r
133 Result.GroupBox2 := NewGroupBox( Result.Form, 'ID3v1' ).SetPosition( 328, 260 ).SetSize( 489, 173 );\r
134 Result.GroupBox2.TabStop := FALSE;\r
135 Result.GroupBox2.Font.Color := clBlack;\r
136 Result.GroupBox2.Font.FontStyle := [ fsBold ];\r
137 Result.GroupBox2.Font.FontHeight := -11;\r
138 Result.GroupBox2.Font.FontCharset := 204;\r
139 // Result.Label2.TabOrder = -1\r
140 Result.Label2 := NewLabel( Result.GroupBox2, 'Title:' ).SetPosition( 12, 48 ).AutoSize( TRUE );\r
141 Result.Label2.Font.FontStyle := [ ];\r
142 // Result.Label1.TabOrder = -1\r
143 Result.Label1 := NewLabel( Result.GroupBox2, 'Tag exists:' ).SetPosition( 12, 22 ).AutoSize( TRUE );\r
144 Result.Label1.Font.FontStyle := [ ];\r
145 // Result.Label3.TabOrder = -1\r
146 Result.Label3 := NewLabel( Result.GroupBox2, 'Artist:' ).SetPosition( 12, 72 ).AutoSize( TRUE );\r
147 Result.Label3.Font.FontStyle := [ ];\r
148 // Result.Label4.TabOrder = -1\r
149 Result.Label4 := NewLabel( Result.GroupBox2, 'Album:' ).SetPosition( 12, 96 ).AutoSize( TRUE );\r
150 Result.Label4.Font.FontStyle := [ ];\r
151 // Result.TagVersionLabel.TabOrder = -1\r
152 Result.TagVersionLabel := NewLabel( Result.GroupBox2, 'Tag version:' ).SetPosition( 220, 22 ).AutoSize( TRUE );\r
153 Result.TagVersionLabel.Font.FontStyle := [ ];\r
154 // Result.Label6.TabOrder = -1\r
155 Result.Label6 := NewLabel( Result.GroupBox2, 'Comment:' ).SetPosition( 12, 144 ).AutoSize( TRUE );\r
156 Result.Label6.Font.FontStyle := [ ];\r
157 // Result.Label7.TabOrder = -1\r
158 Result.Label7 := NewLabel( Result.GroupBox2, 'Track:' ).SetPosition( 12, 120 ).AutoSize( TRUE );\r
159 Result.Label7.Font.FontStyle := [ ];\r
160 // Result.Label8.TabOrder = -1\r
161 Result.Label8 := NewLabel( Result.GroupBox2, 'Genre:' ).SetPosition( 244, 120 ).AutoSize( TRUE );\r
162 Result.Label8.Font.FontStyle := [ ];\r
163 // Result.Label5.TabOrder = -1\r
164 Result.Label5 := NewLabel( Result.GroupBox2, 'Year:' ).SetPosition( 132, 120 ).AutoSize( TRUE );\r
165 Result.Label5.Font.FontStyle := [ ];\r
166 // Result.TitleEdit2.TabOrder = 0\r
167 Result.TitleEdit2 := NewEditBox( Result.GroupBox2, [ ] ).SetPosition( 84, 44 ).SetSize( 393, 21 );\r
168 Result.TitleEdit2.Color := clWindow;\r
169 Result.TitleEdit2.Font.FontStyle := [ ];\r
170 // Result.TagExists2.TabOrder = 0\r
171 Result.TagExists2 := NewCheckBox( Result.GroupBox2, '' ).SetPosition( 84, 20 ).SetSize( 17, 0 );\r
172 // Result.ArtisEdit2.TabOrder = 1\r
173 Result.ArtisEdit2 := NewEditBox( Result.GroupBox2, [ ] ).SetPosition( 84, 68 ).SetSize( 393, 21 );\r
174 Result.ArtisEdit2.Color := clWindow;\r
175 Result.ArtisEdit2.Font.FontStyle := [ ];\r
176 // Result.AlbumEdit2.TabOrder = 2\r
177 Result.AlbumEdit2 := NewEditBox( Result.GroupBox2, [ ] ).SetPosition( 84, 92 ).SetSize( 393, 21 );\r
178 Result.AlbumEdit2.Color := clWindow;\r
179 Result.AlbumEdit2.Font.FontStyle := [ ];\r
180 // Result.TrackEdit2.TabOrder = 3\r
181 Result.TrackEdit2 := NewEditBox( Result.GroupBox2, [ eoNumber ] ).SetPosition( 84, 116 ).SetSize( 33, 21 );\r
182 Result.TrackEdit2.Color := clWindow;\r
183 Result.TrackEdit2.Font.FontStyle := [ ];\r
184 // Result.YearEdit2.TabOrder = 4\r
185 Result.YearEdit2 := NewEditBox( Result.GroupBox2, [ ] ).SetPosition( 172, 116 ).SetSize( 57, 21 );\r
186 Result.YearEdit2.Color := clWindow;\r
187 Result.YearEdit2.Font.FontStyle := [ ];\r
188 // Result.GenreComboBox2.TabOrder = 5\r
189 Result.GenreComboBox2 := NewComboBox( Result.GroupBox2, [ coNoIntegralHeight ] ).SetPosition( 292, 116 ).SetSize( 185, 21 );\r
190 Result.GenreComboBox2.Color := clWindow;\r
191 Result.GenreComboBox2.Font.FontStyle := [ ];\r
192 Result.GenreComboBox2.CurIndex := 0;\r
193 // Result.CommenEdit2.TabOrder = 6\r
194 Result.CommenEdit2 := NewEditBox( Result.GroupBox2, [ ] ).SetPosition( 84, 140 ).SetSize( 393, 21 );\r
195 Result.CommenEdit2.Color := clWindow;\r
196 Result.CommenEdit2.Font.FontStyle := [ ];\r
197 // Result.TagVersionValue2.TabOrder = 8\r
198 Result.TagVersionValue2 := NewEditBox( Result.GroupBox2, [ ] ).SetPosition( 292, 19 ).SetSize( 185, 19 );\r
199 Result.TagVersionValue2.Ctl3D := False;\r
200 Result.TagVersionValue2.TabStop := FALSE;\r
201 Result.TagVersionValue2.Color := clWindow;\r
202 Result.TagVersionValue2.Font.FontStyle := [ ];\r
203 // Result.mFormatInfo.TabOrder = 3\r
204 Result.mFormatInfo := NewEditBox( Result.Form, [ eoMultiline, eoNoHScroll, eoReadonly, eoWantReturn ] ).SetPosition( 328, 440 ).SetSize( 489, 105 );\r
205 Result.mFormatInfo.Color := clWindow;\r
206 Result.mFormatInfo.Font.Color := clMaroon;\r
207 Result.mFormatInfo.Font.FontStyle := [ fsBold ];\r
208 Result.mFormatInfo.Font.FontHeight := -13;\r
209 Result.mFormatInfo.Font.FontCharset := 204;\r
210 // Result.btnSave.TabOrder = 4\r
211 Result.btnSave := NewButton( Result.Form, 'Save' ).SetPosition( 328, 556 ).SetSize( 93, 0 );\r
212 // Result.BAPDriveBox1.TabOrder = 5\r
213 Result.BAPDriveBox1 := NewBAPDriveBox(Result.Form, False);\r
214 Result.BAPDriveBox1.SetPosition( 8, 552 ).SetSize( 309, 24 );\r
215 Result.BAPDriveBox1.Color := clWindow;\r
216 Result.BAPFileBrowser.OnSelFile := Result.BAPFileBrowserSelFile;\r
217 Result.btnSave.OnClick := Result.btnSaveClick;\r
218 Result.BAPDriveBox1.OnChangeDrive := Result.BAPDriveBox1ChangeDrive;\r
219 Result.KOLFormFormCreate( Result );\r
220 \r
221 end;\r
222 \r