Графика в Delphi

@Dromych · Регистрация: 08.04.2012

Author24 — интернет-сервис помощи студентам

Привет всем,нужна помощь, задание такое нужно нарисовать палатку и два дерева в делфи, я нарисовал таким вот способом
Canvas.MoveTo(190,220);
Canvas.LineTo(230,150); ну и в этом духе.
Теперь нужно сделать типа анимации, чтобы палатка в правый нижний угол перемещалась плавно по нажатию кнопки, а два дерева оставались на месте, с помощью таймера, только я не знаю как сделать, помогите

Вот код:

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
x,y:integer;
begin
Canvas.MoveTo(190,220);
Canvas.LineTo(230,150);
Canvas.MoveTo(230,150);
Canvas.LineTo(270,220);
Canvas.MoveTo(190,220);
Canvas.LineTo(270,220);
Canvas.MoveTo(230,150);
Canvas.LineTo(330,125);
Canvas.MoveTo(270,220);
Canvas.LineTo(365,195);
Canvas.MoveTo(330,125);
Canvas.LineTo(365,195);
//палатка
Canvas.MoveTo(190,220);
Canvas.LineTo(175,225);
Canvas.MoveTo(175,220);
Canvas.LineTo(175,230);
//левый нижний крючок
Canvas.MoveTo(365,195);
Canvas.LineTo(380,195);
Canvas.MoveTo(380,190);
Canvas.LineTo(380,200);
//правый крючок
Canvas.MoveTo(270,220);
Canvas.LineTo(285,230);
Canvas.MoveTo(285,225);
Canvas.LineTo(285,235);
//средний крючок
X:=175;
Y:=205;
Canvas.Rectangle(X+3, Y-30, X-3, Y);
X:=170;
Y:=180;
canvas.Ellipse(x-5,y,x+15,y-50);
//левое дерево
X:=385;
Y:=175;
Canvas.Rectangle(X+3, Y-30, X-3, Y);
X:=375;
Y:=150;
canvas.Ellipse(x-10,y,x+30,y-50);
//правое дерево
end;
 
procedure TForm1.FormPaint(Sender: TObject);
begin
Canvas.Brush.Color := clgray;
Color := clWhite;
end;

Добавлено через 10 часов 2 минуты
помогите пожалуйста, срочно нужно

@FIL · 16.04.2013, 09:07

Кликните здесь для просмотра всего текста

Delphi

unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
  bmp: TBitmap;
  ix, iy: integer;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  ix := 0;
  iy := 0;
  Timer1.Enabled := true;
end;
 
procedure TForm1.FormPaint(Sender: TObject);
var
x,y:integer;
begin
  Canvas.Draw(ix, iy, bmp);
 
X:=175;
Y:=205;
Canvas.Rectangle(X+3, Y-30, X-3, Y);
X:=170;
Y:=180;
canvas.Ellipse(x-5,y,x+15,y-50);
//ëåâîå äåðåâî
X:=385;
Y:=175;
Canvas.Rectangle(X+3, Y-30, X-3, Y);
X:=375;
Y:=150;
canvas.Ellipse(x-10,y,x+30,y-50);
//ïðàâîå äåðåâî
end;
 
procedure TForm1.FormCreate(Sender: TObject);
begin
  bmp := TBitmap.Create;
  with bmp do
  begin
    Canvas.Brush.Color := clBtnFace;
    Canvas.FillRect(Canvas.ClipRect);
    Width := 400;
    Height := 250;
    Canvas.MoveTo(190,220);
Canvas.LineTo(230,150);
Canvas.MoveTo(230,150);
Canvas.LineTo(270,220);
Canvas.MoveTo(190,220);
Canvas.LineTo(270,220);
Canvas.MoveTo(230,150);
Canvas.LineTo(330,125);
Canvas.MoveTo(270,220);
Canvas.LineTo(365,195);
Canvas.MoveTo(330,125);
Canvas.LineTo(365,195);
//ïàëàòêà
Canvas.MoveTo(190,220);
Canvas.LineTo(175,225);
Canvas.MoveTo(175,220);
Canvas.LineTo(175,230);
//ëåâûé íèæíèé êðþ÷îê
Canvas.MoveTo(365,195);
Canvas.LineTo(380,195);
Canvas.MoveTo(380,190);
Canvas.LineTo(380,200);
//ïðàâûé êðþ÷îê
Canvas.MoveTo(270,220);
Canvas.LineTo(285,230);
Canvas.MoveTo(285,225);
Canvas.LineTo(285,235);
//ñðåäíèé êðþ÷îê
end;
  Canvas.Brush.Color := clGreen;
 
end;
 
procedure TForm1.FormDestroy(Sender: TObject);
begin
  bmp.Free;
end;
 
procedure TForm1.Timer1Timer(Sender: TObject);
begin
  inc(ix, 5);
  inc(iy, 5);
  Repaint;
  if ix > 400 then
    Timer1.Enabled := false;
end;
 
end.

	16.04.2013, 09:07