Index
» Empathy Jukebox : Blob ec4a8d / Standalone_Components / TPictureScroller component / test.pas
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.