Рисование методом базовой точки в делфи

[Katerina_K]

Здравствуйте!Подскажите,пожалуйста. Есть задание нарисовать движущийся объект.Хочу нарисовать меняющего некоторые элементы снеговика в движении,как будто бы танцует.Вот только ,отчетливо не видно что он меняет свои движения.Подскажите,что не так)

unit Unit1;

interface

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

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

var
  Form1: TForm1;
   x,y,k: Integer;
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if x<form1.Width then
begin
form1.Refresh;
x:=x+8;
Canvas.Pen.Color:=claqua;
Canvas.Pen.Width:=3;
Canvas.Brush.Color:=claqua;
canvas.Ellipse(x+25*k,y+32*k,x+35*k,y+42*k);  //верхний круг
canvas.Ellipse(x+20*k,y+40*k,x+40*k,y+60*k);   //средний
canvas.Ellipse(x+15*k,y+58*k,x+45*k,y+88*k); //нижний


Canvas.Brush.Color:=clblack;
canvas.Ellipse(x+27*k,y+34*k,x+29*k,y+36*k);//глаза
canvas.Ellipse(x+31*k,y+34*k,x+33*k,y+36*k);

canvas.Pen.Color:=clRed;   //нос
canvas.Brush.Color:=clRed;
canvas.Polygon([point(x+30*k,y+37*k),point(x+22*k,y+38*k),point(x+30*k,y+39*k)]);



Canvas.Pen.Width:=5;
canvas.Pen.Color:=clblack;    //руки подняты
canvas.MoveTo(x+25*k,y+45*k);
canvas.LineTo(x+10*k,y+35*k);
canvas.MoveTo(x+35*k,y+45*k);
canvas.LineTo(x+50*k,y+35*k);

if x<form1.Width then
begin
form1.Refresh;
x:=x+8;

form1.Refresh;

Canvas.Pen.Color:=claqua;
Canvas.Pen.Width:=3;
Canvas.Brush.Color:=claqua;
canvas.Ellipse(x+25*k,y+32*k,x+35*k,y+42*k);  //верхний круг
canvas.Ellipse(x+20*k,y+40*k,x+40*k,y+60*k);   //средний 
canvas.Ellipse(x+15*k,y+58*k,x+45*k,y+88*k); //нижний


Canvas.Brush.Color:=clblack;
canvas.Ellipse(x+27*k,y+34*k,x+29*k,y+36*k);//глаза
canvas.Ellipse(x+31*k,y+34*k,x+33*k,y+36*k);

Canvas.Pen.Width:=5;
canvas.Pen.Color:=clblack;    //нос в другую сторону
canvas.MoveTo(x+25*k,y+45*k);
canvas.LineTo(x+10*k,y+55*k);
canvas.MoveTo(x+35*k,y+45*k);
canvas.LineTo(x+50*k,y+55*k);


canvas.Pen.Color:=clRed;   //руки опущены
canvas.Brush.Color:=clRed;
canvas.Polygon([point(x+30*k,y+37*k),point(x+38*k,y+38*k),point(x+30*k,y+39*k)]);

end;

end
else
x:=0;
end;


procedure TForm1.FormActivate(Sender: TObject);
begin
x:=0;
y:=-180;
k:=10;
end;

end.

[Serge_Bliznykov]

так устроит?

unit Unit1;

interface

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

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

var
  Form1: TForm1;
  x, y, k: Integer;
  UpHandsTickCount: integer;
implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
const CountTickOnePosition = 8;
begin
  form1.Refresh;
  x := x + 8;
  if x > (form1.Width - 250) then x := 0;

  inc(UpHandsTickCount);
  if UpHandsTickCount > 2 * CountTickOnePosition then UpHandsTickCount := 1;


  if UpHandsTickCount <= CountTickOnePosition then
  begin
    Canvas.Pen.Color := claqua;
    Canvas.Pen.Width := 3;
    Canvas.Brush.Color := claqua;
    canvas.Ellipse(x + 25 * k, y + 32 * k, x + 35 * k, y + 42 * k); //верхний круг
    canvas.Ellipse(x + 20 * k, y + 40 * k, x + 40 * k, y + 60 * k); //средний
    canvas.Ellipse(x + 15 * k, y + 58 * k, x + 45 * k, y + 88 * k); //нижний


    Canvas.Brush.Color := clblack;
    canvas.Ellipse(x + 27 * k, y + 34 * k, x + 29 * k, y + 36 * k); //глаза
    canvas.Ellipse(x + 31 * k, y + 34 * k, x + 33 * k, y + 36 * k);

    canvas.Pen.Color := clRed; //нос
    canvas.Brush.Color := clRed;
    canvas.Polygon([point(x + 30 * k, y + 37 * k), point(x + 22 * k, y + 38 * k), point(x + 30 * k, y + 39 * k)]);



    Canvas.Pen.Width := 5;
    canvas.Pen.Color := clblack; //руки подняты
    canvas.MoveTo(x + 25 * k, y + 45 * k);
    canvas.LineTo(x + 10 * k, y + 35 * k);
    canvas.MoveTo(x + 35 * k, y + 45 * k);
    canvas.LineTo(x + 50 * k, y + 35 * k);
  end
  else
  begin

    Canvas.Pen.Color := claqua;
    Canvas.Pen.Width := 3;
    Canvas.Brush.Color := claqua;
    canvas.Ellipse(x + 25 * k, y + 32 * k, x + 35 * k, y + 42 * k); //верхний круг
    canvas.Ellipse(x + 20 * k, y + 40 * k, x + 40 * k, y + 60 * k); //средний
    canvas.Ellipse(x + 15 * k, y + 58 * k, x + 45 * k, y + 88 * k); //нижний


    Canvas.Brush.Color := clblack;
    canvas.Ellipse(x + 27 * k, y + 34 * k, x + 29 * k, y + 36 * k); //глаза
    canvas.Ellipse(x + 31 * k, y + 34 * k, x + 33 * k, y + 36 * k);

    Canvas.Pen.Width := 5;
    canvas.Pen.Color := clblack; //нос в другую сторону
    canvas.MoveTo(x + 25 * k, y + 45 * k);
    canvas.LineTo(x + 10 * k, y + 55 * k);
    canvas.MoveTo(x + 35 * k, y + 45 * k);
    canvas.LineTo(x + 50 * k, y + 55 * k);


    canvas.Pen.Color := clRed; //руки опущены
    canvas.Brush.Color := clRed;
    canvas.Polygon([point(x + 30 * k, y + 37 * k), point(x + 38 * k, y + 38 * k), point(x + 30 * k, y + 39 * k)]);

  end;

end;


procedure TForm1.FormActivate(Sender: TObject);
begin
  x := 0;
  y := -180;
  k := 10;
  UpHandsTickCount := 0;
end;

end.

[Katerina_K]

Спасибо большое!