Гафика в Делфи!!!!!

[Оля1990]

Блин 2 недели уже мучаюсь не получается и все(((((Мне нужно нарисовать треугольник закращенный а потом он должен вращаться вокруг одной из вершин(((Вот что я сделала теперь надо как-то закрашивать а потом стирать!!!Но как???
procedure TForm1.FormCreate(Sender: TObject);
begin
Timer1.Enabled:=True;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
With Form1.Canvas do
begin
Polygon([point(150,250),point(150,150),point (250,150)]);
Rectangle(0,0,Form1.ClientHeight,Fo rm1.ClientHeight);
Polygon([point(50,150),point(150,150),point( 150,250)]);
Rectangle(0,0,Form1.ClientHeight,Fo rm1.ClientHeight);
Polygon([point(50,150),point(150,150),point( 150,50)]);
Rectangle(0,0,Form1.ClientHeight,Fo rm1.ClientHeight);
Polygon([point(150,50),point(150,150),point( 250,150)]);
Rectangle(0,0,Form1.ClientHeight,Fo rm1.ClientHeight);
Brush.Color:=clRed;
end;
end;
Мозг уже пухнит((((

[Serge_Bliznykov]

Мозг уже пухнит((((

правильно говорить - пухнет

на onTimer процедуру:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  with Form1.Canvas do
  begin
   {стираем старый}
    Canvas.Brush.Color := clWhite;
    Canvas.Pen.Color := clWhite;
    Polygon([point(X0, Y0), point(X1, Y1), point(X2, Y2)]);

  {вычисляем новые (вращать будем вокруг вершины X1,Y1}
    X0 := round(100 * cos(Angle / 30 * pi + pi / 2) + X1);
    Y0 := round(100 * sin(Angle / 30 * pi + pi / 2) + Y1);

    X2 := round(100 * cos((Angle - 15) / 30 * pi + pi / 2) + X1);
    Y2 := round(100 * sin((Angle - 15) / 30 * pi + pi / 2) + Y1);

    Canvas.Brush.Color := clRed;
    Canvas.Pen.Color := clBlack;
    Polygon([point(X0, Y0), point(X1, Y1), point(X2, Y2)]);

    Angle := Angle + DeltaAngle;
  end;
end;

на Form onCreate:

procedure TForm1.FormCreate(Sender: TObject);
begin
  Angle := 0;
  DeltaAngle := 0.5;
  X1 := 150;
  Y1 := 150;
  Timer1.Interval := 50;
  Timer1.Enabled := true;
end;

на Form OnPaint:

procedure TForm1.FormPaint(Sender: TObject);
begin
  Canvas.Brush.Color := clWhite;
  Canvas.Rectangle(0, 0, Form1.ClientHeight, Form1.ClientHeight);

  X0 := round(100 * cos(Angle / 30 * pi + pi / 2) + X1);
  Y0 := round(100 * sin(Angle / 30 * pi + pi / 2) + Y1);
  X2 := round(100 * cos((Angle - 15) / 30 * pi + pi / 2) + X1);
  Y2 := round(100 * sin((Angle - 15) / 30 * pi + pi / 2) + Y1);
  Canvas.Brush.Color := clRed;
  Canvas.Pen.Color := clBlack;
  Canvas.Polygon([point(X0, Y0), point(X1, Y1), point(X2, Y2)]);
end;

описание переменных:

  public
    { Public declarations }
    Angle: double;
    DeltaAngle: double;
    X0, Y0,
    X1, Y1,
    X2, Y2: integer;
  end;