Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Прозрачная картинка

Protey © (2002-12-03 05:56:00)

Люди помогите! Имеется две картинки. Необходимо одну наложить на другую так, чтоб один из цетов оказался прозрачен.

3223(jab) (2003-04-24 15:03:00) [1]
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Image1: TImage;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
( Sender: TObject)
unit Unit1;

interface

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

type
TForm1 = class(TForm)
Image1: TImage;
Button1: TButton;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
b1,b2,b3:TBitmap;
begin
b1:=TBitmap.Create;
b2:=TBitmap.Create;
b3:=TBitmap.Create;

b1.LoadFromFile("c:\1.bmp");
b2.LoadFromFile("c:\2.bmp");

b2.Transparent:=True;

b3.Width:=b1.Width; b3.Height:=b1.Height;
b3.Canvas.Draw(0,0,b1);
b3.Canvas.Draw(0,0,b2);

Image1.Picture.Assign(b3);

b1.free;
b2.free;
b3.free;
end;

end.

Protey (2002-12-15 03:03:00) [2]

Спасибо. Работает.

Mirovodin (2002-12-05 11:34:00) [3]

2 SI-riuss © Вернего левого.

2 Protey Также см. пример процедуры:
http://delphigfx.mastak.ru/faq/gdi/gdi_faq.htm#Q6

SI-riuss (2002-12-05 11:15:00) [4]

Ну да. Или так Image1.Transparent:=True;За прозрачный берется цвет с не помню какого угла картинки.

MBo (2002-12-03 06:15:00) [5]

TransparentBlt (не для всех версий windows)

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »