Play

// Главная форма
frm=new TForm();
frm.Caption="JS+ - метод компонента TAnimate Play";

// Строка состояния
stb=new TStatusBar(frm);
stb.SimpleText=' Нажмите кнопку "Play"';

// Панель
pnl=new TPanel(frm);
pnl.BorderStyle=bsSingle;
pnl.Left=pnl.Top=15;

// Видео-плеер
anm=new TAnimate(pnl);
anm.Color=clWhite;
anm.CommonAVI=aviRecycleFile;

// Подогнать размер панели под размер ролика
pnl.ClientWidth =anm.Width;
pnl.ClientHeight=anm.Height;

// ToolBar
tlb=new TToolBar(frm);
tlb.DrawingStyle=dsGradient;
tlb.EdgeBorders=ebBottom+ebLeft+ebRight+ebTop;
tlb.EdgeInner=esRaised;
tlb.ButtonMargin=2;
tlb.Align=alNone;
tlb.Top=pnl.Top+pnl.Height+15;

for (i=0;i<3;i++) {
  tbt=new TToolButton(tlb);
  tbt.Style=tbsButton;
  tbt.ShowHint=true;

  switch (i) {
    case 0: tbt.Name=tbt.Hint="Play"; break;
    case 1: tbt.Style=tbsSeparator; tbt.Width=3; continue;
    case 2: tbt.Name=tbt.Hint="Stop";
  }

  tbt.LoadImage(
  JSPlus.HelpDir+"IMAGE\\TAnimate\\"+tbt.Name+".ico");
  tbt.OnClick=tbt_Click;
}
tlb.Left=pnl.Left+(pnl.ClientWidth-tlb.Width)/2;

// Подогнать размер формы под размер панели
frm.ClientWidth =pnl.Left*2+pnl.Width;
frm.ClientHeight=tlb.Top+tlb.Height+15+stb.Height;

frm.ShowModal();

// Обработчик события OnClick
function tbt_Click(tbt)
{
  switch (tbt.Name) {
    case "Play": anm.Play(1,anm.FrameCount,0);
                 stb.SimpleText=' Нажмите кнопку "Stop"';
                 break;

    case "Stop": anm.Reset();
                 stb.SimpleText=' Нажмите кнопку "Play"';
  }
}