Delphi-canvas - нарисовать знак Ин-Янь

[BDA]

Ошибку можно просто игнорировать (там есть такая кнопка, вроде) - эта ошибка возникает из-за того, что в Delphi 2010 есть такое свойство у формы, включающее двойную буферизацию.
Чтобы рисовать на image, нужно в функцию рисования знака предавать канву image (и нужно добавить еще 1 функцию для очищения канвы).
Что за size?

[destroy_]

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

Что за size?

размер фигуры
спс за помощь дальше я сам, вроде уже получается то что хотел

[Argonaut]

как регулировать скорость анимации?

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

[BDA]

Скорость анимации можно изменить 2 способами:
Изменить интервал у таймера;
Изменить значение константы d.

Насчет 4х инь-янов:

//добавить
procedure clear_canv(canv: tcanvas);
begin
  canv.Brush.Color := clwhite;
  canv.FillRect(canv.ClipRect);
end;

procedure draw_Yin_and_yang(canv: tcanvas; x, y, r: integer; ang: real);
begin
  canv.Pen.Width := 2;
  canv.Pen.Color := clblack;
  canv.Brush.Color := clwhite;
  //убрать
  //canv.FillRect(canv.ClipRect);
  ...
end;

//заменить
procedure TForm1.Timer1Timer(Sender: TObject);
var
  i: integer;
begin
  a := (a + 360 - d mod 360) mod 360;
  clear_canv(Image1.canvas);
  for i := 0 to 3 do
    draw_Yin_and_yang(Image1.canvas, round(rx * cos(pi * (a + 90 * i) / 180) +
      x0), round(ry * sin(pi * (a + 90 * i) / 180) + y0), r1, -pi * a / 180);
end;

Вам остается добавить еще один вызов draw_Yin_and_yang для центрального знака с правильными аргументами.

[Argonaut]

как сделать чтобы у всех инь-янов были разные цвета
clred-clblue
clgreen-clyellow и т.д.
(Delfhi(lazarus))

[BDA]

Проще всего добавить еще 2 параметра функции draw_Yin_and_yang, через которые передавать цвета, и заменить цикл в Timer1Timer на 4 вызова функции.

[min@y™]

30.png

/* ============ */

https://www.youtube.com/watch?v=lkMPnCZ-B1k

[Drag102]

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

Скорость анимации можно изменить 2 способами:
Изменить интервал у таймера;
Изменить значение константы d.

Насчет 4х инь-янов:

//добавить
procedure clear_canv(canv: tcanvas);
begin
  canv.Brush.Color := clwhite;
  canv.FillRect(canv.ClipRect);
end;

procedure draw_Yin_and_yang(canv: tcanvas; x, y, r: integer; ang: real);
begin
  canv.Pen.Width := 2;
  canv.Pen.Color := clblack;
  canv.Brush.Color := clwhite;
  //убрать
  //canv.FillRect(canv.ClipRect);
  ...
end;

//заменить
procedure TForm1.Timer1Timer(Sender: TObject);
var
  i: integer;
begin
  a := (a + 360 - d mod 360) mod 360;
  clear_canv(Image1.canvas);
  for i := 0 to 3 do
    draw_Yin_and_yang(Image1.canvas, round(rx * cos(pi * (a + 90 * i) / 180) +
      x0), round(ry * sin(pi * (a + 90 * i) / 180) + y0), r1, -pi * a / 180);
end;

Вам остается добавить еще один вызов draw_Yin_and_yang для центрального знака с правильными аргументами.

А можно ли как то сделать изменение скорости анимации через Scrollbar?

[evg_m]

А можно ли как то сделать изменение скорости анимации через Scrollbar?

связать его изменения с ...
при изменении положения поменять...

P.S. заменить const на var.

[Drag102]

Drag102,

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

связать его изменения с ...
при изменении положения поменять...

P.S. заменить const на var.

А можно примерный код?