Contents

Number of CD Tracks - MCI

Added on 1/28/2000

Compatibilities:
behavior D6_5

This item has not yet been rated

Uses MCI to get the number of CD tracks

--JDP EasyBehavior - 1999 JDP - Julio Diniz Perdigao

property  campo2, Event, mode

on initGotoFrame me
  init me
end

on mouseUp me
  if Event = #mouseup    then init me
end

on mouseDown me
  if Event = #mouseDown   then init me
end
on mouseEnter me
  if Event = #mouseEnter    then init me
end

on mouseLeave me
  if Event = #mouseLeave    then init me
end

on enterFrame me
  go to the frame
  if Event = #enterFrame  then init me
end

on exitFrame me
  go to the frame
  if Event = #exitFrame  then init me
end

on init me
  if the mode of me = #"track" then
    mci "open cdaudio"
    mci "set cdaudio time format tmsf"
    mci "status cdaudio number of tracks"
    put the result into field (the campo2 of me)
    mci "close cdaudio"
  end if
end

on getPropertyDescriptionList
  set p_list = [ ¬
    #Campo2: [ #comment:   "FieldResult:", ¬
                    #format:   #field, ¬
                   #default:     1 ], ¬
  #Event: [ #comment:   "Handler:", ¬
                    #format:   #symbol, ¬
                     #range: [ #MouseUp, #MouseDown, #MouseEnter, #MouseLeave, #EnterFrame, #ExitFrame], ¬
                   #default:   #MouseUp ], ¬
      #Mode: [ #comment:   "Type:", ¬
                    #format:   #symbol, ¬
                     #range: [ #"Track"], ¬
                   #default:   #"Track" ] ¬
  ]
  return p_list
end

Contact

MMI
36 South Court Sq
Suite 300
Newnan, GA 30263
USA

Send e-mail