« back to all changes in this revision
Viewing changes to frmYouTube.rbfrm
- browse files at revision 14
- compare with another revision
- download diff
- download tarball
- view history from revision 14
- Committer: Mike Yerou
- Date: 2010-04-01 10:17:38 UTC
- Revision ID: netcyrax@gmail.com-20100401101738-iprms3zovbuvarf5
Overwrite protection, Add to iTunes. Duplicate Profile.
- files modified:
- .mmc.rbuistate
added
removed
frmYouTube.rbfrm
7
7
Frame = 1
8
8
FullScreen = False
9
9
HasBackColor = False
10
Height = 137
10
Height = 1.37e+2
11
11
ImplicitInstance= True
12
12
LiveResize = False
13
13
MacProcID = 0
23
23
Resizeable = False
24
24
Title = "YouTube Downloader"
25
25
Visible = True
26
Width = 402
26
Width = 4.82e+2
27
27
Begin TextField txtIn
28
28
AcceptTabs = ""
29
29
Alignment = 0
31
31
BackColor = &hFFFFFF
32
32
Bold = ""
33
33
Border = True
34
CueText = ""
34
35
DataField = ""
35
36
DataSource = ""
36
37
Enabled = True
48
49
LockRight = ""
49
50
LockTop = ""
50
51
Mask = ""
51
Multiline = ""
52
52
Password = ""
53
53
ReadOnly = ""
54
54
Scope = 0
55
ScrollbarHorizontal= ""
56
ScrollbarVertical= True
57
Styled = ""
58
55
TabIndex = 0
59
56
TabPanelIndex = 0
60
57
TabStop = True
62
59
TextColor = &h000000
63
60
TextFont = "System"
64
61
TextSize = 0
62
TextUnit = 0
65
63
Top = 36
66
64
Underline = ""
67
65
UseFocusRing = True
68
66
Visible = True
69
Width = 320
67
Width = 400
70
68
End
71
69
Begin TextField txtOut
72
70
AcceptTabs = ""
75
73
BackColor = &hFFFFFF
76
74
Bold = ""
77
75
Border = True
76
CueText = ""
78
77
DataField = ""
79
78
DataSource = ""
80
79
Enabled = True
92
91
LockRight = ""
93
92
LockTop = ""
94
93
Mask = ""
95
Multiline = ""
96
94
Password = ""
97
95
ReadOnly = ""
98
96
Scope = 0
99
ScrollbarHorizontal= ""
100
ScrollbarVertical= True
101
Styled = ""
102
97
TabIndex = 0
103
98
TabPanelIndex = 0
104
99
TabStop = True
105
Text = ""
100
Text = "auto"
106
101
TextColor = &h000000
107
102
TextFont = "System"
108
103
TextSize = 0
104
TextUnit = 0
109
105
Top = 70
110
106
Underline = ""
111
107
UseFocusRing = True
112
108
Visible = True
113
Width = 267
109
Width = 344
114
110
End
115
111
Begin HTTPSocket HTTP
116
112
Address = ""
117
Enabled = True
118
113
Height = 32
119
114
Index = -2147483648
120
115
Left = -40
121
116
LockedInPosition= False
122
117
Port = 0
123
118
Scope = 0
124
TabIndex = 2
125
119
TabPanelIndex = 0
126
TabStop = True
127
120
Top = 92
128
Visible = True
129
121
Width = 32
130
122
yield = 0
131
123
End
144
136
LockTop = ""
145
137
Maximum = 100
146
138
Scope = 0
147
TabIndex = 3
148
139
TabPanelIndex = 0
149
TabStop = True
150
140
Top = 104
151
141
Value = 0
152
142
Visible = True
164
154
Index = -2147483648
165
155
InitialParent = ""
166
156
Italic = ""
167
Left = 230
157
Left = 236
168
158
LockBottom = ""
169
159
LockedInPosition= False
170
160
LockLeft = ""
176
166
TabStop = True
177
167
TextFont = "System"
178
168
TextSize = 0
179
Top = 99
169
TextUnit = 0
170
Top = 104
180
171
Underline = ""
181
172
Visible = True
182
173
Width = 99
193
184
Index = -2147483648
194
185
InitialParent = ""
195
186
Italic = ""
196
Left = 341
187
Left = 418
197
188
LockBottom = ""
198
189
LockedInPosition= False
199
190
LockLeft = ""
205
196
TabStop = True
206
197
TextFont = "System"
207
198
TextSize = 0
199
TextUnit = 0
208
200
Top = 72
209
201
Underline = ""
210
202
Visible = True
231
223
Scope = 0
232
224
TabIndex = 4
233
225
TabPanelIndex = 0
234
TabStop = True
235
226
Text = """"
236
227
TextAlign = 0
237
228
TextColor = 0
238
229
TextFont = "System"
239
230
TextSize = 12
231
TextUnit = 0
240
232
Top = 123
241
233
Underline = False
242
234
Visible = False
254
246
HelpTag = ""
255
247
Index = -2147483648
256
248
InitialParent = ""
257
Left = 353
249
Left = 433
258
250
LockBottom = ""
259
251
LockedInPosition= False
260
252
LockLeft = ""
264
256
TabIndex = 5
265
257
TabPanelIndex = 0
266
258
TabStop = True
267
Top = 3
259
Top = 1
268
260
UseFocusRing = True
269
261
Visible = True
270
262
Width = 29
272
264
Begin Separator Separator1
273
265
AutoDeactivate = True
274
266
Enabled = True
275
Height = 32
267
Height = 1
276
268
HelpTag = ""
277
269
Index = -2147483648
278
270
InitialParent = ""
288
280
TabStop = True
289
281
Top = 15
290
282
Visible = True
291
Width = 32
283
Width = 407
292
284
End
293
285
Begin StaticText StaticText1
294
286
AutoDeactivate = True
311
303
Scope = 0
312
304
TabIndex = 9
313
305
TabPanelIndex = 0
314
TabStop = True
315
306
Text = "URL:"
316
307
TextAlign = 0
317
308
TextColor = 0
318
309
TextFont = "System"
319
310
TextSize = 0
311
TextUnit = 0
320
312
Top = 38
321
313
Underline = ""
322
314
Visible = True
343
335
Scope = 0
344
336
TabIndex = 10
345
337
TabPanelIndex = 0
346
TabStop = True
347
338
Text = "File:"
348
339
TextAlign = 0
349
340
TextColor = 0
350
341
TextFont = "System"
351
342
TextSize = 0
343
TextUnit = 0
352
344
Top = 72
353
345
Underline = ""
354
346
Visible = True
366
358
Index = -2147483648
367
359
InitialParent = ""
368
360
Italic = ""
369
Left = 330
361
Left = 407
370
362
LockBottom = ""
371
363
LockedInPosition= False
372
364
LockLeft = ""
378
370
TabStop = True
379
371
TextFont = "System"
380
372
TextSize = 0
381
Top = 99
373
TextUnit = 0
374
Top = 104
382
375
Underline = ""
383
376
Visible = True
384
377
Width = 55
385
378
End
379
Begin PushButton btnAdd
380
AutoDeactivate = True
381
Bold = False
382
Cancel = ""
383
Caption = "Add"
384
Default = ""
385
Enabled = True
386
Height = 28
387
HelpTag = ""
388
Index = -2147483648
389
InitialParent = ""
390
Italic = ""
391
Left = 336
392
LockBottom = ""
393
LockedInPosition= False
394
LockLeft = ""
395
LockRight = ""
396
LockTop = ""
397
Scope = 0
398
TabIndex = 12
399
TabPanelIndex = 0
400
TabStop = True
401
TextFont = "System"
402
TextSize = 0
403
TextUnit = 0
404
Top = 104
405
Underline = ""
406
Visible = True
407
Width = 70
408
End
386
409
End
387
410
#tag EndWindow
388
411
389
412
#tag WindowCode
390
413
#tag Event
391
414
Sub Open()
392
Dim c as New Clipboard
393
dim sURL as String
394
If (c.TextAvailable=true) then
395
if (inStr(0,c.Text,"www.youtube.com") <> 0) then
396
txtIn.Text = c.Text
397
end if
398
End if
399
c.close
415
416
if (Window1.YouTubeQ = false) then // disable the auto-paste if the downloader works in a queue mode
417
Dim c as New Clipboard
418
dim sURL as String
419
If (c.TextAvailable=true) then
420
if (inStr(0,c.Text,"www.youtube.com") <> 0) then
421
txtIn.Text = c.Text
422
end if
423
End if
424
c.close
425
end if
400
426
End Sub
401
427
#tag EndEvent
402
428
553
579
f = new FolderItem(txtOut.Text)
554
580
Window1.lstIn.AddRow txtout.Text
555
581
Window1.outPath(f.AbsolutePath,f.DisplayName) // set output dir / file
582
583
if (Window1.YouTubeQ = true) then // process the next file if the downloader works in a queue mode
584
Window1.thrYouTube.Run
585
end if
586
556
587
frmYouTube.Close
557
588
558
589
else
635
666
#tag Events btnClose
636
667
#tag Event
637
668
Sub Action()
669
http.Close
670
frmYouTube.Close
671
End Sub
672
#tag EndEvent
673
#tag EndEvents
674
#tag Events btnAdd
675
#tag Event
676
Sub Action()
677
Window1.lstIn.AddRow ("Download :: " + txtIn.Text + " :: " + txtOut.Text)
638
678
frmYouTube.Close
639
679
End Sub
640
680
#tag EndEvent
Loggerhead is a web-based interface for Breezy
Version: 2.0.1