TAnimate.CommonAVI Property

Indicates whether the animation control displays a one of the common Windows AVI clips provided in Shell32.dll.

Pascal

property CommonAVI: TCommonAVI;

C++

__property TCommonAVI CommonAVI;

Description

Set CommonAVI to display one of the common Windows AVI clips in the animation control. The common Windows AVI clips appear in the Windows user interface when the user attempts common file actions. CommonAVI is aviNone when the animation control displays an AVI clip that was specified in some other manner.

Setting CommonAVI automatically sets the FileName property to an empty string, ResHandle and ResId to 0, and ResName to an empty string.

Note: CommonAVI cannot be used when running under NT 3.51.

C++ Examples:

Copy Code

/*
To run this example, create a new project, place a button on
the form, and insert the example code to the button click
event. Place the button on the bottom of the form to leave
room for the TAnimate component that will be created on the
fly.
*/

#include <memory>       //for STL auto_ptr class

void __fastcall TForm1::Button1Click(TObject *Sender)
{
//  TForm *TempForm = new TForm(this); // The owner (TempForm) would clean this up.
                                     // But we want the form to go away when the proc exits.
  std::auto_ptr<TForm> TempForm(new TForm(this));
  TAnimate *pAnimate = new TAnimate(TempForm.get());   // The owner (TempForm) will clean this up.
  pAnimate->Parent = TempForm.get();
  pAnimate->CommonAVI = aviFindFile;
  pAnimate->Active = true;
  TempForm->Show();
  // Simulate a lengthy process.  Alter this value
  // to accommodate your machine speed.
  for (int i = 0; i < 90000000; i++)
    Application->ProcessMessages();
}

Delphi Examples:

Copy Code

{
To run this example, create a new project, place a button on
the form, and insert the example code to the button click
event. Place the button on the bottom of the form to leave
room for the TAnimate component that will be created on the
fly.
}
procedure TForm1.Button1Click(Sender: TObject);
var
  TempForm: TForm;
  I: Integer;
begin
  TempForm := TForm.Create(Self);
  with TAnimate.Create(TempForm) do
  try
    Parent := TempForm;
    CommonAVI := aviFindFile;
    Active := True;
    TempForm.Show;
    // Simulate a lengthy process.  Alter this value
    // to accommodate your machine speed.
    for I := 0 to 90000000 do Application.ProcessMessages;
  finally
    TempForm.Release;
  end;
end;