Анимация в Delphi

[Space91]

Здравствуйте, делаю анимацию которая до ужаса простая осталось закрасить мою ёлку в зелёный цвет. (сейчас окрашивается в цвет фона)

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;

    procedure elka(x,y:integer;Color:TColor);
    procedure Timer1Timer(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
   x,y:integer;
implementation

{$R *.dfm}

procedure tform1.elka(x,y:integer;Color:TColor);
const dx=25; dy=25;
var
buf:TColor;
begin
with form1.Canvas do
 begin

 pen.Color:=Color;
  MoveTo(x,y);
  LineTo(x+1*dx,y+1*dy);
  LineTo(x-1*dx,y+1*dy);
  LineTo(x,y);


    MoveTo(x,y+1*dy);
    LineTo(x+2*dx,y+3*dy);
    LineTo(x-2*dx,y+3*dy);
    LineTo(x,y+1*dy);

     MoveTo(x,y+3*dy);
     LineTo(x+3*dx,y+6*dy);
     LineTo(x-3*dx,y+6*dy);
     LineTo(x,y+3*dy);

      MoveTo(x,y+6*dy);
      LineTo(x+4*dx,y+10*dy);
      LineTo(x-4*dx,y+10*dy);
      LineTo(x,y+6*dy);

        MoveTo(x+1*dx,y+10*dy);
        LineTo(x+1*dx,y+12*dy);
        LineTo(x-1*dx,y+12*dy);
        LineTo(x-1*dx,y+10*dy);
        LineTo(x+1*dx,y+10*dy);

          //Он закрашивает область текущей кистью, начиная с точки, передаваемой в него в качестве параметра.
        //Берем кисть

 Form1.Canvas.Brush.Color:=RGB(200, 100, 50);

            //Закрашиваем
Form1.Canvas.FloodFill(0, 2, RGB(0, 0, 0), fsBorder);

 end;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
 begin
form1.Color:=clLime;
elka(x,y,form1.Color);
if x < form1.ClientWidth
then x:=x+5
else
   begin
x:=0;
y:=random(10)+100
   end;
elka(x,y,ClWhite);
 end;

procedure TForm1.FormActivate(Sender: TObject);
begin
form1.Color:=clLime;
x:=0;
y:=100;
Timer1.interval:=50
end;
end.

[WhiteSpirit]

А не проще ли нарисовать эту ёлку один раз, на TImage, а потом этот Image двигать?

[Space91]

Хм, я ее 1 раз и нарисовал,потом двигаю через определённый промежуток времени. там 4 треугольника(типа ёлка) горизонтально расположенные. которые хочу закрасить в зелёный цв.

[WhiteSpirit]

Да нет же, у тебя каждый раз по таймеру ёлка стирается и перерисовывается по-новому. Кинь на форму TImage, той же процедурой elka нарисуй на Image ёлку, а потом по таймеру изменяй координаты

Примерно вот так:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    Image1: TImage;
    procedure Timer1Timer(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image1.Left:=Image1.Left + 4;
if Image1.Left >= Width then Image1.Left:=0;
end;

procedure TForm1.FormActivate(Sender: TObject);
begin
Timer1.Interval:=50;
Color:=RGB(200, 100, 50);
with Image1.Canvas do begin
    Brush.Color:=Form1.Color;
    FillRect(ClipRect);
    Pen.Color:=clWhite;

    MoveTo(108, 1);
    LineTo(158, 80);
    LineTo(58, 80);
    LineTo(108, 1);

    MoveTo(108, 81);
    LineTo(183, 160);
    LineTo(28, 160);
    LineTo(108, 81);

    MoveTo(108, 161);
    LineTo(208, 240);
    LineTo(3, 240);
    LineTo(108, 161);

    Brush.Color:=clGreen;
    FloodFill(108, 3, clWhite, fsBorder);
    FloodFill(108, 83, clWhite, fsBorder);
    FloodFill(108, 163, clWhite, fsBorder);
    end;
end;

end.

[Alter]

Писать так

with xxx do begin
// ...
end;

if xxx then begin
// ...
end;

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

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

with xxx do
begin
// ...
end;

if xxx then
begin
// ...
end;

накипело

[WhiteSpirit]

Писать так
и т.п. быдлокодство

Всегда так пишу. Наверное, я быдлокодер

[Space91]

Image1.Left:=Image1.Left + 4; - не компилирется

[Error] Unit1.pas(30): Undeclared identifier: 'Image1'

[shodlik]

Надо в форму выложить Image1: Timage

[Space91]

О_о скомпелировалось! и передомной чистый лист формы, ничего не отображается.
какое заклинание произнести что бы вернуть елку?

[WhiteSpirit]

Для Image1 задать размеры: Width=217, Height=411