unit test;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls,picturescroller,jpeg, ExtCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Image1: TImage;
    Label1: TLabel;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Button5: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  p : TPictureScroller;

implementation

{$R *.DFM}

procedure hello;
begin
beep;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
n : integer;
j : tjpegimage;
bmp : tbitmap;
fn : string;
begin
p:=tpicturescroller.create(form1);
p.remote:=true;
p.color:=clblack;
p.width:=form1.width-200;
p.height:=form1.height-50;
j:=tjpegimage.create;
bmp:=tbitmap.create;
p.across:=4;

form1.doublebuffered:=true;

label1.tag:=0;
n:=350;
while (n<400) do begin
inc(n);
fn:='c:\temp\pstest\DSCF0'+inttostr(n)+' (small).jpg';
p.Visible:=false;
if fileexists(fn) then begin
    j.loadfromfile(fn);
    bmp.assign(j);
    image1.picture.Assign(bmp);
    application.processmessages;
    p.add(bmp);
    label1.tag:=label1.tag+1;
end;
end;

p.visible:=true;

label1.caption:=inttostr(label1.tag);
end;




procedure TForm1.Button2Click(Sender: TObject);
begin
p.moveup;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
p.movedown;
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
p.moveleft;
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
p.moveright;
end;

end.