play.pas

纸牌程序代码源于一个古老的纸牌算命

unit play;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ImgList, StdCtrls, Menus;

type
  TForm1 = class(TForm)
    Animate1: TAnimate;
    MainMenu1: TMainMenu;
    file1: TMenuItem;
    open1: TMenuItem;
    close1: TMenuItem;
    N1: TMenuItem;
    exit1: TMenuItem;
    control1: TMenuItem;
    play1: TMenuItem;
    stop1: TMenuItem;
    forward1: TMenuItem;
    backward1: TMenuItem;
    display1: TMenuItem;
    tool1: TMenuItem;
    frame1: TMenuItem;
    playButton: TButton;
    stopButton: TButton;
    forwardButton: TButton;
    backButton: TButton;
    frameTrack: TTrackBar;
    ImageList1: TImageList;
    ImageList2: TImageList;
    OpenDialog1: TOpenDialog;
    procedure open1Click(Sender: TObject);
    procedure playButtonClick(Sender: TObject);
    procedure stopButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.open1Click(Sender: TObject);
begin
if opendialog1.Execute then
  begin
     with animate1 do
     begin
       filename:=opendialog1.FileName;
       open:=true;
       startframe:=1;
       stopframe:=framecount;
     end;
  end;
end;

procedure TForm1.playButtonClick(Sender: TObject);
begin
{animate1.Play();};
end;

procedure TForm1.stopButtonClick(Sender: TObject);
begin
animate1.Stop;
end;

end.