[qazwsx]

Подскажите пожалуйста как можно построить график не мгновенно, а чтобы график строился "во времени" - т.е. плавное построение графика....
Данная программа строит график мгновенно и несколько раз, подскажите пожалуйста как построить плавно по точкам

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133

unit Unit1;   {$mode objfpc}{$H+}   interface   uses   Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,   ExtCtrls, StdCtrls;   type     { TForm1 }     TForm1 = class(TForm)     Button1: TButton;     Timer1: TTimer;     procedure Button1Click(Sender: TObject);     procedure FormCreate(Sender: TObject);     procedure FormPaint(Sender: TObject);     procedure Timer1Timer(Sender: TObject);   private     { private declarations }   public     { public declarations }   end;   var   Form1: TForm1;   x0, y0 : integer;   h, w   : integer;   dx, dy : integer;   x, y   : integer;    cross : integer;   dcross : integer;   lx, ly : real;   dlx,dly: real;   i      : integer;   a,b: integer;     xg, yg : array[0..12] of integer; implementation   { TForm1 }   procedure TForm1.FormCreate(Sender: TObject); begin  randomize; end;   procedure TForm1.Button1Click(Sender: TObject); begin   timer1.Enabled:=false; end;   procedure TForm1.FormPaint(Sender: TObject); begin        x0:=30; y0:=420;        h:=400; w:=520;        dx:=40; dy:=40;        dcross:=1;        dlx:=1.0; dly:=1.0;        with form1.Canvas do          begin            pen.Color:=clBlack;            cross:=dcross;            moveto(x0,y0);           lineto(x0,y0-h);            moveto(x0,y0);           lineto(x0+w,y0);            //засечка, сетка и оцифровка по оси Х            x:=x0+dx;            lx:=dlx;            repeat              moveto(x, y0-3);       lineto(x, y0+3);              cross:=cross-1;                if cross = 0 then                  begin                    textout(x-8,y0+5,floattostr(lx));                    cross:=dcross;                  end;                  pen.style:=psdot;                  moveto(x, y0-10);       lineto(x, y0-h);                  pen.style:=pssolid;                  lx:=lx+dlx;                  x:=x+dx;            until(x>x0+w);              y:=y0-dy;            ly:=dly;            repeat              moveto(x0-3, y);       lineto(x0+3, y);                      textout(x0-20,y,floattostr(ly));                    pen.style:=psdot;                  moveto(x0+3, y);       lineto(x0+w, y);                  pen.style:=pssolid;                  y:=y-dy;                  ly:=ly+dly;              until(y<y0-h);          end;   end;   procedure TForm1.Timer1Timer(Sender: TObject); begin    for i:=0 to 12 do  begin  xg[i]:=i;  yg[i]:=random(10);  end;  // построение графика  with canvas do  begin  pen.Style:=psSolid;  pen.Color:=clRed;  x:=trunc(x0+xg[0]*dx/dlx);  y:=trunc(y0-yg[0]*dy/dly);  moveto(x,y);  for i:=1 to 12 do  begin  x:=trunc(x0+xg[i]*dx/dlx);  y:=trunc(y0-yg[i]*dy/dly);  lineto(x,y);  end;  end;  //i:=i+1; end;   initialization   {$I unit1.lrs}   end.

[poli-smen]

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

Подскажите пожалуйста как можно построить график не мгновенно, а чтобы график строился "во времени" - т.е. плавное построение графика....
Данная программа строит график мгновенно и несколько раз, подскажите пожалуйста как построить плавно по точкам

Вместо рисования на форме, лучше брось на форму компонент TImage и по таймеру рисуй очередную линию (или точку) на нём.

[M.A.D.M.A.N.]

В имидж медленно рисует, лучше уж PaintBox.

[poli-smen]

Сообщение от M.A.D.M.A.N.

В имидж медленно рисует, лучше уж PaintBox.

Ну так ведь и нужно "построить график не мгновенно". Но "медленность" здесь будет обеспечивать таймер, а не TImage. Я бы не сказал, что "В имидж медленно рисует". Вряд ли будет ощутимая разница между TImage и TBitmap который будет "выбрасываться" на TPaintBox.

[M.A.D.M.A.N.]

Извиняй, читал по диагонали.

[qazwsx]

Сообщение от poli-smen

Вместо рисования на форме, лучше брось на форму компонент TImage и по таймеру рисуй очередную линию (или точку) на нём.

а чем плохо рисовать просто на форме?

[M.A.D.M.A.N.]

тем, что уведи за границу экрана форму и верни назад, рисунок сотрется.

[angvelem]

В таком случае и в PaintBox потеряет картинку, нужно обновлять.

[cotseec]

рисовать в OnPaint

[NumLock]

рисовать по таймеру на "буферном" битмапе, отрисовывать битмап в OnPaint контрола.