///////////////////////////////////////////////////////////////////////////////
// Filename:    AnimateDisp.WFM                                              //
// Written for: dBASE (32-bit versions)                                      //
// Written by:  Jim Sare - dBASE Inc. R&D Group                              //
// Copyright:   Copyright © dBASE Inc. 2002                                  //
// Purpose:     Template form for using the Animate custom class in a dBL    //
//              application. You might want to use this form 'as-is' as a    //
//              simple dialog to display while a long operation is being     //
//              performed in a dBL application. Or resize and redesign the   //
//              form and add other controls in addition to the Animate       //
//              control. The Animate control can also simply be added to     //
//              existing dBL application forms in the Form Designer.         //
// Run From:    <InstallRoot>\dBLClasses\Forms (use :Forms: SourceAlias)     //
//              NOTE: Can be moved and run from any folder.                  //
// Usage:       DO :Examples:AnimateDisp.WFM                                 //
// Parameters:  None                                                         //
// See Also:    :Samples:AnimateDemo.WFM for a form which can be used to     //
//              preview various AVI files and select AVI files to be used in //
//              your dBL applications.                                       //
///////////////////////////////////////////////////////////////////////////////
// Versioning and History comments:
#define ANIMATEDISPVERSION   "1.00"  // 04/19/2002 Original release version.

** END HEADER -- do not remove this line
//
// Generated on 04/17/2002
//
parameter bModal
local f
f = new AnimateDispForm()
if (bModal)
   f.mdi = false // ensure not MDI
   f.readModal()
else
   f.open()
endif

class AnimateDispForm of FORM
   set procedure to :FormControls:Animate.CC additive
   with (this)
      metric = 6	// Pixels
      height = 80
      left = 371
      top = 0
      width = 280
      text = "Application Title"
      autoCenter = true
      mdi = false
   endwith

   this.ANIMATE1 = new ANIMATE(this)
   with (this.ANIMATE1)
      onOpen = class::ANIMATE1_ONOPEN
      height = 40
      left = 11
      top = 6
      width = 260
   endwith

   this.TEXTLABEL1 = new TEXTLABEL(this)
   with (this.TEXTLABEL1)
      height = 22
      left = 0
      top = 54
      width = 280
      text = "Information Message Here"
      borderStyle = 2	// Lowered
      alignHorizontal = 1	// Center
   endwith


   function ANIMATE1_onOpen
      // TASK: Change the AVI filename below to open the desired AVI file.
      this.open(":Movies:DataBaseQuery3.AVI")
      return
endclass