Последние записи

Интенсив по Python: Работа с API и фреймворками 24-26 ИЮНЯ 2022. Знаете Python, но хотите расширить свои навыки?
Slurm подготовили для вас особенный продукт! Оставить заявку по ссылке - https://slurm.club/3MeqNEk

Online-курс Java с оплатой после трудоустройства. Каждый выпускник получает предложение о работе
И зарплату на 30% выше ожидаемой, подробнее на сайте академии, ссылка - ttps://clck.ru/fCrQw

29th
Мар

Движение фона и объекта на Canvas

Posted by maloy under Delphi, Архив

spamer

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

Код:


var
  Form1: TForm1;
  Buffer, Fon, Pic : TBitmap;
  x,y, xs,ys : Integer;

procedure TForm1.FormCreate(Sender: TObject);
begin
xs := 450;
ys := 500;
  Buffer := TBitmap.Create;
  Fon := TBitmap.Create;
  Pic := TBitmap.Create;
  Fon.LoadFromFile('Fon.bmp');
  Pic.LoadFromFile('picture.bmp');

  Buffer.Width := Fon.Width;
  Buffer.Height := Fon.Height;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
  y := y + 3;
  ys := ys - 3;
  Fon.Canvas.Draw(xs,ys,Pic);
  Buffer.Canvas.Draw(x,y,Fon);
  Form1.Canvas.Draw(0,0,Buffer);
end;

Оно движется вроде как надо, но фон начинает плыть (тоесть не повторяется он). Уже мучаюсь несколько дней.

Stilet

Предложу свой вариант:

Код:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Timer1Timer(Sender: TObject);
    procedure FormKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var    f,k:TBitmap;  kx,ky,yf:integer;
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
 f:=TBitmap.Create;
 f.Width:=940;
 f.Height:=640;
 f.LoadFromFile('fon.bmp');

 k:=TBitmap.Create;
 k.Width:=940;
 k.Height:=640;
 k.LoadFromFile('picture.bmp');

 yf:=0;     kx:=100; ky:=100;
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
k.Free;
f.Free;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
 inc(yf);
 if yf=Height then yf:=0;

 BitBlt(Form1.Canvas.Handle,0,yf,f.Width,f.Height,f.Canvas.Handle,0,0,SRCCOPY);
 BitBlt(Form1.Canvas.Handle,0,yf-f.Height,f.Width,f.Height,f.Canvas.Handle,0,0,SRCCOPY);

 BitBlt(Form1.Canvas.Handle,kx,ky,k.Width,k.Height,k.Canvas.Handle,0,0,SRCPAINT);

end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
const kk=20;
begin
 case key of
  VK_left:dec(kx,kk);
  VK_right:inc(kx,kk);
  VK_up:dec(ky,kk);
  VK_down:inc(ky,kk);
 end;
end;

end.

тема на форуме от 2009 года

Последние записи

Движение фона и объекта на Canvas

Похожие статьи

Купить рекламу на сайте за 1000 руб

пишите сюда - alarforum@yandex.ru