Рисование в PaintBox

@Young Vu · Регистрация: 01.03.2018

Author24 — интернет-сервис помощи студентам

Задание: вывести на экран этапы сортировки
Сделал следующим образом:

На форме лежит PaintBox, TrackBar, Timer1

Delphi

//глобальные переменные
speed : integer; //скорость отрисовки
Counter : integer; // счетчик шагов
DrawArray : TdrawArray; // класс выводит на экран массив
Tarr : TarrayInfo; // массив в котором хранится информация о шагах сортировки

TrackBar1 - служит для изменения скорости

Delphi

......
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  speed := TrackBar1.Position;
end;

В таймере
1. увеличиваю счетчик шагов(под шагом понимается конкретный этап сортировки)
2. меняю время отрисовки

Delphi

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  Timer1.Enabled := false;
  if Counter < Length(Tarr) then
  begin
    PaintBox1.Repaint;
    Timer1.interval := speed*2
    inc(Counter);
    Timer1.Enabled := true;
    Application.ProcessMessages;
  end
  else
   DrawArray.Destroy;
end;

В OnPaint вывожу

Delphi

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
  if (DrawArray <> nil) then
    PaintBox1.Canvas.Draw(0,0, DrawArray.GetBM(Tarr [Counter]));
end;

может это как то можно по-правильному написать? Я первый раз работаю с графикой..
смущает большое кол-во глобальных переменных

@Puporev · 15.10.2019, 17:04

Непонятно зачем PaintBox, а например не Memo?
Посмотрите эти темы.
Визуализация сортировки массива пузырьком
Визуализация сортировки выбором

@Young Vu · 15.10.2019, 17:50 **[ТС]**

да разницы нет, почему то решил выводить используя примитивную анимацию

@krapotkin · 16.10.2019, 10:11

вот в принципе же чудно же было все, пока не пришел Application.ProcessMessages )))
зачем оно ? ))

Добавлено через 4 минуты
а анимация перелета карточек будет?

@Young Vu · 16.10.2019, 10:42 **[ТС]**

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

Application.ProcessMessages

спасибо, убрал.
Я его добавлял, когда выводил изображение в цикле

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

а анимация перелета карточек будет?

пока не сделал, но планирую

@krapotkin · 16.10.2019, 10:47

класс

Добавлено через 20 секунд
было бы полезно разложить процесс прямо тут прямо по этапам )

@AzAtom · 16.10.2019, 15:40

Визуализация быстрой сортировки: https://youtu.be/ywWBy6J5gz8

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	15.10.2019, 17:04	2
	Непонятно зачем PaintBox, а например не Memo? Посмотрите эти темы. Визуализация сортировки массива пузырьком Визуализация сортировки выбором 0

@Young Vu 130 / 101 / 42 Регистрация: 01.03.2018 Сообщений: 291
	15.10.2019, 17:50 [ТС]	3
	да разницы нет, почему то решил выводить используя примитивную анимацию 0

@krapotkin 5784 / 4526 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	16.10.2019, 10:11	4
	вот в принципе же чудно же было все, пока не пришел Application.ProcessMessages ))) зачем оно ? )) Добавлено через 4 минуты а анимация перелета карточек будет? 0

@Young Vu 130 / 101 / 42 Регистрация: 01.03.2018 Сообщений: 291
	16.10.2019, 10:42 [ТС]	5
	Сообщение от krapotkin Application.ProcessMessages спасибо, убрал. Я его добавлял, когда выводил изображение в цикле Сообщение от krapotkin а анимация перелета карточек будет? пока не сделал, но планирую 0

@krapotkin 5784 / 4526 / 1431 Регистрация: 14.04.2014 Сообщений: 20,157 Записей в блоге: 20
	16.10.2019, 10:47	6
	класс Добавлено через 20 секунд было бы полезно разложить процесс прямо тут прямо по этапам ) 0

@AzAtom Модератор 3629 / 2150 / 759 Регистрация: 15.11.2015 Сообщений: 8,631
	16.10.2019, 15:40	7
	Визуализация быстрой сортировки: https://youtu.be/ywWBy6J5gz8 0