График скорости как в DM

[dmitriegorovih]

Всем доброго времени суток! Вот код черчения графика,

var
  Form1: TForm1;
  bmp:Tbitmap;
  p,p2:Tpoint;
implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
bmp:=Tbitmap.Create;
bmp.Width:=105;
bmp.Height:=105;
randomize;
form1.DoubleBuffered:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
image1.Picture:=nil;
image1.Canvas.Draw(5,0,bmp);
image1.Canvas.MoveTo(p.X+5,p.Y);
p2.X:=random(6);
p2.Y:=random(106);
image1.Canvas.Pen.Width:=3;
image1.Canvas.Pen.Color:=clnavy;
image1.Canvas.LineTo(p2.X,p2.Y);
bmp.Assign(image1.Picture);
p:=p2;
end;

но есть один минус, если на таймере выставить интервал в 100 мили секунд, появляются какие-то блики белые, и график опять с начала начинает двигаться. Что это? И как с эти бороться?

[Lafeza]

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

есть один минус, если на таймере выставить интервал в 100 мили секунд, появляются какие-то блики белые, и график опять с начала начинает двигаться.

...да вроде по коду всё работает,данной проблемы не обнаружила...

[x128]

Отрисовку лучше делать на PaintBox в OnPaint, а координаты хранить в массиве.
так на DM больше похоже:

const
  h = 105;

var
  Form1: TForm1;
  p: array[0..h-1] of byte;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  DoubleBuffered:=true;
  Randomize;
  with PaintBox1.Canvas do begin
    Pen.Color:=clNavy;
    Brush.Color:=clWhite;
  end;
end;

procedure TForm1.PaintBox1Paint(Sender: TObject);
var
  i: byte;
begin
  with PaintBox1.Canvas do begin
    FillRect(ClipRect);
    for i:=0 to h-1 do begin
      MoveTo(i, h);
      LineTo(i, h-p[i]);
    end;
  end;
  Move(p[1], p[0], h-1);
  p[h-1]:=(p[h-2]+Random(h)) shr 1;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  PaintBox1.Repaint;
end;

[dmitriegorovih]

Отрисовку лучше делать на PaintBox в OnPaint, а координаты хранить в массиве.
так на DM больше похоже:

Большое спасибо вам, есть один нюанс извините за глупый вопрос но как сделать движение графика в другую сторону?

[x128]

Нужно копировать массив не с 1 на 0, а наоборот и новое значение добавлять не в конец, а в начало.

  Move(p[0], p[1], h-1);
  p[0]:=(p[1]+Random(h)) shr 1;

[dmitriegorovih]

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

Нужно копировать массив не с 1 на 0, а наоборот и новое значение добавлять не в конец, а в начало.

  Move(p[0], p[1], h-1);
  p[0]:=(p[1]+Random(h)) shr 1;

А я вот так сделал

procedure TForm1.PaintBox1Paint(Sender: TObject);
var
n,i:integer;
begin
randomize;
mas[0]:=random(106);
for n:=105 downto 0 do begin
obmen(mas[n-1],mas[n]);
PaintBox1.Canvas.MoveTo(n,105);
PaintBox1.Canvas.LineTo(n,105-mas[n]);
end;
end;

procedure obmen(var per,vtr:integer);
var
j:integer;
begin
j:=per;
per:=vtr;
vtr:=j;
end;

Спасибо всем кто откликнулся! Тему я думмаю можно закрывать.