Таймер на паузу

[yulia]

Подскажите, пожалуйста, как поставить таймер на паузу?Т.е. чтобы по клику мышки на форме он не останавливался и начинался потом заново, а именно чтобы пауза ставилась с сохранением всех текущих значений переменных...

[Sm1Le]

Быть Может Код есть ?

[yulia]

конечно есть )))

procedure TForm1.Timer1Timer(Sender: TObject);
var i,j:byte;
cs,sn:real;
min:real;
min_pos:byte;
box,get:TRECT;
begin
 g:=0.5;
 if g>2*pi then g:=0;

 for i:=1 to v_n do
  begin
   planets[i].grad:=planets[i].grad+planets[i].vec;
   if planets[i].grad>2*pi then planets[i].grad:=0;
   if planets[i].grad<0 then planets[i].grad:=2*pi;
   cs:=cos(planets[i].grad);
   sn:=sin(planets[i].grad);

   newPoints[i].x:=points[i].x*cs+points[i].z*sn;
   newPoints[i].y:=points[i].y;
   newPoints[i].z:=-points[i].x*sn+points[i].z*cs;


   newPoints[i].x:=newPoints[i].x;
   newPoints[i].y:=newPoints[i].y*cos(g)-newPoints[i].z*sin(g);
   newPoints[i].z:=newPoints[i].y*sin(g)+newPoints[i].z*cos(g);

   Viewpoints[i].x:=((newpoints[i].x*dest/(dest+newpoints[i].z))*80)+(image1.Width/2);
   Viewpoints[i].y:=((newpoints[i].y*dest/(dest+newpoints[i].z))*80)+(image1.Height/2);
   Viewpoints[i].z:=newpoints[i].z;
   planets[i].pos:=Viewpoints[i];
  end;
 image1.Canvas.Lock;
 image1.canvas.Brush.Color:=clblack;
 image1.canvas.CopyRect(image1.Canvas.ClipRect,image3.Canvas,image3.Canvas.ClipRect);
 image1.Canvas.Brush.Color:=clred;
 image2.Canvas.Brush.Color:=clwhite;
 image2.Canvas.Pen.Color:=clwhite;
 for j:=1 to v_n do
   begin
   min:=planets[1].pos.z;
   min_pos:=1;
   for i:= 2 to v_n do
      if planets[i].pos.z>min then
           begin
             min:=planets[i].pos.z;
             min_pos:=i;
           end;
   planets[min_pos].pos.z:=-3000;
   draw_posled[j]:=min_pos;
   end;
 for i:= 1 to v_n do
   begin
    begin
      image2.Canvas.Rectangle(image2.Canvas.ClipRect);
        box.Left:=0;
        box.Top :=0;
        box.Right:=round((planets[draw_posled[i]].image.Graphic.Width)*des/(des+Viewpoints[draw_posled[i]].z));
        box.Bottom:=round((planets[draw_posled[i]].image.Graphic.Height)*des/(des+Viewpoints[draw_posled[i]].z));

        get.Left:=0;
        get.Top:=0;
        get.Right:=planets[draw_posled[i]].image.Bitmap.Width;
        get.Bottom:=planets[draw_posled[i]].image.Bitmap.Height;
        image2.Transparent:=true;
        image2.Picture.Bitmap.TransparentColor:=$FFFFFF;
        image2.Picture.Bitmap.Transparent:=true;
        image2.Canvas.copyRect(box,planets[draw_posled[i]].image.Bitmap.Canvas,planets[draw_posled[i]].image.Bitmap.Canvas.ClipRect);
        image2.Width:=box.Right-box.Left;
        image2.Height:=box.Bottom-box.Top;

        image1.Canvas.Draw(round(planets[draw_posled[i]].pos.x-(planets[draw_posled[i]].image.Graphic.Width div 2)*des/(des+Viewpoints[draw_posled[i]].z)),
                           round(planets[draw_posled[i]].pos.y-(planets[draw_posled[i]].image.Graphic.Height div 2)*des/(des+Viewpoints[draw_posled[i]].z)),
                           image2.Picture.Bitmap);
       end;
   end;
 image1.Canvas.Unlock;

 end;

Это вообще программа имитации движения планет вокруг солнца.. И надо, чтобы они останавливались, а потом продолжали лететь с того же места... ну вообщем сделать паузу таймера

[Sm1Le]

скиньте проект если не сложно а то так не очень вижу ... Но вообще почему вам не сохранять значение всех переменных ?! и начинать движение с тех значений ?!

[yulia]

вот проект...

там куча записей и массивов и я не совсем представляю как можно сохранить их значения....

[mihali4]

Подскажите, пожалуйста, как поставить таймер на паузу?

Элементарно, Ватсон.
Заведите себе глобальную переменную, например, PAUSED: BOOLEAN.
И поставьте на форму, например, кнопочку PauseButton "ПАУЗА", по которой будет:

if PauseButton.Caption='Пауза' then
begin
paused:=True;
PauseButton.Caption:='Продолжить';
end else
begin
paused:=False;
PauseButton.Caption:='Пауза';
end;

а первой строкой в procedure TForm1.Timer1Timer(Sender: TObject); будет:

if paused then
exit;

Вот и все. И ничего сохранять не надо...

[Sm1Le]

Все гениальное просто ! =))) работает =))) Автор получилось ?

[Deight]

А по чему нельзя timer1.Enable:=false;
а что бы запустить таймер timer1.Enable:=true;

[Sm1Le]

Сообщение от Deight

А по чему нельзя timer1.Enable:=false;
а что бы запустить таймер timer1.Enable:=true;

Можно и так =))))

[yulia]

Сообщение от Deight

А по чему нельзя timer1.Enable:=false;
а что бы запустить таймер timer1.Enable:=true;

А вот так вот я как раз и делала, но оно почему-то виснет напрочь.. т.е. останавливается и навсегда