Fórum (problema) Sprites - Transparência no final da exibição. #374927

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormClick(Sender: TObject);
    procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
  private
    { Private declarations }
    procedure Blow;
  public
    { Public declarations }
    Tela: Array[1..5] of TBitmap;
    Fig: TBitmap;

    Tx, Ty: Integer;
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TForm1 }

procedure TForm1.Blow;
var
  I: Integer;
begin

  Fig:= tbitmap.Create;//cria a Figura inteira
  Fig.LoadFromFile(´img.bmp´);//carrega a Figura explo que está no c:

  for I := 1 to 5 do
  begin
    Tela[i]:= tbitmap.create;// cria a imagem final
    Tela[i].Width:= 40;//diz a largura de cada i
    Tela[i].Height:= 40;//diz a altura de cada i
    Tela[i].TransparentColor := clWhite;
    Tela[i].Transparent := True;

    //o bitblt copia uma parte da Figura incial ou seja os is, é aqui o segredo
    bitblt(Tela[i].canvas.handle,
           0,
           0,
           40, 40,
           Fig.canvas.handle, i*40, 0, SrcCopy);
    form1.canvas.draw(Tx-20, Ty-20, Tela[i]);//desenha  a Figura na posição x 0 y 0
    Sleep(35);
  end;
end;

procedure TForm1.FormClick(Sender: TObject);
begin
  Blow;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  Tx := X;
  Ty := Y;
end;

end.