var
Pics: array[0..9] of TJPEGImage;
Stop: boolean = true;
procedure TForm1.Button1Click(Sender: TObject);
begin
Stop := not Stop;
if not Stop then
Form1.BeginInvoke(
procedure
var
i: integer;
Ticks: uint64;
begin
Image1.Picture.Bitmap.Assign(Pics[0]);
while not stop do
begin
Ticks := GetTickCount64;
for i := 0 to 9 do
begin
Image1.Picture.Bitmap.Assign(Pics[i]);
Application.ProcessMessages;
end;
Ticks := GetTickCount64 - Ticks;
Label1.Caption := Format('%0.3f fps', [10000.0 / Ticks]);
end;
end
);
end;
procedure TForm1.FormCreate(Sender: TObject);
var
i: integer;
begin
for i := 0 to 9 do
begin
Pics[i] := TJPEGImage.Create;
Pics[i].LoadFromFile('d:\temp\wallpaper\' + PicNames[i]);
end;
end;
procedure TForm1.FormDestroy(Sender: TObject);
var
i: integer;
begin
for i := 0 to 9 do
Pics[i].Free;
end;