home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CICA 1994 September
/
CICA_Shareware_for_Windows_Walnut_Creek_September_1994.iso
/
win3
/
toolbook
/
avisamp.tbk
(
.txt
)
< prev
next >
Wrap
Asymetrix ToolBook File
|
1993-02-17
|
11KB
|
200 lines
System
System
Fun with AVI
\D|D|
--Copyright
1992
Asymetrix Corporation
gives you permission
e, revise
reuse the
--individual
scripts
your own
--applications.
You may
x, however,
Sentire
--substantial part
redistribution
jproduct.
retains
copyright on
original elements
. Include
notice "Portions
are
they
--contain
copied
,: JRG
Q: 01/21/93
linkDLL "user"
--
function
used
INT MoveWindow(WORD,
Stbkwin.dll"
--
Rreturns coordinates
screen units
--
takes
%a parameter
--
Popup
Overlapped
-- windows
STRING screenFromPage(
--
client
--
--
Child
pclientFromPage(
,INT,
enterBook
enterBook
MoveWindow
tbkwin.dll
screenFromPage
clientFromPage
winStyle
Popup
fileName
C:\TOOLBOOK\wndsurf1.avi
Play AVI
AVIrect
the aVI
still playing
tbkMCI("status AVIfile mode","")
"","")
=close
6","")
buttonUp
buttonUp
status AVIfile mode
tbkMCI
playing
stop AVIfile
tbkMCI
close AVIfile
tbkMCI
Stop AVI
winStyle
buttonUp
buttonUp
winStyle
Popup
Popup
Overlapped
Overlapped
Child
Child
ButtonUp
4fileName
OpenDlg("\", "*.avi", "Choose
,.", "
File")
ButtonUp
ButtonUp
*.avi
Choose an AVI file.
Choose AVI File
OpenDlg
fileName
choose
Choose AVI
-- The DLLs used
handler are linked/unlinked
4fileName
has been
--
xload
ButtonUp
B"Choose"
tbkMCI("close AVIfile","")
style
radio buttons.
a user property
called winStyle.
-- Open
w="child"
tbkMCIchk("
" && filename && "alias
" &&
&& "
" &&
,"",1,1)
" &&
" &&
,"",1,1)
hWin
}status
","",1,1)
-- Determine
coordinates
wRect
clientFromPage(
sysMagnification,
"AVIrect"
screenFromPage(
--Break
x,y,width,height
nWidth
nHeight
MoveWindow(
,x,y,
state
","")
play
default
message
sent
stops playing
-- closes
tbkMMNotify
,op,dev
le","")
buttonUp
tbkMMNotify
buttonUp
ButtonUp
Choose
close AVIfile
tbkMCI
winStyle
child
filename
alias AVIfile style
parent
tbkMCIchk
filename
alias AVIfile style
tbkMCIchk
status AVIfile window handle
tbkMCIchk
child
AVIrect
clientFromPage
AVIrect
screenFromPage
MoveWindow
window AVIfile state show
tbkMCI
play AVIfile
tbkMCI
default
nHeight
nWidth
wRect
style
fileName
tbkMMNotify
AVIfile
close AVIfile
tbkMCI
o8LL/f
LLLLQf
)?CO8