Category : Early Multimedia Files
Archive   : RTBK153.ZIP
Filename : TBKMM.SBK
OpenDlg(²
,²
,²
,²
)à ¢à <> yÚÐ <> 0à Î"TBKDLG.Ð*xÉ}ÄÎ ÁsxÂqà ¢àà -- ÚG,cß>dà readdmmà 1susà °¨à¢ààmultimediaà Û"winhelp.exe Ñ".hlp"à¢àààtbkmmdevices à 4s_mmdevicesà ÒÈ à¢àà°,à °¨à Äsà¢ààÄ{à ZÀtà Ày ²1à 1°à $,±f("Multimedia") ±yà eyc"Help" )°,à e"&È- c"Ã)°,à ¢à 1ÀÛà¢àà-- stub so some Óò will Ð without ES boxesàcheckdeviceà¢àà-- General utility functionsà-- Someday, ToolBook ÂZhave built-Âdata type checking àisNumber xà sus ³à °à [³rà x + 0à ³rà À'à Ò(ʱy)à¢ààà--repair 3D }resizing themàsizedà Zsnap, txCN, hi, loà à Á ³xà x°à txClassName >Á/à $,Á; <> ±yà °bà T1 2 ÁT "3D"à Î"Repair 3D {Å?" f"&Yes" "&No"à Êc"No"àÿ °¨àÿ >Â®à ¢à sysSuspendMessages ²Pà recessed (ÁÑ c"Å")\à ðÆ>²Pà Å'àÿ 1 hiàÿ 2 loà ° àÿ 2 hiàÿ 1 loà ¢à °bà Ð3 c"3DFrame"àÿ =Ìhi }²>àÿ =Ìlo }> \à ð Ì1 Ê+ 15, Ì2 Ê+ 15,\à ð Ì3 Ê+ 15, Ì4 Ê+ 15à а "3DField"à Ðà "3DRect"àÿ -- znothingà ° àÿ =Ì3 }²>àÿ =Ìhi }> \àÿ Ì1 Ê- 15, Ì2 Ê- 15,\àÿ Ì3 Ê- 15, Ì4 Ê- 15àÿ =Ìlo }> \àÿ Ì1 Ê+ 15, Ì2 Ê+ 15,\àÿ Ì3 Ê+ 15, Ì4 Ê+ 15à ¢à ° à °¨à ¢à ° à °¨à ¢à xÐÃà¢ààà-- Slider control Þbegins hereà-- NOTES ABOUT IDENTIFIERSà-- s___ prefix ->ð4²^à-- Ç ->ðÕEhandler Ñ&only Hmeà
{locà Ø%²>à ʱyà °¨à ° à OK >°à >²{à ¢ä Êc"Thumb"ä ___setSliderLimits ÀY ²>ä ° ä °¨ä ¢ä¢à¢àà|Àuä4s___v, s___min, s___max, s___päؼ²>äʱyä °¨ä° à OK >°\à ð³(²ú) down\à ðÂ@ = ÀÛä >²|ä ¢ä ä ÂV Àð -- flag prevent updating mouse xmovedä ä °bä § <> yÊ"HSliderThumb"à ò n>±j(ž\à ñ ðb(ÅÓÌ1 loc - Âç)),\à ñ ðÌ2 £²>ä s > \ä ð___slidePos(Ì1 £²>, Ü#)ä Ñ1 <> yÊ"VSliderThumb"à ò n>Ì1 £²>, \à ñ ð±j(Õ\b(ÔkÌ2 ÃÑ|))ä s > \å ð1 - ÉÌ2 £²>, Ü)à ° à °¨à ¢à ¢à¢àà²}ä4ßÆ׶äØj²>äʱyã °¨ã ° ä OK >°ä >²}ä ¢ä °bä Óú <> yÊ"ÙXä sliderPosition > \ä ð___snapSlider\ä ð(Ø3Ì1 £²>, ÜM),\ä ð²>)á ñ Ó_ <> yÊ"Ù5á ñ Ìd> \ä ðËWä ð(1 - Ø Ì2 £²>,\ä ðÿ ܦ), ²>)à ° à °¨à ¢à Ó <> ±yä [Ñ×ä [ÓØä [Ó×ä [ÑÖä ¢ä¢à¢àààß2locä4ßÐ÷ä°bäØ>"Ùbà òglide Ì1 }²>à òÓ2 Ì1 £Â"à ò=²>à òwidth Ì3 Ê- Ì1 °Êà òÓa Ì3 =ÃZ- Â)à òФ<> ±yà öÑ Ì1 ÒºÌ1 °Êà ò¢à ØJ>"Ùwà òÃÌ1 }²>à òÓË Ì2 £Â»à ò=²>à òheight Ì4 Ê- Ì2 °Êà òÓû Ì4 =Ãô- Ã*à òÐ><> ±yà öÑ. Ì2 ÒTÌ2 °Êà ò¢à ¢à¢àà×> p, s1, s2à Ò±b(0,(p - s1) /(s2 - s1))à¢ààÚjà Òs ²>à¢ààÛ|pà 4ÔÓà {>"°´"à thumb JÌ}²>à ØdÂà Êc"Øà -- Another ÒÓ Ð>be controlling oneà OldMin Óà OldMax Óà à ßeÂà p ±j(1,(±b(0,p)))à °bà Ê"vSliderThumb"àÿ pOffset Óq + (Óo - Ó~) * (1-p)àÿ newPos Ì1 £Âð, Ä8à Ê"hSliderThumb"àÿ ÅUÓà + (ÓÁ - ÓÐ) * pàÿ ÄKÄu, Ì2 £Ñ@à ¢à Äg<> yÄp<> £Ñ^àÿ nÒgÃ à ¢à s >pà à -- Restore state ¤Ò7, °à ÓT ÒSà ÓX ÒPà ° à °¨à ¢à ° à °¨à ¢à¢ààÙ` p, Ñæá detentList Òødetentsá Ä ±yà Òpà ° à catchRange 0.04à cÄ0 <> ±yà ¢Ä>à p > Ê- È/p < Ê+ Ç;àÿ Ò°Êà ¢à ¢à Òpà ¢à¢àà--- Ò Ô!Þends Ðààà-- This initialization usually Ñîruns ONCE, unless Ñ8 app callsà-- Ѳ4.àtbkmmInitializeSystem à 4Ô, ×
à Zsusà à Ðå³à °à à [²à Ú 0à à -- XÐÄ asure MME loadedà X"mmsystem.Ð§à ¢à ²à X"Å"à °Ê<>±yà killtbkmmsbk 1 ±êà °¨à °>à ¢à à [²à Ú# 0à à X"ÂÕ.Ðà -- guy private (exported, but undocumented)à
tbkmmloadextensions( )à à -- The м these are Шstandard ÇL entry pointsà ²
tbkmmversion()à ²
Ý´ )à à -- MCI central interfaceà
ÒM( ²
,
)àà -- parallel À5; MMSYSTEMà
tbkTimerStart( ²
, ²g, ²g,
)à ²
tbkTimerStop( g)à
tbkTimerCapability()àà -- Utility Õ=è\ MilliSecFromMSF(
)è\ MilliSecFromHMS(
)è\ MilliSecFromSMPTE( ²
, g)è
MSFFromMilliSec( )è
HMSFromMilliSec( )è
SMPTEFromMilliSec( °, g)à ¢à à <> yÚ< <> 0à Ôç ±yà susà Î"TBKMM.Ъlink failed"à >²4à ¢à à Óxà à -- ÑÐdll ÐØ Ð©extended ÒU supportà [°Êà [²à ÚÅ 0àà ×m ßh( )à ÚÝ <> 0 Úè > 1ÿ0à ÎÝØÚú)à Ú 0à [²à ¢à À¿à¢àà-- End Scriptà Rï© d "°
P*à û ÉR ¨7¾h öäÉ\ ²Ï ZÓË Háy Ççs á addmm enterbook checkdevice multimedia sized buttonDown enterSystem buttonStillDown buttonUp author ___setSliderLimits readdmm tbkmmInitializeSystem ^
K ¬ È5 .h0} TrB ,Òs Ød d ÀÙX MCIchk tbkmmdevices isNumber tbkBitmapChk ___slidePos sliderPosition tbkMCIchk ___snapSlider Ø
sliderPosition ð z F tbkMCIchk ?q굪¬ ªqê·ª· ·Ïtbkmci ªµ¬ ½à ·« ½ª- bµÏtbkmmerrorstring ª·« ½ª qêµ
ª¬ ª(e·ª retVal brk req notif cmd Â{ ªç ~ âz ð ê ~ h¿tbkBitmapChk ?q굪¬ ªqê·ª· ÏtbkBitmap ªµ¬ ½à ·« ½ª- bµÏtbkmmerrorstring ª·« ½ª qêµ
ª¬ ª(e·ª retVal brk req cmd Â{ ~ â~ ÚB D N -r enterSystem ~ qê· ªñªoZÓtbkMMInitializeSystem êµAª0 s_mminit ²mD 5B£úenterbook ~ ?qê·ªµª· ñ½ª enterSystem _êµ
ªq굪¬ ª«tbkwin.dll ªYieldApp µ
« ½á µ¬ ½ª5 b«TBKWIN.DLL not found. Some widgets may not work ª_êµ
ªq굪¬ ª«tbkdlg.dll ªOpenDlg µ
« ½á µ¬ ½ª5 b«TBKDLG.DLL not found. Some widgets may not work ªP*readdmm q굪·ª0 sus s_mminit ²m9Ë5® 3 4 ¡7 multimedia f«winhelp.exe tbkmm.hlp ª Æ " . ÞC tbkmmdevices ~ e· ª s_mmdevices åå" ä # $ %. author 0P*readdmm öØ s x Wreaddmm ? qê· ªµªq굪ñªµ>ñ½à «Multimedia ë « ½ª% « ª«Help ª«&Multimedia