ゲームでキャラクターの周りを透明化するには？ (ID:8901)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

そのコードだと、背景の Image1 の中に描き込んでいるんですね。
そうではなく、Image1 の上に Image2 を ＜置く＞ のです。
そして、Image2 の中のビットマップにキャラクタのビットマップの特定の
矩形部分を CopyRect() するのです。

背景透過は、TImage ではなく TBitmap の機能です。もっとも簡単なコードを
示しますので新規で試してみてください。Form1 の右端のほうに Button1 と
Button2 を置きます。そして以下のようにします。ボタンを押すたびに二つの
図形の周りが透過されて表示されることが分かると思います。

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    CharaBmp,TargetBmp:TBitmap;// これらを手動で追加すること
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  CharaBmp := TBitmap.Create;
  CharaBmp.Width := 200;
  CharaBmp.Height := 100;

with CharaBmp.Canvas do begin
    Brush.Color := clYellow;
    FillRect(Rect(0,0,100,100));
    Brush.Color := clLime;
    Pen.Width := 3;
    Pen.Color := clBlue;
    Rectangle(20,20,80,80);

Brush.Color := clAqua;
    FillRect(Rect(100,0,200,100));
    Brush.Color := clYellow;
    Pen.Color := clRed;
    Ellipse(110,10,190,90);
  end;

TargetBmp:= TBitmap.Create;
  TargetBmp.Width := 100;
  TargetBmp.Height := 100;
  TargetBmp.Transparent := true;
end;

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

procedure TForm1.Button1Click(Sender: TObject);
begin
  TargetBmp.Canvas.CopyRect(Rect(0,0,100,100),CharaBmp.Canvas,Rect(0,0,100,100));
  Refresh;
  Canvas.Draw(10,10,TargetBmp);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  TargetBmp.Canvas.CopyRect(Rect(0,0,100,100),CharaBmp.Canvas,Rect(100,0,200,100));
  Refresh;
  Canvas.Draw(10,10,TargetBmp);
end;

end.

←解決時は質問者本人がここをチェックしてください。

戻る