Спрайтовая анимация

[FomAW]

Нужно сделать движение человека по экрану. Использовал функцию BitBlt, но после движения изображения по экрану остается его след т.е. оно не стирается, а накладывается друг на друга. Как это и справить?

var
  Form1: TForm1;
  BMH:TBitMap;
  kadrx,kadry:byte;
  x,y:integer;
  time:integer;
implementation

{$R *.dfm}


procedure TForm1.FormCreate(Sender: TObject);
begin
  BMH:=TBitMap.Create;
  BMH.LoadFromFile('C:\Users\Алексей\Documents\RAD Studio\Projects\Гоблин\anim_4_2.bmp');
  kadrx:=0;
  kadry:=0;
  x:=0;
  y:=0;
  time:=65;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  BMH.Free;
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var i:Byte;
begin
  if Key=39 then
  for i:=0 to 3 do
  begin
    inc(kadry);
    if kadry>3 then begin inc(kadrx); kadry:=0; end;
    if kadrx>1 then kadrx:=0;
    BitBlt(Form1.Canvas.Handle,x,y,96,134,
         BMH.Canvas.Handle,kadrx*130,kadry*134,SRCCopy);
    inc(x,13);
    if x>clientWidth then
    begin
      x:=0;
      inc(y,134);
    end;
    if y>2*134 then y:=0;
    sleep(Time);
  end;
end;

[s-andriano]

Общий подход - не рисовать фрагмент нового изображения поверх старого, а формировать новое изображение целиком, начиная с фона.
Вы, очевидно, забываете восстановить фон.

Вероятно, когда Вы справитесь с текущей проблемой, у Вас появится другая - мерцание изображения. Для избавления от нее нужна двойная буферизация.

PS. И еще - sleep в неконсольном приложении - дурной тон. Вместо него нужно пользоваться таймером.

[FomAW]

Сообщение от s-andriano

формировать новое изображение целиком, начиная с фона.

Не могли бы вы подробнее рассказать об этом?