PHP Code:
program SlideShow;
var
i, n, lx, ly, tx, ty: Integer;
pic: array of Integer;
procedure Declareanddraw;
begin
SetLength(pic, 20);
for i := 2 to 9 do
begin
pic[i] := Loadbitmap('C:\bit\images_00'+inttostr(i)+'.bmp');
GetBitmapSize(pic[i], tx, ty);
if (tx > lx) then
lx := tx;
if (ty > ly) then
ly := ty;
SafeDrawBitmap(pic[i], GetDebugCanvas, random(150)*(random(9)+1),random(150)*(random(9)+1));
Wait(10 + Random(20));
end;
for i := 10 to 18 do
begin
pic[i] := Loadbitmap('C:\bit\images_0'+inttostr(i)+'.bmp');
SafeDrawBitmap(pic[i], GetDebugCanvas, random(150)*(random(9)+1),random(150)*(random(9)+1));
Wait(10 + Random(20));
end;
for i := 0 to High(pic) do
try
FreeBitmap(pic[i]);
except
end;
end;
begin
DisplayDebugImgWindow(600, 600);
for n := 1 to 50 do
begin
declareanddraw;
ClearReport;
AddToReport(inttostr(n));
end;
Writeln('Please change line 36 into: ' + Chr(13) + //whats this for? lol
'DisplayDebugImgWindow(' + IntToStr(lx + 150) + ', ' + IntToStr(ly + 150) + ');');
//how do I copy and save the debug image??
end.
i sped it up and made it repeat 50 times to eliminate black spots... all i need now is to save it to bmp.
Timer owns!!