FullCollection / Семинары / NNN / all / nnn / Motor / FLIPLAYR / FLICCOMP

unit Fliccomp;

interface

uses
  SysUtils, WinTypes, WinProcs, Messages, Classes,
  Graphics, Controls, Forms, Dialogs, ExtCtrls;

type
  TFlicPlayer = class(TCustomPanel)
  private     { Private-Deklarationen }
    AAHandle : Integer;
    FFileName: String;  {Name der FLI-Datei}
    FAutoPlay: Boolean; {Bei True wird FLI gestartet}
    FFrames  : LongInt; {Anzahl der Einzelbilder}

    Procedure SetFileName(AFileName: String);
    Procedure SetAutoPlay(AAutoPlay: Boolean);
    Procedure SetPosition(APosition: LongInt);
    Function  GetPosition: LongInt;
  protected
    { Protected-Deklarationen }
  public                  
    { Public-Deklarationen }

  published
    { Published-Deklarationen }
    Procedure Play;
    Procedure Stop;
    Procedure Pause;
    Procedure Next;
    Procedure Previous;

    Property Frames   : LongInt Read FFrames;
    Property Position : LongInt Read GetPosition Write SetPosition;

  published  { Wird im ObjectInspector angezeigt }
   {Properties des Vorfahren, die dort "nur" public oder protected
    waren auch im ObjectInspektor anzeigen = sichtbar machen       }
    Property BevelInner;
    Property BevelOuter;
    Property BevelWidth;
    Property BorderStyle;
    Property BorderWidth;
    Property Color;
    Property Enabled;
    Property ParentColor;
    Property ParentShowHint;
    Property ShowHint;
    Property Visible;

    Property OnClick;{Eine Schnittstelle fьr den Programmierer schaffen}

   {Eigene Eigenschaften}
    Property FileName : String  Read FFileName Write SetFileName;
    Property AutoPlay : Boolean Read FAutoPlay Write SetAutoPlay;
  end;

procedure Register;

implementation

  Uses AAProcs;

  Procedure TFlicPlayer.SetFileName(AFileName: String);
  Const FirstTime : Boolean = True;
  Var   Rand      : Integer;
  Begin
    If FirstTime Then AAOpen;
    FirstTime := False;
    Rand := BorderWidth;
    If BevelInner <> bvNone Then Rand := Rand + BevelWidth;
    If BevelOuter <> bvNone Then Rand := Rand + BevelWidth;
    AAUnLoad(AAHandle);
    If FileExists(AFileName) Then
    Begin
      FFileName := ExpandFileName(AFileName);
      AAHandle  := AAPLoad(AFileName, Self);
      AASetParm(AAHandle, AA_X,Rand, 0);
      AASetParm(AAHandle, AA_Y,Rand, 0);
      Width     := AAGetParm(AAHandle, AA_WIDTH)  + 2 * Rand;
      Height    := AAGetParm(AAHandle, AA_HEIGHT) + 2 * Rand;
      FFrames   := AAGetParm(AAHandle, AA_FRAMES);
      If FAutoPlay Then AAPlay(AAHandle);
    End Else FFileName := '';
  End;

  Procedure TFlicPlayer.SetAutoPlay(AAutoPlay: Boolean);
  Begin
     FAutoPlay := AAutoPlay;
     If AAutoPlay Then AAPlay(AAHandle)
                  Else AAStop(AAHandle);
  End;

  Procedure TFlicPlayer.SetPosition(APosition: LongInt);
  Begin
    aaSetParm(AAHandle, AA_Position, 0, APosition);{Bildnummer setzen}
  End;

  Function TFlicPlayer.GetPosition: LongInt;
  Begin
    Result := aaGetParm(AAHandle, AA_POSITION);  {Aktuelle Bildnummer}
  End;

  Procedure TFlicPlayer.Play;
  Begin
      AAPlay(AAHandle);
  End;

  Procedure TFlicPlayer.Stop;
  Begin
      AAStop(AAHandle);
  End;

  Procedure TFlicPlayer.Pause;
  Begin
      AAPause(AAHandle);
  End;

  Procedure TFlicPlayer.Next;
  Begin
    If Position < Frames-1 Then Position := Position +1
                           Else Position := 0;
  End;

  Procedure TFlicPlayer.Previous;
  Begin
    If Position > 0 Then Position := Position - 1
                    Else Position := Frames - 1;
   End;

  procedure Register;
  begin
    RegisterComponents('Flics', [TFlicPlayer]);
  end;

end.