請問如何將24位元bmp圖轉成alpha透明圖? ( 积分: 100 )

J

jokedj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-12

• #1

請問如何將24位元bmp圖轉成alpha透明圖?
別頂我
頂得我好痛.

 

L

lqcros

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-12

• #2

Bitmap: TBitmap;
Bitmap.PixelFormat := pf32bit;

 

L

lqcros

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-12

• #3

需要透明，还是半透明

 

J

jokedj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-12

• #4

需要透明

 

L

lqcros

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-12

• #5

如果是透明的话，就不画三，哎，

你是不是需要局部透明，如圆形内是透明的，圆形外是不透明的

 

J

jokedj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-12

• #6

24位元有rgb三色 還有一個byte叫保留 或叫 alpha透明 我要如何讓alpha=0成為透明呢
delphi用 trans...那不是我要的

 

L

lqcros

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-12

• #7

我的贴子
32位图像处理库 delphi简单实现
http://www.delphibbs.com/keylife/iblog_show.asp?xid=18293

里面有设置透明通道
procedure SetAlphaChannels(Alpha: BYTE);overload; //设置透明通道

 

J

jokedj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-12

• #8

感謝您
procedure TForm1.Button1Click(Sender: TObject);
VAR X, Y: INTEGER;
P: PByteArray;
BEGIN
Image1.Picture.Bitmap.PixelFormat:=pf32bit;
FOR Y := 0 TO Image1.Height-1 DO
BEGIN
P:= Image1.Picture.Bitmap.ScanLine[Y];
FOR X := 0 TO Image1.WIDTH-1 DO P^[4*X+3] := 0;
END;
Image1.Picture.Bitmap.SaveToFile('a.bmp');
END;