Анимированные выводит диаграмму (график)

[david_yusupov]

Анимированные выводит диаграмму (график), сейчас делаем вывод диаграммы на Image, с использованием Bitmap.Canvas. И анимированые осуществляем постоянной перерисовкой.

ЗЫ

Наблюдаеся не большое по дергивание присмешение и вызывает увелечение нагрузки на процессор.

 

[Brovin Yaroslav]

Данные для графика приходят асинхронно?

[david_yusupov]

Делаю программу на подобии осциллографа, есть каретка(которое рисует график) она перемещается от 0 до Width, с шагом MIN_STEP (сейчас значение равно 1.8).

До вывода графика формируется массив значение, которые в потоке рассчитываю координаты.

После определены координаты строю график

if Assigned(Bitmap) then
begin
  Bitmap.SetSize(Round(Self.Width), Round(Self.Height));
  with Bitmap.Canvas do
  begin
    xLeft := TPathData.Create;
    xRight := TPathData.Create;
    BeginScene;
    try
       Clear(FColor);
       SetLeft(xLeft, Fleft); // Копируем массив в TPathData
       SetRight(xRight, Fright); // Копируем массив в TPathData
       Stroke.Color := FColorLine;
       Stroke.Thickness := FThickness;
       Stroke.Join := TStrokeJoin.Bevel;
       if xLeft.Count > 0 then DrawPath(xLeft, 1);
       if xRight.Count > 0 then DrawPath(xRight, 1);
    finally 
       EndScene; 
       FreeAndNil(xLeft);
       FreeAndNil(xRight);
    end;
   end;
end;

Примерно раз 25 мс.по таймеру

[Brovin Yaroslav]

Увидеть бы проект...

[Brovin Yaroslav]

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