Как быстро выводить графику (a то Canvas очень медленно работает)

Delphi , Графика и Игры , Canvas

Вот пример заполнения формы точками случайного цвета:

type
  TRGB = record
    b, g, r: byte;
  end;
  ARGB = array[0..1] of TRGB;
  PARGB = ^ARGB;

var
  b: TBitMap;

procedure TForm1.FormCreate(sender: TObject);
begin
  b := TBitMap.Create;
  b.pixelformat := pf24bit;
  b.width := Clientwidth;
  b.height := Clientheight;
end;

procedure TForm1.Tim1OnTimer(sender: TObject);
var
  p: PARGB;
  x, y: integer;
begin
  for y := 0 to b.height - 1 do
  begin
    p := b.scanline[y];
    for x := 0 to b.width - 1 do
    begin
      p[x].r := random(256);
      p[x].g := random(256);
      p[x].b := random(256);
    end;
  end;
  canvas.draw(0, 0, b);
end;

procedure TForm1.FormDestroy(sender: TObject);
begin
  b.free;
end;

Here's the translation of the content into Russian:

Я рад помочь вам оптимизировать код для ускорения отображения графики.

Сначала давайте проанализируем, что вызывает медленность: 1. Генерация случайных цветов: вы генерируете случайные цвета внутри процедуры Tim1OnTimer, которая вызывается повторно. Это может привести к значительному влиянию на производительность. 2. Манипуляция битмапом: вы создаете и модифицируете объект TBitMap внутри события таймера, что涉гывает выделение памяти и освобождение.

Чтобы улучшить производительность:

Рекомендация 1: Предварительная генерация случайных цветов Вместо генерации случайных цветов на каждом шаге таймера, предварительно сгенерируйте массив случайных значений цвета один раз при создании формы. Это можно сделать, создав отдельную процедуру, которая пополняет массив случайными значениями цвета. Затем в вашей процедуре Tim1OnTimer просто проитерировайте этот массив и нарисуйте соответствующие пиксели.

Рекомендация 2: Использование буфера для рисования Вместо прямого изменения объекта TBitMap внутри события таймера создайте временный буфер (TBitmap) для хранения данных пикселей. Это уменьшит количество выделений памяти и освобождения, сделав ваш код более эффективным.

Вот обновленная версия вашего кода, которая включает в себя эти предложения:

type
  TRGB = record
    b, g, r: byte;
  end;
  ARGB = array[0..1] of TRGB;
  PARGB = ^ARGB;

var
  b: TBitmap;
  randomColors: array[0..ClientWidth * ClientHeight - 1] of TRGB; // предварительно сгенерированные случайные цвета

procedure TForm1.FormCreate(sender: TObject);
begin
  b := TBitmap.Create;
  b.PixelFormat := pf24bit;
  b.Width := ClientWidth;
  b.Height := ClientHeight;

  // Предварительная генерация случайных цветов
  for y := 0 to ClientHeight - 1 do
    for x := 0 to ClientWidth - 1 do
      randomColors[x + y * ClientWidth].r := random(256);
      randomColors[x + y * ClientWidth].g := random(256);
      randomColors[x + y * ClientWidth].b := random(256);
end;

procedure TForm1.Tim1OnTimer(sender: TObject);
var
  p: PARGB;
  x, y: integer;
begin
  // Создайте временный буфер для рисования
  var tempBitmap: TBitmap;
  try
    tempBitmap := TBitmap.Create;
    tempBitmap.PixelFormat := pf24bit;
    tempBitmap.Width := ClientWidth;
    tempBitmap.Height := ClientHeight;

    for y := 0 to b.Height - 1 do
      p := tempBitmap.ScanLine[y];
    for x := 0 to b.Width - 1 do
      p[x] := randomColors[x + y * ClientWidth];

    // Нарисуйте временный буфер на канвас
    Canvas.Draw(0, 0, tempBitmap);

  finally
    tempBitmap.Free;
  end;
end;

procedure TForm1.FormDestroy(sender: TObject);
begin
  b.Free;
end;

С помощью предварительной генерации случайных цветов и использования временного буфера для рисования вы должны заметить улучшение производительности.

В статье описывается способ ускорения отображения графики на Canvas в Delphi, путем создания и заполнения битмапа с использованием рекорда TRGB для хранения цветов.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Canvas ::