Анимация в Delphi

[Я_и]

Советую как человек, который недавно сдавал лабораторки по этой ерунде

Рисовать через Image и Shape - заставить на старых компах мигать экран((((
Рисовать надо на рисунок *.BMP в памяти...Обьявляем:
Var BitMap:TBitMap //Содержится в модуле Graphics
При событии OnCreate пишем
BitMap:=TBitMap.Create
При OnResize:
BItMap.WIdth:=ClientWidth
BitMap.Height:=ClientHeight
При OnDestroy:
BitMap.Free

Рисуем нужный рисунок на обьекте BitMap.Canvas
Нарисовать же треугольник (или любой многоугольник) можно процедурой
BItMap.Canvas.Polygon(A:Array of TPoint);

Тут уже элементарно, но все-равно обьясню:
Для каждого треугольника создоаем переменную
var A1:Array of TPoint
И где-то в коде заполняем ее
SetLength(A,3);
A[0].X:=
A[0].Y:=
A[1].X:=
A[1].Y:=
A[2].X:=
A[2].Y:= //Заполняем координатами вершин...
В процедуре Polygon автоматически многоугольник закрашивается. Цвет закраски можно установить так:
BitMap.Canvas.Brush.Color:=clRed//Красный цвет закраски

Потом по событию OnPaint (желательно именно там) пишем
Form1.Canvas.Draw(0,0,BitMap) //Выносим наш рисунок на экран

Таким образом, с экраном мы работаем один раз, а не сотней команд MoveTo - мигания не будет

[WhiteSpirit]

Ну, в этом случае всё равно придётся стирать ёлку на старом месте и копировать битмап на новое, проще изменять координаты TImage, а всю работу по стиранию и перерисовке возьмёт на себя операционная система

[Serge_Bliznykov]

with xxx do begin
// ...
end;

и т.п. быдлокодство. Переносить трудно, что за сишная привычка, не переносить. Читать-разбирать НЕ удобно.

Alter, коллега, позвольте с Вами не согласиться. я на С никогда не писал, а вот с бегином очень часто так поступаю. Ибо экономится драгоценная строчка кода по вертикали. А то, что читать неудобно - поверьте, это дело привычки..

всё это ИМХО, разумеется...

[Vervolf]

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

Писать так

with xxx do begin
// ...
end;

if xxx then begin
// ...
end;

и т.п. быдлокодство. Переносить трудно, что за сишная привычка, не переносить. Читать-разбирать НЕ удобно.

Правильно будет:

with xxx do
begin
// ...
end;

if xxx then
begin
// ...
end;

накипело

а еще правильней вот так

if xxx then
 begin
 //yyy
 end;

[Alt]

WhiteSpirit, вы в корне не правы. Не разбирая подробностей - лучше отрисовывать изображение на объекте класса TBitMap, а затем выводить BitMap на форму. Класс TImage использует слишком много ресурсов. Может, если делать просто программы с иллюстрациями - он лучше, но для анимаций и игр - никак не вариант.