画像を左右反転して表示させるには (ID：14640)

名前

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

本文

ありがとうございます。たつめです。

TImageList,TButton,TPaintBoxコンポーネントを貼り付けて
a.bmp,c.bmp使用して

次のようにしましたが、ImageList.Add(u_bitmap2,u_bitmap2)の第２パラメーターに反転したマスクをしてするとなぜか有色の部分が黒色で塗りつぶされてしまいます。マスクに反転した画像を指定しなかった場合は大丈夫でした。どうしてでしょうか？

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    PaintBox1: TPaintBox;
    Button1: TButton;
    ImageList1: TImageList;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private 宣言 }
  public
    { Public 宣言 }
  end;

var
  Form1: TForm1;
  Bitmap1,u_Bitmap2,Bitmap2:TBitmap;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);

begin
Bitmap1:=TBitmap.Create;
Bitmap1.PixelFormat:=pf32bit;
Bitmap1.LoadFromFile('../a.bmp');

Bitmap2:=TBitmap.Create;
Bitmap2.Transparent:=true;
Bitmap2.PixelFormat:=pf32bit;
Bitmap2.LoadFromFile('../c.bmp');
ImageList1.GetBitmap(0,Bitmap2);

u_Bitmap2:=TBitmap.Create;
u_Bitmap2.Transparent:=true;
u_BItmap2.Width:=100;
u_Bitmap2.Height:=100;
u_Bitmap2.Canvas.CopyRect(RECT(100,0,0,100),Bitmap2.Canvas,RECT(0,0,100,100));

ImageList1.Add(u_bitmap2,u_bitmap2);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
//PaintBox1.Canvas.Draw(0,0,Bitmap2);
ImageList1.Draw(PaintBox1.Canvas,0,0,1);
end;

end.

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

戻る