[futurebasic] Re: [FB] MidWorld Lite

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : May 2002 : Group Archive : Group : All Groups

From: Robert Covington <artlythere@...>
Date: Thu, 30 May 2002 23:11:49 -0400
>Robert
>
>I only have Release 5 &6 examples and when I make the changes you suggest it
>compains about
>
>MCRect not being dimensioned and also the last parameter of FN FBQTOpen
>
>Do you have a later eg you can look at?

I think you are using the New Quicktime Player Project, not the older one
called Quicktime Player, that explains both your errors.

For the new one use this...

FN FBQTOpen(gMovieBlk&,"",0, myMovieLeft, myMovietop)

Then find the line like this in FN FBQTOpen in the QuicktimePlayer.incl

Call offsetrect(BoxRect,WndID%*16-8,WndID%*16+30)

and change it to something like...

Call offsetrect(BoxRect,MovieLeft%,MovieTop%)

where you have speced how far from left and top you want the movie to be...

For a top left corner, I would suggest 7,43

CASE _iOpenCont     : FN FBQTOpen(gMovieBlk&,"",0,7,43)

This is actually much easier than with the other example.

Robert

>Martin
>
>> But using the FB Quicktime Player example.... (R4
>> Examples/'Graphics/Quicktime'/QuickTime Player Project)
>>
>> Change the line in FBQTOpen for the Window from one with all the x,y mess
>> to just :
>>
>> WINDOW WndID%,FSName$,(MovieTop%,
>>
>>MovieLeft%)-(MovieTop%+MCRect.Right%,MovieTop%+MCRect.Bottom%),_DocNoGrow_update
>> VisRgn'build the window
>>
>> (beware the line wrap)
>>
>> And in the Menu choice area add:
>>
>> DIM myMovieLeft, myMovietop
>> myMovieLeft = 100
>> myMovietop  = 100
>> FN FBQTOpen(gMovieBlk&,"",0, myMovieLeft, myMovietop,0)
>>
>> Robert Covington
>>
>> --
>> To unsubscribe, send ANY message to <futurebasic-unsubscribe@...>
>
>
>
>
>
>--
>To unsubscribe, send ANY message to <futurebasic-unsubscribe@...>