CX_MULTIMEDIA_STREAM::Position

Module(X)
[
    Var(video)
]
Window(win, 23, 23, 900, 120, "Video")
{
  Menu
  {
    Item(PlayVideo)
    [
        SELECT: CreateTransObject(CX_VIDEO) -> video,
        "d:\\ClassiX\\Bmp\\about.avi" video Call(Open)
        Widget(win, g) video Call(RegisterWindow)
    ]
  }
  Button(stop, 55 , 2, 50 , 10, "Stop") 
  [ SELECT : video Call(Stop) 
             video Call(Position) 
             PutValue(,pos) 
  ]
  Button(play, 2 , 2, 50 , 10, "Play") 
  [ SELECT : video Call(Play) ]
  Integer(pos, 120, 2, 80)
  Group(g, 10, 10, 800, 80, "Video")
}