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

名前

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

本文

念のため全ユニットのソースを示します。

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(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;
  TargetBmp.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;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Refresh;
  Canvas.Draw(10,10,CharaBmp);
end;

end.

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

戻る