[RomanRens]

Привожу код:

Код:

var
Background, bitmap, Buf : TBitMap;
BackRct : TRect;
BufRct: Trect;

x,y:integer;
W,H: integer;

procedure TForm1.FormActivate(Sender: TObject);
begin
form1.DoubleBuffered:=true;
Background := TBitmap.Create;
bitmap := TBitmap.Create;
Buf := TBitmap.Create;
Background.LoadFromFile('sea.bmp'); //загружаем фон
Form1.Image1.canvas.Draw(0,0,Backgr ound);
bitmap.LoadFromFile('ship.bmp'); //загружаем рисунок, к.т. движется
bitmap.Transparent := True;
bitmap.TransParentColor := bitmap.canvas.pixels[1,1];
W:= bitmap.Width;
H:= bitmap.Height;
Buf.Width:= W;
Buf.Height:=H;
Buf.Palette:=Background.Palette;
Buf.Canvas.CopyMode:=cmSrcCopy;
BufRct:=Bounds(0,0,W,H);
x := W+bitmap.Width;
y := 50;
BackRct:=Bounds(x,y,W,H);
Buf.Canvas.CopyRect(BufRct,Backgrou nd.Canvas,BackRct);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
{Form1.image1.canvas.Draw(x,y,Buf); }

Dec(x);
if x < -bitmap.Width then x := 0;
{Invalidate;}

BackRct:=Bounds(x,y,W,H);
Buf.Canvas.CopyRect(BufRct,Backgrou nd.Canvas,BackRct);
Form1.image1.Canvas.Draw(x, y, bitmap);
Form1.image1.Canvas.Draw(x+bitmap.W idth, y, bitmap);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Background.Free;
bitmap.Free;
Buf.Free;
end;

Админ: Пользуемся тегами для оформления кода!